RECOIL Code

Retro Computer Image Library

Brought to you by: czwa, pfusik

[afd2c7]: / delcoders.pl Maximize Restore History

Download this file

15 lines (11 with data), 384 Bytes

#!/usr/bin/perl

use XML::DOM;

local $/;
my $doc = (new XML::DOM::Parser)->parse(<STDIN>);
my $codermap = $doc->getDocumentElement("codermap");
for my $coder ($codermap->getChildNodes()) {
	if ($coder->getNodeType == ELEMENT_NODE && $coder->getTagName eq "coder" && $coder->getAttribute("name") eq "FAIL") {
		$codermap->removeChild($coder);
	}
}
$doc->printToFileHandle(\*STDOUT);