Help for this page

Select Code to Download


  1. or download this
    my $NODEREC = " <XML REQUEST RECORD GOES HERE> "

...
$| = 1;

my $parser = XML::LibXML->new;
  2. or download this
    print $sok "$NODEREC\n";
while ($line = <$sok>){
...
   chomp($line);
   push(@output, $line);
}
  3. or download this
    syswrite $sok, $NODEREC;
syswrite $sok, "\n";
my $blksize = (stat $sok)[11] || 16384;
my $len = sysread $sok, $res, $blksize;
my $ds = $parser->parse_string("$res");