Re: Parsing a Tagged File Format


P is for Practical
	PerlMonks

Re: Parsing a Tagged File Format

by Anonymous Monk

on Apr 30, 2003 at 10:41 UTC ( [id://254239]=note: print w/replies, xml )

Need Help??

in reply to Parsing a Tagged File Format

#! perl -slw
use strict;
use Data::Dumper;

my %data;
my $current_key;

while( <DATA> ) {
    my ($key, $value) = m[(^[\w]{2})?\s+(.*$)];
    if( defined $key ) {
        last if $key eq 'ER';
        push @{ $data{$key} }, $value;
        $current_key = $key;
    }
    else {
        push @{ $data{$current_key} }, $value;
    }
}

print Dumper \%data
__DATA__
T1 Line1
T2 Line2
   Line3
   Line4
T3 Line5
   Line6
ER
[download]

Comment on Re: Parsing a Tagged File Format Download Code

Replies are listed 'Best First'.

Re: Re: Parsing a Tagged File Format
by runrig (Abbot) on Apr 30, 2003 at 18:36 UTC

use strict;
use Data::Dumper;

my %data;
my $current_key;

while( <DATA> ) {
    my ($key, $value) = m[^((?:\w{2})?)\s+(.*)] or die "Bad line: $_";
    last if $key eq 'ER';
    $current_key = $key || $current_key;
    die "No key defined" unless $current_key;
    push @{ $data{$current_key} }, $value;
}

print Dumper \%data
__DATA__
T1 Line1
T2 Line2
   Line3
   Line4
T3 Line5
   Line6
ER
[download]

(\w{2}?)

Aristotle

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom