Hallo,
use strict;
use warnings;
> open (OUTPUT ">", $output_file);
# obige zeile funktionert bei mir nicht -> syntaxfehler ?!
open (OUTPUT, ">".$output_file) or die $!;
> { $return=conf_initial_pe{\%I, *OUTPUT}; }
# äh, was soll das sein?
Das Problem ist jetzt, dass die Dateien leer bleiben...
Einfache Sachen testen, vielleicht mal Doku lesen.
#!/usr/bin/perl
use strict;
use warnings;
sub doIt($)
{
my $fh = shift;
print $fh "string";
}
open (OUTPUT, ">file") or die $!;
doIt(OUTPUT);
close(OUTPUT);
gruss
--
Swiss Army Chainsaw
Terrorific!
VI VI VI - the editor of the beast!
Swiss Army Chainsaw
Terrorific!
VI VI VI - the editor of the beast!