Help for this page

Select Code to Download


  1. or download this
        chomp($line = < IN >);
  2. or download this
        chomp($line = glob 'IN' );
  3. or download this
        chomp($line = 'IN' );
  4. or download this
        for ($i=0; $i<@xyzvals; $i++) {
        $s{$bb}{$xyz[$i]} = $xyzvals[$i];
        }
  5. or download this
        for my $i ( 0 .. $#xyzvals ) {
        $s{ $bb }{ $xyz[ $i ] } = $xyzvals[ $i ];
        }
  6. or download this
        @{ $s{ $bb } }{ @xyz[ 0 .. $#xyzvals ] } = @xyzvals;