Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.144.35.148] |
|
Сообщ.
#1
,
|
|
|
Какой минимальный набор от перла надо иметь на машине для запуска скрипта. в котором есть:
open(); print(); stat(); деление; Можно ли сделать что-то типа следующего - создать каталог /myScript/ , скопировать туда perl.exe из /perl/bin/, создать script.pl и запускать из командной строки perl.exe script.pl ? Добавлено Да, еще есть перевод из unixTime в человеческое время. |
Сообщ.
#2
,
|
|
|
Да, можно и так.
А можно еще и правила читать. Это тоже не трудно. А что не так с юникстайм? |
Сообщ.
#3
,
|
|
|
Nadz Goldman - просто так нельзя было(
путем проверки выяснил, что минимальным набором для работы перла является /bin/libgcc_s_sjlj-1.dll /bin/perl.exe /bin/perl512.dll (ставил strawberry 5.12) А для перевода времени (use Time::Local) необходимо еще 16 либ. Выясняются какие нужны - пытаешься запустить скрипт и он ругается на то, что нет нужного файла в /lib/ Фак просмотрел, гуглом тоже пользовался, если ты про эти правила) |
Сообщ.
#4
,
|
|
|
А не судьба:
my $myDate = `date /t`; my $myTime = `time /t`; chomp $myTime; chomp $myDate; print "Current time is: $myTime Current date is: $myDate"; ? Четакататак... |
Сообщ.
#5
,
|
|
|
Nadz Goldman Наверное можно...
чего-то протупил. Для перевода обратно из unixTime ничего не надо, в итоге оставил dll и exe-шники. Скрипт должен к списку файлов приписывать размер и дату изменения. В итоге: $grepFile = "C:\\1\\hash.test"; open (SOURCE, "$grepFile"); while (<SOURCE>) { chomp; ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime, $mtime,$ctime,$blksize,$blocks) = stat; @time = localtime($mtime); print "$_ $time[3].".(1+$time[4]).".".(1900 +$time[5])." $time[2]:$time[1]:$time[0] $size\n"; } close (SOURCE); |
Сообщ.
#6
,
|
|
|
А, вон оно чего со временем делать надо оказывается.
Тогда ясно =) Ну вот и счастье появилось =) |