comment on

Yes, you are right there are no error.. but how could i pass the variable values into another perl script ?

Below is my main program called main_program.pl and it was export values from 2.configuration_files.pl script.

But, how could i pass the $SWITCHNAME into another script called open_file.pl

############################################################
#FIRST script: main_program.pl

#!/usr/bin/perl

use Getopt::Long;
use Time::ParseDate qw(parsedate);
use Time::Local;
use POSIX qw(strftime);

our ($GSX, $ASX, $TRACE, $SWITCHNAME, $FILENAME);

GetOptions (
    "g"    => \$GSX,
    "a"    => \$ASX,
    "t"    => \$TRACE,
    "s=s"    => \$SWITCHNAME,
    "f=s"    => \$FILENAME
) or USAGE ();

sub USAGE {
    print "USAGE: $0 -[ag] -f <filename>\n\n";
    print "DESCRIPTION:\n";
    print "\t -a : Defined ASX file type\n";
    print "\t -g : Defined GSX file type\n";
    print "\t -f : Assigned input file\n\n";
    print "EXAMPLE:\n";
    print "\t # $0 -a -f 1000001.ACT\n";
    print "\t - Processed file name 10000001.ACT with ASX file type.\n
+";
    print "\n";
    print "\t # $0 -g -f 1000001.ACT\n";
    print "\t - Processed file name 10000001.ACT with GSX file type.\n
+";
    exit;
}

$SWITCHNAME = uc($SWITCHNAME);
require "2.configuration_file.pl";
[download]

############################################################
#SECOND script: configuration_file.pl
#!/usr/bin/perl

use strict;
use warnings;

our $INPUTDIR         = "/data/input";
our $ARBORCSTDIR     = "/data/output/ARBOR";
our $ARBORCSVDIR     = "/data/output/ARBORCSV";
our $RAWCSVDIR         = "/data/output/RAWCSV";
our $FMSDIR         = "/data/output/FMS";
our $INBILLDIR         = "/data/output/INBILL";
our $ERRORDIR         = "/data/error";
our $FILTERDIR         = "/data/filter";
our $ARCHIVEDIR     = "/data/archive";
our $DUPLICATEDIR    = "/data/duplicate";
our $WORKDIR        = "/data/work";
our $LOOKUPDIR         = "/data/lookup";
[download]

############################################################
#THIRD script: open_file.pl

#!/usr/bin/perl

use strict;
use warnings;

