Useful Perl Scripts : Part-3

To Access the last element of an array

#!/usr/bin/perl

@array = (1,2,3,4);

print $array[$#array];

      (OR)

#!/usr/bin/perl

@array = (1,2,3,4);

print $array[-1];

To Insert line number in a file from command line

perl -pi -e'$_ = sprintf "%04d %s", $., $_' filename

 To Edit the file content from command line

perl -pi -e 's/cat/dog/' filename

 Using references in perl

#!/usr/bin/perl

$str = "hello";    # original string

$ref = \$str;       # compute $ref that points to $str

print "$$ref\n"; # prints "hello" -- identical to "$str\n";

 For more..

useful-perl-scripts-part-1

useful-perl-scripts-part-2

njoy the simplicity.......
Atul Singh