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>