If I understand your question correctly, then all you want to do is
iterate through a list, performing some action on each item.  You can just
use a foreach loop for this:

foreach $file(@files){
   Module::Function($file){
      do something...
   }
}

unless you actually want to do something to the file, in which case it would
look more like this:

foreach $file(@files){
   open(INFILE,$file);
   while(<INFILE>){
      Module::Function($_);
   }
}

or are you saying that the module normally gets its parameters from <STDIN>,
and you want to redirect the output of one part of the script so that the
module thinks it's actually coming from user input?

-----Original Message-----
From: Chip Dunning
To: [EMAIL PROTECTED]
Sent: 2/22/02 9:58 PM
Subject: Module call/stdin

I am definitely new to Perl - so here is my basic question.

I have a module called from a script. I want the script to call the
module
and pass it a filename. The module will use that filename in the same
manner
as if it came from the command like (ex.  while (<>) { .... } ).


Chip



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


--------------------------------------------------------------------------------
This email may contain confidential and privileged 
material for the sole use of the intended recipient. 
If you are not the intended recipient, please contact 
the sender and delete all copies.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to