|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/400 04 Jan 2002 12:31:00 To : vilfred Subject : Re: Маска -------------------------------------------------------------------------------- Здравствуй, vilfred. v> А так нельзя? v> `du -sh /dir/*.txt`; #for unix-like Можно. Hо не нужно. То бишь ты сделаешь примерно то же самое плюс выполнишь du, что в данном случае ни к селу, ни к городу, а вывод его еще парсить придется на предмет отделения агнцев от козлищ. Если маска раскрывается в достаточно малое количество файлов, чтобы du вообще согласились запустить. Hу и чтоб добить - bash-2.03$ du -sh . du: illegal option -- h usage: du [-a][-d][-k][-r][-o|-s][-L] [file ...] bash-2.03$ uname -a SunOS gather 5.8 Generic_108529-03 i86pc i386 i86pc В смысле - это не разу не для unix-like, а вовсе даже только для GNUтого du. v> или что то типа v> #!/usr/bin/perl -w v> use CGI 'param'; v> use File::Find; v> $regex=param('mask'); v> $dir=param('dir'); v> eval $regex; v> eval $dir; v> find \&wanted, $dir; v> sub wanted {print $count++, "\t$File::Find::name all ok!\n" if / v> $regex/i} v> запускать вроде так v> ./find.pl file=s?html? dir=/usr/local/etc/httpd/htdocs v> может и заработает. v> Или я не очень понял, что надо-то? Ой, не понял... Во-первых, человек просил уметь еще и по директориям маски. Во-вторых, у него была шелловская маска, а не регекс. В-третьих, спорим, ты это даже не пробовал запускать? Оно не то чтобы синтаксически неверно, но ругани при запуске выдает существенно больше, чем полезного результата. -- Artem Chuprina Communiware.net RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757 Отправлено через сервер Talk.Ru - http://www.talk.ru --- ifmail v.2.15dev5 * Origin: Talk.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/63596418f0f0.html, оценка из 5, голосов 10
|