Ptt 發文賺批幣，每秒貼一個字。

ptt-slow-post.pl

#!/usr/bin/perl
# Usage: perl ptt-post.pl content-in-a-file
# 1. save your post into a file
# 2. screen telnet ptt.cc
# 3. make a post && screen -d
# 4. perl ptt-post.pl content-in-a-file

use Expect;
use strict;
my $command = "screen";
my @parameters = ('-r');

# if you prefer the OO mindset:
my $exp = new Expect;

$exp->raw_pty(1);
# This gets the size of your terminal window
$exp->slave->clone_winsize_from(\*STDIN);

$exp->spawn($command, @parameters)
    or die "Cannot spawn $command: $!\n";

open(IN, $ARGV[0]) or die $!;
while(<IN>) {
    $exp->send_slow(1, $_);
    $exp->send("\r\n");
    sleep 1;
}
close(IN);

$exp->interact();
exit;