Изменение даты создания файлов.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Изменение даты создания файлов. - 2005-06-23 13:56:00
|
|
|
cobaltsys
Сообщений: 6
Оценки: 0
Присоединился: 2005-06-23 13:17:01
|
Это возможно? если да, то как это реализовать. Идея проста. Я написал чеклогер на Perl, который удаляет из логов строки содержащие нужные мне слова. Но вот беда. При этом меняется дата создания файлов на сегодняшнию. А это суть есть биг палево. Как бы эту дату обратно переколбасить?
Зарание благодарен.
P.S: Чуть не забыл. ОS=Win2k3 LogFiles=ISA2004. Если кому интересно конечно.
|
|
|
|
|
Изменение даты создания файлов. - 2005-06-23 14:44:11
|
|
|
ventilyator
Сообщений: 423
Оценки: 0
Присоединился: 2004-10-28 15:46:45
|
у млин… нечаяно дал ссылку на длл-ные функции :)
не пазырил, что у тебя на перле все…
|
|
|
|
|
Изменение даты создания файлов. - 2005-06-24 09:45:31
|
|
|
cobaltsys
Сообщений: 6
Оценки: 0
Присоединился: 2005-06-23 13:17:01
|
Спасибо всем, уже сам разобрался. Привожу скрипт, который меняет дату файла, по шаблону другого файла:
#!/usr/bin/perl -w
if (@ARGV < 2)
{
print "\n\n";
print "|****************************************************************|\n";
print "| Thish Sсгiрt resolv criatetime of file. \n";
print "| Sorry, but you have not any parametrs: \n";
print "| ./retime.pl File_sours file_dest \n";
print "|****************************************************************|\n";
print "\n\n";
exit();
};
$file_name1=$ARGV[0];
$file_name2=$ARGV[1];
($dev,$info,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($file_name1);
$dev="not need";
$info="not need";
$mode="not need";
$nlink="not need";
$uid="not need";
$gid="not need";
$rdev="not need";
$size="not need";
$ctime="not need";
$blksize="not need";
$blocks="not need";
utime($atime,$mtime,$file_name2);
Вот так. Ещераз всем спасибо.
[sm=scull.gif]
|
|
|
|
|
|
