Script para X-chat
Publicado por Fábio Berbert de Paula 13/01/2003
[ Hits: 7.533 ]
Homepage: https://fabio.automatizando.dev
Simples script para xchat. Bom para servir de exemplo para quem deseja criar seus próprios scripts p/ IRC.
#!/usr/bin/perl # irc_vivaolinux.pl # Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br> # # Simples script para xchat. Bom para servir de exemplo para quem # deseja criar seus próprios scripts p/ IRC. use strict; my $msg = shift; # definir os comandos existentes my @comandos = ( "rir", "hora", "sep", "sair", "listar", "hack" ); # registrar os comandos foreach (@comandos) { IRC::add_command_handler("$_","$_\_cmd"); } # procedimentos - uma sub-rotina para cada comando ... sub rir_cmd { my $msg = shift(@_); IRC::command("%B%C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA "); return 1; } sub hora_cmd { my $hora = `/bin/date +%H:%M`; chop($hora); IRC::command("Agora são $hora hs"); } sub sep_cmd { my $msg = shift(@_); my @lista = split(//,$msg); my $temp = ""; foreach my $x (0..$#lista) { $temp = $temp . " " . $lista[$x]; } IRC::command("$temp"); return 1; } sub sair_cmd { IRC::command("/quit www.vivaolinux.com.br - Porque nós amamos a liberdade!"); return 1; } sub hack_cmd { my $msg = shift(@_); $msg = lc($msg); $msg =~ s/meio/œ/g; my @tudo = split(//,$msg); my $cont = 0; my $result = ""; foreach my $x (@tudo) { if ($cont % 2 == 0) { $x = uc($x); } $result .= $x; $cont++; } IRC::command("$result"); return 1; }
Buscar Traduções no Google Translate
Localizador de palavras em arquivos nao binarios
IPloc - Informações e localização de um determinado endereço IP
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github
Como Instalar o Microsoft Teams no Linux Ubuntu
Re: Copia e Cola no SED --> Processador de textos (3)
Ferramentas e métodos de criação de binários estáticos (0)
Alguém pode me explicar essa matemática? [RESOLVIDO] (6)