Blog Waleta

The Java Memory Model

Closures For Java

ale mu nie wyszło :P

wrrrr… google odmówiÅ‚y współpracy :P

wiÄ™c pomaszerowaÅ‚ na yahoo ale tam zmuszajÄ… wszystkich do rejstracji… wiec ruszyÅ‚ dalej a co opowieść ta przyniesie już niebawem siÄ™ dowiecie :P

Tym razem o perlu :-)

Mamy następujący kod :

#!/usr/bin/perl -w
#use strict;
my $pid;
my $hasz = { 'p' => 1 };
my $count = 0;
while (!defined $pid && !$pid){
last if $count > 10 ;
foreach $pid (keys %{$hasz}){
my $tmp = $pid;
}
$count++;
print "$count \n";
}

PiszÄ…c w ten sposób nie spodziewajcie siÄ™ że while zakoÅ„czy swoje dziaÅ‚anie :P Pomimo tego że w foreachu nie ma napisane jawnie ‘foreach my $pid’ to perl zaczyna traktować w tym momencie zmienna $pid jako zmienna lokalna i nie wyjdzie z while ;-) Aby osiÄ…gnąć zamierzony efekt można napisac :

#!/usr/bin/perl -w
#use strict;
my $pid;
my $hasz = { 'p' => 1 };
my $count = 0;
while (!defined $pid && !$pid){
last if $count > 10 ;
foreach my $tpid (keys %{$hasz}){
my $tmp = $tpid;
$pid = $tpid;
}
$count++;
print "$count \n";
}

Fajnie nie? :D

Wujek walet ;P