Opened by pktm at 2003-11-19 22:13
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
vieleicht hilft dir folgendes Beispiel:
Das ganze nur mit Hash:
Hoffe das hilft!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
my @items = qw( Toothbrush Bluetooth Sabretooth Blues Dixie );
my $referer = { 'items' => \@items };
print scalar(@{$referer->{'items'}});
print "\n";
Das ganze nur mit Hash:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
my @items = qw( Toothbrush Bluetooth Sabretooth Blues Dixie );
my %referer = ( 'items' => \@items );
print scalar(@{$referer{'items'}});
print "\n";
Hoffe das hilft!