|
From: xavier r. <lis...@na...> - 2003-07-18 15:00:07
|
|| | | |for i in *(.);do folder=`echo $i |perl -pe 's/[\-\.0-9]//g'`;echo $folder;mkdir $folder 2>/dev/null;mv $i $folder; done | |(zsh for the *(.) (only files)) | err... this erase the - everywhere... better : cd sounds/wetlands/events for i in *(.);do folder=`echo $i |perl -pe 's/([\w\-]+[a-z])[\-\.0-9]+/$1/'`;mkdir $folder 2>/dev/null ;mv $i $folder ; done -- xavier renaut, 514 906 1212 x226 |