En perl esto se puede hacer de la siguiente manera:
#!/usr/bin/perl
#create a line of arbitrary data
$line = "1 2 3 4 5";
# splt the line into an array (we call the array 'array', for lolz)
@array = split(' ', $line);
# print the last element in the array, followed by a newline character;
print "$array[-1]\n";
salida:
$ perl last.pl
5
$
También puede recorrer un archivo, aquí hay un script de ejemplo que escribí para analizar un archivo llamado budget.dat
datos de ejemplo en budget.dat:
Rent 500
Food 250
Car 300
Tax 100
Car Tax 120
Mag Subscription 15
(puede ver que necesitaba capturar solo la "última" columna, no solo la columna 2)
La secuencia de comandos:
#!/usr/bin/perl
$budgetfile = "budget.dat";
open($bf, $budgetfile)
or die "Could not open filename: $filename $!";
print "-" x 50, "\n";
while ( $row = <$bf> ) {
chomp $row;
@r = split (' ', $row);
print "$row ";
$subtotal += $r[-1];
print "\t$subtotal\n";
}
print "-" x 50, "\n";
print "\t\t\t Total:\t$subtotal\n\n";