Hola, estoy haciendo un algoritmo que me liste los archivos que tenga en un directorio y, adicional a esto, me muestre la fecha de la última modificación; para esto tengo el siguiente código:
#!C:\perl\bin\perl.exe -w
my @vec = (0,'');
opendir(my $handle, $dir) || die;
while ($archivo = readdir($handle)) {
$fecha = (stat($archivo));
if ($fecha > $vec) {
@vec = ($fecha ,$archivo);
}
print "$archivo $vec\n";
}
closedir $handle;
<STDIN>;
El problema es que cuando ...
-
- Publicidad
Fecha actual 2024-11-13 22:24 @975
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Listado de archivos con características
Read more : Listado de archivos con características | Vistas : 637 | Respuestas : 8
Comparar dos variables
Hola de nuevo, tengo el siguiente código:
my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, sede.name, ciudad.name, estado.name, pais.name, poder.name, customer_user.first_name,customer_user.last_name,customer_user.id, cargo.name, area.name FROM sede INNER JOIN institucion ON institucion.id=sede.id_institucion JOIN ciudad ON sede.id_ciudad=ciudad.id JOIN estado ON ciudad.id_estado=estado.id JOIN pais ON ciudad.id_pais=pais.id JOIN poder On institucion.poder_id=poder.id JOIN customer_user ON sede.id=customer_user.sede_id JOIN cargo ON cargo.id=customer_user.cargo_id JOIN area ON area.id=customer_user.area_id ORDER BY institucion.id");
$sth->execute;
while ( @selec = $sth->fetchrow_array()) {
push ( @ni,$selec);
my @ns=$selec; ...
my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, sede.name, ciudad.name, estado.name, pais.name, poder.name, customer_user.first_name,customer_user.last_name,customer_user.id, cargo.name, area.name FROM sede INNER JOIN institucion ON institucion.id=sede.id_institucion JOIN ciudad ON sede.id_ciudad=ciudad.id JOIN estado ON ciudad.id_estado=estado.id JOIN pais ON ciudad.id_pais=pais.id JOIN poder On institucion.poder_id=poder.id JOIN customer_user ON sede.id=customer_user.sede_id JOIN cargo ON cargo.id=customer_user.cargo_id JOIN area ON area.id=customer_user.area_id ORDER BY institucion.id");
$sth->execute;
while ( @selec = $sth->fetchrow_array()) {
push ( @ni,$selec);
my @ns=$selec; ...
Read more : Comparar dos variables | Vistas : 555 | Respuestas : 2
Duda con variables
Este es el problema: supuestamente la variable $link debería quedar con lo que estaba
determinado pero el problema es que no se muestra nada en el print() y no entiendo cuál es el error.
my $op = "dos";
if ($op eq "uno") {
my $link = "http://localhost/bad/aca/a";
}
if ($op eq "dos") {
my $link = "http://localhost/bad/aca/b";
}
if ($op eq "tres") {
my $link = "http://localhost/bad/aca/c";
}
if ($op eq "cuatro") {
my ...
determinado pero el problema es que no se muestra nada en el print() y no entiendo cuál es el error.
my $op = "dos";
if ($op eq "uno") {
my $link = "http://localhost/bad/aca/a";
}
if ($op eq "dos") {
my $link = "http://localhost/bad/aca/b";
}
if ($op eq "tres") {
my $link = "http://localhost/bad/aca/c";
}
if ($op eq "cuatro") {
my ...
Read more : Duda con variables | Vistas : 291 | Respuestas : 1
Ayuda con expresión regular
Tengo el siguiente código HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="SecurityFocus is designed to facilitate discussion on computer security related topics, create computer security awareness, and to provide the Internet's largest and most comprehensive database of computer security knowledge and resources to the public. It also hosts the BUGTRAQ mailing list.">
<meta name="keywords" content="securityfocus, security focus, computer security, information security, security, hack, ...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="SecurityFocus is designed to facilitate discussion on computer security related topics, create computer security awareness, and to provide the Internet's largest and most comprehensive database of computer security knowledge and resources to the public. It also hosts the BUGTRAQ mailing list.">
<meta name="keywords" content="securityfocus, security focus, computer security, information security, security, hack, ...
Read more : Ayuda con expresión regular | Vistas : 1201 | Respuestas : 13
Problemas con referencia
Hola, ¿cómo están? Soy nuevo en el foro y nuevo en Perl también, ¡je,je,je,...! Necesito que me ayuden porque estoy realizando una aplicación, el código es el siguiente:
archivo1
.
.
.
my $value=$query->param('busq');
my $campo = new buscar;
if ($value=~//){
$campo->busqueda($value);
print $query->a({href=>"most.pl?name=$campo->busqueda", -target=>'_self'},$campo->busqueda);
}
archivo2
.
.
.
sub busqueda {
$obj = shift;
$obj->{busqueda} = shift if @_;
my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, ...
archivo1
.
.
.
my $value=$query->param('busq');
my $campo = new buscar;
if ($value=~//){
$campo->busqueda($value);
print $query->a({href=>"most.pl?name=$campo->busqueda", -target=>'_self'},$campo->busqueda);
}
archivo2
.
.
.
sub busqueda {
$obj = shift;
$obj->{busqueda} = shift if @_;
my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, ...
Read more : Problemas con referencia | Vistas : 384 | Respuestas : 2
Mostrar solo parte de un fichero
Hola, sigo aquí poco a poco dando primeros pasos con el Perl, cuando buenamente puedo. Veréis, es una duda bastante básica.
Quisiera conseguir abrir ficheros .html de los cuales coger cierta parte (en este caso el texto que me interesa es el que en el código fuente del html sale entre <!-- google_ad_section_start --> y <!-- google_ad_section_end --> ) e ir metiendo todas las partes en un único fichero de texto (index.txt por ejemplo). ...
Quisiera conseguir abrir ficheros .html de los cuales coger cierta parte (en este caso el texto que me interesa es el que en el código fuente del html sale entre <!-- google_ad_section_start --> y <!-- google_ad_section_end --> ) e ir metiendo todas las partes en un único fichero de texto (index.txt por ejemplo). ...
Read more : Mostrar solo parte de un fichero | Vistas : 356 | Respuestas : 1
No se instala el módulo DateTime
No puedo instalar este módulo DateTime:
banaplcs13:/var/www/rt-4.0.2# cpan DateTime
CPAN: File::HomeDir loaded ok (v0.64)
CPAN: Storable loaded ok (v2.18)
Going to read /root/.cpan/Metadata
Database was generated on Mon, 14 Nov 2011 13:27:15 GMT
CPAN: YAML loaded ok (v0.77)
Going to read /root/.cpan/build/
............................................................................DONE
Found 122 old builds, restored the state of 122
Running install for module 'DateTime'
Running Build for D/DR/DROLSKY/DateTime-0.70.tar.gz
Has already been unwrapped into directory /root/.cpan/build/DateTime-0.70-6fw7oD
Could not make: Unknown error
Running Build ...
banaplcs13:/var/www/rt-4.0.2# cpan DateTime
CPAN: File::HomeDir loaded ok (v0.64)
CPAN: Storable loaded ok (v2.18)
Going to read /root/.cpan/Metadata
Database was generated on Mon, 14 Nov 2011 13:27:15 GMT
CPAN: YAML loaded ok (v0.77)
Going to read /root/.cpan/build/
............................................................................DONE
Found 122 old builds, restored the state of 122
Running install for module 'DateTime'
Running Build for D/DR/DROLSKY/DateTime-0.70.tar.gz
Has already been unwrapped into directory /root/.cpan/build/DateTime-0.70-6fw7oD
Could not make: Unknown error
Running Build ...
Read more : No se instala el módulo DateTime | Vistas : 1359 | Respuestas : 7
Modificar fichero Latex
Amigos del foro, tengo el siguiente dilema: tengo un archivo test.tex (fichero latex)
\documentclass{article}
\usepackage{pstricks} % quiero añadir el signo % al inicio
\begin{document} % aquí divido el archivo
EJEMPLO
\begin{verbatim}
\usepackage{pstricks}
\begin{document}
\end{verbatim}
\end{document}
y deseo que termine así
\documentclass{article}
%\usepackage{pstricks} % quiero añadir el signo % al inicio
\begin{document} % aquí divido el archivo
EJEMPLO
\begin{verbatim}
\usepackage{pstricks}
\begin{document}
\end{verbatim}
\end{document}
Tengo el siguiente script:
#!/usr/bin/perl -w
use strict; ...
\documentclass{article}
\usepackage{pstricks} % quiero añadir el signo % al inicio
\begin{document} % aquí divido el archivo
EJEMPLO
\begin{verbatim}
\usepackage{pstricks}
\begin{document}
\end{verbatim}
\end{document}
y deseo que termine así
\documentclass{article}
%\usepackage{pstricks} % quiero añadir el signo % al inicio
\begin{document} % aquí divido el archivo
EJEMPLO
\begin{verbatim}
\usepackage{pstricks}
\begin{document}
\end{verbatim}
\end{document}
Tengo el siguiente script:
#!/usr/bin/perl -w
use strict; ...
Read more : Modificar fichero Latex | Vistas : 954 | Respuestas : 11
Conectar Mono a Perl
Necesito conectar Mono con Perl por una consulta a una base ya hecha. Necesito que Perl me envíe la consulta a Mono. No sé cómo conectarlos, tal vez un amigo que me pueda ayudar.
¡Gracias!
¡Gracias!
Read more : Conectar Mono a Perl | Vistas : 418 | Respuestas : 3
Ayuda con el "global symbol " " requires explicit package...
Hola a todos, es mi primer tema aquí.
Soy demasiado novato en esto y necesito ayuda.
Mi problema es que al intentar hacer una clase derivada, heredo de su clase padre, intento definir las nuevas propiedades de la clase derivada y al testear el programa me tira el error "global symbol "$self" requires explicit package at "alumno.pm" at line 35.
El código de alumno es el siguiente:
#! /usr/bin/perl
package Alumno;
use Persona;
@ISA=qw(Persona); ...
Soy demasiado novato en esto y necesito ayuda.
Mi problema es que al intentar hacer una clase derivada, heredo de su clase padre, intento definir las nuevas propiedades de la clase derivada y al testear el programa me tira el error "global symbol "$self" requires explicit package at "alumno.pm" at line 35.
El código de alumno es el siguiente:
#! /usr/bin/perl
package Alumno;
use Persona;
@ISA=qw(Persona); ...
Read more : Ayuda con el "global symbol " " requires explicit package... | Vistas : 771 | Respuestas : 2
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980