पर्ल में यह निम्नानुसार किया जा सकता है:
#!/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";
उत्पादन:
$ perl last.pl
5
$
आप एक फ़ाइल के माध्यम से भी लूप कर सकते हैं, एक उदाहरण स्क्रिप्ट जो मैंने एक फाइल पार्स करने के लिए लिखी थी, जिसे बजट कहा जाता है
बजट में डेटा उदाहरण।
Rent 500
Food 250
Car 300
Tax 100
Car Tax 120
Mag Subscription 15
(आप केवल "अंतिम" कॉलम को पकड़ने के लिए देख सकते हैं, केवल कॉलम 2 नहीं)
लिपी:
#!/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";