Help for this page

Select Code to Download


  1. or download this
            $DataToParse =~ s/(.+)\sELEMENT\s(.+?)\s\(Item := \"$item\".+?
+CatalogNumber := \"$catNum.+?END_ELEMENT/$1 ***** Found $2\'s $catNum
+ $item. (counter: $counter) *****$3/s;
  2. or download this
            $DataToParse =~ s/\sELEMENT\s(.+?)\s\(Item := \"$item\".+?Cata
+logNumber := \"$catNum.+?END_ELEMENT/ ***** Found $1\'s $catNum $item
+. (counter: $counter) *****/s;