क्या प्रतीक :: gensym अभी भी perl 5.6 के बाद और भी उपयोगी है?

Question

मैं ऐसे कोड देखा:

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

जो के रूप में लिखा जा सकता है:

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

gensym सिर्फ विरासत या अभी भी कुछ अवसरों में उपयोगी है?

Answer 1

विरासत। कभी-कभी पुराने मॉड्यूल द्वारा आवश्यक शब्दावली के बजाय ग्लोब, लेकिन यह है।

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, 
); 

दूसरी सोचा पर, आप भी अन्य नाम बना करने के लिए (हालांकि Data::Alias lexicals के साथ ऐसा कर सकते हैं) उन्हें इस्तेमाल कर सकते हैं।

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