Re: help with specific changes in all files in a directory

[Douglas Wilson]

On 05/19/00, "Philip Newton <[EMAIL PROTECTED]>" wrote:
> $^I = '.bak';  # save backups in .bak files
> while(<>) {
>     (my $datname = $ARGV) =~ s/\.ctl$/.dat/;
>     s<^INFILE .*><INFILE /u/svadlama/toysrus/$datname>;
> }
you forgot:
    continue {print}

Cheers,
Douglas Wilson

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]