perl #!/usr/local/bin/perl -w use strict; use LWP::UserAgent; use Encode; my $url = "http://twitter.com/statuses/update.json"; my $msg = shift || "ほげほげ(APIからポスト)"; $msg =~ s/(\W)/'%'.unpack("H2", $1)/ego; $msg =~ tr/ /+/; my $user…