3.. 2.. 1.. i wystartowali :P jeden za drugim ściagnał pdf`a tudzież ps`a z treścia zadania, które to umożliwi im wykazanie swoich umiejętności :P Po raz kolejny rozpoczał się konkurs:
nie bacząc na wszelkie trudności związane z rozwiązywaniem ciężkich zadań walet postanowił sprawdzić się :P Jako że standardem jest zakończenie przez niego udziału w konkursie w momencie gdy programy zaczynają być wywłaszczane, tym mocniej uprasza się o trzymanie kciuków :P
#!/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";
}