schreiben in Txt file - #69591 (Allgemeines zu Perl)

renee

2006-09-11 11:43

User since
2003-08-04
14371 Artikel
ModeratorIn

vayu hat Dir ja schon die Lösung genannt.

Dein Fehler liegt hier:

Code: (dl )

open example, "$data_file" or die "can't open $data_file $!";
#write to the file
while ($data_file){
   print " test ";
   }
close (example);

1.) Du öffnest die Datei zum Lesen, willst aber in die Datei schreiben...

Schreiben sieht so aus:

Code: (dl )

open(my $fh,'>',$data_file) or die $!;

Auch für das Öffnen zum Lesen solltest Du in Zukunft das 3-Parametrige open verwenden:

Code: (dl )

open(my $fh,'<',$data_file) or die $!;

Unterschied erkannt?

2.) Du überprüfst im Schleifenkopf bei while, ob $data_file einen "wahren" Wert liefert. Da dort drin der Dateiname steht, ist das immer wahr. Du machst hier also eine Endlos-Schleife.

3.) Du machst die Ausgabe (das print) auf STDOUT, die Standardausgabe. Meist ist das die Konsole bzw. DOS-Box. Wenn Du etwas in die Datei schreiben willst, musst Du die Daten in den Filehandle ausgeben. Also:

Code: (dl )

print $fh " test "

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/