Сообщения

1

Perl / Помогите изменить файлы в каталоге

« : 08 Апреля 2002, 18:09:04 »

Мне необходимо изменить все файлы в каталоге, или в крайнем случае их переписать заново. Я делаю так:

 $when = time();
opendir (DIR, $vulpath);

@files = readdir(DIR);
 
closedir(DIR);

foreach $file(@files) {
next if $file =~/^\\.\\.?$/;
             
utime ($when,$when,"$vulpath/$file");
}

Но что то это не работает. Мальчики пожалуйста помогите. Только пожалуйста критику конструктивную и с работающим примером.