Kann ich Lesen und schreiben auf mehrere filehandles gleichzeitig (Perl)?

Ich versuche zu Lesen, aus zwei Dateien, und generieren Sie die Ausgabe in eine Dritte. Ich wollte zuerst Bearbeiten Sie die ersten sind die gehen, aber ich nicht finden, eine geeignete Methode zu speichern, die für arrays.

Mein problem ist, dass die Dritte Datei (Ausgabe) leer ist, wenn ich die Auskommentierung der "_ref_param_handling" - Funktion. ABER das folgende ist, was verwirrt mich am meisten: Wenn ich ein UNIX sehr einfachen `cat` system call auf die Ausgabe-Datei an dann ist Ende (siehe code unten), funktioniert es Prima. Wenn ich öffnen Sie das filehandle kurz vor und schließen Sie es sofort nach der Bearbeitung, es funktioniert auch (um mein print FILEHANDLE LISTE).

Ich zweifellos bin hier etwas fehlt. Abgesehen von einem problem zwischen meiner Tastatur und meinem Stuhl, was ist es? Ein filehandle Konflikt? Ein scope problem?

Jede variable ist deklariert und hat den Wert ich will es haben.

Bearbeiten (gilt nicht mehr).
Mit IO::File auf die drei Dateien nichts verändert.

---

Edit 2 : New full-code-Unterroutine

Mein code funktioniert (außer, wenn mein ref ist bereits vorhanden, aber das ist, weil der "append" - Modus glaube ich), aber möglicherweise gibt es einige Fehler und unperlish Arten der Kodierung (sorry, Mönche). Ich, jedoch, use Strict und warnings !

sub _ref_edit($) {
    my $manda_def = "$dir/manda_def.list";
    my $newrefhandle;
    my $ref       = $_[0];
    (my $refout   = $ref) =~ s/empty//;
    my $refhandle;
    my $parname   = '';
    my $parvalue  = '';
    my @val;

    _printMan;

    my $flush = readline STDIN;    # Wait for <enter>

    # If one or both of the ref. and the default values are missing
    if ( !( -e $manda_def && -e $ref ) ) {
        die "Cannot find $ref and/or $manda_def";
    }

    # Open needed files (ref & default)
    open( $refhandle, "<", $ref ) or die "Cannot open ref $ref : $!";
    open( $newrefhandle, ">>", $refout ) 
      or die "Cannot open new ref $refout : $!";

    # Read each line
    while ( my $refline = <$refhandle> ) {
    # If line read not an editable macro
        if ( $refline =~ /^define\({{(.+)}},\s+{{.*__VALUE__.*}}\)/){
        $parname = $1;         # $1 = parameter name captured in regexp
        # Prompt user
        $parvalue = _ref_param_handling( $parname, $manda_def );   
        # Substitution in ref
        $refline =~ s/__VALUE__/$parvalue/;
        # Param not specified and no default value
        $parvalue eq '' ? $refline=~s/__COM__/#/: $refline=~s/__COM__//; 
        }

    print $newrefhandle $refline;
    }
    close $newrefhandle;
    close $refhandle;

    return $refout;
}    # End ref edit  

den _ref_param_handle Unterprogramm noch ist :

open( $mde, '<', $_[1] )
      or die "Cannot open mandatory/default list $_[1] : $!";

    # Read default/mandatory file list 
    while (<$mde>) {       
       ( $name, $manda, $default, $match, $descript ) = split( /\s+/, $_, 5 ); 
       next if ( $name !~ $ref_param );  # If param read differs from parname

    (SOME IF/ELSE)

    } # End while <MDE>
    close $mde;
    return $input;
}

Auszug aus manda_def Datei :

NAME  Mandatory? Default Match      Comm.
PORT          y NULL  ^\d+$ Database port
PROJECT       y NULL  \w{1,5}   Project name
SERVER        y NULL  \w+           Server name
modemRouting  n NULL  .+        
modlib        y bin   .+        
modules       y sms   .+

Auszug aus ref_file :

define({{PORT}},         {{__VALUE__}})dnl
define({{PROJECT}},      {{__VALUE__}})dnl
define({{SERVER}},       {{__VALUE__}})dnl
define({{modemRouting}}, {{__COM__{{$0}} '__VALUE__'}})dnl
define({{modlib}},       {{__COM__{{$0}} '__VALUE__'}})dnl
define({{modules}},      {{__COM__{{$0}} '__VALUE__'}})dnl

Jede Hilfe dankbar.