在perl中创建网络接口配置文件列表中的散列哈希

问题描述：

我试图将Linux上的网络接口配置文件列表加载到散列哈希中，并将它们进一步编码为JSON。这是我使用的代码：在perl中创建网络接口配置文件列表中的散列哈希

#!/usr/bin/env perl 
use strict; 
use diagnostics; 
use JSON; 
use Data::Dumper qw(Dumper); 


opendir (DIR, "/etc/sysconfig/network-scripts/"); 
my @configs =grep(/^ifcfg-*/, readdir(DIR)); 
my $output = "metadata/json_no_comment"; 
my %configuration; 

my $key; 
my $value; 
my %temp_hash; 
foreach my $input (@configs) { 
    $input= "/var/tmp/rhel6.8/" . $input; 
    open (my $JH, '<', $input) or die "Cannot open the input file $!\n"; 
    while (<$JH>) { 
     s/#.*$//g; 
     next if /^\s*#/; 
     next if /^$/; 
     for my $field (split) { 
      ($key, $value) = split /\s*=\s*/, $field; 
      $temp_hash{$key} = $value; 
      } 
      $configuration{$input} = \%temp_hash; 
     } 
    close $JH; 
} 
print "-----------------------\n"; 
print Dumper \%configuration; 
print "-----------------------\n"; 

my $json = encode_json \%configuration; 
open (my $JNH, '>', $output) or die "Cannot open the output file $!\n"; 
    print $JNH $json; 
close $JNH;

的数据结构，那我得到的是以下几点：

$VAR1 = { 
      '/etc/sysconfig/network-scripts/ifcfg-lo' => { 
              'BOOTPROTO' => 'dhcp', 
              'NAME' => 'loopback', 
              'TYPE' => 'Ethernet', 
              'IPV6INIT' => 'yes', 
              'HWADDR' => '"52:54:00:65:e7:8c"', 
              'DEVICE' => 'lo', 
              'NETBOOT' => 'yes', 
              'NETMASK' => '255.0.0.0', 
              'BROADCAST' => '127.255.255.255', 
              'IPADDR' => '127.0.0.1', 
              'NETWORK' => '127.0.0.0', 
              'ONBOOT' => 'yes' 
             }, 
      '/etc/sysconfig/network-scripts/ifcfg-eth0' => $VAR1->{'/etc/sysconfig/network-scripts/ifcfg-lo'} 
     };

的数据结构，我要找的是以下内容：

$VAR1 = { 
      '/etc/sysconfig/network-scripts/ifcfg-lo' => { 
              'BOOTPROTO' => 'dhcp', 
              'NAME' => 'loopback', 
              'TYPE' => 'Ethernet', 
              'IPV6INIT' => 'yes', 
              'HWADDR' => '"52:54:00:65:e7:8c"', 
              'DEVICE' => 'lo', 
              'NETBOOT' => 'yes', 
              'NETMASK' => '255.0.0.0', 
              'BROADCAST' => '127.255.255.255', 
              'IPADDR' => '127.0.0.1', 
              'NETWORK' => '127.0.0.0', 
              'ONBOOT' => 'yes' 
             }, 
      '/etc/sysconfig/network-scripts/ifcfg-eth0' => { 
              'BOOTPROTO' => 'dhcp', 
              'NAME' => '"eth0"', 
              'TYPE' => 'Ethernet', 
              'IPV6INIT' => 'yes', 
              'HWADDR' => '"52:54:00:65:e7:8c"', 
              'NETBOOT' => 'yes', 
              'ONBOOT' => 'yes' 
             } 
};

任何想法我做错了什么？为什么第一个嵌套散列是正确创建的，第二个不是？我怀疑它与逐行读取文件有关，但我必须这样做，因为我需要在JSON转换之前过滤掉注释行。感谢您的帮助。

编辑：我修改了鲍罗廷建议的脚本，它的工作原理。谢谢！

怎么样Sys :: HostIP，Net ::接口或从CPAN其他模块？这对你有用吗？ – jira

你建议的模块是好的，但我想要更通用的解决方案。通过一些调整，我现在可以用JSON解析和编码其他类型的配置文件，并使用不同的语法。无论如何感谢您的建议。 – Yakup

答

问题是$configuration{$input}总是指相同的散列%temp_hash，因为您已将其声明为文件级别。你需要通过声明%temp_hash的for环

还要注意的是next if /^\s*#/可没有任何效果，因为你只是删除了该行的任何散列里面会为每个配置文件一个新的哈希值。你的卫生应该看起来像

s/#.*//; 
next unless /\S/;

在perl中创建网络接口配置文件列表中的散列哈希

相关推荐