On Wed, 27 Oct 2004 10:43:46 +0200, Bastian Angerstein
<[EMAIL PROTECTED]> wrote:
> Yes it should, but not on my system.
>
> Thanks for your comments.
>
So, you are saying this doesnt work?
#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
open (TEST,"STDIN") or die "cannot read input file.";
while(<TEST>) {
s/\W//g; # Clean out non-Alphanumeric...
my $input = ' ';
$input = $_ if length;
# Do other things with $input...
print "Seen $input\n";
}
__END__
???
--
WC -Sx- Jones
http://youve-reached-the.endoftheinternet.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
