专为FudanBBS 和MIT BBS编写的贴文工具 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Software - 软件世界

专为FudanBBS 和MIT BBS编写的贴文工具

专为FudanBBS 和MIT BBS编写的贴文工具# Software - 软件世界

e*e2000-01-13 08:01

1 楼

(版本号1.0Beta, Build0112)
功能简介：
1.不需要Web 浏览器，直接通过复旦大学电子布告版(Fudan BBS)或未名空间电子布
告版( MIT BBS，The Unknown Space BBS)贴文的软件。
2.支持代理服务器，采用Web Proxy。在Option中选中Proxy框，填入相应的代理服务器IP( 或域名 )，以及Port。
3.如安装有IE的中文包可直接显示中文，可通过Option 中的Font更改字体大小和颜
色，也可以使用外持式中文环境。字体按钮(Font)用于改变版名(Board) ，文章名(Title)，文章内容(Content) 和服务器响应内容区Response的显示字体。
4.支持从本地硬盘读出文件，使用Open按钮打开文件即可。自动将文件第一行加入张贴文章的题目处。
5.还能在编辑区直接录入，编辑区支持鼠标快捷键，功能与通常字处理软件相似，注意编辑区内用ctrl+v和鼠标右键中的Paste结果会不完全相同，鼠标右键中的Paste将自动把粘贴的第一行文字加入到题目中，而ctrl+v将不

m*i2000-01-13 08:01

2 楼

赫赫，这种东西...要做个贴文机上站机或者抓文机还不容易么:-)
俺这里随手写个抓文机，抓下某个版的所有文章：
#!/usr/bin/perl
$board=$ARGV[0];
$file='bbsdoc?A'.$board;
$burl='http://bbs.mit.edu/cgi-bin/'.$file;
`wget $burl`;
open (FF, "while () {
($sub)=/\d\d:\d\d\\$str='http://bbs.mit.edu'.$sub if ($sub ne "");
`wget $str` if ($str ne "");
$sub="";
$str="";
}
用法：
环境：PERL, wget
命令：假设它存成文件grab.pl
grab.pl Boardname
其中Boardname是大小写敏感的。比如Programming
扩充：修改模式匹配，可以只抓

【在 e*e 的大作中提到】

: (版本号1.0Beta, Build0112)
: 功能简介：
: 1.不需要Web 浏览器，直接通过复旦大学电子布告版(Fudan BBS)或未名空间电子布
: 告版( MIT BBS，The Unknown Space BBS)贴文的软件。
: 2.支持代理服务器，采用Web Proxy。在Option中选中Proxy框，填入相应的代理服务器IP( 或域名 )，以及Port。
: 3.如安装有IE的中文包可直接显示中文，可通过Option 中的Font更改字体大小和颜
: 色，也可以使用外持式中文环境。字体按钮(Font)用于改变版名(Board) ，文章名(Title)，文章内容(Content) 和服务器响应内容区Response的显示字体。
: 4.支持从本地硬盘读出文件，使用Open按钮打开文件即可。自动将文件第一行加入张贴文章的题目处。
: 5.还能在编辑区直接录入，编辑区支持鼠标快捷键，功能与通常字处理软件相似，注意编辑区内用ctrl+v和鼠标右键中的Paste结果会不完全相同，鼠标右键中的Paste将自动把粘贴的第一行文字加入到题目中，而ctrl+v将不