Perl

nbp · 11-18-2003, 10:02 AM

consider two scripts exp.pl and 1.pl

exp.pl :

#!/usr/bin/perl
$qwerty="hello";
`perl 1.pl`;

1.pl :

#!/usr/bin/perl
print $qwerty;

When I run exp.pl, the variable isn't printed. Please explain why. Also tell what must be done so that the variable is printed.

SaTaN · 11-18-2003, 10:05 AM

Well maybe one way of doing it is to write the value of $qwerty on to a file.
Then read that file in the other program

paonethestar · 11-18-2003, 11:07 AM

If the file content is too large mean contain some 20,000 lines or more , how much time it will take to read or for search ??

SaTaN · 11-18-2003, 11:12 AM

Quote:

Originally posted by paonethestar
If the file content is too large mean contain some 20,000 lines or more , how much time it will take to read or for search ??

I don't understand what you are talking about ....
Any way it was nbp's question and looks like you are trying to imagine a bit too much .

Maybe nbp should be a bit more clear about it

jovo · 11-25-2003, 02:46 PM

You just runs another instance of perl. It does not know anything about variables
in the calling script.

If you replace
`perl 1.pl`

by

do "1.pl";

the variable is found and printed.

nbp · 11-26-2003, 01:27 AM

Found your suggestion very helpful. Can you please tell us how to use "do" if we are redirecting. The situation is

do "1.pl"

and in 1.pl, we have $word=<STDIN>;

I would like to redirect the content of 1.txt to 1.pl.
How can I do it?