Thread Merge von aufeinanderfolgenden Zeilen einer List (2 answers)
Opened by crojay at 2012-01-13 12:58

Linuxer
 2012-01-13 13:15
#155424 #155424
User since
2006-01-27
3890 Artikel
HausmeisterIn

user image
Wenn ich Dich richtig verstehe, könnte diese Variante, die aber das originale Array verändert (leert), passend sein:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

my @array = qw( liste mit 1000 elementen );

my @new;

# combine every first and second element with a whitespace
while ( @array ) {
  push @new, join( " " , splice( @array, 0, 2 ) );
}

# check
for ( @new ) {
  print "$_", $/;
}


edit: ein wenig überarbeitet und abgewandelt:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @list = qw( Liste mit 1000 Elementen und eins mehr);

my $separator = '';    # empty string

my @new;
while ( my @join_these = splice( @list, 0, 2 ) ) {
    no warnings 'uninitialized';
    push @new, join( $separator, @join_these );
}

print Dumper \@new;

__END__

Last edited: 2012-01-13 13:43:47 +0100 (CET)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Merge von aufeinanderfolgenden Zeilen einer List