摘要:
# 英-中文对照 格式化的perl代码open(fd, ">result.txt");while (<DATA>) { if ($_ =~ /./) { ($english, $chinese) = /(.*?)([\x80-\xff].*)/; $english =~ s/(.*?)(\s+$)/\1/; print fd sprintf ("%-40s%s\n", $english, $chinese); }}__DATA__abstract 抽象的.... 1 abstract ... 阅读全文