Dearlove, Christopher (UK) wrote:
I'd actually tried the authors, but no reply yet (only a few days).
I also tried the RFC Editor thinking they might have e.g. XML
from which extraction might have been easier, but also no response yet.
Extracting code from text is pretty trivial.
Use copy&paste from the output of below simple perl script
(which removes the pagebreaks):
-Martin
#!/usr/bin/perl
#
$rfcnum="6234";
$footerpattern="^Eastlake";
$headerpattern="^RFC ${rfcnum}";
$url = "http://tools.ietf.org/rfc/rfc${rfcnum}.txt";
open(IN,"curl '${url}'|")
|| die("Download of \"$url\" failed: $!\n");
@doc = ();
$show = 2;
while($line = <IN>) {
$line =~ tr/\r\n//d;
if ( $line =~ m/${footerpattern}/io ) {
$show = 0;
while ( $doc[$#doc] eq "" ) {
pop(@doc);
}
}
if ( $show>0 ) {
if ( 2==$show || $line ne "" ) {
push(@doc, $line);
$show = 2;
}
}
if ( 0==$show && $line =~ m/^${headerpattern}/ ) {
$show = 1;
}
}
close(IN);
print join("\n",@doc), "\n";