sub CREATE_FILTER_HEADER {
    print (FILTER "FILTER CODE,STATUS,ANUM,BNUM,STARTDATE,DURATION,MBI
+\n");
}

sub CREATE_ERROR_HEADER {
    print (ERROR "ERROR CODE,STATUS,ANUM,BNUM,STARTDATE,DURATION,MBI\n
+");
}

sub CREATE INBILL_HEADER {
    my ($tmp);

    print (INBILL "VERSION = 2\n");                
    printf (INBILL "SWI_ID = %s\n", $swname);
    $tmp = substr($fname,1,6);
    $tmp =~ s/\0+//g;
    printf (INBILL "FILE_SEQ_NBR = %06s\n", hextoint($tmp));
    printf (INBILL "TOTAL_RECS = %s\n", $total_records);
    print (INBILL "FIRST_DTTM = $firstdate\n");
    print (INBILL "LAST_DTTM = $lastdate\n");            
    printf (INBILL "ORIG_FILE_NAME = %s\n", $inbill_fname); 
    printf (INBILL "ORIG_FILE_VERSION = %s\n", "UNKNOWN");    
    printf (INBILL "CONVERTED_REC_STATS = %s:$total_records\n", "UNCAT
+EGORIZED");
    printf (INBILL "REJECTED_REC_STATS = %s:0\n", "UNCATEGORIZED");
    printf (INBILL "DISCARDED_REC_STATS = %s:0\n", "UNCATEGORIZED");
    printf (INBILL "ADDED_REC_STATS = %s:0\n", "UNCATEGORIZED");
    printf (INBILL "ADD_DUP_CHK_KEY = %06s\n", hextoint($tmp));
    printf (INBILL "GEN_FIELD_NAME_1 = %s\n", "C_PTY_NBR");
    printf (INBILL "GEN_FIELD_NAME_2 = %s\n", "C_PTY_NBR_TYPE_ID");
    printf (INBILL "GEN_FIELD_NAME_3 = %s\n", "ST_CODE");
    printf (INBILL "GEN_FIELD_NAME_4 = %s\n", "MBI");
    
    print (INBILL "\"REC_KEY\",\"ORIG_REC_KEY\",\"REC_TYPE_ID\",\"DUR_
+SPAN_ID\",\"CALL_START_DTTM\",\"PRE_CONV_DUR\",");
    print (INBILL "\"CONV_DUR\",\"A_PTY_NBR\",\"A_PTY_NBR_TYPE_ID\",\"
+A_PTY_CELL_ID\",\"A_PTY_IMSI\",\"A_PTY_MSRN\",");
    print (INBILL "\"B_PTY_NBR\",\"B_PTY_NBR_TYPE_ID\",\"B_PTY_CELL_ID
+\",\"B_PTY_IMSI\",\"B_PTY_MSRN\",\"IN_TRG_ID\",");
    print (INBILL "\"OUT_TRG_ID\",\"CALL_STATUS_ID\",\"SUPP_SVC_ID\",\
+"PROV_CHG_AMT\",\"GEN_FIELD_1\",\"GEN_FIELD_2\",");
    print (INBILL "\"GEN_FIELD_3\",\"GEN_FIELD_4\",\"GEN_FIELD_5\"\n")
+;
}

sub CREATE_ARBOR_HEADER {
    my ($recType, $creation_dt, $rec_size, $num_record, $application, 
+$version, $data_record, $default);
    $recType     = "HDR";
    $creation_dt = strftime "%Y%m%d%H%M%S", localtime;
    $rec_size    = "0000";
    $num_record  = "0000000";
    $application = "NV2:MCS R3.0";
    $version     = "01.00";
    $data_record = "TE3";    
    printf (ARBORCSV "%s,%s,%s,%s,%s,%s,%s,%s,%s\n", $recType, $creati
+on_dt, $rec_size, $num_record, $application, $version, $data_record, 
+" ", " "); 
    
    $recType     = sprintf("%3s","HDR");
    $creation_dt = sprintf ("%14s", strftime "%Y%m%d%H%M%S", localtime
+);
    $rec_size    = sprintf ("%s","0000");
    $num_record  = sprintf ("%s", "0000000");
    $version     = sprintf ("%5s", "01.00");
    $data_record = sprintf ("%3s", "TE3");
    $default     = sprintf ("%12s", " ");

    printf (ARBORCST pack 'A3 A14 A4 A7 A16 A5 A3 A12 h1', $recType,$c
+reation_dt,$rec_size,$num_record,"NV2:MCS R3.0",$version,$data_record
+,$default,"A"); 
}

sub CREATE_OUTPUT_FILE {
    my ($creation_dt, $tmpfile, $sw, $dt, $yy, $mm, $dd, $hh, $mi, $ss
+);

    ($sw,$dt) = (split(/_/, $fname))[1,2]; 
    ($yy,$mm,$dd,$hh,$mi,$ss) = (split(/-/, $dt))[0,1,2,3,4,5];
    $creation_dt = "${yy}${mm}${dd}${hh}${mi}${ss}";

    open (INPUT, "$INPUTDIR/$SWITCHNAME/$fname");
    open (RAWCDR, "> $WORKDIR/$fname.csv");

    $tmpfile = "${sw}.${creation_dt}.filter";
    open (FILTER, "> $FILTERDIR/$SWITCHNAME$tmpfile");
    CREATE_FILTER_HEADER();

    $tmpfile = "${sw}.${creation_dt}.error";
    open (ERROR, "> $ERRORDIR/$SWITCHNAME$tmpfile");
    CREATE_ERROR_HEADER();

    $tmpfile = sprintf ("%s.%s", $sw, $creation_dt);
    open (INBILL, "> $INBILLDIR/$SWITCHNAME$tmpfile");
    CREATE_INBIL_HEADER();

    $tmpfile = "${sw}.${creation_dt}.csa";
    open (RAWCSV, "> $RAWCSVDIR/$SWITCHNAME$tmpfile");

    $tmpfile = "${sw}.${creation_dt}.cst";
    open (ARBORCSV, "> $ARBORCSV/$SWITCHNAME$tmpfile");

    $tmpfile = "${sw}.${creation_dt}.data";
    open (ARBORCST, "> $ARBORCST/$SWITCHNAME$tmpfile");
    CREATE_ARBOR_HEADER();

    $tmpfile = sprintf("CDR_${creation_dt}_${sw}_${creation_dt}.txt", 
+renameFMS($swname));
    open (FMS, "> $FMSDIR/$SWITCHNAME$tmpfile");
}

CREATE_OUTPUT_FILE();
[download]

In reply to Re^2: How to pass variable values between perl scripts ? by bh_perl
in thread How to pass variable values between perl scripts ? by bh_perl

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.