Twitter + Bash == Bad Idea

I’m not sure about the basic idea behind Twitter but after signing up, having a little look and noticing the Net::Twitter CPAN module I decided to implement a really bad idea…

  #!/usr/bin/perl -w
  use strict;
  use warnings;
  use Net::Twitter;

  my $bot = Net::Twitter->new(
                              username => "username",
                              password => "password"
                             );

  chomp(my $doing = <>);
  $doing =~ s/^\s+\d+\s+//;

  $bot->update($doing);

To make it ‘useful’ you’ll need to run the following in your bash shell: PROMPT_COMMAND='history | tail -n 1 | /path/to/twitter_post.pl' and tada! People really will know what you’re doing RIGHT NOW. Ahem, sorry.