Tweetin - Poste tweets pelo terminal
Publicado por Danillo Souza (última atualização em 02/09/2010)
[ Hits: 6.407 ]
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).
#!/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);
API do Bing para traduzir textos
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Burlando o "Protetor de links" INVERTIDO para download grátis
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado