Help for this page

Select Code to Download

Select or download this

 
my @aFlds = split(/\t/, $line);
my $last_field = $aFlds[-1];
my $next_to_last_field = $aFlds[-2];

Select or download this

#Note: if $line='A\tB\tC\t\D\tE', then
# @aFlds = ('A','B','C','D','E') before popping
...
my $last_field = pop @aFlds;
my $next_to_last_field = pop @aFlds;