ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  03 Jan 2001  19:37:16
 To : Andy
 Subject : Re: find files
 -------------------------------------------------------------------------------- 
 

 В твоём письме от Wed, 03 Jan 2001 06:20:16 +0300 написано:
 
 avr> Как мне найти все файлы с именами, удовлетворяющими маске и пробежаться 
 avr> по ним? Т.е. интересуют аналоги паскалевских функций findfirst и 
 avr> findnext. Можно с примерами.
 
 Для наколенного поделия можно пользоваться glob (perldoc -f glob), а для
 аккуратной работы - opendir, readdir, grep. Только вместо маски придется
 применять регекс. Впрочем, из досовской маски регекс делается заменой
 
 s/\./\\./; s/\*/.*/g; s/\?/./g;
 
 Только работать будет несколько иначе - как в юниксе. Зачем тебе аналоги
 findfirst и findnext, не понимаю (на перле не пишут как на паскале), но если
 обоснуешь, я прогнусь и напишу.
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- slrn/0.9.6.3-as (Linux)
  * Origin: AKA с подствольным плюсомётом (2:5020/371.32)
 
 

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