Help for this page

Select Code to Download


  1. or download this
    perldoc -f split
  2. or download this
    open ALL, "alltrans.csv" or die "Can not open file: $!";
while (<ALL>) {
...
    push @alltrans, [ split /,/, $_, -1 ];
}
close ALL;
  3. or download this
    my @alltrans;
chomp, push @alltrans, [ split /,/, $_, -1 ] for <ALL>;
...
# or

my @alltrans = map { chomp; [ split /,/, $_, -1 ] } <DATA>;