So drucken Sie in zwei Dateien auf einmal?

Ich habe Probleme dabei, diese Zeile von code zu arbeiten:

for my $fh (FH1, FH2, FH3) { print $fh "whatever\n" }

Ich fand es am perldoc aber es funktioniert nicht für mich.

Den code habe ich bisher:

my $archive_dir = '/some/cheesy/dir/';
my ($stat_file,$stat_file2) = ($archive_dir."file1.txt",$archive_dir."file2.txt");
my ($fh1,$fh2);

for my $fh (fh1, fh2) { print $fh "whatever\n"; }

Ich bin immer "Bareword" Fehler auf der (fh1, fh2) Teil, denn ich bin mit strict. Ich habe auch gemerkt, dass Sie fehlten ein ; im Beispiel, so dass ich vermute, es könnte einige Fehler mehr, abgesehen von, dass.

Was ist die korrekte syntax für das drucken in zwei Dateien auf einmal?

InformationsquelleAutor CheeseConQueso | 2011-03-22
  1. 17

    Sie nicht geöffnet habe die Dateien. 

    my ($fh1,$fh2);
open($fh1, ">", $stat_file) or die "Couldn't open $stat_file: $!";
open($fh2, ">", $stat_file2) or die "Couldn't open $stat_file2: $!";

for my $fh ($fh1, $fh2) { print $fh "whatever\n"; }

    Bemerken, dass ich nicht Verwendung von barewords. In den alten Tagen, würden Sie verwendet haben:

    open(FH1, ">$stat_file");
...
for my $fh (FH1, FH2) { print $fh "whatever\n"; }

    aber ein moderner Ansatz ist die ehemalige.

    • Nur für das Protokoll, die bareword Fehler, weil der OP verwendet fh1 und fh2 statt $fh1 und $fh2 - und würde vermutlich geöffnet habe, Sie als open(fh1, ...) wenn das kopieren ein Beispiel, barewords.
    • Stimmt, ich werde Bearbeiten zu reflektieren.
    • ich habe nicht die Dateien öffnen..., wenn nicht der Dummheit enden? ich musste auch die ($fh1,$fh2) Teil korrigiert, so dass thanks++
    • Ich glaube du meinst for my $fh ( \*FH1, \*FH2 ) { ... } oder for my $fh ( \*{FH1}{IO}, \*{FH2}{IO} ) { ... }
    • und $statfile2 im Tod bedroht Abschnitt sollte $stat_file und $stat_file2 bzw.
    • Hoppla - sorry. Und Brad ... Nein, Nein, habe ich nicht.
    • Eine Verbesserung wäre zu include $! in der Fehlermeldung, um anzugeben, warum die Datei konnte nicht geöffnet werden.
    • auch ein gutes. Getan.

    InformationsquelleAutor Brian Roach
  2. 7

    Ich würde halt IO::Tee.

    use strict;
use warnings;
use autodie; # open will now die on failure
use IO::Tee;

open my $fh1, '>', 'file1';
open FH2, '>', 'file2';

my $both = IO::Tee->new( $fh1, \*FH2 );

print {$both} 'This is file number ';

print {$fh1} 'one';
print FH2    'two';

print {$both} "\n";
print {$both} "foobar\n";

$both->close;

    Das obige Programm ergibt sich:

    Datei1

    Dies ist Datei Nummer eins 
foobar

    Datei2

    Dies ist Datei Nummer zwei 
foobar

    Ich würde empfehlen, das Lesen der ganzen perldoc-Datei für die erweiterte Anwendung.

    InformationsquelleAutor Brad Gilbert
  3. 4

    Sieht richtig, es ist nur so, dass es üblich in Perl zu verwenden barewords als Datei-handles, aber heutzutage ist es empfohlen, mit normalen skalaren.

    So stellen Sie sicher, dass Sie tatsächlich die Dateien zu öffnen, dann ersetzen Sie einfach den (fh1, fh2) Teil mit der eigentlichen Datei-handles (das wäre ($fh1, $fh2) oder so)

    InformationsquelleAutor jho
  4. 0

    andere version, basierend auf Brian ' s Antwort:

    open(my $fh1, ">", $stat_file) or die "Couldn't open $stat_file!";
open(my $fh2, ">", $stat_file2) or die "Couldn't open $stat_file2!";
for ($fh1, $fh2) { print $_ "whatever\n"; }
    InformationsquelleAutor CheeseConQueso
  5. 0

    Müssen Sie zunächst die Datei zu öffnen, um zu erhalten, gültig filehandles

    open (MYFILEA, $stat_file);
open (MYFILEB, $stat_file2);
for my $fh ( \*MYFILEA, \*MYFILEB ) { print $fh "whatever\n" } 
close (MYFILEA);
close (MYFILEB);
    • Diese natürlich erzeugt bareword Fehler im strict-Modus.
    • Sie sollten die Verwendung von drei argument offen.
    • Ich glaube du meinst for my $fh ( \*MYFILEA, \*MYFILEB ) { print $fh "whatever\n" }
    • es ist jetzt korrigiert
    • ... vorausgesetzt, es wird auf den strikten Modus, was gesagt wurde, ist die Frage. ( sollte Hinzugefügt haben, dass zu meinem Kommentar. )
    InformationsquelleAutor Thariama
Schreibe einen Kommentar