• Viernes 29 de Marzo de 2024, 08:51

Mostrar Mensajes

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


Mensajes - francisco23

Páginas: [1]
1
Perl / Como capturar una pag html con perl
« en: Jueves 26 de Septiembre de 2002, 17:54 »
Lo que quieres hacer supera mis conocimientos pero hay algo que quizas te ayude. Hay un "robot" para manejar paginas web que se llama elza , tu programas comandos que este programa interpreta  y puede traerte paginas web seguir redirecciones , usar metodos post get, head,etc esta integramente escrito en perl y el codigo es bastante "legible" mira en www.stoev.org
o en
http://groups.yahoo.com/group/elza/
Te lo recomiendo ya que es bastante educativo.
Saludos.

2
Perl / Lectura de ficheros binarios
« en: Miércoles 25 de Septiembre de 2002, 22:21 »
prueba con esto para averiguar el tamaño del archivo

stat FILEHANDLE

stat EXPR

stat

Returns a 13-element list giving the status info for a file, either the file opened via FILEHANDLE, or named by EXPR. If EXPR is omitted, it stats $_. Returns a null list if the stat fails. Typically used as follows:
    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks)
           = stat($filename);
Not all fields are supported on all filesystem types. Here are the meaning of the fields:

  0 dev      device number of filesystem
  1 ino      inode number
  2 mode     file mode  (type and permissions)
  3 nlink    number of (hard) links to the file
  4 uid      numeric user ID of file's owner
  5 gid      numeric group ID of file's owner
  6 rdev     the device identifier (special files only)
  7 size     total size of file, in bytes
  8 atime    last access time in seconds since the epoch
  9 mtime    last modify time in seconds since the epoch
 10 ctime    inode change time (NOT creation time!) in seconds since the epoch
 11 blksize  preferred block size for file system I/O
 12 blocks   actual number of blocks allocated

fue sacado de la ayuda de activeperl
mira "perlfunc - Perl builtin functions"
Espero que te ayude.

3
Perl / perl (win32), acentos y eñes
« en: Miércoles 25 de Septiembre de 2002, 22:04 »
Hola Amigos!
Por favor vean este programa hecho con activeperl 5.6.1 .....


use POSIX qw(locale_h);
$locale_values = setlocale(LC_ALL);
use locale;
print "$locale_valuesn";
print "á ñ ";


Este programa deberia imprimir las variables de conf de localizacion, una a acentuada y una eñe por pantalla pero lo que muestra es esto



LC_COLLATE=Spanish_Argentina.1252;LC_CTYPE=Spanish_Argentina.1252;LC_MONETARY=Spanish
_Argentina.1252;LC_NUMERIC=C;LC_TIME=Spanish_Argentina.1252
ß ±

vean la ultima linea muestra estos caracteres en lugar de lo que deberia (ß ±) Estoy haciendo algo mal ? o es un problema de perl ?
Se escuchan sugerencias.
Francisco

Páginas: [1]