昨日のは（特にPerlの方が）アレ過ぎたので、頑張って書き直しました。 twitter.pl #!/usr/bin/perl use strict; use warnings; use Getopt::Long; use Net::Twitter; { package Net::Twitter; sub update { my ( $self, $status ) = @_; $status = $self->_…