Re: 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'

Comment on Re: Space between digits Download Code
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]
Re^3: Space between digits by tobyink (Prior) on Nov 21, 2012 at 21:31 UTC
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]
Re^4: Space between digits by Anonymous Monk on Nov 21, 2012 at 21:48 UTC
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]
Re^5: Space between digits by muba (Curate) on Nov 22, 2012 at 01:35 UTC
Re^6: Space between digits by AnomalousMonk (Prior) on Nov 23, 2012 at 04:56 UTC
Re^5: Space between digits by tobyink (Prior) on Nov 23, 2012 at 16:06 UTC


Pathologically Eclectic Rubbish Lister
	PerlMonks