use of uninitialized value in print - #70371 (Allgemeines zu Perl)

renee

2006-09-28 15:32

User since
2003-08-04
14371 Artikel
ModeratorIn

Es hilft meistens, wenn man sich die Datenstruktur mal anschaut, z.B. mit CPAN:

Data::Dumper:

Code: (dl )

1
2

use Data::Dumper;
print Dumper(\@neu);

Ich würde Dir raten, das komplett etwas anders zu schreiben:

Code: (dl )

@Zeichen3 = <DATEI3>;
pop(@Zeichen3);

@Zeichen4 = <DATEI4>;
#pop(@Zeichen4);

for my $n(0..scalar(@Zeichen3)-1){
    for  my $l(0..scalar(@Zeichen4)-1){
        $teila[$l] = substr($Zeichen3[$l],0,4);
        $teilb[$l] = substr($Zeichen3[$l],4,1);
         if ($Zeichen4[$n] =~ /$teila[$l]/ 
            && $Zeichen4[$n] =~ /$teilb[$l]/ 
            && $Zeichen4[$n] =~ /px/) {
             $neu[$l]=$Zeichen4[$n];
         }
    }
}

print scalar(@neu);

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/