sub ProcessEntry
{
my $heading = shift;
my @lines = @_;
print "Heading is: $heading\n";
print "middle lines are:\n";
print " $lines[$_]\n" for (0..(@lines-2));
print "Last line is: $lines[-1]\n\n";
}
Which prints:
Heading is: 1. This string can be modified using only regexes
middle lines are:
-These strings
-Need to be
-put into an
Last line is: -array
Heading is: 2.Here's another string needs only regexes
middle lines are:
-But here are more
-strings which
Last line is: -I want arrayed
Obviously you can replace the print lines with whatever you require, but that should suffice to show you how to access the various lines.
Perl is Huffman encoded by design.
|