- 936 名前：934 mailto:sage [2005/09/06(火) 19:48:05 ]
- ついでにbash
shopt -s extglob
function ren {
case $1 in
*¥[+([0-9])-+([0-9])¥]*)
set -- $( echo "$1" | sed 's/¥[¥([0-9]*¥)-¥([0-9]*¥)¥]/ ¥1 ¥2 /' )
for i in $( jot -w"%0$(echo -n $2|wc -c|tr -d ' ')d" - $2 $3 1 )
do
ren $1$i$4
done
;;
*)
echo $1
;;
esac
}
while read s
do
ren $s
done
>935
Perlまかせにすると、[00-10]とかができなかった。
