Thread Problem mit array ref und use strict (7 answers)
Opened by toppsino at 2008-04-21 14:54

renee
 2008-04-21 16:05
#108643 #108643
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wenn Du mit irgendwelchen Variablen arbeitest könntest Du mit einem Array of Arrays arbeiten:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use Data::Dumper; # nur um sich dann mal die Datenstruktur anzuschauen

my @logfiles;
for (1..3){
    my $file = 'logfile' . $_ . '.log';
    open my $fh, '<', $file or die $!;
    my @lines = <$fh>;
    # Referenz auf die Zeilen in einem Array speichern
    $logfiles[$_] = \@lines;
    close $fh;
}

# im zweiten Element (weil Arrays mit Index 0 anfangen) ist jetzt eine
# Referenz auf ein Array mit den Zeilen von logfile1.log, im dritten Element
# eine Referenz auf ein Array mit den Zeilen von logfile2.log,...

# einfach mal die Datenstruktur ausgeben
print Dumper( \@logfiles ),"\n";

# irgendwas anderes

# gebe alles von logfile2.log aus:
my $logfile_nr = 2;
my @logfile_lines = @{$logfiles[$logfil_nr]};

print $_ for @logfile_lines;
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Problem mit array ref und use strict