Esteemed Monks
Greeting
I'm feeling a bit rusty, and I wonder if you can help please?
I have data as such
21 10216503 27f14 208 1 vxdmp (VxVM 4.0R_p3.7 (MP1): DMP Drive)
22 78016000 1c8c80 223 1 vxio (VxVM 4.0R_p3.7 (MP1) I/O driver)
24 781bf440 847 225 1 vxspec (VxVM 4.0R_p3.7 (MP1) control/st)
127 7837cb56 bb3 234 1 vxportal (VxFS 4.0_REV-MP1j portal driver
+)
128 7837e000 1636fd 16 1 vxfs (VxFS 4.0_REV-MP1j,PID=116688-01)
what I want to achieve is this
21,10216503,27f14,208,1,vxdmp,(VxVM 4.0R_p3.7 (MP1): DMP Drive)
22,78016000,1c8c80,223,1,vxio,(VxVM 4.0R_p3.7 (MP1) I/O driver)
24,781bf440,847,225,1,vxspec,(VxVM 4.0R_p3.7 (MP1) control/st)
127,7837cb56,bb3,234,1,vxportal,(VxFS 4.0_REV-MP1j portal driver)
128,7837e000,1636fd,16,1,vxfs,(VxFS 4.0_REV-MP1j,PID=116688-01)
so I wrote this script
#! c:/perl/bin/perl.exe
use strict;
use Archive::Tar;
system(cls);
my $tar = Archive::Tar->new();
$tar->read("c:\\emcgrab.tar.gz", 1);
@_ = $tar->list_files();
print "\n\n";
for my $modinfo (@_)
{
next unless ($modinfo =~ /modinfo.txt/);
$tar->extract_file( $modinfo, "c:\\Emcmodinfo.txt");
open(FILE,"c:\\Emcmodinfo.txt") || die;
chomp (my @stuff = <FILE>);
for my $line (@stuff)
{
next unless ($line =~ /vx/);
$line =~ s/^\s+//;
print "$line\n";
$line =~ /^(\d+)\s+(\d+\w+\d+)\s+(\d+\w+)/;
}
}
and what I get is not what I expected!
21 10216503 27f14 208 1 vxdmp (VxVM 4.0R_p3.7 (MP1): DMP Drive)
21,10216503,27f14
-------------------------------------------------------
22 78016000 1c8c80 223 1 vxio (VxVM 4.0R_p3.7 (MP1) I/O driver)
22,78016000,1c8c80
-------------------------------------------------------
24 781bf440 847 225 1 vxspec (VxVM 4.0R_p3.7 (MP1) control/st)
24,781bf440,847
-------------------------------------------------------
127 7837cb56 bb3 234 1 vxportal (VxFS 4.0_REV-MP1j portal driver
+)
,,
-------------------------------------------------------
128 7837e000 1636fd 16 1 vxfs (VxFS 4.0_REV-MP1j,PID=116688-01)
128,7837e000,1636fd
-------------------------------------------------------
C:\Perl>
Could some please show me where I am going wrong here,..Thanks