Script para X-chat
Publicado por Fábio Berbert de Paula 13/01/2003
[ Hits: 7.567 ]
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; }
Script para fazer buscas no arquivo de logs do squid
Baixar o Diário Oficial da União e salvar como um único PDF completo
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)