পার্লে এটি নিম্নলিখিত হিসাবে করা যেতে পারে:
#!/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";