Foro - Perl en Español

Estimados,
Los contacto porque estoy tratando de armar un explorador de archivos y hasta el momento no pude lograrlo, con algunos ejemplos de Internet.

Mi idea es listar el contenido de un directorio y de todos sus directorios.

Digamos el famoso árbol de directorios.


+ directorio principal
-sub directorio
-- archivo 1
-- archivo 2
-sub directorio2
-- archivo 3

SAludos.

¿Qué tal? Buena tarde. Antes que nada: excelente foro. Ya me han resuelto varias dudas pero apenas me animé a inscribirme. Bueno, mi duda es la siguiente:

Tengo un script Perl. Dentro de él declaro variables que son algo así:

my $var=`comandobash`;
my $var2=`grep "$var" archivo`;

$var trae una cadena de texto extraída de un archivo. Ahora no entendía por qué $var2 no muestra lo que quiero. Cuando la imprimía noté que $var la interpreta ...

Hola a todos

Estoy intentando hacer un algoritmo en C, que me recorra una lista y busque aquellos valores por encima de 5.0.

El fichero de entrada sería de este estilo:

n id,nota,id nota...

3 1 1.0 2 3.0 3 5.0

El código que tengo hecho hasta ahora es

#include <stdio.h>
typedef enum { FALSE, TRUE } bool;
int main() {
/* Declaración de variables */
float x, j;
int n, i, id; ...

Lo mismo que el otro buscador pero esta vez para CS 1.6

El código


#!usr/bin/perl
#Counter Strike 1.6 Servers List
#Version 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

my @founds;
my @founds_final;

head();

print " Pages (1-899) : ";
chomp( my $pag = <stdin> );

print "\n\n Searching Servers ....\n";

for my ...

Este script se encarga de buscar servidores del juego Half Life para entrar y jugar. Los resultados se guardan en un archivo de texto.

El código


#!usr/bin/perl
#Half Life Servers List 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

my @founds;
my @founds_final;

head();

print " Searching Servers ....\n";

for my $count ( ...

Tengo el siguiente código.

#include <stdio.h>

#include <windows.h>

#include <wininet.h>


HINTERNET hInternet = InternetOpen("Firefox", INTERNET_OPEN_TYPE_PRECONFIG,
NULL, NULL, 0);

HINTERNET openAddress = InternetOpenUrl(hInternet, "http://www.google.com", NULL, 0,
INTERNET_FLAG_PRAGMA_NOCACHE|INTERNET_FLAG_KEEP_CONNECTION, 0);


char dataReceived;

DWORD numberOfBytesRead = 0;

while(InternetReadFile(openAddress, dataReceived, 4096, &numberOfBytesRead) && numberOfBytesRead)

{

printf("%s", dataReceived);

}



InternetCloseHandle(openAddress);

InternetCloseHandle(hInternet);

Quería preguntar si había otra forma de capturar el contenido de la página sin usar while() porque hay páginas con las que se tilda y muestra contenido repetido.

¿ Alguien ...

¿Hola? ¿qué tal?
Ya casi acabo mi programa, pero tengo un problema más. Ok, miren ustedes mi código, ya les digo cuál es el error:

#!/usr/bin/perl
system("clear");
use Term::ANSIColor;
system("clear");
print "\n";
my $jaca = 0;
my @animadd;
my @coment;
do {
print "Animals > ";
$animals__ = "--animals";
$exit = "exit";
$add_an = "add ani";
chomp( $usr = <> );
if ( $usr eq $animals__ ) {
system("clear");
print "\n\nTotal de animales: ", ...

Tengo una duda desde hace tiempo sobre cómo hacer la típica expresión regular de Perl en C.

La idea sería la clásica variable que tenga "hola doddy mundo" y poder sacar "doddy" mostrándolo por pantalla; algo así:

my $test = "hola doddy mundo";

if($test=~/hola (.*) mundo/) {
print $1;
}

¿ Cómo se haría esto en C ?

Chicos, recurro a ustedes ya que tengo que hacer una tarea en la universidad y estoy algo complicado. Dejo escrito lo que tengo que hacer:

Ejercicio:
Usando Perl + contrab: hacer un script de respaldo,
el script debe crear un respaldo de un directorio,
el directorio por defecto es /root/Desktop, pero puede recibir
el nombre del directorio como argumento en la línea de comando.

¿Qué debe hacer?

Crear un zip con el contenido del directorio ...

Hola, me surgió el siguiente problema.

Recibo en un JSON unos parámetros de configuración para conectarme a un sftp o ftp en los cuales debo recorrer un directorio y colectar los archivos que tengan un determinado nombre. Para esto uno de los parámetros en el JSON es una regExp.

En una parte del código tengo lo siguiente:

foreach my $file (@files) {
if ( $file =~ $self->{regExp} ) {
print "$file machea con: " ...