Простите, что может быть вопросы нубские задаю. Помогите программку составить. Сам книжку по перлу не открывал лет 10. забыл все.
Задача такая: в выбранной директории (вместе с поддиректориями) изменить 2 строчку во всех файлах, кроме файлов, начинающихся с 89. С изменением строчки все ОК. Не могу составить регулярное выражение для выборки нужных конкретных файлов
Структура файлов примерно такая:
C:/111/DAT_1107.230/001.07
C:/111/DAT_1107.230/001.08
C:/111/DAT_1107.230/001.11
C:/111/DAT_1107.230/002.01
C:/111/DAT_1107.230/002.02
C:/111/DAT_1107.230/002.03
C:/111/DAT_1108.230/012.10
C:/111/DAT_1108.230/012.11
C:/111/DAT_1108.230/89.01
C:/111/DAT_1108.230/89.11

#!/usr/bin/perl -w

sub replace_line {
my ($file) = @_;
    open(FILE,"<$file") or die "Can't open $file: $!";
    @content = <FILE>;
    close(FILE);
    return if 2>@content;
    substr($content[1],-4,0)="89";
    open(FILE,">$file") or die "Can't open for write $file: $!";
    print FILE @content;
    close(FILE);
}


sub scan_dir
# процедура рекурсивного сканирования папки
{

    my ($dir) = @_;
    my @list;
    for my $file (glob($dir.'/*'))
    {

        if ($file=~ /0\d{2}\.\d{2}$/) { push @list, $file; next} # добавляем в массив 1 элемент
        if (-d $file) # если файл является папкой
        {
            pop @list, $file;
            my @sub = scan_dir($file);
            push @list, @sub;

        }

    }
    return @list;

}

# имя папки для сканирования по умолчанию (. = текущая папка)
my $dir='C:/111';


# вызов процедуры сканирования содержимого папки
@list = scan_dir($dir);

foreach $i (@list) {
replace_line($i)
}


Это сообщение отредактировал(а) alyam - 14.9.2011, 10:02

нифига так не работает. потому что $file='C:/111/DAT_1107.230/89.07' оно не начинается с 89!

Прошу прощения, не внимательно посмотрел код. Привык работать с файлами через readdir который возвращает только имя файла.
Ну тогда как-то так:

а если усложнить задачу и переименовывать файлы, которые не начинаются с 89. В общем нужно в название файла вначале добавить 89. 

а не хотите File::Find использовать?
сразу получите и путь к папке и имя файла отдельно.
проверять и оперировать проще:

не надо File::Find; использовать
только



Это сообщение отредактировал(а) mishin - 18.11.2011, 19:33