#!F:\Perl\bin\perl -w
use strict;
# Substitue 3rd occurance of 'perl' with 'PERL'
my $text = 'perl is good, perl is better, perl is best';
print "\n INPUT Text:", $text;
my $nth_occurance = 3;
my $count=0;
$text =~ s{(perl)}{
++$count == $nth_occurance ? 'PERL' : $1
}ige;
print "\n OUTPUT Text:", $text,"\n";
use strict;
# Substitue 3rd occurance of 'perl' with 'PERL'
my $text = 'perl is good, perl is better, perl is best';
print "\n INPUT Text:", $text;
my $nth_occurance = 3;
my $count=0;
$text =~ s{(perl)}{
++$count == $nth_occurance ? 'PERL' : $1
}ige;
print "\n OUTPUT Text:", $text,"\n";
No comments:
Post a Comment