Perl's File :: Temp? 'I nasıl kullanmalıyım?

Question

Bir geçici dosya oluşturmak, dosya tanıtıcısına yazmak ve dosya adı ile harici bir program aramak istiyorum.

sorun normalde dosya yazdıktan sonra ve dış programı çağırmadan önce close isteyeyim, ama eğer doğru anlamak close -ing bir tempfile() kaldırılamaz neden olur.

Buradaki çözüm nedir? http://perldoc.perl.org/File/Temp.html itibaren

Answer 1

Tamponlama kapalıyken geçici dosyaya yazın. Dosyayı Perl komut dosyasında kapatmadan önce harici programı çağırın ve harici program yazdığınız her şeyi okuyabilecektir. Yapabileceğiniz File::Temp OOP arayüzü ile

use File::Temp qw(tempfile); 
use IO::Handle; 

my ($fh, $filename) = tempfile($template, ...); 

... make some writes to $fh ... 

# flush but don't close $fh before launching external command 
$fh->flush; 
system("/path/to/the/externalCommand --input $filename"); 

close $fh; 
# file is erased when $fh goes out of scope 

Answer 2

:

unlink_on_destroy 

Control whether the file is unlinked when the object goes out of scope. The file is removed if this value is true and $KEEP_ALL is not. 

    1. $fh->unlink_on_destroy(1); 

Default is for the file to be removed. 

deneyin 0 bunu ayarlamak için.

Answer 3

: aslında bir _temporary_ dosyası istemiyormuş gibi

my $cpp = File::Temp->new; 
print $cpp "SOME TEXT"; 
$cpp->flush; 

`cat $cpp`;