如何從Perl數組中刪除元素？

Question

我做使用Config::Simple

配置文件即new.conf

[Dialer External] 
pass=pass2 
user=user2 

[Dialer Onboard] 
pass=pass1 
user=user1 

[Dialer Onboard1] 
pass=pass1 
user=user1 

[Dialer Onboard2] 
pass=pass1 
user=user1 

我讀的配置文件，並在此配置文件是我的代碼

#!/usr/bin/perl 
use Config::Simple; 
use Data::Dumper; 

$cfg = new Config::Simple(syntax => 'ini'); 
$cfg->read('new.conf'); 
$cfg = Config::Simple->import_from('new.conf', \%Config); 
my @arr = (keys %Config); 
print "@arr"; 

散列參考，即%Config我分配到陣列@arr輸出將是

Dialer Onboard1.pass 
Dialer Onboard.pass 
Dialer Onboard.user 
Dialer Onboard2.pass 
Dialer Onboard2.user 
Dialer External.user 
Dialer External.pass 
Dialer Onboard1.user 

直到這裏是正確的。現在我想刪除一些元素，並將其分配給新的數組，應該是這樣的

Dialer Onboard1 
Dialer Onboard 
Dialer Onboard 
Dialer Onboard2 
Dialer Onboard2 
Dialer External 
Dialer External 
Dialer Onboard1 

，這樣的點（.）我不希望任何數據之後。爲此，我想使用的grep function.Here是我對於

@arr = grep { !/./ } @arr; 
my @result; 
for (@arr) { 
    if (/./) { 
     push @result, $_; 
    } 
} 

代碼，但這個工作不適合我，或者它可能是錯誤的做法。我無法確定我出錯的地方。 最後我想從中刪除重複的鍵，並給我輸出這樣的東西。

Dialer External 
Dialer Onboard 
Dialer Onboard1 
Dialer Onboard2 

請有人幫助我，並建議我如何實現這一點。提前感謝。

Answer 1

grep用於過濾，不用於更改數據。爲點之後刪除一切，利用替換法：

s/\..*// for @arr; 

如果你想獨特的元素，使用哈希：

my %uniq; 
@uniq{@arr} =(); 
@arr = keys %uniq; 

或者，使用uniq從List::MoreUtils：

use List::MoreUtils qw{ uniq }; 
@arr = uniq(@arr); 

Answer 2

你有一個修復，給你你想要的。但是我有些驚訝，沒有人注意到你真正想做的事情。

你得到比你想要的更復雜的鍵（和更多的鍵）的原因是因爲你正在使用通用配置解析器以解析器不適合的格式讀取配置文件。 Config :: Simple假設一個非常平坦的鍵/值結構，而您實際需要的INI樣式配置更自然地表示爲兩級哈希。

因此，如果您使用真正的INI解析器（例如Config::INI），您的生活會變得更容易。

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

use Config::INI::Reader; 

my $cfg = Config::INI::Reader->read_file('new.conf'); 
my @arr = (keys %$cfg); 

say for @arr; 

Config :: INI爲您提供了一個兩級哈希，其中頂級密鑰是塊的名稱。這就是你正在尋找的。所以簡單地調用keys就可以得到你想要的結果。

使用正確的工具通常會簡化事情。