Perl

Install the moduel to /app/dvsynhk/apps/perl/

tar -zxvf Spreadsheet-Read-0.46.tgz

cd Spreadsheet-Read-0.46

perl Makefile.PL PREFIX=/app/dvsynhk/apps/perl/

make

make test

make install

Use the installed module:

#!/usr/bin/perl -w

use strict;

use lib '/app/dvsynhk/apps/perl/lib/perl5/site_perl/5.8.8/';

use Spreadsheet::Read;

#/bin/perl

# this program rename any file with [0-9]+.jpg to [0000].jpg

# apply recusively to sub folders

use Cwd;

use File::Find;

use File::Basename;

$type = "jpg";

$path = &Cwd::cwd();

opendir(DIR, "$path");

@FILES = ();

&File::Find::find( sub {push @allFiles, $File::Find::name;}, ".");

foreach $file (@allFiles) {

    if ( $file =~ "[0-9]+\.$type") {

        $folder = dirname($file);

        $basename = basename($file,(".$type"));

        $newname = sprintf("%04d",$basename);

        print "$file  --> $basename --> $folder/$newname.$type\n";

        rename($file, "$folder/$newname.$type");

    }

}

http://www.perlmeme.org/howtos/using_perl/dereferencing.html

#!/usr/bin/perl                              

use strict;                                  

use warnings;                                

my $scalar = "This is a scalar";             

my $scalar_ref = \$scalar;                   

print "Reference: " . $scalar_ref . "\n";    

print "Dereferenced: " . $$scalar_ref . "\n";

if ( defined($opt_t) && 

        ($g_year, $g_mon, $g_mday) = (substr($opt_t, 0, 4), substr($opt_t, 4, 2), substr($opt_t, 6, 2) );

} else {

}