note
Samy_rio
<p>Hi, Try like this,</p>
<p><i>TIMTOWTDI</i></p>
<code>
my $word="test";
while(<DATA>) {
next if !/$word/i;
while(/\b($word)\b/gi) {
my $pre = $`; my $col;
($pre eq "") ? ($col = 0):($col = split/\s+/, $pre);
print "The word repeated in Line ".$.." and in column ".++$col."\n";
}
}
__DATA__
This is a test from tester okay
nothing
message test center test
test in proress ... test one test two
__END__
Output as:
----------
The word repeated in Line 1 and in column 4
The word repeated in Line 3 and in column 2
The word repeated in Line 3 and in column 4
The word repeated in Line 4 and in column 1
The word repeated in Line 4 and in column 5
The word repeated in Line 4 and in column 7
</code>
<p><i>Updated</i></p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-460657">
<p>Regards,<br>Velusamy R.<hr><c>eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';</c></p>
</div></div>
594080
594080