Blame view
egs/sprakbanken/s5/local/norm_dk/expand_dates.sh
1.84 KB
8dcb6dfcb first commit |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
#!/bin/bash # Copyright 2014 Andreas Kirkedal # Licensed under the Apache License, Version 2.0 (the "License"); # you may not use this file except in compliance with the License. # You may obtain a copy of the License at # # http://www.apache.org/licenses/LICENSE-2.0 # # THIS CODE IS PROVIDED *AS IS* BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY # KIND, EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION ANY IMPLIED # WARRANTIES OR CONDITIONS OF TITLE, FITNESS FOR A PARTICULAR PURPOSE, # MERCHANTABLITY OR NON-INFRINGEMENT. # See the Apache 2 License for the specific language governing permissions and # limitations under the License. cat $1 | perl -pe 's/([0-3][0-9]\.)([0-1][0-9]\.)([1-2][0|9][0-9][0-9])([.| ])/\1 \2 \3\4/g' | \ perl -pe 's/den ([0-3]?[0-9])\/([0-1]?[0-9]) /den \1\. \2\. /g' | \ perl -pe 's/den ([0-3][0-9]\.)([0-1]?[0-9]\.) /den \1 \2 /g' | \ perl -pe 's/per ([0-3]?[0-9])\/([0-1]?[0-9]) /per \1\. \2\. /g' | \ perl -pe 's/([0-3]?[0-9])\/([0-1]?[0-9]) kl/\1\. \2\. kl/g' | \ perl -pe 's/([0-3]?[0-9])\/([0-1]?[0-9]) ([0-2][0-9])([.| ])/\1\. \2\. 20\3\4/g' | \ perl -pe 's/([0-3]?[0-9])\/([0-1]?[0-9]) ([3-9][0-9])([.| ])/\1\. \2\. 19\3\4/g' |