プログラミングのお題スレ Part13

[625 デフォルトの名無しさん 2019/03/12(火) 00:26:56.22 ID:XpXqAgCh]

>>623 Perl5

while (<DATA>) {
　$s = $1 if /\[(\w+)\]/;
　print "$s:$k:$v\n"
　　if ($k, $v) = /(\w+)=(\w+)/;
}
__DATA__
[sec1]
key1=val1

[sec2]
key2=val2



実行結果
~ $ perl 13_623.pl
sec1:key1:val1
sec2:key2:val2