Re^2: Space between digits

Replies are listed 'Best First'.
Re^3: Space between digits by tobyink (Canon) 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 (Priest) on Nov 22, 2012 at 01:35 UTC
`my $string = "(\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)";` What is the purpose of this line? Does it really help you to do what you want to? What happens if you leave it out entirely? s/// works in place (that is, on the variable it is bound to). What happens if you rewrite it as this: `if ($_ =~ m/(\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)/ ){ $_ =~ s/ / /; }` [download] And of course, m// and s/// works on $_ in lieu of any other variable, so you could even just go: `if (m/(\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)/ ){ s/ / /; }` [download] Which could be shortend to: `s/ / / if m/(\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)/;` [download] Those parens serve no purpose, as you're seemingly not capturing anything, so we can be even more briefer without harming readability: `s/ / / if m/\d+\:\d+ \d+\/\d+\/\d+/;` [download]	[reply] [d/l] [select]
Re^6: Space between digits by AnomalousMonk (Archbishop) on Nov 23, 2012 at 04:56 UTC
Re^5: Space between digits by tobyink (Canon) on Nov 23, 2012 at 16:06 UTC
You tried that. That is not working. But that is not the code I posted. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]