Help for this page

Select Code to Download


  1. or download this
    # my regexp matches from the bottom to the top but I'd like it to repl
    +ace from the top down
    local $/=undef;
    my $DataToParse = <DATA>;
    ...
                     CatalogNumber := "SMKY-1979/A",
                     Vendor := 77,
        END_ELEMENT
    
  2. or download this
    Here's the result:
            ELEMENT Kurt (Item := "BrightLite",
                          ItemID := 29,
    ...
                         CatalogNumber := "SMKY-1979/A",
                         Vendor := 77,
            END_ELEMENT