array wird falsch/nicht belegt.... - #105377 (Allgemeines zu Perl)

Struppi

2008-01-31 12:50

User since
2006-02-17
628 Artikel
BenutzerIn

Ausserdem läßt sich sowas mit Perl viel einfacher ohne irgendwelche Zähler bewerkstelligen. In etwa so:

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
open TEXTDAT, '<', "text.txt" or die $!;
<TEXTDAT> for 0..4;
my $merker = '';
my @array;
while( <TEXTDAT> ) {
        chomp;
        my @daten = split /!/, $_;
        if($merker != $daten[1]) {
                $merker = $daten[1];
                $hits++;
                push @array, $merker;
        }
        
}
close TEXTDAT;

Wobei ich die innere Schleife bei dir nicht verstanden habe, deshalb kommt sie hier nicht vor.

Und du solltest dir dringend use strict angwöhnen