Help for this page

Select Code to Download


  1. or download this
    name1 1 2 3 4 typex
name2 3 4 5 6 typey
name3 2 3 3 1 typex
  2. or download this
    
typex
...

typey
name2 3 4 5 6
  3. or download this
    while (my $line = <TEMP>) {
    chomp($line);
    push @array, $line;
    my ($name, $column2, $column3, $column4, $column5, $type) = split/
+\s+/;
}