Translist
維基百科,自由的 encyclopedia
编写过的各条目出现的红字收录.现在还没有可以自动扫描的机器人,所以就先这样解决了.有兴趣参与的,可以直接点下面的红字链接开始编辑.
随手写的提取用Shell代码,记录备用,版权没有,翻版不究:
- 提取Tsl:
#USE SOURCE FILE: r, CONTENT OF THE ARTICLE INCLUDED
#YOU CAN USE PIPE TO COMBINE FOLLOWING SCRIPTS...
cat r | tr "[{}]" '\n' | awk /[Tt]sl/'{print "{{"$0"}}"}' #VER.1, FOR AWK USER
cat r | tr { '\n' | sed -n 's/\([Tt]sl.*[^}]\)}.*/{{\1}}/p' #VER.2, FOR SED USER
grep -o '{{[Tt]sl[^}]*}}' r #VER.3, GREP MINIMAL VERSION
- 消除无用的第五格:
sed 's/\(|.*|.*|.*\)|.*/\1}}/'
- 除重:
sort -u
- 修整格式:
sed 's/^/* /'
- 联合使用:
grep -o '{{[Tt]sl[^}]*}}' r |sed 's/\(|.*|.*|.*\)|.*/\1}}/;s/^/* /'|sort -u