Feat(svn/get-authors): Add perl-based parser

diff --git a/svn/get-authors b/svn/get-authors
index c80f0b2abc3cce59177157694962ee337437b630..9cd849a19b3ce42e163ef55015ea5ac75a80a1bc 100755 (executable)
--- a/svn/get-authors
+++ b/svn/get-authors
@@ -7,9 +7,12 @@ fi
 
 url="$1"
 
-#svn log -q "$url" |
-#   awk -F '|' '/^r/ {sub("^ ", "", $2); sub(" $", "", $2); print $2" = "$2" <"$2">"}' |
-#   sort -u >>authors.txt
+svn log -q "$url" |
+   awk -F '|' '/^r/ {sub("^ ", "", $2); sub(" $", "", $2); print $2" = "$2" <"$2">"}' |
+   sort -u >>authors.txt
 
-svn log --xml "$url" | grep -F author | sort -u |
-   sed 's/^<[^>]\+>\(.\+\)<.\+>$/\1 = /' >>authors.txt
+#svn log --xml "$url" | grep -F author | sort -u |
+#   sed 's/^<[^>]\+>\(.\+\)<.\+>$/\1 = /' >>authors.txt
+
+#svn log --xml "$url" | grep author | sort -u |
+#   perl -pe 's/.>(.?)<./$1 = /' >authors.txt