|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Spector 2:5020/400 08 Oct 2002 13:38:35
To : Artem Chuprina
Subject : Re: где ошибка?
--------------------------------------------------------------------------------
Mon Oct 07 2002 19:19, Artem Chuprina wrote to "Michael Spector":
AC> From: Artem Chuprina <ran@ice.ru>
AC> Здравствуй, Michael Spector.
DS>>> welcome to hell, Hаpод _/:/_)
DS>>> unlink("$dst/$_") foreach(@modules) if (lc($ARGV[1]) eq '-d');
MS>> Skazhi, zachem tak izvrashatsya ? Ili vy prohodite konkurs na samuju
MS>> korotkuju programmu ?
AC> Естественное навешивание if на короткую команду. А что она при этом сама
AC> цикл, ну и что? Другое дело, что синтаксис именно такого фокуса не
AC> позволяет.
А зачем такой изврат ? Просто обьясните, а то я не понимаю :(
Мне кажется понятней так:
if(lc($ARGV[1]) eq '-d'){
foreach $module (@modules){
unlink("$dst/$module");
}
}
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
