T
Tan Rezaei
I have this bit of code on a win2k Server:
-----------------------------------------
#!E:\Perl\bin\perl.exe
print "\n\n Productline (QA, PROD, ...)?\n ";
chop($opt_p=<STDIN>);
print "\n\n Company (0001, 1000, 1001, \.\.\.) ? \n";
chop($opt_c=<STDIN>);
if ($opt_c =~ /\D/) { warn "Company number contains non digits"}
print "\n\n Ready to Process Company $opt_c in Productline $opt_p
(Y/N)? \n";
chop($run=<STDIN>);
-----------------------------------------
Now when I run this, it does not prompt me for the variables but if I
enter all three of them then I will get the questions.
If I comment out all the lines with <STDIN> then I get all the promts
immediately.
Now this actually works fine on one machine and I only get this
problem when I put the file on the server.
Is there something about terminal settigs or clearing the buffer that
might be the issue. If so, how do I clear the screen buffer? This is
one of those things that you just don't want to waste your time on.
And it is really killing me.
Any help at all would be greatly appreciated.
thanks in advance
T
-----------------------------------------
#!E:\Perl\bin\perl.exe
print "\n\n Productline (QA, PROD, ...)?\n ";
chop($opt_p=<STDIN>);
print "\n\n Company (0001, 1000, 1001, \.\.\.) ? \n";
chop($opt_c=<STDIN>);
if ($opt_c =~ /\D/) { warn "Company number contains non digits"}
print "\n\n Ready to Process Company $opt_c in Productline $opt_p
(Y/N)? \n";
chop($run=<STDIN>);
-----------------------------------------
Now when I run this, it does not prompt me for the variables but if I
enter all three of them then I will get the questions.
If I comment out all the lines with <STDIN> then I get all the promts
immediately.
Now this actually works fine on one machine and I only get this
problem when I put the file on the server.
Is there something about terminal settigs or clearing the buffer that
might be the issue. If so, how do I clear the screen buffer? This is
one of those things that you just don't want to waste your time on.
And it is really killing me.
Any help at all would be greatly appreciated.
thanks in advance
T