here document to automate perl script that call script

hogger84 · #1 (**permalink**) 10-18-2007

I am trying to use a here document to automate testing a perl script however when the perl script hits a

Code:

system(perl subscript.pl)

call, input is no longer entered into this subscript.

here is my script

Code:

$ cat test.sh
#ksh
for testcase
do
	program <<-EOF | tee -a funcscnlog.log 
	y
	functional
	2
	$testcase
	reload
	keep
	EOF
	cd log
	cp x.log x.$testcase.log
	cd ..
done
$ sh test.sh TC01 TC02 TC03

I don't really want to use expect as I don't want to install anything else on the test system.

while testing this i also found a odd out put from perl

Code:

$ cat test.pl
print "infirst ";
my $buffer = <STDIN>;
chomp($buffer);
print $buffer;
print "me";
system("perl runtest.pl");
print "\naftercall ";
my $buffer = <STDIN>;
print $buffer;
print "\n";

$ cat runtest.pl
print "\ninsubtest ";
my $buffer = <STDIN>;
chomp($buffer);
print $buffer;

$ perl test.pl
infirst a

insubtest b
bame
aftercall c
c

$

if you look closly you will see

Code:

system("perl runtest.pl");

is run before

Code:

print $buffer;
print "me";

porter · #2 (**permalink**) 10-18-2007

Code:

	program <<-EOF | tee -a funcscnlog.log 
	y
	functional
	2
	$testcase
	reload
	keep
	EOF

(a) what is the "-" in front of EOF for?

(b) move all the text from "y" to "EOF" to the far left, at the very least the "EOF" must be in the far left column.

hogger84 · #3 (**permalink**) 10-18-2007

the - in front of EOF tells the here doc to ignore any leading whitespace to allow it to be indented for easy looking code. There is no problem with the here document as I use this syntax on numrous other occassions successfully. The problem only occurs when the perl script "program" calls a subscript

hogger84 · #4 (**permalink**) 10-22-2007

apparently it is due to the way perl buffer all 1024 bytes of stdin on the first call leaving it not readable for the rest subsequent calls.

I have replaced the
system("perl runtest.pl");

with

Code:

require "runtest.pl";

and all works

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
script to automate mksysb via nim in AIX 5.3	barkath	Shell Programming and Scripting	0	12-20-2007 06:46 PM
How to call a perl script from a shell script	anumkoshy	Shell Programming and Scripting	2	08-30-2007 04:23 AM
Wget call in a Perl script	rahulrathod	UNIX for Advanced & Expert Users	1	12-28-2005 06:45 AM
how to call a perl script from tcsh?	megastar	Shell Programming and Scripting	1	10-22-2005 05:48 PM
how can call perl script as command?	umen	UNIX for Dummies Questions & Answers	1	10-14-2005 09:43 PM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by