Re: Need help parsing ambiguously formatted data


Syntactic Confectionery Delight
	PerlMonks

Re: Need help parsing ambiguously formatted data

by periapt (Hermit)

on Dec 02, 2004 at 13:38 UTC ( [id://411750]=note: print w/replies, xml )

Need Help??

in reply to Need help parsing ambiguously formatted data

Alternately, if you are constrained to read in just a few lines at a time

use strict;
use warnings;
use diagnostics;

my @parsedline = ();
my $dataline = '';
while(<DATA>){
    chomp;
    $dataline .= $_;
    if(/\s*[*]\s*$/){
        @parsedline = split /\s*[*]\s*/,$dataline;
        print join("\n",@parsedline),"\n";
        @parsedline = ();
        $dataline = '';
    }
}
    
exit;
    
__DATA__
Microsoft Corporation - DirectShow 
Version 6.4.05.0809 * 
Microsoft Corporation - Internet Server Version 
4.02.0720 * Microsoft Corporation - Internet Explorer 
Version 5.00.2014.200 * 
Microsoft Corporation - Windows Installer - Version 2.0.2 * 
Excel Viewer Version 8.0 * Connectivity Version 2.10.2309 *
[download]

PJ
use strict; use warnings; use diagnostics;