From bb5244f29a9bb6c7ce90d4abe8a43b0ad21228ce Mon Sep 17 00:00:00 2001 From: Oleg Broytman Date: Sat, 1 Feb 2020 10:31:45 +0300 Subject: [PATCH] Feat(svn/get-authors): Add perl-based parser --- svn/get-authors | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/svn/get-authors b/svn/get-authors index c80f0b2..9cd849a 100755 --- 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 -- 2.39.5