diff options
author | Jonas Smedegaard <dr@jones.dk> | 2013-04-25 17:53:48 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2013-04-25 17:53:48 +0200 |
commit | 2605623bf7befb94c8154f8bcdb9d57285e14c82 (patch) | |
tree | dace00aa27e1b9c01b9bd65b748f7af6fdf0764a | |
parent | 2f7a7056d679ac2225dedcb0f66130fa6976b0e8 (diff) |
Save normalizing script 2.pl
-rwxr-xr-x | 2.pl | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -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 "; |