7 Einträge, 1 Seite |
@Arrayname
push(@Content, $name, $size);
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
my %hash = (Modul1 => 1235,
Modul2 => 6234,
Module3 => 19057);
print "Es gibt ",scalar keys %hash," Module\nDas Modul1 hat die Größe",$hash{Modul1},"\n";
1
2
3
4
5
6
7
Modul: Name1 -- Größe1
Irgendwas
was
anderes
Modul: Name2 -- Größe2
Modul: Name3 -- Größe3
Test
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
use strict;
use warnings;
my $file = '/path/to/file.txt';
my %hash;
open my $fh,'<',$file or die $!;
while(my $line = <$fh>){
next unless $line =~ /^Modul:/;
chomp $line;
my ($modul,$size) = (split /\s+/,$line)[1,3];
$hash{$modul} = $size;
}
close $fh;
print sprintf("%10s -- %10s",'Modul','Größe');
for my $module(sort{$a cmp $b}keys %hash){
print sprintf("%10s -- %10s",$key,$hash{$key});
}
Ich habe jetzt allerdings ein 2 dimsionales Array bestehend aus 2 Referenzen (jedes dieser Array enthält 14 Elemente). Wenn ich jetzt auf mein "Haupt"-Array das @ voranstelle, dann bekomme ich leider die Anzahl beider Arrays und den Referenzen => 30 Elemente!
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use warnings;
use strict;
my @array = (
[ qw(Hallo Welt wie geht es dir) ],
[ qw(Och mir geht es ganz gut) ],
);
print scalar @array, "\n";
7 Einträge, 1 Seite |