Title: RE: [Perl-unix-users] Substitution help needed
Craig,
try this.
#!/usr/bin/perl -w
use strict;
my $s = " ) in psfs1 extent size 40 next size 10 lock mode row;";
print "$s\n";
$s =~ s/\)/\)\;/;
print "$s\n
[mailto:[EMAIL PROTECTED]]
> Sent: 30 November 2001 11:12
> To: [EMAIL PROTECTED]
> Subject: [Perl-unix-users] Substitution help needed
>
>
> Hi all,
>
>
>
>
>
> I have several lines like the following in a file. I need to
> make a substitution for the line.
Hi all,
I have several lines like the following in a file. I need to make a substitution for
the line.
I am reading the file into @lines. I then loop through looking for the line. When I
find the line, I need to make the change. Then I will write it out to a new file.
Here is
