Next Program Repair Shop 140

swswsw Problem

     Subject: Match Parsing Glitch
     Message-Id: <3B046663.DB985D9C@xx.com>
     $line =~
     m/\d{3}\s\d{6}\W(\W{7})\s{4}(\W{10})\s{2}\d{2}\/\D{2}\/\d{2}\s(.{5,25})/; 
     003 046926 MXF  08 1/1/5    $2,400,000  22/NO/00 4285 AN ADDRESS HERE       C5D5
        ($vendor, $price, $address) = 
            unpack "x11 A7 x4 A10 x11 A25", $line;


Next Copyright © 2002 M. J. Dominus