Чтение из файла и запись в файл в perl

Question

У меня есть файл для чтения, как показано ниже. Мне нужно прочитать данные из read.txt и записать в другой файл write.txt, как показано ниже. в read.txt было так много других значений. Мне нужно записать их в файл write.txt. пожалуйста помоги.

read.txt

value: length 
var: cm 
data: 10 

value: weight 
var: lb 
data: 145 

value:currency 
var: dollar 
data: 1000 

write.txt

#Header Info, length_cm, weight_lb, currency_dollar 
#data, 10, 145, 1000 

Answer 1

См $/

my @attr_names; 
my %rec; 

local $/ = ''; 
while (<>) { 
    my %attr; 
    while (/^([^:]+):\s*(.*)/mg) { 
     $attr{$1} = $2; 
    } 

    warn("Missing value"), next if !$attr{value}; 
    warn("Missing var"), next if !$attr{var}; 
    warn("Missing data"), next if !$attr{data}; 

    my $attr_name = "$attr{value}_$attr{var}"; 
    push @attr_names, $attr_name; 

    $rec{$attr_name} = $attr{data}; 
} 

print(join(',', @rec{@attr_names}), "\n");