Shell Programming and Scripting

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"}
              elsif ($1 eq "ProductRefs") {push @pr, "$2|$3|$4|$4|$5|$6|$7|$8|$9|$10"}
              
            }
           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)}
                if (@pr) {open(F, ">ProductRefs.txt"); foreach(@pr) {print F $_} close(F)}
           }
           ' CPC.xml

<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" >

<xsl:template match="*|text()|@*">
    <xsl:document href="portfolio.txt" method="text">
       <xsl:apply-templates select="//Portfolio" />
    </xsl:document>
    <xsl:document href="family.txt" method="text">
       <xsl:apply-templates select="//Family" />
    </xsl:document>
</xsl:template>

<xsl:template match="Portfolio" >
   <xsl:value-of select="@productCode"/>
   <xsl:text>|</xsl:text>
   <xsl:value-of select="./Attribute[1]/@value"/>
   <xsl:text>|</xsl:text>
   <xsl:value-of select="./Attribute[2]/@value"/>
   <xsl:text>& # 10 ;</xsl:text>
</xsl:text>
</xsl:template>

<xsl:template match="Family" >
   <xsl:value-of select="@productCode"/>
   <xsl:text>|</xsl:text>
   <xsl:value-of select="./Attribute[1]/@value"/>
   <xsl:text>|</xsl:text>
   <xsl:value-of select="./Attribute[2]/@value"/>
   <xsl:text>|</xsl:text>
   <xsl:value-of select="./ParentHierarchy/Item/@modelType"/>
   <xsl:text>& # 10 ;</xsl:text>
</xsl:text>
</xsl:template>

</xsl:stylesheet>

$ cat *.txt
F1|Internet Access Services|Active|Portfolio
F2|Local Access Services|Active|Portfolio
P1|Access|Active
P2|Data|Active
P3|Voice|Active
P4|Wireless|Active
$