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

Если коротко: нужно удалить из множества файлов пустые строки в начале файла.

Помогите, если кто знает как написать. Сам в перле и регеспах не силен.

Необходимо уточнить каким образом делать поиск: искать только в этой директории или и во вложеных тоже.

Если только в этой, то тогда вывести список файлов можно следующим скриптом:

Код

use strict; my $some_dir = 'c:\temp'; my $mask = '.*\.txt$'; opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!"; my @files = grep { /$mask/ && -f "$some_dir/$_" } readdir(DIR); print join "\n", @files; closedir DIR;

Данный пример взят из документации к perl

Наибольший интерес вызывает строчка №4. Функция readdir(DIR) в списковом контексте (а здесь именно такой) возвращает массив всех элементов директории, а функция grep добавляет в массив @files только те элементы которые являются текстовыми файлами, а также их имя удовлетворяет критерию $mask (это регулярное выражение).

Если что непонятно пиши будем разбираться.

В случае поиска во вложенных директориях лучше использовать модуль File::Find.

Теперь вторая часть скрипта, имеется файл, необходимо удалить пустые строчки сверху:

Код

my $file = 'aaa.txt'; open(FILE, "<$file"); my @out; while (<FILE>) {   push @out, $_ if @out || $_ ne "\n"; }; close(FILE); open(FILE, ">$file"); print FILE @out; close(FILE);

Открываем файл на чтение, считываем от туда все строчки, если уже была считана хотя бы одна или строчка не пустая, после этого можно закрыть файл, открыть его для записи и записать туда полученный массив.
Этот скрипт будет не эфективным если файлы большого размера (много будет занимать массив), я бы писал сразу во временный файл вместо массива, а после этого переименовать файл. Попробуй сделать сам, если что поможем

Связать два скрипта я думаю не составит труда.

Это сообщение отредактировал(а) Ivan Kolesnikov - 8.8.2005, 06:48

Спасибо разобрался

А может быть кто-нить делал рекурсивный обходи директории с поиском файла по маске? Я тут эксперементирую с регеспами, но ничего толкового в виду отсутствия опыта не выходит..

посмотри File::Find

Это сообщение отредактировал(а) Ivan Kolesnikov - 29.8.2005, 12:49

Цитата

А может быть кто-нить делал рекурсивный обходи директории с поиском файла по маске? Я тут эксперементирую с регеспами, но ничего толкового в виду отсутствия опыта не выходит..

ничего сложного, вот не большой алгоритмик

Код

sub ReadDirs {     my $dirname = shift;     opendir(DIR, $dirname);     while (<DIR>) {         ReadDirs($_) if (-d $_);     }     closedir(DIR); }

ченибудь в таком духе
Добавлено @ 13:53
не спорю можно лутше

PS это экспромпт во время перекура

Это сообщение отредактировал(а) chaos - 29.8.2005, 13:47

Так же советую почитать статью "Удаление ветви дерева каталогов", в FAQ или вот здесь:
http://forum.vingrad.ru/index.php?showtopic=43492
Там описаны методы прохода по всем вложенным каталогам как с помощью модуля File::Find, так и вручную.

Спасибо.
А не подскажите условие, чтобы обрабатывались только файлы, не ищеющие расширения?

Не понял вопроса, если можно, чуть подробнее.

в никс системах вообще нет понятия расширения

Ну, скажем есть файлы *.cpp - их трогать не надо
А makefile - нужно.

Код

opendir( DIR, "." ) or die $!;     while ( my $file = readdir DIR ) {                 # Следующая строка пропустит файл .cpp                 next if $file =~ /\.cpp$/i;                 # Далее делаем что-то с остальными файлами     } closedir( DIR );

В код надо добавить одну строку:

Код

my $dir = './'; opendir DIR, $dir or die $!; while ( my $file = readdir DIR ) {       # Следующая строка пропустит файл .cpp       next if $file =~ /.+\.cpp$/i;          if (-f $file) {        # Далее делаем что-то с остальными файлами       } } closedir DIR;

Это сообщение отредактировал(а) sharq - 30.8.2005, 10:33