Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - leogtz

#2301
Scripting / Buscar en Wikipedia [PERL]
22 Agosto 2009, 21:04 PM
Para todo uso mi consola de comandos, hice este script para que me diera la salida en mi consola.

Código (perl) [Seleccionar]
#!/usr/bin/perl
use strict;
use warnings;
if($#ARGV != 0)
{
print "$0 \"Busqueda\"\n";
exit(0);
}
$ARGV[0] =~ s/(\w+)/\u\L$1/g;
use WWW::Wikipedia;
my $wiki = WWW::Wikipedia->new();
$wiki = WWW::Wikipedia->new(language => 'es');
my $result = $wiki->search("$ARGV[0]");
if(!$result)
{
print "Error: ", $wiki->error(), "\n";
exit(1);
}
if($result->text())
{
      print $result->text();
  }
exit(0);


leo@lein:~/Escritorio/pl$ perl pl.pl "Linus Torvalds"
{{Ficha de persona |nombre= Linus Benedict Torvalds |imagen= Linus Torvalds.jpeg
|descripción = Torvalds en 2002 |fecha de nacimiento= 28 de diciembre de 1969
() |lugar de nacimiento= , Helsinki |fecha de fallecimiento= |lugar de
fallecimiento= |nacionalidad = finlandés |ocupación= Ingeniero de software
|cónyuge= Tove Torvalds }} 'Linus Benedict Torvalds' (nacido el 28 de diciembre
de 1969), es un ingeniero de software finlandés; es conocido por desarrollar la
primera versión del núcleo de sistema operativo (kernel) Linux, basándose en
el sistema operativo libre Minix creado por Andrew S. Tanenbaum y en algunas
herramientas, los compiladores y un número de utilidades desarrollados por el
proyecto GNU. Actualmente Torvalds es responsable de la coordinación del
proyecto. Pertenece a la comunidad hablante de sueco de Finlandia (que también
es oficial y hablado por aproximadamente el 6% de la población).
leo@lein:~/Escritorio/pl$ perl pl.pl "octavio paz"
{{Ficha de escritor |Nombre = Octavio Paz | |Imagen=Paz0.jpg
|TextoImagen=Octavio Paz Lozano |Fecha_nacimiento=31 de marzo de 1914
|Lugar_nacimiento=Ciudad de México, |Fecha_fallecimiento=19 de abril de 1998
|Lugar_fallecimiento=Ciudad de México, |Ocupación=Poeta, escritor, ensayista y
diplomático |Nacionalidad=Mexicano |Periodo=1939-1998 |Género=poesía
|Movimiento=Modernismo |Influencias=Ruben Dario<br />Juan Ramón Jiménez<br
/>Antonio Machado<br />Gerardo Diego |Firma= |Website= |Notas= }}

'Octavio Paz Lozano' (* Ciudad de México, 31 de marzo de 1914 - ídem; 19 de
abril de 1998), fue un poeta, escritor, ensayista y diplomático mexicano,
(1990). Es considerado uno de los más grandes escritores del siglo XX y uno de
los grandes poetas hispanos de todos los tiempos.<ref name=ColNac></ref> Era un
escritor prolífico cuya obra abarcó varios géneros, entre los que
sobresalieron textos poéticos, el ensayo y traducciones.
leo@lein:~/Escritorio/pl$ perl pl.pl
pl.pl "Busqueda"
leo@lein:~/Escritorio/pl$
#2302
Scripting / Re: PROBLEMAS CON EL system en PERL
22 Agosto 2009, 20:06 PM
Efectivamente, perl posee un "chdir.
Código (perl) [Seleccionar]

chdir('/etc') or die("No se pudo cambiar de ruta.\n");


Y si estás en Windows:
Código (perl) [Seleccionar]

chdir('c:\Documents and settings\demas\ruta') or die("No se puro cambiar de ruta.\n");
#2303
set "var=A"
if "%var"=="A" (
goto:si
) else (
goto:no
)

En caso de que quieras una comprobación "case insensitive":
if /i "%var"=="A" (
#2304
Cita de: paulgonzalez en 19 Agosto 2009, 17:35 PM
A lo me refiero es al cuadro de diálogo de windows que permite seleccionar un color desde una secuencia de comandos vbs, para luego traerme el dato del color en hexadecimal...

De nuevo no te explicas bien, deja una captura de pantalla.
#2305
Cita de: guidosl en 18 Agosto 2009, 23:21 PM
mmm gracias pero estaba buscando algo mas automatico...quisa con vb o con C o algun otro lenguaje pueda hacerlo

gracias de todos modos
Te van a decir lo mismo en esos lenguajes.
#2306
@echo off
@reg delete HKLM\SOFTWARE\KasperskyLab\LicStorage /f
@reg delete HKLM\SOFTWARE\KasperskyLab\protected\AVP8\settings\LicenseNotifications /f
@reg delete HKLM\SOFTWARE\Microsoft\Cryptography\RNG /f
@reg delete HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates /f
@reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP8\settings /v EnableSelfProtection /t REG_BINARY /d 00000001 /f
start "" /b "C:\Archivos de programa\Kaspersky Lab\Kaspersky Anti-Virus 2009\avp.exe"
exit /b 0


Vas a tener que hacer uso de nircmd.exe tal vez, para moverte mediante la ventana, tal vez pulsando la tecla tabulador sobre la misma.

Con nircmd :
nircmd sendkey 0x09 press

Así lanzarías la tecla tabulador, cuando estés posicionado en donde te convenga, solo hay que lanzar el ENTER.
nircmd sendkey enter press
#2307
¿Y que llevas hecho?
#2308
Explicate mejor.

¿Aquí donde incurre un archivo Batch?
¿Qué tiene que hacer el batch?
#2309
Tenemos que ponerle "solucionado" de ahora en adelante, así los que entren sabrán que pueden encontrar solución.  :rolleyes:
#2310
Foro Libre / Re: ¿ Que regalan ustedes ?
18 Agosto 2009, 06:02 AM
Cita de: lastvampire en 18 Agosto 2009, 05:59 AM
no has pensado que el te quiera como algo mas q una amiga?

Jaja.  :o