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

Re^3: swapping lines that match a condition

by bv (Friar)
on Sep 10, 2009 at 16:56 UTC ( #794621=note: print w/replies, xml ) Need Help??

in reply to Re^2: swapping lines that match a condition
in thread swapping lines that match a condition

Close, but you need the /m modifier (See m). This makes ^ match the beginning of the line and $ match the end of the line anywhere within a single string. Note that you'll have to have the whole file as a string to use this. Also, you'll need to match the whole of each line. So a solution might look like this:

#!/usr/bin/perl use strict; use warnings; my $filename = shift or die "Need a filename"; my $text; SLURP:{ local $/; open my $fh, '<', $filename or die "Error opening $filename: $!"; $text = <$fh>; close $fh; } $text =~ s/(^fixed.*) #match fixed-address \n #followed by newline (^hardware.*) #followed by hardware / $2\n$1 #and switch them (remember newline!) /mgx; #m for multiline, g for multiple matches print $text;
print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (4)
As of 2023-12-02 05:33 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (13 votes). Check out past polls.