Shell Programming and Scripting

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

   <xsl:output method="xml" indent="yes"/>

   <xsl:template match="OrderDetail">
     <xsl:apply-templates select="Order" />
   </xsl:template>

   <xsl:template match="Order">
      <xsl:result-document method="xml" href="Order_{@Number}.xml">
          <xsl:element name='{name()}'>
          <xsl:attribute name="Number" select='@Number' />
          <xsl:copy-of select="child::*"/>
          <xsl:copy-of select="../PaymentMethods"/>
          <xsl:copy-of select="../LineCharge"/>
          </xsl:element>
      </xsl:result-document>
   </xsl:template>

</xsl:stylesheet>

my ($header,$footer,$flag);
while(<DATA>){
  if ($. == 1 && /<(\S+)/){
    $header=$_;
    $footer="</$1>";
    next;
  }
  if(/<Order\s+Number="(\d+)">/){
    $file="Order_Number_$1.txt";
    if ($flag==1){
      print FH $footer or die "File $file not exists";
      close FH or die "Can not close file $file";
    }
    open FH,"+>$file" or die "can not open file $file";
    print FH $header;
    $flag=1;
  }
  print FH $_;
}
close FH if FH;
__DATA__
<OrderDetail BillToKey="20100805337" Createuserid="CreateGuestOrder" >
<Order Number="1">
<OrderLine CarrierServiceCode="G2" FulfillmentType="ShipToHome"/>
<Item ItemDesc="iPearl 8GB MP3 " ItemID="11239924" ItemWeight="0.00" />
<LinePriceInfo ActualPricingQty="1.00" BundleTotal="0.00" DiscountPercentage="0.00" LineTotal="80.79" />
</Order>
<Order Number="2">
<OrderLine CarrierServiceCode="H2" FulfillmentType="ShipToHome" />
<Item ItemDesc="TV" ItemID="112345424" ItemWeight="67.00" />
<LinePriceInfo ActualPricingQty="1.00" BundleTotal="0.00" DiscountPercentage="0.00" LineTotal="80.79" />
</Order>
<Order Number="3">
<OrderLine CarrierServiceCode="M2" FulfillmentType="ShipToHome" />
<Item ItemDesc="TV" ItemID="4545345" ItemWeight="67.00" />
<LinePriceInfo ActualPricingQty="6.00" BundleTotal="0.00" DiscountPercentage="0.00" LineTotal="80.79" />
</Order>
</OrderDetail>