Another method that reads the data in paragraph mode, splits into first element and remaining elements within lines in one map then swaps the first elements of the two lines and rejoins things up in a second, finally joining the pairs of lines into paragraphs again.
$ perl -Mstrict -Mwarnings -E '
> open my $fh, q{<}, \ <<EOF or die $!;
> jay 21 34 56
> bob 12 39
>
> jay 11 10
> bob 14
>
> jay 190
> bob 13
> EOF
>
> say join qq{\n\n}, do {
> local $/ = q{};
> map {
> ( $_->[ 0 ]->[ 0 ], $_->[ 1 ]->[ 0 ] )
> =
> ( $_->[ 1 ]->[ 0 ], $_->[ 0 ]->[ 0 ] );
> join qq{\n}, map { join q{ }, @$_ } @$_;
> }
> map {
> chomp;
> [ map { [ split m{\s}, $_, 2 ] } split m{\n} ];
> }
> <$fh>;
> };'
bob 21 34 56
jay 12 39
bob 11 10
jay 14
bob 190
jay 13
$
I hope this is of interest.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|