Foro - Perl en Español

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

Escriba un programa en Perl que reciba dos parámetros:
- un nombre de usuario
- un pid (opcional)

El sistema debe mostrar la cantidad de memoria total que ocupan los procesos que le pertenecen al usuario.

Si es ingresando el pid, solo se debe mostrar la memoria total de ...

Hola a todos, necesito de su ayuda. Tengo un cgi en el cual quiero insertar un array de Perl a un array de JavaScript. Por adelantado les doy las gracias por la ayuda que me puedan dar.

Les dejo el código por si acaso (es un simple formulario hecho con cgi)

#!/usr/bin/perl
binmode STDOUT, ":encoding(UTF-8)";
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib '../Modulos/';
use buscar;

#print error;
print "Content-type: text/html;charset=UTF-8\n\n";

my $inst = buscar->new; ...

Estimados,
Los molesto para consultarles cómo puedo "emular" en Perl el siguientes comando de UNIX.

grep -e "^acceso primero" config.txt -A1

Esto me guarda la línea siguiente a lo buscado.

Resulta que tengo que conectarme al API de Windows Live, y necesito hacer una petición REST tal como dicen aquí:

POST https://login.live.com/oauth20_token.srf

Content-type: application/x-www-form-urlencoded

client_id=0005555555E1700&redirect_uri=http%3A%2F%2Fwww.contoso.com%2Fcallback.htm&client_secret=MdIepdjdfggd4sy8kzmHkU2VEKCLLo&code=2bd12503-7e88-bfe7-c5c7-82274a740ff&grant_type=authorization_code

Honestamente no sé si lo que hice está bien pero en algún momento me funcionó:


$mech->add_header( Encoding => 'application/x-www-form-urlencoded' );
$mech->post(
'https://login.live.com/oauth20_token.srf',
#$form
Content => 'client_id=00000000440D53FB&redirect_uri=http://yakane.krebox.com/index.pl?mode=login&client_secret=pFZtOG42WCNiDlg5OkFWQGs56h0ItKD&code='.$self->session->param('wl_token').'&grant_type=authorization_code'
);
my $content = $mech->content();
my $data = $self->dec_json($content);


pero ahora que lo ejecuto ...

Buenas tardes, quisiera saber si alguien sabe cómo calcular el momento hidrofóbico de una secuencia de aminoácidos a partir de una rutina en Perl.

Estoy haciendo el siguiente script.

#!usr/bin/perl
#Radio X
#Version 0.2
#Coded By Doddy H
#
#Download : http://www.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc2.zip
#

use Cwd;

my %emisoras = (

0 => {

"nombre" => "Absolute Classic Rock (Broadband)",
"genero" => "Rock'n'Roll",
"link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vcbb"

},

1=> {

"nombre" => "Absolute Classic Rock (Modem)",
"genero" => "Rock'n'Roll",
"link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vc"

},

2=> {

"nombre"=>"Absolute Radio (Broadband)",
"genero"=>"Pop",
"link"=>"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vrbb"

},

3=>{

"nombre"=>"Absolute Radio (Modem)",
"genero"=>"Pop",
"link"=>"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vr"

},

4=>{

"nombre"=>"Absolute Xtreme ...

Estoy pensando en hacer un programa para escuchar la radio 100.5. El problema es que no tengo idea de cómo hacerlo, por eso quería preguntar si había algún módulo para eso en Perl.

¿ Alguien me puede aclarar ?

¡¡Muy buenas!! Espero que me puedan ayudar con mi problema :mrgreen:

Pues resulta que tengo un formulario que funciona como login, y al validar el acceso lo hago desde ese mismo fichero. Entonces, si es erróneo me sale el error, pero si es correcto me gustaría que me enviara a otra página.

¿¿Cómo puedo hacerlo??

Saludos y gracias de antemano ...

Hola, Perleros de todo el mundo.

Tengo un programa en el que mis usuarios seleccionan de 3 scrolling_lists los campos siguientes de una aplicación:

Carrera Universitaria(BIOLOGIA,HISTORIA,MATEMATICAS,IDIOMAS)
Grado(Primero,Segundo,Tercero,.....,Noveno)
Grupo(A,B,C,D)

Basándome en los dos primeros (Carrera y Grado), yo necesito desplegar en la misma pantalla, las Materias relativas a ese par de argumentos, esto es algo como:

Select materia from materias where carrera='$carrera' and grado='$grado' order by materia

El resultado debería ser un cuarto scrolling_list en el ...

¡¡Hola!!

Nuevamente necesito ayuda, estoy tratando de copiar un fichero de una carpeta a otra y la verdad no sé qué estoy haciendo mal, estoy realizando la prueba con un *.txt, y también necesito pasar carpetas de una ruta a otra en Windows.

#!/usr/bin/perl


use strict;
use File::Find;
use File::Copy;

my $dir = 'C:\\Users\\pgaviri\\Desktop\\Probar.txt';
my $path = "C:\\Users\\pgaviri\\Documents";

find(\&imprimir_archivo, $dir);

sub imprimir_archivo{
my $elemento = $_;
print "$elemento\n" if -f $elemento;
}

copy("Probar.txt", $path);


Mil ...