Re: Replacing matches within string without splitting.

Another approach:

#! perl
use Modern::Perl;

while (<DATA>)
{
    chomp;
    s{\b(\d)\b}{0$1}g;
    say;
}

__DATA__
1,2,3,4
8,9,10,11
7,8,9,10
12,13,14,15
[download]

Output:

16:42 >perl 462_SoPW.pl
01,02,03,04
08,09,10,11
07,08,09,10
12,13,14,15

16:42 >
[download]

Hope that helps,

Comment on Re: Replacing matches within string without splitting. Select or Download Code

Replies are listed 'Best First'.
Re^2: Replacing matches within string without splitting. by walkingthecow (Friar) on Jan 02, 2013 at 07:26 UTC
That worked beautifully (in Perl 5.8 without Modern::Perl)! Thank you :) `$channels =~ s{\b(\d)\b}{0$1}g;` [download]	[reply] [d/l]