http://www.perlmonks.org?node_id=538446

theroninwins has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

here is a little problem: I am using the ipmitool to get some infos of a hardware device.
The printout is like:
CPU 1 |3000 RPM |ok
Power Supply |unspecified |cr

and so on
I need it to be
CPU1=3000RPM=ok
Power Supply=unspecified=cr

foreach $line(@saved)
{
        $tmp=s/\|/\=/,$line;
        @sort=$tmp;
}
open OUTPUT, ">>ipmiinfo.txt";
print OUTPUT @sort, "\n";
close OUTPUT;

[download]
I read the lines into @saved (that works) but the rest doesn't and it overwrites the lines aas well.

Does anyone have an idea how to sort this one out?

Back to Seekers of Perl Wisdom