Help for this page

Select Code to Download


  1. or download this
            while (<RECORDS>) {
          chomp;
...
            $$v++;
          }
        }
  2. or download this
    for (a..z) {$in {$_}=int rand(100) };
foreach (keys %in){
...
    $$out{$_}=$in{$_}
}
foreach (keys %$out){print "out $_ is $$out{$_}\n"}
  3. or download this
    foreach $field(@fieldList){
     $$field = $in{'$field'};
}