[Comm] Переимненование файлов. [JT]

[Evgenii Terechkov]

Шенцев Алексей Владимирович пишет:

>> > А вообще тред начался с замены пробелов на подчеркивания. Так
>> > что уже не на чем ломаться ;)
>> Здрасьте, а табы? :)
> Дык а их нет, см. начало треда ... :)

А я частенько вот таким пользуюсь:

#!/usr/bin/perl -w
use locale;
$op = shift or die "Usage: rename expr [files]\n";
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}

Типа pmv 's/ /_/g' *\ * можно сказать для решения исходной задачи (табы и
т.п.: pmv 's/\s/_/g' *).

Кто скажет нелюбителю перла - какие тут подвохи могут быть?

-- 
                                        С уважением, системный
                                        администратор ООО "Крастел",
                                        Терешков Евгений.