perl study note-2

# !/ usr / bin / perl  - w

use strict;

= head1
1  condition:
   false  when value  is   0 / null   string / string  with  " 0 "  value / undef;
2  block:
   ... {} ; vars only take effect  in  the block they are defined;

3  compare operators:
   < ,  > ,  == ,  != ... used  for  numeric compare;
  eq, lt, gt, le, ge, ne used  for   string  compare;

4  condition state:
   if   true   ... {}  elsif  ... {}   else   ... {} ;
  statement  if   true ; simple !
  unless  false   ... {} ;

5  loop state:
   while   true   ... {} ;
  untile  false   ... {} ;
   for  (init; condition; operation)  ... {} ;
   " statement of $_ "   for  [@array]  |  ( 0 ... 10 )
   for  ( 1 ... 10 )  ... { "statement of $_" } ;
  print  for  ();
  print  foreach  (@array);
   for  my $var ( 1 ... 10 )  ... {} ;
   for   ===   foreach
= cut
print  " part1 condition/loop................................................. " ;
my @array  =  qw /- 1   0   1   2   3   - 2   - 3 / ;
my @positive  =  ();
foreach  (@array)  ... {
    push @positive, ($_**2) if ($_ > 0);
}
print  foreach  (@positive);print  " " ;
@positive  =  ();
@positive  =  map  ... { $_**2 }  grep  ... {$_ > 0}  (@array);
print  for  (@positive); print  " " ;

my $test  =   0 ;
print  " test=0 "   if  ($test  ==   0 );
print  " test=0 "  unless ($test  !=   0 );

print  " 4 false conditions: 0/null string/string 0/undef " ;
my $cond  =   0 ;
print  " cond=0: false "   if  ( !  $cond);
$cond  =   "" ;
print  " cond="": false "   if  ( !  $cond);
$cond  =   " 0 " ;
print  " cond="0": false "   if  ( !  $cond);
$cond  =  undef;
print  " cond=undef: false "   if  ( !  $cond);

= head2
part2: exercise
1 . caculate  1 + 3 + 5 + ... + 99 ;
2 . the max value of n when ( 1 + 2 + .. + n) <= 100 ;
3 . caculate the factorial of x, inputted by user, x < 50  or alarm when x > 50 ;
= cut
print  " part2 exercise................................................. " ;
my $res  =   0 ;
for  (my $i = 1 ; $i < 100 ; $res += $i, $i += 2 )  ... {;}
print  " 1+3+5+...+99 = $res " ;
$res  =   0 ;
my $n  =   0 ;
foreach  ( 1 ... 100 ) ... {
    $n = $_-1;
    last if (($res+=$_) > 100);
}
print  " res=$res, when n=$n " ;

[root@china1 code]# . / perlnote3.pl 
part1 condition / loop.................................................
149
149
test = 0
test = 0
4   false  conditions:  0 / null   string / string   0 / undef
cond = 0 :  false
cond = "" :  false
cond = " 0 " :  false
cond = undef:  false
part2 exercise.................................................
1 + 3 + 5 + ... + 99   =   2500
res = 91 , when n = 13