Re: Re: Regex to match 20 chars of some digits followed by some spaces

Not all the text I am parsing is fixed width, just this bit.

The rest is somewhat like this (deboned to protect client)

document : checkpoint address report(s?) doctrailer

report : report1 | report2 | report3 | ...

report1 : lt[100] report1_cost_centre(s?) lt[200]

report1_cost_centre : lt[300] report1_txn(s?) lt[400]

report1_txn : lt[500] lt[600] page_break(?) lt[700]

lt : "<LT$arg[0]>" lt_data

lt_data : /[^\\]*/ lt_end {$return = $item{__PATTERN1__}
...
[download]

but for 15 different reports, hundreds of lt records, lots of options, repeats and alternations.

+++++++++++++++++
#!/usr/bin/perl
use warnings;use strict;use brain;

Comment on Re: Re: Regex to match 20 chars of some digits followed by some spaces Download Code

Replies are listed 'Best First'.
Re: Re: Re: Regex to match 20 chars of some digits followed by some spaces by tachyon (Chancellor) on Dec 19, 2003 at 03:35 UTC
Ah that makes more sense. If you have to deal with fixed width records you may find this sub handy: $str = 'first name EOFlast name EOFaddress field + EOF'; my @rec_def = ( [ 'first_name', 20 ], [ 'last_name', 20 ], [ 'address', 30 ], ); sub parse_fixed_width { my ( $record, $rec_def ) = @_; my %struct; my $offset = 0; for my $rec(@$rec_def) { $struct{$rec->[0]} = substr $record, $offset, $rec->[1]; $offset += $rec->[1]; } return length($record) == $offset ? \%struct : ''; } use Data::Dumper; print Dumper parse_fixed_width( $str, \@rec_def ); __DATA__ $VAR1 = { 'first_name' => 'first name EOF', 'address' => 'address field EOF', 'last_name' => 'last name EOF' }; [download] cheers tachyon	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Regex to match 20 chars of some digits followed by some spaces
by tachyon (Chancellor) on Dec 19, 2003 at 03:35 UTC

Ah that makes more sense. If you have to deal with fixed width records you may find this sub handy:

$str = 'first name       EOFlast name        EOFaddress field         
+     EOF';

my @rec_def = (
    [ 'first_name', 20 ],
    [ 'last_name',   20 ],
    [ 'address',    30 ],
);

sub parse_fixed_width {
    my ( $record, $rec_def ) = @_;
    my %struct;
    my $offset = 0;
    for my $rec(@$rec_def) {
        $struct{$rec->[0]} = substr $record, $offset, $rec->[1];
        $offset += $rec->[1];
    }
  return length($record) == $offset ? \%struct : '';
}

use Data::Dumper;
print Dumper parse_fixed_width( $str, \@rec_def );
__DATA__
$VAR1 = {
          'first_name' => 'first name       EOF',
          'address' => 'address field              EOF',
          'last_name' => 'last name        EOF'
        };
[download]

cheers

tachyon

[reply]
[d/l]