Code: Alles auswählen
perl meinscript.pl pfad/zum/verzeichnisCode: Alles auswählen
find . -name "*.wma" -printf "%h\n" | uniqCode: Alles auswählen
for i in `find . -name "*.wma" -printf "%h\n" | uniq`; do perl meinscript.pl $i; doneCode: Alles auswählen
find . -name "*.wma" -printf "%h\n" | uniq | xargs perl meinscript.plIrgendwie sollte das so gehen....jhr-online hat geschrieben:Die Idee ist nicht doof, ganz im Gegenteil, aber außer der Schlusszeile "Fertig" brachte mir das script nichts produktives; nicht mal Fehlermeldungen...
Code: Alles auswählen
find . -name "*.wma" -printf "%h\n" | uniq | xargs -0 perl meinscript.pl
Hmmh. Das sollte eigentlich durch das "-0" gehandelt werden. Siehe "man xargs".jhr-online hat geschrieben:Stimmt nicht... der Testlauf war nicht aussagekräftig... Der Fehler scheint wohl da zu liegen, dass -printf von find kein Nullbyte liefern kann. Also kann xargs nichts vernünftiges übergeben... Ideen?
Naja klar, aber printf übergibt kein Nullbyte, sodass xargs keins findet...ub13 hat geschrieben:Hmmh. Das sollte eigentlich durch das "-0" gehandelt werden. Siehe "man xargs".
Darauf läuft's wohl hinaus... Also wieder lesen: Arrays in einer Shell...Dann schreib Dir doch ein Skript - dort schreibst Du den Output erstmal in ein File oder Array und arbeitest das dann mit einer for Schleife ab. (ok, ist etwas umständlich...)
"cut" könnte funktionieren, wenn wie in "einem" Verzeichnis die Einträge gleich lang sind. Mit dem Deliiter "/" zerlegst Du den String und mit "-f No" - No ist der xte Parameter hast Du es. Aber der find geht ja rekursiv über die Verzeichnisse...jhr-online hat geschrieben:Das war ehrlich gesagt mein erster Gedanke, aber ich habe nicht rausgefunden, ob - und wenn, dann wie - ich cut beibringen kann, alles vor dem letzten / auszugeben, da ich irgendwie die Delimiter nicht von hinten zählen kann.
Code: Alles auswählen
find . -name "*.wma" -printf "%h\n" | uniq > file
while read line ; do
perl meinscript.pl $line
done < fileCode: Alles auswählen
while read line; do perl script.ol $line; done < `find . -name "*.wma" -printf "%h\n" | uniq`Code: Alles auswählen
find . -name "*.wma" -printf "%h\n" | uniq > file
while read line ; do
if [ $line = "." ]; then
break
fi
perl meinscript.pl $line
done < fileCode: Alles auswählen
PATH="/home/jhr/musik"
FIND="/usr/bin/find"
declare -a ARRAY
COUNTER=0
echo "`$FIND $PATH -name \"*.wma\" -printf \"%p\n\"`" | while read line
do
echo "$COUNTER = $line"
ARRAY[$COUNTER]=$line
let COUNTER=$COUNTER+1
doneCode: Alles auswählen
375 = /home/jhr/musik/geilepartymucke/fetziges lied.wmaCode: Alles auswählen
PATH="/home/jhr/musik"
WHATTOCONVERT="*.wma"
FIND="/usr/bin/find"
LINE="/usr/bin/line"
DIRNAME="/usr/bin/dirname"
BASENAME="/usr/bin/basename"
MPLAYER="/usr/bin/mplayer"
OGGENC="/usr/bin/oggenc"
RM="/bin/rm"
echo "`$FIND $PATH -name \"$WHATTOCONVERT\" -printf \"%p\n\"`" | while read line
do
DIR=`$DIRNAME "$line"`
FILEFULL=`$BASENAME "$line"`
FILELENGTH=${#FILEFULL}-4
FILE=${FILEFULL:0:$FILELENGTH}
echo "new directory: $DIR"
echo "converting $FILEFULL to $FILE.wav"
$MPLAYER "$DIR/$FILEFULL" -quiet -vc null -vo null -ao pcm:file="$DIR/$FILE.wav"
echo "converting $FILE.wav to $FILE.ogg"
$OGGENC "$DIR/$FILE.wav" -Q -o "$DIR/$FILE.ogg"
echo "Removing needless wav and wma files..."
$RM "$DIR/$FILEFULL"
$RM "$DIR/$FILE.wav"
echo "Done."
done
exit 0