perl-asp mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "SubbaReddy M" <m_subbare...@hotmail.com>
Subject How to step over the <STDIN>, while input redirection is not given at commandline
Date Thu, 14 Feb 2002 10:04:56 GMT
Hello Gurus,
Source code: of printFile.pl
#########   File: printFile.pl  ##################
#! /usr/bin/perl -w
my (@data, $user);

# Input rediretion file

$user = (defined @ARGV) ? shift @ARGV : "Anonymous";

# I don't wish to prompt by program, but it's still waiting how to Step Over
here
@data = <STDIN> if ( defined <STDIN>);

die  " perl $0 < data.txt" if (@data);

print "User: $user \n";
foreach (@data){
                            print $_;
}

1;
########### EOF #############



I have a perl scripts, which expects the input file as redirection at
command line.
i.e.,
[user3@Linux] #  perl printFile.pl  < data.txt

=> This will display the inputed file content, if file name is piped as
redirection.
=> Otherwise, program will wait to accept the file.
=> So, I don't want program prompt for the file name,
=> I would like to check the file name is given or not.
=> But, becuase of <STDIN> statement in program to dump the content of the
file into Array, will cause to wait if  " < data.txt" is missing at command
line.
=> It's very easy, if @ARGV checking, will have the command line parameters.
But, it 's not in command line paramenters list.
=> It is input redirection.

<=> How to check the input direction is given or not in perl, @ = <STDIN>;
=> like @ = <STDIN> if ( defined <STDIN> );   But this will not full fill
the requirement, because, it's prompting
for input, if redirection missing at commandline.

Please, kindly give me suggestions to proceed.

Thanks in advance.

Regards,

~ SubbaReddy .M
   Sr. Programmer, Frontlinesoft, Hyderabad
   http://www.frontlinesoft.com
   Ph: 91-40-3392147, 3391683 (O)
         91-40-3307980 ( R)
   w3page: http://www.geocities.com/msubbareddy/
   ICQ: 56093095

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org


Mime
View raw message