Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: remove spaces after join operation

by Loops (Curate)
on Jul 26, 2013 at 11:17 UTC ( #1046486=note: print w/ replies, xml ) Need Help??


in reply to remove spaces after join operation

Not sure this is exactly what you're looking for, but:

print join(' ',@first_sentence) =~ s/\s*([.()])\s*/$1/gr;
Prints:
i am 2(but).how


Comment on Re: remove spaces after join operation
Select or Download Code
Replies are listed 'Best First'.
Re^2: remove spaces after join operation
by lakssreedhar (Acolyte) on Jul 26, 2013 at 11:27 UTC

    This error Can't modify join or string in substitution (s///) at out.pl line 5, near "s/\s*(\.\(\))\s*/$1/g;" is being shown

      Ah, is your version of Perl too old to support the /r modifier? It wont work without it. I Suppose:
      my $txt = join ' ',@first_sentence; $txt =~ s/\s*([.()])\s*/$1/g; print $txt;
      Updated to simplify regex as suggested by hdb

        ya its working now

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1046486]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (18)
As of 2015-07-07 17:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (92 votes), past polls