$
$ ## check if the text files exist
$
$ ls portfolio.txt family.txt subfamily.txt
ls: cannot access portfolio.txt: No such file or directory
ls: cannot access family.txt: No such file or directory
ls: cannot access subfamily.txt: No such file or directory
$
$ ## check the contents of the xml file
$
$ cat -n test.xml
     1  <ABSProductCatalog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
     2  <ProductSalesHierachy>
     3  <Portfolios>
     4  <Portfolio productCode="P1">
     5  <Attribute name="CatalogProductName" value="Access" />
     6  <Attribute name="Status" value="Active" />
     7  </Portfolio>
     8  <Portfolio productCode="P2">
     9  <Attribute name="CatalogProductName" value="Data" />
    10  <Attribute name="Status" value="Active" />
...
... <snipped a lot of XML content here>
...
   183  <DynamicAttribute dataType="String" name="ProductId">
   184  <AttrValue>123456</AttrValue>
   185  </DynamicAttribute>
   186  <DynamicAttribute dataType="String" name="modelSource">
   187  <AttrValue>product</AttrValue>
   188  </DynamicAttribute>
   189  </DynamicAttributes>
   190  </Product>
   191  </Products>
   192  <CatalogChanged>Y</CatalogChanged>
   193  </ABSProductCatalog>
$
$
$ ## run the Perl script
$
$ perl -lne 'BEGIN {undef $/}
>            while (/<(Portfolio|Family|SubFamily) productCode="(.*?)".*?value="(.*?)".*?value="(.*?)".*?<\/(Portfolio|Family|SubFamily)>/sg) {
>              if ($1 eq "Portfolio") {push @p, "$2|$3|$4"}
>              elsif ($1 eq "Family") {push @f, "$2|$3|$4"}
>              elsif ($1 eq "SubFamily") {push @sf, "$2|$3|$4"}
>            }
>           END {if (@p)  {open(F, ">portfolio.txt"); foreach(@p) {print F $_} close(F)}
>                if (@f)  {open(F, ">family.txt"); foreach(@f) {print F $_} close(F)}
>                if (@sf) {open(F, ">subfamily.txt"); foreach(@sf) {print F $_} close(F)}
>           }
>           ' test.xml
$
$
$ # check if the text files have been generated
$
$ ls -1 portfolio.txt family.txt subfamily.txt
family.txt
portfolio.txt
subfamily.txt
$
$ # they are there now... check their contents
$
$ cat portfolio.txt
P1|Access|Active
P2|Data|Active
P3|Voice|Active
P4|Wireless|Active
$
$ cat family.txt
F1|Internet Access Services|Active
F2|Local Access Services|Active
$
$ cat subfamily.txt
SF1|Business Internet service|Active
$
$