in reply to Re^2: Perl Script
in thread Perl Script

Ok, some syntax errors , but which part of that is "calling files"?

Replies are listed 'Best First'.
Re^4: Perl Script
by Pjshh6 (Initiate) on Apr 17, 2015 at 09:23 UTC
    As u can see m using array concept so using it i am first opening the first file which has conent as above.Then substituting require and other things.Then give it to one array named tp_array.But now m not able to open it.As it has file name so it should open the file but it is not. So my this idea is not working so if possibl can u plss suggest any other idea.I have one idea of hash of hash.But not so sure.
[reply]

      ...But now m not able to open it.As it has file name so it should open the file but it is not. ...

      So what is the error message that you get?

      Your filename probably has extra characters you haven't accounted for, you can figure it out if you examine your data by Data::Dump::dd()umpering to visualize your data (lesson courtesy of Basic debugging checklist and brian's Guide to Solving Any Perl Problem )

      This is how I'd start writing that, whatever it is 

      #!/usr/bin/perl --
## whateveritis.pl
## 2015-04-17-02:31:50
## 
## 
## 
## 
## 
## perltidy -olq  -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce 
+-nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr 
+-ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while " -otr
+ -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while for " 
+-otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
#!/usr/bin/perl --
use strict;
use warnings;
use Path::Tiny qw/ path /;

Main( @ARGV );
exit( 0 );

sub Main {
    my $outfile = "/project/ls1socdft/user/pooja/test_plan_checker/dft
+a/perl/parse_xls/script/result.log";
    my $infile  = "/project/ls1socdft_nobackup/rev2.0/user/Shah-B53654
+/dft/dfta/tpc/get_pat_info/output_0/report/report_all_wgl.pm";
    my @final_array = SelectFinalFromInfile( $infile, $outfile );
    SomethingElse( @final_array );
} ## end sub Main

sub SelectFinalFromInfile {
    my( $infile, $outfile ) = @_;
    my $infh  = path( $infile )->openr_raw;
    my $outfh = path( $outfile )->openrw_raw;
    my @final;
    while( <$infh> ) {
        next if m/^$/ or m/return/i or m/1;/;
        push @final, $_;
        print $outfh $_;
    }
    close $infh;
    close $outfh;
    return @final;
} ## end sub SelectFinalFromInfile

__END__

      [download]
[reply]
[d/l]
Re^4: Perl Script
by Pjshh6 (Initiate) on Apr 17, 2015 at 09:51 UTC
    Reply to 5th : Thankxx for your help.But while running m getting error: Undefined subroutine &main::path called at grep line 20. But we have defined it right?So i am not understanding reason of this error.
[reply]
[reply]
        Ok i will see.I just copy paste it and run it.But i think their u missunderstood something.My outfile m using it for printing the results.I want to open 1st file and pick that for file and want to open it one by one.
[reply]

In Section Seekers of Perl Wisdom