Tweetin - Poste tweets pelo terminal
Publicado por Danillo Souza (última atualização em 02/09/2010)
[ Hits: 6.194 ]
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);
Localizador de palavras em arquivos nao binarios
API do Bing para traduzir textos
Avisar por e-mail se o IP da conexão ADSL mudar
Baixar o Diário Oficial da União e salvar como um único PDF completo
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Navegadores com linhas na tela (0)
Altera pacote .pkg.tar do Arch Linux (18)
Dificuldade de instalar Apache Office no Zorin17 (1)
Como saber quantas impressões foram feitas pela impressora? (3)