<?xml version="1.0" encoding="windows-1252"?>
<node id="124767" title="Re: Re: Name Space" created="2001-11-12 06:33:17" updated="2005-07-21 01:28:42">
<type id="11">
note</type>
<author id="103111">
George_Sherston</author>
<data>
<field name="doctext">
Well now you've been and gone and messed up the system...   I'm afraid my puny non-fuzzy logic script only picks out the first node from each person in the thread.    This is a fault.  I know!   I'm sorry!   Anybody who has the time / skill to do better than this - let me have it, sibling:
&lt;code&gt;#!/usr/bin/perl -w

use strict;
use CGI qw(:standard :cgi-lib);
use LWP::Simple;

my $url = "http://perlmonks.org/index.pl?node_id=110166";
my $html = get $url or die "could not get $!";
my %names;

while ($html =~ s/=(\d*?)&amp;lastnode_id=110166"&gt;[^&lt;]*&lt;\/A&gt;&lt;BR&gt; by &lt;A HREF="\/index\.pl\?node_id=\d*&amp;lastnode_id=110166"&gt;(.*?)&lt;\/A&gt; on \w{3} \d{2}, \d{4} at \d{2}:\d{2}//s) {
    $names{$2} = $1 unless $names{$2};
}
&lt;/code&gt;&lt;strong&gt;update: &lt;/strong&gt; I notice that [demerphq] has [124742|done this] already...  [124774|as has] [crazyinsomniac].§ &lt;br&gt;&lt;br&gt;&lt;A HREF="http://www.sprogress.com"&gt;George Sherston&lt;/A&gt;</field>
<field name="root_node">
110166</field>
<field name="parent_node">
124766</field>
</data>
</node>
