From Fedora Project Wiki
(Redirected from YuanYijun/tools/fwn-pre-translate.pl)
#!/usr/bin/perl use strict; my @IssueNumber; my @anchor; while(<>) { if(/^= /) { @IssueNumber = /(\d+)/; die "已经处理过了!\n" unless not /新闻周刊/; } if(/^=/) { s/Fedora Weekly News Issue (\d+)/Fedora 新闻周刊第 \1 期/; s/Announcements/公告/; s/Ask Fedora/Fedora 有问有答/; s/Planet Fedora/Fedora 博客聚集/; s/Fedora Daily Package Weekly Video Summary/每周视频总结/; s/Daily Package/每日软件包/; s/Marketing/营销/; s/Developments/开发/; s/Maintainers/维护者/; s/Translation/翻译/; s/Infrastructure/基础设施/; s/Security Week/安全周刊/; s/Advisories and Updates/更新/; s/Security Advisories/安全更新/; s/Events and Meetings/事件和会议/; } if(/^\[\[/) ]{ @anchor = /Anchor\((.*)\)/; } print; if(/^= /) { print "欢迎阅览 Fedora 新闻周刊第 @IssueNumber 期,记载自 2007-MM-dd 起一周事件。本页永久链接为 http://fedoraproject.org/wiki/zh_CN/FWN/Issue@IssueNumber\n\n"; print "本周的主要内容有:\n\n"; print "要参与我们或给出反馈,请访问 [[zh_CN/NewsProject/Join| ]] 。\n"; } if(/^== /) { print "原文请查看 [[FWN/Issue@IssueNumber#@anchor| ]] \n"; @anchor = (); } }