[Courses] [Perl] Part 9: Simple File Access

[Dan Richter]

Oops: there's an error.

>b) Here is a very basic program that replaces "ize" with "ise":
>
>   #!/usr/bin/perl -w
>   use strict;
>
>   while ( defined(my $line = <STDIN>) ) {
>     $line =~ s/ize\b/ise$1/g;
>     print $line;
>   }

The "$1" in this program is an error; it should simply be removed.

-- 
     He doesn't have ulcers, but he's a carrier.
                - Anonymous