Simple question - concise syntax for pattern matching 1

[GrSw]

Hi,

I have the following code:

// ...
if ( /$from_pattern/ ) {
s/$from_pattern/$to_string/g;
print "Changed: $from_pattern --> $to_string\n";
}

I would like to have:

// ...
s/$from_pattern/$to_string/g;
if ($WHAT_TO_CHECK_HERE) {
print "Changed: $from_pattern --> $to_string\n";
}

Thanks in Advance
Grzegorz

 

[rosenk]

If you're asking what I think you're asking:
[tt]if (s/$from_pattern/$to_string/g) {[/tt]

That would do the if block if there was at least one substitution.

 

[GrSw]

Yes, exactly I was asking about it.
(I did not program in Perl for quite a lot time,
and I just starting slowly remind it)

Thanks a lot
Grzegorz