Nejsem tu za zadnej flamewar Perl kontra shell. Naopak jsem rad, ze se tu vyskytnou stejny veci z vic pohledu - alespon se neco priucim. Tady je moje troska do mlyna:
Predchozi skripty v shelu mely oproti originalni perlove verzi tu nevyhodu. ze kdyz se nahodou vyskytlo dlouhe jmeno s mezerou napr. "Dlouhe Jmeno" (nebijte me prosim, taky by mne nenapadlo pojmenovavat to s mezerama, ale bydlicove jsou vsici tezce Windowsoidni) soubory se neprejmenovaly.
Takze nejak takhle?:
htm2html:
#!/bin/sh
#pouzita pripona
SUF="l"
#pro vsechny soubory zadane jako parametr
# vsimnete si znaku "
for NAME in "${@}" ; do
NEWNAME="${NAME}${SUF}"
mv "${NAME}" "${NEWNAME}"
done
A jeste jak zpatky udelat z nejake pripony uplne jinou (typicky treba .wav -> .mp3)
encode:
#!/bin/sh
#Usage: encode *.wav
# encode file1.wav file2.wav file3.wav
#Program a parametry pouzite pro komprimaci
ENC="lame -h -b 128"
for FILE in "${@}" ; do
#urizni priponu .wav, pridej priponu .mp3
NEW="`basename \"$FILE\" .wav`.mp3"
${ENC} "${FILE}" "${NEW}"
done
preji hezky den
Michal Ambroz (O_O)