print("Sar ezazu kargatu nahi duzun fitxategiaren izena: "); my $fitxategia = ; chomp $fitxategia; -f $fitxategia or die "Errorea, ezin da $fitxategia aurkitu"; open( my $FITX, $fitxategia ); Hash_Taula_Kargatu($fitxategia); sub Hash_Taula_Kargatu { my @term_arraya1; #arraya hutsa definitu my @term_arraya2; my $fitxategia = shift; my %Moten_Hash_Taula = ( "N.IZE-ARR" => \@term_arraya1, "G.ADJ-ARR" => \@term_arraya2); my $FITX = XML::XPath->new( filename => $fitxategia ); my $nodeset = $FITX->find('/KAF/terms/term'); my $gakoa; foreach my $node ( $nodeset->get_nodelist ) { my $term = XML::XPath::XMLParser::as_string($node); ($gakoa) = $term =~ /pos="(.*?)"/; push( @{ $Moten_Hash_Taula{"$gakoa"} }, $term ); } while ( my $lerroADI = <$FITX> ) { # aquĆ­ parece que da el error chomp $lerroADI; for my $ADIa (@array) { if ( $lerroADI eq $ADIa ) { $ADI = 1; last; } } } if ( $ADI == 1 ) { print "Encontrado"; } #close $ARCHIVO; }