Shell Programming and Scripting

#!/usr/bin/perl -w

use DBI;

# Get a database handle by connecting to the database


my $db = DBI->connect( "dbi:Oracle:<databasename>","servername","password" )
    || die( $DBI::errstr . "\n" );

my $sth = $db->prepare(qq(SELECT * FROM Table Tablename WHERE (CODE = ?) ORDER BY CODE));

my @data;
my $stid = $ARGV[0];
$sth->execute($stid)             # Execute the query
    or die "Couldn't execute statement: " . $sth->errstr;
while (@data = $sth->fetchrow_array()) {
    my $val1 = $data[1];
    my $val2 = $data[2];
    my $val3 = $data[3];
    my $val4 = $data[4];
    my $val5 = $data[5];

    print "$stid $val1 $val2 $val3 \n";

}

$sth->finish;

$db->disconnect;

<station> 20-JUL-08 MAX 98
<station> 18-NOV-12 MAX 73
<station> 24-MAR-12 MAX 84

<station> 20-06-08  MAX 98
<station> 18-11-12 MAX 73
<station> 24-03-12 MAX 84

#!/usr/bin/perl -w

use warnings;
use strict;

use Date::Manip;

my $todate  = '26-jan-13';
my $newdate = UnixDate( ParseDate($todate), '%d-%m-%Y' );

print "$newdate\n";

bash-3.00$ ./test.pl
26-01-2013