Help for this page

Select Code to Download


  1. or download this
    open(INPUT, $infile);
 my @lines = <INPUT>;
 close(INPUT);
  2. or download this
    my @headers = split ' ', do{ my $raw = <INPUT>; $raw =~ tr[",][ ]; $ra
+w }; #"
  3. or download this
    my @headers = split ' ', do{ my $raw = shift @lines; $raw =~ tr[",][ ]
+; $raw }; #"