Re^2: Numbering instances of a String in a file

Needless sprintf, needless match, and you should probably separate the number from the stars with a space. I'd also require at least 3 stars to trigger a match.

my $cnt = '0000';
while (<>) {
    s/^(\*{3,})$/"$1 ". ++$cnt/e;
    print;
}
[download]

Optimised: (requires 5.10+)

my $cnt = '0000';
while (<>) {
    s/^\*{3,}\K$/" ". ++$cnt/e;
    print;
}
[download]

As a one-liner: (Second version requires 5.10+)

perl -pe'BEGIN { $cnt = '0000' }  s/^(\*{3,})$/"$1 ". ++$cnt/e'
perl -pe'BEGIN { $cnt = '0000' }  s/^\*{3,}\K$/" ". ++$cnt/e'
[download]

Comment on Re^2: Numbering instances of a String in a file Select or Download Code

Replies are listed 'Best First'.
Re^3: Numbering instances of a String in a file by JavaFan (Canon) on Jun 07, 2010 at 23:21 UTC
Without an eval: `perl -ple 'BEGIN {$cnt = '0000'} $_ .= " " . ++$cnt if /\*{3,}$/'` [download]	[reply] [d/l]
Re^4: Numbering instances of a String in a file by ikegami (Patriarch) on Jun 08, 2010 at 03:37 UTC
None of the solutions used an eval. That would be /ee.	[reply]