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

Thanks SJ!

I need to walk through this a little so that I can educate myself and understand.

So if I'm understanding what you are saying, my expression would look something like this:

s/(^#)(^host)(^filename)(^fixed)(^hardware)(^})/$1$2$3$5$4$6/;

Replies are listed 'Best First'.
Re^3: swapping lines that match a condition
by bv (Friar) on Sep 10, 2009 at 16:56 UTC

    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)))