Perl Glob und Dateihandle Probleme

Question

Ok, ich habe ein bisschen ein Problem hier. Ich merke, dass ich kein $ Handle auf * :: HTML setzen muss, um diesen Code-Schnipsel zum Laufen zu bringen, allerdings wird dieser Code aus seinem Kontext herausgenommen und ich brauche ihn tatsächlich, um mit $ handle zu arbeiten. Die Ausgabe, die ich erhalte, ist unterhalb des Snippets, aber die Ausgabe, die ich möchte, ist für die Datei.html, die "what \ nsometext1 \ nsometext2 \ n" enthält.

open(HTML, ">file.html"); 
$handle = \*::HTML; 
print $handle "what\n"; 

open(READ, "< somefile.txt"); #somefile.txt contains sometext1\nsometext2\n 
while(<READ>) 
{ 
    print $handle; 
} 
close READ; 
close HTML; 

file.html mit dem Ausgang "was" und glob (0x6278b0) glob (0x6278b0) bleibt, ist an der Klemme Fenster gedruckt.

Answer 1

Wenn Sie die documentation for print sehen Sie werden sehen, dass es drei gültige Möglichkeiten print zu nennen:

• Druckfilehandle LIST
• Druckliste
• Druck

Nur die letzte Version druckt $_ implizit. Der Grund dafür ist einfach, Perl kann nicht sagen, ob Sie das Dateihandle oder das Dateihandle ohne weitere Informationen drucken möchten (das Leerzeichen zwischen Dateihandle und Liste). Das Drucken des Dateihandles (statt dessen) ist die flexibelste Methode, daher wurde die Auflösung des mehrdeutigen Falls gewählt.

Answer 2

Ich fand es heraus; Ich brauche dafür die $_ nach $handle.

Answer 3

Wenn Sie skalare Variablen verwenden, um Dateihandles zu speichern, müssen Sie Perl helfen, zu verstehen, wie der Ausdruck analysiert wird. Das Sagen print $var ist mehrdeutig. Es könnte einen der folgenden Punkte bedeuten:

print STDOUT $var; # print the contents of $var to STDOUT 
print {$var} $_; # print the contents of $_ to the handle $var 

Perl wählt den ersten. Wenn Sie das letztere möchten, müssen Sie es explizit machen, indem Sie das Dateihandle einklammern, um es zu disambiguieren.

Außerdem verwendet Perl nur die Standardvariable $_, wenn Sie keine Argumente angeben, was gedruckt werden soll. Aufgrund dessen, wie print $var interpretiert wird, wird $_ nicht verwendet.

Answer 4

Perls print operator lässt in allen Fällen LIST weglassen. Bedenken Sie:

$ perl -le '$_ = "foo!"; print STDOUT' 
foo! 

Aber das sieht an den Parser wie ein Dateihandle-im Gegensatz zu print $scalar, die etwas zur Laufzeit sein könnte. Wenn Sie ein Stück Code unsicher des Parse sind, führen Sie es durch B::Deparse, wie in

$ perl -MO=Deparse,-p try 
while (defined(($_ = <READ>))) { 
    print($_); 
    print($handle); 
    print(STDOUT $_); 
} 

Wie geschrieben, enthält die Schleife drei Anrufe Druck: print, print $handle und print STDOUT.

nahe zu kommen, was Sie wollen, können Sie select verwenden:

my $oldfh = select $handle; 

while(<READ>) 
{ 
    print; 
} 

select $oldfh; 

Beachten Sie, dass kehrt die zuvor ausgewählte Dateikennung aus, und der Code speichert es oben so wie die Dinge zurück zu setzen, wo wir sie gefunden nachher.

Answer 5

use strict; 
use warnings; 

open(my $html, '>', "file.html"); 
print $html "what\n"; 

open(my $read, '<', "somefile.txt"); #somefile.txt contains sometext1\nsometext2\n 

while(my $line = <$read>) { 
    print {$handle} $line; 
} 

close $read; 
close $html;