Help for this page

Select Code to Download


  1. or download this
    $[ = 1;    # set array base to 1
$, = ' ';    # set output field separator
$\ = "\n";    # set output record separator
  2. or download this
    ...
while (<FILE>) {
     chomp;    # strip record separator
     @in_data = split(/ +/, $_);
     ...