<?xml version="1.0" encoding="windows-1252"?>
<node id="1003834" title="Re: Using perl to extract data from multiple .txt files" created="2012-11-14 10:27:56" updated="2012-11-14 10:27:56">
<type id="11">
note</type>
<author id="832495">
choroba</author>
<data>
<field name="doctext">
&lt;c&gt;
open my $OUT, '&gt;', 'output.txt' or die "output: $!";
for my $file (glob 'dir/*.txt') {
    # Your old code here. Remove opening the output file.
}
&lt;/c&gt;
&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-832495"&gt;

&amp;#1604;&amp;#1405;&amp;#4285;† &amp;#6514;&amp;#6482;&amp;#9898;&amp;#10186;&amp;#4281;&amp;#5651;&amp;#5511; &amp;#5045;&amp;#5651;&amp;#5511;&amp;#9137; &amp;#4281;&amp;#6514;&amp;#119243;&amp;#409;&amp;#5651;&amp;#5511;
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
1003832</field>
<field name="parent_node">
1003832</field>
</data>
</node>
