<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<pre>~ % re.pl
$ @a = (undef, 0, 1, 2, 3); while(@a) { shift @a }</pre>
<pre>0$ @a;</pre>
<pre>$ </pre>
<br>
On 05/27/2010 01:40 PM, Andrei wrote:
<blockquote
cite="mid:AANLkTinMVJkyq3BeBmwUiNrYZ0Qv-A8ThZwXpWO9gwIb@mail.gmail.com"
type="cite">
<div class="gmail_quote">27 мая 2010 г. 10:50 пользователь Andrew
Shitov <span dir="ltr"><<a moz-do-not-send="true"
href="mailto:andy@shitov.ru">andy@shitov.ru</a>></span> написал:<br>
<blockquote class="gmail_quote"
style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Увидел
вот такой код внутри класса.<br>
<br>
sub clear{<br>
my $template = shift @args;<br>
@{$self->{tokens}} = ();<br>
foreach (map {$_->{name}} @{$template->{si}}){<br>
while (my $r = shift @{$self->{$_}->{res}}){}<br>
}<br>
}<br>
<br>
<br>
Заслуживает внимания способ очистки массива:<br>
<br>
while (my $r = shift @a) {}<br>
<br>
Клево же :-)<br>
</blockquote>
<div><br>
До первого нуля, пустой строки undef, да? <br>
</div>
</div>
<br>
-- <br>
Andrei Protasovitski<br>
< andrei[dot]protasovitski[at]gmail[dot]com ><br>
Diemen, Netherlands<br>
<pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
--
Moscow.pm mailing list
<a class="moz-txt-link-abbreviated" href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a class="moz-txt-link-freetext" href="http://moscow.pm.org">http://moscow.pm.org</a>
</pre>
</blockquote>
<br>
</body>
</html>