Мне необходимо изменить все файлы в каталоге, или в крайнем случае их переписать заново. Я делаю так:
$when = time();
opendir (DIR, $vulpath);
@files = readdir(DIR);
closedir(DIR);
foreach $file(@files) {
next if $file =~/^\\.\\.?$/;
utime ($when,$when,"$vulpath/$file");
}
Но что то это не работает. Мальчики пожалуйста помогите. Только пожалуйста критику конструктивную и с работающим примером.