Hola.
¿Me podrían ayudar? Necesito guardar una cadena en un arreglo, pero no me está funcionando la forma que estoy utilizando ya que solo me guarda un valor de n cantidad de valores que quiero guardar.
Lo que quiero hacer es guardar algunas IP que estoy leyendo de un archivo a las cuales les hago un if() para que cumplan una condición y si la cumplen guardarlo en un arreglo para después imprimirlas.
Utilizo algo ...
-
- Publicidad
Fecha actual 2025-01-15 01:26 @101
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.Cómo guardar variable en un arreglo
Read more : Cómo guardar variable en un arreglo | Vistas : 1147 | Respuestas : 7
Listado de archivos con características
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 ...
#!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 ...
Read more : Listado de archivos con características | Vistas : 674 | 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 : 573 | 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 : 303 | 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 : 1276 | 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 : 402 | 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 : 365 | 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 : 1409 | 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 : 998 | 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 : 455 | Respuestas : 3
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981