Perl'de @ARGS foreach'a (@ARGS) kısa yoldan geçmek

Question

Değerleri kabuktan Perl'deki foreach işlevine (betiği çağırırken) geçirmeye çalışıyorum.

user@system:$ perl perl_script @ARGS 

Motivasyon: 50 anahtarın bir listesini hazırladım. 192.168.10.10 - 192.168.10.60 ve tüm işlemlerin gerçekleştirilmesi. bu yüzden kısa yoldan geçmeye çalışıyorum.

#!/usr/bin/perl 
my $t_args = $#ARGV+1; 
print "Total args: $t_args\n"; 
print "[$_]\n" foreach @ARGV; 

Çıktı 1:

user@system:~/projects/learnperl$ perl counter.pl 12 13 14 15 16 
Total args: 5 
[12] 
[13] 
[14] 
[15] 
[16] 

Çıktı 2: HATA

user@system:~/projects/learnperl$ perl counter.pl 12..16 
Total args: 1 
[12..16] 

Orada içinden almak için başka yollar vardır, ancak ben başarmak için çalışıyorum bilmek istiyorum mümkün.

Örnek kullanım:

user@system:$ perl getlogs.pl 10..60 
my $network="192.168.0" 
foreach my $node (@ARGS){ 
    my $ip="$network.$node"; 
    get_files_from ($ip); 
} 

Hepsi benim cihazlardan veri almak gerekir. foreach my $node (10..60) yapmak anlaşılabilir. Ama ben foreach my $node (@ARGS) kullanmak istiyorum.

Answer 1

Düzenleme:, bash kabuğunu kullanarak bahsettiğinizden beri, kabuk düzeyinde aralık genişletme yapmak mümkündür.

$ perl getlogs.pl {10..60} 

Ve senaryoya 51 ayrı argümanlar gönderecektir: Sadece kullanın İlk kodunda herhangi bir değişiklik gerekmez.

---

Sen Number::Range gibi, aralık işlemek için bir modülü kullanmak veya ağın güvenlik ve doğrulama hakkında eminseniz eval ile o yapabilirsiniz. Örneğin:

my @numbers; 

foreach (@ARGV) { 
    if (/^\d+\.\.\d+$/) { 
     # value is a range, eval it 
     my @a = eval "($_)"; 
     push @numbers, @a; 
    } else { 
     # value assumed to be numeric, test if you want 
     push @numbers, $_; 
    } 
} 

print "Total args: ", scalar @numbers, "\n"; 
print "[$_]\n" foreach @numbers; 

modül yaklaşımı:

use Number::Range; 

# if range detected ... 
@a = Number::Range->new($_)->range; 

Küçük testi: Yani

$ perl test.pl 10 11..14 15 16 
Total args: 7 
[10] 
[11] 
[12] 
[13] 
[14] 
[15] 
[16]