Tim Johnson wrote:
>
> Here's the textbook way to do it (TIMTOWTDI of course, but
> nevertheless):
I guess it depends on your textbook. :-)
> ##################################
>
> use strict;
> use warnings;
> open(INFILE,"<BUS_SCHEDULE") || die "Couldn't open BUS_SCHEDULE for
> reading!\n";
> open(OUTFILE,">BUS_SCHEDULE.new") || die "Couldn't open BUS_SCHEDULE.new
> for writing!\n";
> while(<INFILE>){
> $_ =~ s/bus/magic_bus/gi; #g for every occurrence, i for
> case-insensitive
> print OUTFILE $_;
> }
> close INFILE;
> close OUTFILE;
> rename("BUS_SCHEDULE.new","BUS_SCHEDULE") || die "Couldn't rename the
> new file!\n"; #automatically kills the old file
{
local ( $^I, @ARGV ) = ( '.bak', 'BUS_SCHEDULE' );
s/\bbus\b/magic_bus/g while <>
}
# :-)
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
