http://www.perlmonks.org?node_id=1005012


in reply to Space between digits

use 5.014;
my $string = "0:00 11/21/2012";
my $new    = $string =~ s/ /   /r;
say $string;
say $new;

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Replies are listed 'Best First'.
Re^2: Space between digits
by Anonymous Monk on Nov 21, 2012 at 21:28 UTC
    I meant for that pattern and of date and time. I didnt mean that particular string. for example for the pattern 
    (\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)

    [download]
    how do I triple the space between the time and date ?
[reply]
[d/l]

      The code I posted will work on any string. It finds the first space and replaces it with three spaces.

      perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
        The code you gave is not working I tried this 
                        if ($_ =~ m/(\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)/ ){
                my $string = "(\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)";
                my $new = $string =~ s/ /     /;
                print "new $new ";
                     }

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom