xml-dev - RE: RFC: Attributes and XML-RPC

[Mark Nutter <mnutter@fore.com>]

At 02:12 PM 09/22/99 -0600, Blair Murri
wrote:

There is a problem with the perl script that you wrote.  The attrib.xml version contains the words from the dicionary, but the child.xml doesn't (unless my mail server dropped a line).

I don't have time to re-run your test yet, but it would be interesting to see what happens when the test is fair.

Doh!  "Code in haste, debug in leisure."  Ok,
here are the corrected results:

$ ./make.pl
$ ls -l
total 14206
-rw-rw-r--   1 mnutter  mnutter   5811846 Sep 23
08:28 attrib.xml
-rw-rw-r--   1 mnutter  mnutter   8672170 Sep 23
08:28 child.xml
-rwxr-xr-x   1 mnutter 
mnutter       999 Sep 23 08:26 
make.pl
-rwxr-xr-x   1 mnutter 
mnutter       976 Sep 22 13:16
make.pl~
$ gzip attrib.xml
$ gzip child.xml
$ ls -l
total 1332
-rw-rw-r--   1 mnutter  mnutter    670757
Sep 23 08:28 attrib.xml.gz
-rw-rw-r--   1 mnutter  mnutter    681080
Sep 23 08:28 child.xml.gz
-rwxr-xr-x   1 mnutter 
mnutter       999 Sep 23 08:26 
make.pl
-rwxr-xr-x   1 mnutter 
mnutter       976 Sep 22 13:16
make.pl~

So child.xml.gz is slightly larger than attrib.xml.gz (about 1.5%,
assuming my math isn't as bad as my coding).

Here again, for reference, is my (corrected) perl script.

#!/usr/bin/perl

open WORDS, "</usr/dict/words" or die "Couldn't open
dictionary.\n";
open ATTRIB, ">attrib.xml" or die "Couldn't open
attrib.xml\n";
open CHILD, ">child.xml" or die "Couldn't open
child.xml\n";

@twenty_strings = qw(one two three four five six seven eight nine
ten
                    
eleven twelve thirteen fourteen fifteen sixteen
                    
seventeen eighteen nineteen twenty);

print ATTRIB "<attrib>\n";
print CHILD "<child>\n";

while($word = <WORDS>)
{
    $time = time();
    $timestr = localtime($time);
    $twenty = rand % 20;
    $twentystr = $twenty_strings[$twenty];
    print ATTRIB <<EOM;
  <word time="$time" timestr="$timestr"
twenty="$twenty"
       
twentystr="$twentystr">$word</word>
EOM
    print CHILD <<EOM;
  <word>
    <time>$time</time>
    <timestr>$timestr</timestr>
    <twenty>$twenty</twenty>
    <twentystr>$twentystr</twentystr>
    <data>$word</data>
  </word>
EOM
}

print ATTRIB "</attrib>\n";
print CHILD "</child>\n";

close CHILD;
close ATTRIB;
close WORDS;

-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Mark Nutter, <mnutter@fore.com>

Internet Applications Developer

FORE Systems

Some people are atheists 'til the day they die.