Hi,
hab mal wieder ein Problem!
Und zwar das Script hat mehrere Subroutinen die ersten paar führen print befehle aus, soweit funktioniert das auch wie es soll.
Allerdings dann kommt eine Subroutine(s.Code), dann ist es dem Programm nicht mehr möglich zu "printen"
Jede Ausgabe wird ignoriert!
mit print STDOUT "bla";
hab ich es auch schon probiert.
Das Programm gibt aber auch keinen Fehler zurück und alle anderen Operationen macht er wie er es soll!
z.B.: auch einen Print in eine Datei!
hab mal wieder ein Problem!
Und zwar das Script hat mehrere Subroutinen die ersten paar führen print befehle aus, soweit funktioniert das auch wie es soll.
Allerdings dann kommt eine Subroutine(s.Code), dann ist es dem Programm nicht mehr möglich zu "printen"
Code:
sub load_file {
open(FILE, "<$file") || die "Fehler: $!";
while (<FILE>) {
push @line, [ split(/ /) ];
}
close(FILE) || die "Fehler: $!";
foreach $i ( 0 .. $#line ) {
$line[$i][0] = hex($line[$i][0]);
$line[$i][1] = localtime(hex($line[$i][1]));
$_ = hex($line[$i][4]);
$line[$i][4] = $_;
$line[$i][4] = replace($line[$i][4]);
$line[$i][7] =~ s/<EOT>/$eot/;
chomp($line[$i][7]);
}
}
Jede Ausgabe wird ignoriert!
mit print STDOUT "bla";
hab ich es auch schon probiert.
Das Programm gibt aber auch keinen Fehler zurück und alle anderen Operationen macht er wie er es soll!
z.B.: auch einen Print in eine Datei!