ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       13 Jan 2005  13:17:12
 To : Andrey Silvestrov
 Subject : 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    perl работа с фаилами   Andrey Silvestrov   12 Jan 2005 13:27:59   Re: perl работа с фаилами   Andrew Alakozow   13 Jan 2005 13:17:12