Search:

hi,

the below attached program resolves your following issue.

<tb>
Het blijvend beeld der Hollandse Kunst|1
De Bijbel in Holland's Schilder-cultuur|25
</tb>
Some other text
Output file:

Hi
you can do the same thing by this way also

#!/usr/bin/perl
use strict;

my @array=qw(hello World Show must go on);

print "\n $array[(($#array+1)/2)]";

hi

you can add ( print __LINE__ ; ) statement at the end of your script it will display how many lines are there in the script.

For e.g

#!/usr/bin/perl
use strict;

my @array=qw(hello...

#!/usr/bin/perl
use strict;

my @array=qw(hello World Show must go on);

my $count=scalar @array;
print "\n Count :$count";

print "\n $array[($count/2)]";

#!/usr/bin/perl
use strict;

my @array=qw(hello World Show must go on);

my $first_str;
my $second_str;

my @rev_sorted=reverse( sort { lc $second_str cmp lc $first_str } @array) ;