Re: question of regexp or (another solution)

[timothy adigun]

Hi,

On Fri, Dec 14, 2012 at 2:53 PM, samuel desseaux <sdesse...@gmail.com>wrote:

> Hi!
>
> I work in a library and i need to have several fields in one line
>
> Example
>
> I have this
>
> =995  \\$xPR$wLivre
> =995 \\$bECAM$cECAM
> =995  \\$n
> =995  \\$oDisponible
> =995  \\$kG1 42171
>
>
> and i want in one line
>
> =995 \\$bECAM$cECAM$kG1 42171$n$oDisponible$xPR$wLivre
>

Using Dr., Ruud's data. This is another way of doing it:

use warnings;
use strict;

my %data_collection;

while (<DATA>) {
    chomp;
    my ( $key, $value ) = split /\s+/, $_, 2;
    push @{ $data_collection{$key} }, $value;
}

print $_, " ", @{ $data_collection{$_} }, $/ for keys %data_collection;

__DATA__

=995  \\$xPR$wLivre
=995 \\$bECAM$cECAM
=995  \\$n
=995  \\$oDisponible
=995  \\$kG1 42171
zz 1
zz  2
zz   3

-- 
Tim