p5pRT
commented
24 years ago From lektu@teleline.es
--- begin sample script --- while (my $line = \) { if ($line =~ /Two/) { $line = "Dos\n"; redo; } print $line; }
__DATA__ One Two Three --- end sample script ---
outputs:
One Three
or\, with -w:
One Use of uninitialized value at test_redo.pl line 2\, \ chunk 2. Use of uninitialized value at test_redo.pl line 6\, \ chunk 2. Three
Using:
2c2\,3 \< while (my $line = \) { ---
my $line; while ($line = \) {
the output is:
One Two Three
as expected.
Perhaps that's the intended effect\, but I didn't find any reference to it in the docs.
Migrated from rt.perl.org#2049 (status was 'resolved')
Searchable as RT2049$