Opened by Gast at 2006-07-05 20:58
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Das geht mit einem Hash-Slice:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @ids = qw( 01 02 03);
my @names = ('Heiz','Otto','Karl');
my %hash;
@hash{@ids} = @names;
print Dumper \%hash;