Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^2: Regexp substitution on variable-length ranges with embedded code? ( $^N )

by LanX (Sage)
on May 26, 2021 at 13:46 UTC ( #11133065=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use v5.12;
    use warnings;
    ...
    $str =~ s#(\d+:\d+:)(\d);(?: \1((??{$^N+1}));)+#$1$2-$3#g;
    say $str;
    
  2. or download this
    C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/sequencer.pl 
    43:1:1; 43:1:2; 43:1:3; 43:1:4; 43:1:5; 43:1:6; 27:3:7; 27:3:8; 27:3:9
    +; 65:1:4; 65:1:18
    43:1:1-6 27:3:7-9 65:1:4; 65:1:18
    
    Compilation finished at Wed May 26 15:46:31
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2022-05-26 02:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (92 votes). Check out past polls.

    Notices?