Aaron Sherman skribis 2004-05-12 14:04 (-0400):
> Perl 5:
> #!/usr/bin/perl
> while(<>) {
> s/\w+/WORD/g;
> print;
> }
> Perl 6:
> #!/usr/bin/perl
> while $stdin.getline -> $_ {
Empty <> uses ARGV, not STDIN. It only uses STDIN if not @ARGV (or if
'-' is in @ARGV).
> s:g/\w+/WORD/;
> $stdout.print;
A2 says $*STDIN and $*STDOUT. Has this been changed?
Also, will there no longer be the concept of a selected filehandle? I'd
hate to have to specify stdin and stdout in throw away scripts.
> }
I think I like this better:
for <> {
s:g/\w+/WORD/;
print;
}
But I think I still want to have some non-mutating version of s/// that
returns the modified string, so that you can just write something like
print s:gx/\w+/WORD/ for <>;
Juerd
