[Omaha.pm] Another XML hack

[Jay Hannah]

Problem:

Given a directory full of xml files containing lines like this:

    <rmtype grpblk="29" grprrev="2755" invdate="20081226" ooo="0" physcap="319" rt="DELUXE"/>

Find any lines in RevData.DALMAN*xml where grpblk > physcap. Make sure to 
identify which file the data came from.


Solution:

$ cat j.pl
while (<>) {
    ($grpblk) =  (/grpblk="(\d+)"/);
    ($physcap) = (/physcap="(\d+)"/);
    print if ($grpblk > $physcap);
}

$ grep '<rmtype ' RevData.DALMAN*xml | perl j.pl
RevData.DALMAN.20080417.xml:    <rmtype grpblk="339" grprrev="42771" invdate="20080823" ooo="0" physcap="319" rt="DELUXE"/>
RevData.DALMAN.20080418.xml:    <rmtype grpblk="339" grprrev="42771" invdate="20080823" ooo="0" physcap="319" rt="DELUXE"/>
RevData.DALMAN.20080418.xml:    <rmtype grpblk="349" grprrev="43821" invdate="20080824" ooo="0" physcap="319" rt="DELUXE"/>
...


:)

j