La Ultima Esencia
Noticias: Nuevo Arcade, pruebalo!
 
*
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?
Julio 29, 2010, 22:59:55


Ingresar con nombre de usuario, contraseña y duración de la sesión


Páginas: [1]
  Imprimir  
Autor Tema: Perl en Amsn  (Leído 782 veces)
0 Usuarios y 1 Visitante están viendo este tema.
berni69
WPA

Desconectado Desconectado

Mensajes: 163



WWW
« : Enero 12, 2009, 15:12:34 »

no se si alguno de vosotros, supongo que si, utiliza y/o sabe que es el aMsn, bueno pues el otro dia navegando por internet di con una web que mencionaba la creacion de usar un bot en el amsn para 'autoresponder' cuando se activa este pluguin. Dicho pluguin se llama eliza y para configurarlo debes saber hacer scripts en perl.

El perl que te viene por defecto es este

Código
GeSHi (perl):
#!/usr/bin/perl -w
 
use Chatbot::Eliza;
 
my $msg = "";
foreach (@ARGV) {
   $msg = $msg.$_;
}
 
$chatbot = new Chatbot::Eliza 'Eliza';
 
srand( time ^ ($$ + ($$ << 15)) );
 
print $chatbot->transform($msg);
 
Created by GeSHI 1.0.7.20

alguien me puede comentar que hace este script y como hacer que se puedan añadir varias respestas diferentes aleatorias?

Muchas gracias  Wink
En línea

Errar es humano, pero para liar las cosas de verdad se necesita un ordenador

www.bitsdelocos.es
mister_j

Desconectado Desconectado

Mensajes: 4


« Respuesta #1 : Enero 13, 2009, 17:42:00 »

Ni idea, pero aqui te dejo una especie de bot en bash

Código
GeSHi (bash):
#!/bin/sh
 
# Fichero "database"
DATABASE=database  
 
touch $DATABASE  
 
while true;  
do  
   read -p "humano: " line  
   echo $line >> database  
 
   data_size=`wc -l $DATABASE | cut -d' ' -f1`  
   nline=$(( $RANDOM % $data_size + 1 ))  
   new_line=`tail -$nline $DATABASE | head -1`  
   echo "bot: $new_line"  
done  
 
Created by GeSHI 1.0.7.20

Y el fichero database seria algo asi
hola
bien
Soy un bot
vale
adios

S2
En línea
berni69
WPA

Desconectado Desconectado

Mensajes: 163



WWW
« Respuesta #2 : Enero 13, 2009, 22:56:32 »

gracias, pero es que el pluguin solo lee perl... y yo ni idea jejejeje

voy a tener que buscar algun manual, si te lo curras puedes llegar hacer creer a un apersona que tas hablando con ella
xD
En línea

Errar es humano, pero para liar las cosas de verdad se necesita un ordenador

www.bitsdelocos.es
pianista
Administrador

Desconectado Desconectado

Mensajes: 3759


« Respuesta #3 : Febrero 02, 2009, 21:14:58 »

Jeje perdona que no le diera especial atención a este post, pero con exámenes ya se sabe...
Pues si, por lo que veo lo único que hace es escribir cosas después de hacer un cut y no se que, que me imagino que se´ra para msotrar tu nombre, de todas maneras, que quieres poner? que yo te lo modifico para que ponga algo y pruebas a ver si va xD
Saludos
En línea
Páginas: [1]
  Imprimir  
 
Ir a:  


Powered by SMF 1.1.11 | SMF © 2006-2007, Simple Machines LLC

AFILIATE AQUI
Creative Commons License
Esta obra está bajo una licencia de Creative Commons.