Komut satırı argümanlarının yanı sıra Perl komut dosyası için STDIN'den de giriş yapın mı?

Question

Ben Stdin girişindeki O durmuyor komut satırı argümanları ve STDIN

#!/usr/bin/perl -w 
use strict; 
use warnings; 

my $logpath = $ARGV[0]; 
print "logpath : $logpath\n"; 

print "Name : "; 
my $name = <>; 
chomp($name); 
print "my name is $name\n"; 

hem alan bir Perl komut dosyası var. Komut satırı veya standart girişlerden herhangi biri için iyi çalışıyor, ancak ikisi için değil.

Herhangi Bir Neden? @ARGV hiçbir öğesi vardır

Answer 1

Değişim

my $name = <>; 

için

my $name = <STDIN>; 

Eğer komut satırında olsa argümanları geçiyoruz beri, daha sonra elmas operatör STDIN uzak ama sizin durumda okuyacak, @ARGV olmaz boş ol. Bu nedenle, adı okumak için elmas operatörünü <> kullandığınızda, komut satırında adı belirtilen dosyanın ilk satırı okunur.