From 95ae2be15891eae0b62a83d1adcc8380548c9290 Mon Sep 17 00:00:00 2001 From: June McEnroe Date: Fri, 18 Dec 2020 22:59:41 -0500 Subject: Add scripts to download, compress and tag IETF RFCs --- rfc/rfctags.pl | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 rfc/rfctags.pl (limited to 'rfc/rfctags.pl') diff --git a/rfc/rfctags.pl b/rfc/rfctags.pl new file mode 100644 index 00000000..cd3ba288 --- /dev/null +++ b/rfc/rfctags.pl @@ -0,0 +1,26 @@ +use strict; +use warnings; +use open ':encoding(ISO-8859-1)'; + +use IO::Uncompress::Gunzip qw($GunzipError); + +($,, $\) = ("\t", "\n"); +for my $rfc (<*.txt.gz>) { + my $handle = new IO::Uncompress::Gunzip $rfc + or die "${rfc}: ${GunzipError}"; + while (<$handle>) { + chomp; + # Section headings + if (/^([\d.]+|[A-Z][.])\s+([^\t]+)/) { + print $1, $rfc, $.; + print $2, $rfc, $.; + } + # References + if (/^\s*(\[[\w-]+\])\s{2,}/) { + print $1, $rfc, $.; + print "\\$1", $rfc, $.; # vim ^] prepends \ to [ + } + } + die "${rfc}: $!" if $!; + close $handle; +} -- cgit 1.4.1