Help for this page

Select Code to Download


  1. or download this
    my $line1 = <IN>;
chomp($line1);
my @row = split("\t", $line1);
  2. or download this
    my @row = split("\t", chomp(<IN>));
  3. or download this
    my $line = <IN>;
my @row = split("\t", chomp($line));
print $row[0];