Скрипт на bash`е надыть .... помогите!!!

sob1201.zip
sob1202.zip
1203.zip
1401.zip

Как видно, в начале буквы (а не цифры) могут просто отсутствовать ,,,, 
Вот надо это разложить понормальному ....

обязательно на баше?



#!/usr/bin/perl



$pwd = `pwd`;



while(<INPUT>){

  chomp;

  if(/^(.*\d\d)(\d\d\.zip)$/){

    if( ! -d $pwd.'/'.$1 ){ mkdir( $pwd.'/'.$1 ); }

    rename( $pwd.'/'.$_, $pwd.'/'.$1.'/'.$2 );

  }

}



запускать:

[shell]$ ls *.zip | ./script.pl



сначала проверить!

for f in `ls`; do
    ver=`echo $f |sed 's/^\(.*\)\([0-9]\{3\}\)\([0-9]\)\.zip/\1 \2/' |cut -d\  -f2 -s`
    test -z "$ver" && continue
    target=$prefix/$ver
    mkdir -p $target
    unzip -d $target $f
done

переменная $ver всегда получается пустой .... не подскажешь где ошибка?

Надо было именно на bash`е ....

sed 's/^\(.*\)\([0-9]\{2\}\)\([0-9]\{2\}\)\.zip/\1 \2 \3/'

echo sob1201.zip | sed 's/^\(.*\)\([0-9]\{2\}\)\([0-9]\{2\}\)\.zip/\1 \2 \3/'
sob 12 01

echo sob1201.zip | sed 's/^\(.*\)\([0-9]\{2\}\)\([0-9]\{2\}\)\.zip/\1 \2 \3/'| cut -d\  -f2 -s
12


echo 1201.zip | sed 's/^\(.*\)\([0-9]\{2\}\)\([0-9]\{2\}\)\.zip/\1 \2 \3/'
 12 01

echo 1201.zip | sed 's/^\(.*\)\([0-9]\{2\}\)\([0-9]\{2\}\)\.zip/\1 \2 \3/'| cut -d\  -f2 -s
12

свежее! Спасибо.

У тебя в именах файлов 4 цифры? Суффикс .zip или .ZIP, .Zip или ещё как? В общем, фикси регексп - в результате должна получиться строчка с двумя полями, разделёнными пробелом, второе поле - это и будет $ver.