From 2605623bf7befb94c8154f8bcdb9d57285e14c82 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Thu, 25 Apr 2013 17:53:48 +0200 Subject: Save normalizing script 2.pl --- 2.pl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100755 2.pl diff --git a/2.pl b/2.pl new file mode 100755 index 0000000..d7cfdf3 --- /dev/null +++ b/2.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl -i -n + +use strict; +use warnings; + +chomp; + +/^SECTION / and print "\n==$_==\n\n" and next; +/^TITLE / and print "\n===$_===\n\n" and next; +/^ANNEX / and print "\n===$_===\n\n" and next; +/^Article \d+[a-z]?$/ and print "\n\n====$_====\n\n" and next; +s/(.+)\'(Article \d+[a-z]?)(.*)$/$3/ and print "$1\n\n====$3====\n\n"; +/^(?!\.)(Rule \S+)\s+(\S.*)/ and print "\n====$1====\n\n$2\n\n" and next; +/^\d+\. / and print "\n$_ " and next; +/^\s*(.*\.)$/ and print "$1\n\n" and next; +/\s*(\S.*)/ and print "$1 "; -- cgit v1.2.3