aSDDSasdas
Programmer
Hello everyone i have the following script (extract.pl)
#!/usr/bin/perl
# Purpose : This Program is used to extract a substring from a String
#use warnings;
scalar @ARGV ==2 or die "usage : There must be only 2 arguments";
my ($eingabe,$muster) = @ARGV;
my $index = index($eingabe,$muster);
$portion= substr($eingabe,0,$index-1);
print $portion;
and now i have another script(temp.pl) trying to call extract.pl . somehow the system call doesnt seem to work..in this case it should atleast return an error statement which it doesnt give. Does anyoone know where the problem here exactly is ?
#!/usr/bin/perl
#use strict;
system('extract.pl');
thank u in advance
#!/usr/bin/perl
# Purpose : This Program is used to extract a substring from a String
#use warnings;
scalar @ARGV ==2 or die "usage : There must be only 2 arguments";
my ($eingabe,$muster) = @ARGV;
my $index = index($eingabe,$muster);
$portion= substr($eingabe,0,$index-1);
print $portion;
and now i have another script(temp.pl) trying to call extract.pl . somehow the system call doesnt seem to work..in this case it should atleast return an error statement which it doesnt give. Does anyoone know where the problem here exactly is ?
#!/usr/bin/perl
#use strict;
system('extract.pl');
thank u in advance