Datensätze auslesen - Semikolon-getrennt - #159770 (Allgemeines zu Perl)

Linuxer

2012-07-12 10:27

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Mit pairwise aus Perldoc:

List::MoreUtils (wahrscheinlich zu installieren) könnte man das wahrscheinlich so lösen:

Code (perl): (dl )

1
2
3

use List::MoreUtils qw( pairwise );

my @result = pairwise { $a .";". $b } @printername, @ipaddresses;

Manueller Ansatz:

Code (perl): (dl )

my @printernames = qw( foo bar );
my @ipaddresses = qw( 1 2 );

sub combine {
  my $name_ref = shift;
  my $addr_ref = shift;

  if ( @{$name_ref} != @{$addr_ref} ) {
    die "given arrays are not of equal size.\n";
  } 

  for my $i ( 0 .. $#$name_ref ) {
    printf "%s;%s\n", $name_ref->[$i], $addr_ref->[$i];
  }
}

combine( \@printernames, \@ipaddresses );

}

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!