Script para X-chat
Publicado por Fábio Berbert de Paula 13/01/2003
[ Hits: 7.314 ]
Homepage: https://mestrefabio.com
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; }
IPloc - Informações e localização de um determinado endereço IP
PDF completo com todas as páginas do Diário Oficial do Estado de Goiás
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Burlando o "Protetor de links" INVERTIDO para download grátis
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
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
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Clone de schema - Postgres (2)
Dualboot Fedora 40 e LinuxMint 21 (12)
Dificuldade em ler binário (6)
Em que pasta/arquivo ficam as configurações das janelas em derivados d... (1)