Script que te possibilita enviar tweets pelo terminal, oferecendo proteção na hora da digitação da senha (igual a senha do comando 'su' por exemplo).

• Download tweetin
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w

# Author: Danillo Souza
# Email: danillo012@gmail.com
# Version: 0.1
#
# Small quick script to post tweets while working in the terminal
# or for use on systems that do not use graphical user interface (eg servers).
# 
# I hope you use and like ;D

use strict;
use Net::Twitter;
use Term::ReadKey;

# get the password
sub get_pass {
   my($msg, $tmp) = (shift, '');

   print $msg;
   ReadMode 'noecho';
   $tmp = ReadLine 0; chomp $tmp;
   ReadMode 'normal';
   print "\n";
   
   return $tmp;
}

sub tweetin {
   # catch the username, password and the text f tweet
   my($user, $passwd, $tweet) = @_;
   # verifications
   if ($user !~ /^.{1,15}$/) {die "Invalid username.\n";}
   if ($passwd !~ /^.{6,}$/){die "Invalid password.\n";}
   if ($tweet !~ /^.+$/)      {die "Invalid tweet.\n"}
   if ($tweet !~ /^.{1,140}$/){$tweet = substr($tweet, 0, 140);}
   # create the twitter object
   my $twitter = Net::Twitter->new(
         traits   => [qw/API::REST/],
         username => $user,
         password => $passwd
      );
   # try to tweet it
   eval {$twitter->update($tweet)}; die "Autentication failed.\n" if $@;
   # if sucesful..
   print "Tweeted at ".scalar(localtime).":\n";
}

# checking the number of parameters
die "Usage: tweetin.pl <user> <tweet>\n" if (scalar(@ARGV) < 2);
# catching command line arguments
my $user  = shift(@ARGV); 
my $tweet = shift(@ARGV);
my $passwd = get_pass "Password autentication:";

tweetin($user, $passwd, $tweet);

Servidor BBS

Web crawler simples em Perl

Upload de múltiplos arquivos para Imageshack.us

Tradutor Babelfish

IPloc - Informações e localização de um determinado endereço IP