Multiline regexp question

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

Monks

I use AFPPARSER.EXE" /D from www.btbnet.de to convert AFP files to text. The following script to outputs

C:\test\perl>perl tle.pl
ENVELOPEID 36
CUSTOMER_NAME 36
KUNDNAVN 36
ZIP_CODE 36
COUNTRY 36
FAKTURA 36
KONTRAKT 36
REGISTER 36
DATO 36
[download]

I would like the following script to output the text between the quotes following FQName together with the last quoted text between to 'TLE' elements:

ENVELOPEID 5172986
CUSTOMER_NAME Acme Inc
KUNDNAVN BANANA AIRLINES
ZIP_CODE SE-971 74
..
[download]

The script:

use strict;
use warnings;

use 5.010;
my $file;

{
  local $/;
  $file = <DATA>;
}

while ($file =~ /TLE.*?FQName\W+'(.*?)'.*?'(.*?)'.*?(TLE)?/gs ) {
  say "$1 $2";
}

__DATA__
.11893 ... TLE - Tag Logical Element                          00033 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'ENVELOPEID'
           |Attribute Value Triplet 54 (x'36')
           |- '5172986'
.11894 ... TLE - Tag Logical Element                          00059 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'CUSTOMER_NAME'
           |Attribute Value Triplet 54 (x'36')
           |- 'Acme Inc'
.11895 ... TLE - Tag Logical Element                          00074 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'KUNDNAVN'
           |Attribute Value Triplet 54 (x'36')
           |- 'BANANA AIRLINES'
.11896 ... TLE - Tag Logical Element                          00033 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'ZIP_CODE'
           |Attribute Value Triplet 54 (x'36')
           |- 'SE-971 74'
.11897 ... TLE - Tag Logical Element                          00025 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'COUNTRY'
           |Attribute Value Triplet 54 (x'36')
           |- 'SE'
.11898 ... TLE - Tag Logical Element                          00030 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'FAKTURA'
           |Attribute Value Triplet 54 (x'36')
           |- '5643452'
.11899 ... TLE - Tag Logical Element                          00032 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'KONTRAKT'
           |Attribute Value Triplet 54 (x'36')
           |- '90234342'
.11900 ... TLE - Tag Logical Element                          00031 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'REGISTER'
           |Attribute Value Triplet 54 (x'36')
           |- 'AF89729'
.11901 ... TLE - Tag Logical Element                          00028 D3
+A090 00000
           |
           |Fully Qualified Name Triplet 2 (x'02')
           |- Type 11 (x'0B') Attribute GID
           |- Format 0 (x'00') Character string
           |- FQName 'DATO'
           |Attribute Value Triplet 54 (x'36')
           |- '16.12.13'
[download]

--
No matter how great and destructive your problems may seem now, remember, you've probably only seen the tip of them. [1]

Comment on Multiline regexp question Select or Download Code

Replies are listed 'Best First'.

Re: Multiline regexp question
by hdb (Monsignor) on Dec 16, 2013 at 14:08 UTC

Change your regex to

 /FQName\W+'(.*?)'.*?\|- '(.*?)'/gs
[download]

[reply]
[d/l]

Re: Multiline regexp question
by Athanasius (Archbishop) on Dec 17, 2013 at 02:32 UTC

A variation: If the data file is large, you may want to avoid slurping it all into memory. In which case, set the input record separator $/ to a suitable string:

#! perl
use strict;
use warnings;
use feature 'say';

{
    local $/ = 'TLE - Tag Logical Element';

    while (<DATA>)
    {
        say "$1 $2" if /FQName\s+'(.*?)'.*\|-\s+'(.*?)'/s;
    }
}

__DATA__
<as before>
[download]

(Regex based on hdb’s ++answer.) Output:

12:17 >perl 802_SoPW.pl
ENVELOPEID 5172986
CUSTOMER_NAME Acme Inc
KUNDNAVN BANANA AIRLINES
ZIP_CODE SE-971 74
COUNTRY SE
FAKTURA 5643452
KONTRAKT 90234342
REGISTER AF89729
DATO 16.12.13

12:17 >
[download]

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom