Passing command line arguments

[timgerr]

Here is a question, I am on win32 using active state perl. Lets say I create a simple perl script called test.pl:

my($test) = @ARGV;
chomp($test);
print $test;

and I want to pass arguments to the perl script test.pl via a pipe.

Can I do somthing like this????

 echo HI | test.pl

I get an error when I do this that "The process tried to write to a nonexistent pipe". Can this be done?

Thanks

-T

-How important does a person have to be before they are considered assassinated instead of just murdered?
-Need more cow bell!!!

 

[ishnid]

Firstly, you're not calling the Perl script correctly (unless it's in your PATH). Also, piping will by default send the output of the "echo" command to Perl's standard input. To use them as arguments, use "xargs", like so:

echo HI | xargs ./test.pl

 

[Mike042]

Here are a couple of code snippets you might like to play with:

   my @input_args = @ARGV;   # try text and valid filenames
   print "Args: @input_args\n";

   while (<>) {
     chomp;
     print "Piped: $_\n";
   }

and

   my @input_args = @ARGV;   # try text and valid filenames
   print "Args: @input_args\n";

   while (<STDIN>) {
     chomp;
     print "Piped: $_\n";
   }

I hope that helps.

Mike