|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 18 Apr 2002 15:40:18
To : "Igor Gerdler"
Subject : Re: Прошу разъяснить кое-что...
--------------------------------------------------------------------------------
Здравствуй, Igor Gerdler.
IG> Добрый день, уважаемые поклонники Perl!
IG> Читая в perlfaq4 ответ на вопрос "How do I handle linked lists?" увидел
IG> пример:
IG> $node = {
IG> VALUE => 42,
IG> LINK => undef,
IG> };
IG> You could walk the list this way:
IG> print "List: ";
IG> for ($node = $head; $node; $node = $node->{LINK}) {
IG> print $node->{VALUE}, " ";
IG> }
IG> print "\n";
IG> и мало что из него понял. Может быть кто-нибудь мне поможет вникнуть в смысл
IG> цикла for?
Классическая сишная реализация связанного списка. С начального значения $node,
равного $head, пока $node истинно (в данном случае по построению это будет то
же самое, что "определено"), сиречь такой элемент в списке существует, вывести
value (тело цикла), а затем перейти к следующему элементу.
IG> P.S. Читая perldoc perltrap, раздел Numerical Traps увидел следующий пример:
IG> print 7.373504 - 0, "\n";
IG> printf "%20.18f\n", 7.373504 - 0;
IG> # Perl4 prints:
IG> 7.375039999999996141
IG> 7.37503999999999614
IG> # Perl5 prints:
IG> 7.373504
IG> 7.37503999999999614
IG> Я сам не проверял, но думаю, что-то здесь не так (посмотрите на цифры в
IG> числах). Может это только у меня в perltrap так написано?
Очепятка. А что мешает проверить-то? Три секунды.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Прошу разъяснить кое-что... 