Ahoj, už jsem z toho úplně zoufalý. Když chci číst ze souboru, tak mi celý cyklus zhavaruje a program se chová jako kdyby měl v tom cyklu <STDIN>, prostě jen entruju prázdné řádky a cyklus se odmítá ukončit. open(DATA, "nejakysoubor.txt"); mi ale funguje bez roblémů, v proměnné je to, co tam má být, takže absolutně nechápu, kde je problém. Dokázal by mi někdo poradit? Při rozebírání jsem to postupně oklestil až na současný krátký cyklus, který prostě nefunguje.
autovysledky je pole o 5 prvcích...
for $nula (0 .. (scalar @autovysledky)){
$prubezny = $autovysledky[$nula];
print $prubezny;
chomp $prubezny;
open(DATA, $prubezny); #zde je problém, bez tohoto řádku to bez problému skončí
my $pocetodstavcu; my $integ=0; my $zdroj; my $aaa = 0; my $aac; my $aab;
my ($fullup, $fulldown); my $tmpmaily; my $nahradit;
@src = <DATA>;
close DATA;
open(EDITOVAN, ">tmp/cached.dat");close EDITOVAN;
$pocetodstavcu = scalar @src;
$pocetodstavcu--;
chomp @src;
$integ = 0;
}