![]() |
![]() |
7 Einträge, 1 Seite |
1
2
@liste = qw(lala tset foo bar yada);
@wortliste{@keys} = split '', 0 x ( $#keys + 1 );
1
2
3
@liste = qw(lala tset foo bar yada);
my %wortliste;
@wortliste{@liste} = (0) x @liste;
$hash{$_} = 0 for (keys %hash);
![]() |
![]() |
7 Einträge, 1 Seite |