Symbol :: gensym, perl 5.6'dan sonra hala daha faydalı mıdır?

Question

Böyle kod gördüm:

open my $fh, ">$name" or die "Can't create $name: $!"; 

bazı durumlarda kullanışlı hala gensym tıpkı eski veya mı: olarak yazılabilir

my $fh = gensym;            
open $fh, ">$name" or die "Can't create $name: $!"; 

?

Answer 1

Legacy. Bazen eski modüller tarafından gerekli sözcükler yerine Globs, ama hepsi bu.

Düşündüm de

use IPC::Open3 qw(open3); 
open(local *CHILD_STDIN, '<', '/dev/null') or die $!; 
my $pid = open3(
    '<&CHILD_STDIN', 
    my $CHILD_STDOUT = gensym(), 
    my $CHILD_STDERR = gensym(), 
    $cmd, @args, 
); 

, ayrıca (Data::Alias lexicals ile yapabilirsiniz gerçi) takma ad oluşturmak için kullanabilirsiniz.

my $foo; 
our $bar; local *bar = \$foo; 
$foo = 123; say $bar; # 123 
$bar = 456; say $foo; # 456