Guest dave

Der open und das Schreiben des aktuellen Satzes funktioniert auch, aber die Variable $out ist nach dem Öffnen nicht mehr das Känderkennzeichen sondern "GLOB(0x592ce6c)"

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12

if (exists $lkzs{CountryCode}){
   $out = $lkzs{CountryCode}; 
   print $out $satz;
} else {
   $land = CountryCode;
   $datei = $verzeichnis.$land.".txt";
   $out = CountryCode;
   open   (our $out,">:raw:utf8",$datei);
   $lkzs{CountryCode} = $out;
   print $out $header;
   print $out $satz;
}

1
2

use strict;
use warnings;