Dear monks i m trying to run another perl script in my perl script i am using system "myfile.pl" it only open the file but i want to execute my perl script please give some suggestions to run this script here is my scripts
#!/usr/bin/perl my $file= $ARGV[0]; #Open the file and read data #Die with grace if it fails open (FILE, "<$file") or die $!; @lines = <FILE>; close FILE; #Open same file for writing, reusing STDOUT open (STDOUT, ">$file") or die $!; #Walk through lines, putting into $_, and substitute 2nd away for ( @lines ) { s/&#/&#/ig; print } system "crrep.pl",$file;
this script argument value passed to the crrep.pl program argument value for input file
CRREP.PL use warnings; use strict; use Data::Dumper; use XML::Twig; my @xhash=(); my $xhash=\@xhash; my $file= $ARGV[0]; $xhash = XML::Twig->new(); $xhash -> parsefile($file); $xhash -> print;
my main script wants to run crrep.pl but it only open help me to execute
In reply to run another perl script in perl by satzbu
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |