Re^2: Splitting XML file on Processing Instructions

Thanks for your advice! Your code works fine with respect to the splitting, but the problem is that it gets only the first two <no> elements for the file name. If I add for example a third (or more) <no>-element then $from contains the contents of the first <no> element and $to contains the contents of the second <no> element but I need to get the contents of the first and last <no> element for the file name in the following example that would be text-nr4to20.xml

<?split ?>
<h1>text</h1>
<text>
Textinhalt
<no>4</no>
</text>
text ... text
<no>18</no>
<no>19</no>
<no>20</no>
<h6>text</h6>
<?split ?>
[download]

Maybe it's possible to write the contents of the <no> elements to an array and get the first with $a[0] and the last with $a[$#] but I didn't manage to change the code with respect to that. Maybe you can help me once more?

Comment on Re^2: Splitting XML file on Processing Instructions Select or Download Code

Replies are listed 'Best First'.
Re^3: Splitting XML file on Processing Instructions by pbeckingham (Parson) on Jun 24, 2004 at 13:11 UTC
No problem. This just requires that the `<no>...</no>` tags are put in an array. But we use `$numbers[-1]` instead of `$numbers[$#numbers]`. `#! /usr/bin/perl -w use strict; my $text; if (open INPUT, '<data') { local $/; $text = <INPUT>; close INPUT; } while ($text =~ /<\?split \?>(.?)(?=<\?split \?>)/sg) { my $fragment = $1; my ($h1) = $fragment =~ /<h1>(.?)<\/h1>/is; my @numbers = $fragment =~ /<no>(.*?)<\/no>/isg; if (open OUTPUT, ">${h1}-nr${numbers[0]}to${numbers[0-1}.xml") { print OUTPUT $fragment; close OUTPUT; } } exit 0;` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Splitting XML file on Processing Instructions
by pbeckingham (Parson) on Jun 24, 2004 at 13:11 UTC

No problem. This just requires that the <no>...</no> tags are put in an array. But we use $numbers[-1] instead of $numbers[$#numbers].

#! /usr/bin/perl -w
use strict;

my $text;
if (open INPUT, '<data')
{
  local $/;
  $text = <INPUT>;
  close INPUT;
}

while ($text =~ /<\?split \?>(.*?)(?=<\?split \?>)/sg)
{
  my $fragment = $1;
  my ($h1)    = $fragment =~ /<h1>(.*?)<\/h1>/is;
  my @numbers = $fragment =~ /<no>(.*?)<\/no>/isg;

  if (open OUTPUT, ">${h1}-nr${numbers[0]}to${numbers[0-1}.xml")
  {
    print OUTPUT $fragment;
    close OUTPUT;
  }
}

exit 0;
[download]

[reply]
[d/l]
[select]