Hi All,
I have samll piece of code in which a subroutine is calles in unusual way .
#/usr/local/bin/perl
BEGIN {
$ENV{ORACLE_HOME} = '/home/oracle/app/oracle/product/8.0.5';
}
my $VENTURA_BASEDIR = '/home/www/highered/mdb';
my $FTP_PATH = 'ftp://ftp.prenhall.com/incoming/booksellers';
use AWL_Ventura_Document;
use DBI;
use Carp;
use strict;
if (scalar(@ARGV) != 1) {
print "Usage: cpm_feed.pl [filename]\n";
exit(0);
}
my $DATALOAD_FILE_NAME = $ARGV[0];
my ($USERNAME, $PASSWORD, $SID);
$USERNAME = 'pinfo';
$PASSWORD = 'pinfo';
$SID = 'hemdaprd';
# Turn I/O buffering off.
$| = 1;
exit &main; # I have never come across such sub routine call ? Is it
combining 2 call ? Namely - &main and then exit with the return value of
main routine ?
# after this I have the definition of the sub routine main
sub main {
----------
-----------
}
Regards,
Nilay
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
