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 ...
-
- Publicidad
Fecha actual 2026-03-13 14:17 @636
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.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 : 1980 | Respuestas : 13 | Foro : Básico
Enviar petición no "serializada" al servidor
Hola,
Lo que quiero hacer es lo siguiente: avisar al servidor para que ejecute un código y olvidarme de cómo ha ido.
¿Cómo se puede hacer?
Gracias.
Lo que quiero hacer es lo siguiente: avisar al servidor para que ejecute un código y olvidarme de cómo ha ido.
¿Cómo se puede hacer?
Gracias.
Read more : Enviar petición no "serializada" al servidor | Vistas : 1172 | Respuestas : 1 | Foro : Intermedio
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 : 570 | Respuestas : 2 | Foro : Básico
Directiva strict
Hola a todos.
Si utiliza la directiva strict, Win32::Perms y opendir, el programa me falla.
Ejemplo:
use strict;
use Win32::Perms;
my $user = Win32::Perms->new($fichero)->Owner;
print "$user\n";
opendir(DIR, $otroFichero);
@array = readdir(DIR);
foreach my $key (@array) {
print "$key\n";
}
Si elimino lo relativo a Win32::Perms, el programa funciona.
Como podéis observar, no tiene relación lo que hace Win32::Perms con lo que hace opendir(), me refiero a que no utilizan variables comunes, son dos partes ...
Si utiliza la directiva strict, Win32::Perms y opendir, el programa me falla.
Ejemplo:
use strict;
use Win32::Perms;
my $user = Win32::Perms->new($fichero)->Owner;
print "$user\n";
opendir(DIR, $otroFichero);
@array = readdir(DIR);
foreach my $key (@array) {
print "$key\n";
}
Si elimino lo relativo a Win32::Perms, el programa funciona.
Como podéis observar, no tiene relación lo que hace Win32::Perms con lo que hace opendir(), me refiero a que no utilizan variables comunes, son dos partes ...
Read more : Directiva strict | Vistas : 2359 | Respuestas : 6 | Foro : Intermedio
Trabajar con ficheros de texto "grandes": Terminado (killed)
Buenas.
Tengo un programa que trabaja con un fichero de texto bastante "pesado" (casi 50MB de texto). Su función es ir leyendo su contenido para ser analizado por un analizador de textos y escribir el resultado del análisis en otro fichero.
El caso es que la ejecución se interrumpe al cabo de poco tiempo y muestra el mensaje "Terminado (killed)".
¿A qué se debe? ¿Cómo puedo hacer para que no se interrumpa la ejecución?
Muchas ...
Tengo un programa que trabaja con un fichero de texto bastante "pesado" (casi 50MB de texto). Su función es ir leyendo su contenido para ser analizado por un analizador de textos y escribir el resultado del análisis en otro fichero.
El caso es que la ejecución se interrumpe al cabo de poco tiempo y muestra el mensaje "Terminado (killed)".
¿A qué se debe? ¿Cómo puedo hacer para que no se interrumpa la ejecución?
Muchas ...
Read more : Trabajar con ficheros de texto "grandes": Terminado (killed) | Vistas : 7263 | Respuestas : 7 | Foro : Intermedio
Acceder a un cgi-perl y se abre con...
Hola a todos,
Primero... lo siento, tengo demasiada actividad (los últimos post son míos T.T) y eso no debe significar algo bueno.
Estoy en un entorno de pruebas. El servidor es Windows (XAMPP). La aplicación web desde un terminal cliente Windows funciona bien, pero en un terminal Linux al intentar acceder al cgi, le sale la ventana de abrir con... (como si lo quisiera guardar o abrir directamente).
Sé que esto lo he preguntando anteriormente, ...
Primero... lo siento, tengo demasiada actividad (los últimos post son míos T.T) y eso no debe significar algo bueno.
Estoy en un entorno de pruebas. El servidor es Windows (XAMPP). La aplicación web desde un terminal cliente Windows funciona bien, pero en un terminal Linux al intentar acceder al cgi, le sale la ventana de abrir con... (como si lo quisiera guardar o abrir directamente).
Sé que esto lo he preguntando anteriormente, ...
Read more : Acceder a un cgi-perl y se abre con... | Vistas : 5593 | Respuestas : 7 | Foro : Administración
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 : 493 | Respuestas : 1 | Foro : Básico
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 : 1825 | Respuestas : 7 | Foro : Básico
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 : 1538 | Respuestas : 11 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983