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 -- Please see the official ORACLE-L FAQ: http://www.orafaq.com -- Author: SubbaReddy M INET: [EMAIL PROTECTED] Fat City Network Services -- (858) 538-5051 FAX: (858) 538-5051 San Diego, California -- Public Internet access / Mailing Lists -------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing).