in reply to the greedy diamond, or leggo my STDIN
or transfer the stream to arguments...
$ ls | xargs sillytest
update: and if on a non-*nix platform, you can roll your own xargs easily enough:#!/usr/bin/perl my @msg = join "\n", @ARGV; # continue normally - STDIN was not redirected by xargs
#!/usr/bin/perl # XARGS.EXE v0.1 shift @ARGV; push @ARGV, <STDIN>; chomp @ARGV; exec join( ' '. @ARGV;
__________________________________________________________________________________
^M Free your mind!
|
---|
In Section
Seekers of Perl Wisdom