我想通過這個數組，但只有數字到我的Perl函數

-2

Perl初學者在這裏。我正在爲我的工作爲工作流程編寫一個小型自動化腳本。我需要將一組數字作爲輸入（從JSON文件開始輸入）傳遞到我的Perl函數中。這裏是我的代碼：我想通過這個數組，但只有數字到我的Perl函數

my $idFile='GNOC_IDS.json'; 
my $idJSON; 
{ 
    local $/; 
    open my $fh, '<', $idFile or die $!; 
    $idJSON = <$fh>; 
    close $fh; 
} 
my $id_array = decode_json $idJSON; 
my @decodedIDS = Dumper(\$id_array); 
foreach my $ids(@decodedIDS){ 
    print $ids; 
    my $results= $client->get_entities(
      entity_id=>$ids 

      ); 
    print Dumper(\$results); 
}

不過，我的問題是，$ IDS具有以下格式：

[  { 
      'MISC' => '1743' 
     }, 
     { 
      'MISC' => '1743' 
     }, 
     { 
      'MISC' => '1733' 
     }, 
     { 
      'MISC' => '2736' 
     }, 
     { 
      'MISC' => '1763' 
     }, 
     { 
      'MISC' => '3133' 
     }, 
     { 
      'MISC' => '1743' 
     }, 
     { 
      'MISC' => '1733' 
     }, 
     { 
      'MISC' => '2802' 
     }, 
     { 
      'MISC' => '1699' 
     }, 
     { 
      'MISC' => '2736' 
     }, 
     { 
      'MISC' => '2600' 
     } 
]

我想是養活只是數字（例如1699，2735，等等）進入'get_entities'函數，因爲現在它給了我一個「輸入必須是整數唯一錯誤」。

來源

2016-06-08 Andras Palfi

假設你$id_array如下所示，你可以使用map代替Dumper訪問只是數字：

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

my $id_array = [ 
     { 
      'MISC' => '1743' 
     }, 
     { 
      'MISC' => '1743' 
     }, 
     { 
      'MISC' => '1733' 
     }, 
     { 
      'MISC' => '2736' 
     }, 
     { 
      'MISC' => '1763' 
     }, 
     { 
      'MISC' => '3133' 
     }, 
]; 

my @decodedIDS = map { $_->{MISC} } @{ $id_array }; 
print Dumper(\@decodedIDS); 

__END__ 

$VAR1 = [ 
      '1743', 
      '1743', 
      '1733', 
      '2736', 
      '1763', 
      '3133' 
     ];

來源

2016-06-08 17:44:58 toolic

這完美地工作，非常感謝你。剛剛起步的人，好奇心，這是什麼：$ _正好？我已經看到它經常使用。 –

不客氣。 $ _是一個特殊的變量，在'map'的鏈接中有解釋。 – toolic

[關於'$ _'的問題]（http://stackoverflow.com/questions/3589837/what-is-the-significance-of-an-underscore-in-perl/3589995#3589995） – Sobrique

-1

有兩種方法可以做到這一點，你遍歷之前壓平或引用每個項目的數據循環。

拼合：

… 
foreach my $ids (map {$_->{'MISC'}} @decodedIDS){ … 
…

或指內容：

… 
foreach my $ids (@decodedIDS) { 
    print $ids->{'MISC'}; 
…

來源

2016-06-08 17:50:40 dlamblin

我想通過這個數組，但只有數字到我的Perl函數

回答

相關問題