- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #5537 [620]
От : Andrew Alakozow 2:5061/6 13 января 05, 12:17
Кому : Andrey Silvestrov 23 января 05, 20:56
Тема : Re: perl работа с фаилами
-------------------------------------------------------------------------------
AS> Hарод помогите плз написать скриптик на ActivePerl 5.6.1(w32). Hужно
AS> чтоб он нашел в папке A фаил
perldoc -f readdir
AS> c именем abcXXXXX.ooo ( где XXXXX любые числа)
AS> c сегодняшней датой создания,
grep { /^abc\d{5}\.ooo$/ and -f and today( (stat(_))[10] ) } readdir (...)
sub today { join('|', (localtime($_[0]))[5,7])
eq join('|', (localtime(time ))[5,7]) }
AS> и перенес его в папку B.
perldoc File::Copy
aa29
--- Microsoft Outlook Express 6.00.2720.3000
* Origin: Life In The Dark (2:5061/6)