- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3043 [502]
От : Ivan Frolcov 2:5020/175.2 25 марта 04, 12:23
Кому : Misha Shiposh 26 марта 04, 23:26
Тема : как?
-------------------------------------------------------------------------------
From: "Ivan Frolcov"
Thu Mar 25 2004 06:23, Misha Shiposh wrote to Anton Dvoryasin:
AD>> foreach (<*.[0-9][0-9][0-9]>) {
AD>> @words = split (/ /); Вот, тут по идее (моей) $_ должна разбиться по
AD>> точке на два куска, но этого не происходит, где я не так?
Скажи, пожалуйста, почему ты так решил?
AD>> Вообще хочется найти все эти файлы и скопировать их как *.z?? , где
AD>> ?? последние цифры.
Примерно так:
perl -MFile::Copy -e '/(.*)\..(..)$/ && copy($_, "dest/$1.z$2") \
for glob "*.[0-9][0-9][0-9]"'
AD>> И еще хочу спросить читавших книжку по регэкспам от О'рейли, как оно? У
AD>> нас за 163 рубля ($5.5) лежит, при беглом осмотре показалось что стоит
AD>> того (скорее того что она бумажная, не люблю читать с монитора)
MS> Книжка действительно ничего, мне понравилась.
"Всему свое время, и время всякой вещи под небом!" А вообще купи, потом
пригодится.
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)