Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^3: Concatenate and join

by choroba (Cardinal)
on Mar 31, 2016 at 14:57 UTC ( [id://1159207]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Concatenate and join
in thread Concatenate and join

It's not possible to use the same trick. You want to concatenate the two groups every time, but skip the dot sometimes. Maybe with eval:
s/(\w+):(\w+)(:?)/ $1 . $2 . '.' x !!$3 /ge;

or use two steps (which makes it similar to your solution):

s/(\w+):(\w+)/$1$2/g; tr/:/./;

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2024-04-25 12:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found