Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
#!/usr/bin/perl $dir = $ARGV[0]; exit if ( !-d $dir ); opendir DIR, $dir; for $old ( grep -d "$dir/$_", readdir DIR ) { next unless ( $old =~ /^(\d)(\d+)/ ); $new = ( $1 + 1 )."$2"; rename( "$dir/$old", "$dir/$new" ); }