在Linux下面玩ACM的新手们可能会喜欢用的一个工具

如果你想稍微提高一下做ACM题目的效率的话，下面这个工具应该很适合你。我的这个工具名称叫做 sgxiao_acm.pl ，是一个perl写成的脚本，用于生成一个简单的代码C/C++/Java代码，并且自动添加上注释，注释的内容包括代码建立的日期，作者，以及那个题目的title。生成的结果如下所示：

/*
* Auther : sgxiao
* Title : Unit Fraction Partition
* Date : 2011-03-20
*/
#include<iostream>
using namespace std;
int main(void)
int i, j, k;
int n;
return 0;
}

上述代码是我输入了POJ上面的1980号题目之后生成的结果，这个结果将保存为1980_PKU.cpp。值得注意的是，1980这个题目的title已经自动在注释里面了，这就省却了我们到每个题目的page上面去拷贝题目的时间了。

要完成上述功能，可以将该工具放置在linux的某个目录下面，我先假设你是放置在自己的home目录下面，然后输入如下命令：

$ ./sgxiao_acm.pl

please input the id of the problem: 1980

please input the school (PKU ZJU UVa Ural): pku

please input the LANG (c c++ Java): C++

回车之后，会在当前目录生成 1980_PKU.cpp 的文件了。如果你希望一步到位，也可以以参数的形式输入：

$ ./sgxiao_acm.pl --id=1980 --lang=c++ school=pku

如果你经常游荡于各地的OnlineJudge，例如国内著名的北大POJ、浙大ZJU，又或者是国外的UVa 或者是Ural的话。用了这个工具能够稍微提高一下你的Ａ题效率，当然我认为该工具至少还能够再更强大一点点。如果你有兴趣，你可以在日常使用的过程中，再帮忙进行必要的修改。让这个工具支持更多的ＯＪ系统，支持更多的语言生成的代码，以及支持更多方便提高工作效率的各种其他特性。目前这个工具还缺乏一个比较好的--help，不知道谁能帮忙添加上去。修改过后希望你也能把修改过后的版本发布出来供大家分享。我真心希望这个工具能成为每个ACMer都必用的工具。

该工具使用了perl的一个外部库，叫做LWP，用作抓取problem页面的title。但是可能在某些发行版上的perl版本并不默认安装这这个库，所以你必须自行添加。你们可以使用perl的cpan来进行安装，至于具体的cpan如何使用，请参考http://blog.csdn.net/chinalinuxzend/archive/2008/04/30/2350464.aspx

同时我也希望这个工具能能在大家的共同努力下面，移植到更多的平台下面。我目前是在ubuntu 8.04的版本下面使用的。想在Linux下面coding，又不想安装Linux的话，推荐你用putty连上unix-center.net的服务器上面练习。具体方法，可以参考unix-center.net的帮助页面 http://www.unix-center.net/?p=10
当前版本的代码如下：

