Perl數組快捷鍵

Question

是否可以在perl中創建一個字符串變量數組，而無需指定數組中的每個單個字符串？就像使用字母和數字的「..」快捷鍵一樣。

例如：

$v1 = "hey"; 
$v2 = "hello"; 
$v3 = "bye"; 
$v4 = "welcome"; 

@f = ("$v1" .. "$v4"); 

使得打印$ F [2];將等於「再見」...

Answer 1

這可以 - 但應該不能 - 通過使用no strict 'refs'來解決。而且巧合的是no strict 'vars'：

use strict; 
use warnings; 
use Data::Dumper; 

{ 
    no strict 'vars'; 
    $v1 = "hey"; 
    $v2 = "hello"; 
    $v3 = "bye"; 
    $v4 = "welcome"; 

    no strict 'refs'; 
    my @f = map ${'v'.$_},1..4; 
    print Dumper \@f; 
} 

輸出：（SANS警告）

$VAR1 = [ 
      'hey', 
      'hello', 
      'bye', 
      'welcome' 
     ]; 

我們需要no strict 'vars'，因爲我們確實需要參考的（真正）評選的變量$main::v1等。事實上，我們可以使用完整名稱避開no strict 'vars'的需求。如果你不嚴格使用，這甚至不是問題。雖然不使用strict就像在警告燈上貼上標籤來解決汽車發動機問題一樣聰明：它不會保存發動機故障。

你應該這樣做嗎？幾乎不。總是有辦法繞過它。但以這種方式做這件事並不可怕，假設你不會像這樣作弊。

的正確方式是不是使用$v1 ...... $v1000，使用$v[0]，... $v[1000]。也就是說，馬上給數組賦值。

Answer 2

這是你的意思嗎？

my @v = qw/hey hello bye welcome/; 

print join "\n", @v; 

在創建這個ARRAY，你可以用

print $v[0]; 

其中0是ARRAY的索引來訪問任何項目：哎在我們的案例。

Answer 3

我想你可以編寫一個程序來使用eval來做到這一點，但爲什麼首先使用$ v1，$ v2呢？爲什麼不從數組開始？

或許，這取決於你真正需要做的，使用類似

@f = qw(hey hello bye welcome);

Answer 4

我不激動不已的辦法，但你可以這樣做：

$v1 = "hey"; 
$v2 = "hello"; 
$v3 = "bye"; 
$v4 = "welcome"; 

@f = map{eval "\$v$_"}1..4;