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:
Type: Posts; User: amitbhosale; Keyword(s):
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) ;