# file : sgxiao_acm.pl
#!/usr/bin/perl
use LWP::Simple;
use LWP;
use strict;
use HTML::TreeBuilder 3;
use Getopt::Long;
$ENV{"LANG"} = "C";
$ENV{"LC_ALL"} = "C";
##-----------------------------
my $browser = LWP::UserAgent->new;
sub do_GET {
my $resp = $browser->get(@_);
return ($resp->content, $resp->status_line, $resp->is_success, $resp)
if wantarray;
return unless $resp->is_success;
return $resp->content;
}
##-----------------------------
sub do_POST {
my $resp = $browser->post(@_);
return ($resp->content, $resp->status_line, $resp->is_success, $resp)
if wantarray;
return unless $resp->is_success;
return $resp->content;
}
sub get_PKU_title {
my $num = shift @_;
my $content = do_GET('http://poj.org/problem?id='.$num);

my $root = HTML::TreeBuilder->new_from_content($content);

my @inputs = $root -> find_by_attribute("class", "ptt");
my $title = $inputs[0] -> as_text;

return $title;
}
sub get_ZJU_title {
my $num = shift @_;
my $content = do_GET('http://acm.zju.edu.cn/onlinejudge/showProblem.do?problemCode='.$num);

my $root = HTML::TreeBuilder->new_from_content($content);

my @inputs = $root -> find_by_attribute("class", "bigProblemTitle");
my $title = $inputs[0] -> as_text;

return $title;
}
## TODO
sub get_UVa_title {
my $num = shift @_;
my $content = do_GET('http://acm.zju.edu.cn/onlinejudge/showProblem.do?problemCode='.$num);
my $root = HTML::TreeBuilder->new_from_content($content);
my @inputs = $root -> find_by_attribute("class", "bigProblemTitle");
my $title = $inputs[0] -> as_text;
return $title;
}
sub get_Ural_title {
my $num = shift @_;
my $content = do_GET('http://acm.timus.ru/problem.aspx?space=1&num='.$num);
my $root = HTML::TreeBuilder->new_from_content($content);
my @inputs = $root -> find_by_attribute("class", "problem_title");
my $title = $inputs[0] -> as_text;
return $title;
}
# param  $auther $title
# return $text
sub source_java {
my $auther = shift @_;
chomp $auther;
my $title = shift @_;
chomp $title;
my $date = `date "+%F"`;
chomp $date;
my $text ="/**
* Auther : $auther
* Title : $title
* Date : $date
*/
import java.util.*;
import java.math.*;
class Main {
public static void main(String argv[]) {
Scanner scanner = new Scanner(System.in);
// coding here
}
}
";
return $text;
}
# param  $auther $title
# return $text
sub source_c {
my $auther = shift @_;
chomp $auther;
my $title = shift @_;
chomp $title;
my $date = `date "+%F"`;
chomp $date;
my $text ="/*
* Auther : $auther
* Title : $title
* Date : $date
*/
#include<stdio.h>
int main(void)
{
int i, j, k;
int n;
return 0;
}
";
return $text;
}
# param  $auther $title
# return $text
sub source_cpp {
my $auther = shift @_;
chomp $auther;
my $title = shift @_;
chomp $title;
my $date = `date "+%F"`;
chomp $date;
my $text ="/*
* Auther : $auther
* Title : $title
* Date : $date
*/
#include<iostream>
using namespace std;
int main(void)
int i, j, k;
int n;
return 0;
}
";
return $text;
}
## main
my $SCHOOL;                     # PKU ZOJ UVa Ural
my $LANG;                       # Java C C++ ## TODO  add pascal
my $auther = `whoami`;          # auther
my $id;
my $title = '';                 # Problem 's title
#print STDERR "Welcome to use sgxiao's tools./n";
GetOptions ('school=s' => /$SCHOOL,
'lang=s' => /$LANG,
'id=i' => /$id);
if(!defined($id)) {
print "please input the id of the problem: ";
$id=<>;
chomp $id;
}
if(!defined($SCHOOL)) {
print "please input the school (PKU ZJU UVa Ural): ";
$SCHOOL=<>;
chomp $SCHOOL;
}
if(!defined($LANG)) {
print "please input the LANG (c c++ Java): ";
$LANG=<>;
chomp $LANG;
}
if($SCHOOL =~ m/PKU|Poj/i) {
$title = get_PKU_title($id);
$SCHOOL = 'PKU';
}
elsif($SCHOOL =~ m/ZJU|Zoj/i) {
$title = get_ZJU_title($id);
$SCHOOL = 'ZJU';
}
elsif($SCHOOL =~ m/UVa/i) {
# TODO $title = get_UVa_title($id);
}
elsif($SCHOOL =~ m/Ural/i) {
$title = get_Ural_title($id);
$SCHOOL = 'Ural';
}
else {
die "Error!!please input the School(PKU ZJU Ural UVa!!)";
}
my $text;
my $postfix;
if($LANG =~ m/c/+/+/i) {
$text = source_cpp($auther, $title);
$postfix = '.cpp';
} elsif($LANG =~ m/java/i) {
$text = source_java($auther, $title);
$postfix = '.java';
} elsif($LANG =~ m/c/i) {
$text = source_c($auther, $title);
$postfix = '.c';
}
my $file = "ACM/$id/_$SCHOOL$postfix";
open TEXT, ">$file" or die $!;
print TEXT $text;
close TEXT;