perl + 创建循环以打印 INI 文件中的值

Question

我叫阿比

我的第一个 perl 脚本在 linux 机器上运行

此脚本读取名为 (input) 的 INI 文件并打印 val 、 param 、 name .....

如何创建循环以打印 val1-valn 的值或循环以打印 param1-paramn... 的值等？ （在脚本中放置打印命令）

• 循环必须具有匹配参数的选项 例如只打印 param1 直到 paramn 值

n - 是每个参数的最后一个数字

 #!/usr/bin/perl




 open(IN,"input") or die "Couldn't open input: $!\n"; 
 while(<IN>) { 
 chomp; 
 /^([^=]+)=(.*)$/; 
 $config{$1} = $2; 

 } 
 close(IN);


 print $config{val1};
 print $config{val2};
 print $config{val3};

 print $config{param1};
 print $config{param2};
 print $config{param3}; 

 print $config{name1};
 .
 .
 .
 .

linux机器的ini文件示例

猫输入

  val1=1
  val2=2
  val3=3
  param1=a
  param2=b
  param3=c
  name1=abbi
  name2=diana
  name3=elena

Answer 1

您可以使用Config::Tiny 来读取您的.ini 文件。 然后你可以使用返回的哈希来过滤你想要的。

Answer 2

根据您的最后评论，这将满足您的要求：

use strict;
use warnings;

my %config;
my $max_n = 0;
my $input = 'input';
open my $in, '<', $input
    or die "unable to open '$input' for reading: $!";
while (<$in>) {
    chomp;
    if (/^(.*?(\d+))\s*=(.*)$/) { 
        $config{$1} = $3; 
        $max_n = $2 if $2 > $max_n;
    }
}
close $in or die "unable to close '$input': $!";

for my $n(1..$max_n) {
    for my $param (qw/val param/) {
        print "$param.$n = $config{$param.$n}\n" if exists $config{$param.$n};
    }
}

Answer 3

这个怎么样：

use warnings;
use strict;
my %config;

open my $input, "<", "input"
    or die "Couldn't open input: $!\n"; 
while(<$input>) { 
    chomp; 
    if ( /^([^=]+)=(.*)$/) { 
        $config{$1} = $2; 
    }
} 
close($input) or die $!;

for (sort keys %config) {
    if (/param\d+/) {
        print "$config{$_}\n";
    }
}