Foro - Perl en Español

Buenas tardes.

Estoy leyendo un archivo xml con el siguiente código e imprimiendo el xml leído, pero el xml resultante no es igual, ¿alguien podría ayudarme?

#!c:/Perl/bin/perl.exe
use XML::Simple;
use Data::Dumper;
my $clientes = XMLin("testp.xml");
print XMLout($clientes,KeyAttr=>{},RootName=>'program', XMLDecl => '<?xml version="1.0" encoding="utf-8" ?>',
NoSort => 0,
KeepRoot => 1,);

Archivo xml entrante
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<appScripterApplication>
<name><![CDATA]></name>
<version>
<product>5.2.1.3205</product>
<file>1.0</file>
</version>
<program>
<node>
<nodeID>1000</nodeID>
<name><![CDATA]></name>
<subtype>8</subtype>
<xPos>36</xPos>
<yPos>180</yPos>
<appDataID>0</appDataID>
</node>
<icon>
<recordID>0</recordID>
<xPos>36</xPos>
<yPos>180</yPos> ...

my @dias_calendario = qw( 02 05 10 20 );

sub quitacero{
my $num = $_;

if($num < 10){

return substr $num, 1;

};

};


@dias_calendario = map (quitacero($_,1),@dias_calendario);

print join "<br>",@dias_calendario;

Mejor dicho: lo que quiero es quitarle los ceros que antepone a cualquier número menor de 10 pero hacerlo en una sola línea con map() ^^ sin crear función aparte.

Proponen prohibir a Google leer el correo electrónico de sus usuarios
Organización nórdica de protección al consumidor cuestiona el análisis automático que Google hace del correo electrónico de sus usuarios con el fin de presentarles publicidad a la medida. El tema podría sentar un precedente internacional.

El Consejo de Protección al Consumidor de Dinamarca considera que Google no tiene derecho a escanear el correo electrónico que reciben sus usuarios. La entidad ha expresado un fuerte ...

Buenas, mi consulta es la siguiente: tengo un sub que genera un archivo xls (el archivo pm, tiene varias sub).

Quería saber la forma de que el archivo en cuestión se pueda descargar desde una página, ¿alguna forma? Y si es posible que no quede guardado, si es posible que cuando se apriete ese botón se genere, se descargue ¡y no quede en el servidor!

Cualquier datos que necesiten avisen...

Saludos... ¡y mil gracias por ...

Hola a todos, soy nuevo en este foro y sobre todo en Perl.
Estoy leyendo a marchas forzadas porque me corre mucha prisa realizar un script, pero voy a trompicones y me atraganto.

Estoy intentando modificar un fichero ldif para la entrada masiva de usuarios en LDAP. El contenido del mismo podría ser como el siguiente

dn: uid=jperez,ou=People,dc=ejemplo,dc=com
uid: jperez
objectclass: account
objectclass: top
uidnumber: 512
gidnumber: 300
homedirectory: /home/jperez
userpassword: jperez

dn: uid=domingo,ou=People,dc=ejemplo,dc=com
uid: ...

Se han publicado unas gráficas con el estado de CPAN, desde 1990 hasta hoy.

Las conclusiones que indica el autor:

«El número de ficheros, autores activos y distribuciones siguen aumentando. El ritmo al que las nuevas distribuciones son agregadas se ha estabilizado. Sin embargo, el ritmo en que CPAN gana nuevos autores parece que está decreciendo.

Un amigo mío sugiere que esto "supone que la comunidad lo hace cada vez mejor en aunar a más ...

Buenas perleros, y gracias de nuevo por atenderme de nuevo, vengo con otra de mis dudas de novato :wink:

Bueno, la pregunta, necesito escribir un archivo en un programa, y necesito poder cambiar la ruta y, claro, el problema es de portabilidad, ¿hay alguna función o algún modulo para hacerlo, o para trabajar de forma transparente o por el contrario me compensa hacerlo a pelo? (había pensado ...

Hola,

A ver si me podéis ayudar con un problema que no tengo manera de resolver: Acabo de instalar RedHat Linux 5 en un servidor Dell. Ahora me tocaba configurar Apache2 para visualizar una serie de páginas que acceden a una base de datos local. El caso es que la página de inicio tiene que ejecutar un script Perl el cual es de elaboración propia y se encuentra en un determinado path: "/var/www/cgi-bin".

El caso ...

Muchachos, ¿me pueden ayudar? Tengo que leer el directorio de My Music de Windows y rescatar todos los .mp3 y cargarlos a un array... yo hice esto, ustedes me lo pueden corregir,

sub generador() {

use Data::Dumper::Names;
use File::Find::Rule;
use File::Basename;
use strict;



#my $directorio = 'C:\\Documents and Settings\\user\\Mis documentos\\Mi música\\';
#chdir $directorio;
my $dir='C:\\Documents and Settings\\user\\Mis documentos\\Mi música\\';
my @tema;
my $midato;
if (opendir(DIR,"$dir")){

@tema=readdir(DIR);
close DIR;
foreach (@tema){
# ignorar . y .. ...

Agradecería si me pudiesen ayudar a encontrar lo que estoy haciendo mal en la utilización de este módulo HTML::ReportWriter.

Solo estoy probando con los ejemplos que muestra el CPAN, y no hace nada. No tira error tampoco. La pantalla no muestra el reporte.

#!/usr/bin/perl -w

use strict;
use HTML::ReportWriter;
use CGI;
use Template;
use DBI;


my $dbh = DBI->connect('DBI:mysql:tabla', 'usuario', 'clave');

my $report = HTML::ReportWriter->new({
DBH => $dbh,
DEFAULT_SORT => 'nombre_equipo',
SQL_FRAGMENT => 'FROM equipos ...