Foro - Perl en Español

Estimados, quisiera saber si me pudieran ayudar con este trabajo que tengo:


Escribir un aplicativo Perl que realice el respaldo de los archivos que contienen programas Perl ubicados en un directorio particular (entregado por el usuario) hacia un directorio diferente también entregado por el usuario. Considere que los archivos que contienen código Perl siempre comienzan con las siguientes líneas y tienen la extensión .pl:

#!/usr/bin/perl
#file <nombre del archivo>

El programa debe verificar las siguientes ...

Hola, necesito hacer los siguientes ejercicios en Perl... Espero que me ayuden.

1) leer un conjunto de datos (números) y mostrar en pantalla los números leídos que tengan un elemento (número) central par.

2) leer un número y su base y muestre en pantalla su equivalente en base 12.

Espero que puedan resolverlos... ¡Saludos!

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 ?