Foro - Perl en Español

Tengo un problema con este código en Java:

code = toma("http://www.ip-adress.com/reverse_ip/178.33.230.100");

uno = Pattern.compile("whois/(.*?)\">Whois");
dos = uno.matcher(code);

while(dos.find()) {
System.out.println(" DNS : "+dos.group(1));
}

Y me devuelve esto

DNS : ">Who Is Domain/IP</a><a href="/login/">Log In</a></span></div></td></tr></table></div></div><img src="http://wh.ip-adress.com/c1" alt="" width="1" height="1"><script type="text/javascript">if((document.referrer.length>0)&&(document.images)&&(document.referrer.toLowerCase().indexOf('ip-adress.com')<0)){im=new Image(1,1);im.src="http://wh.ip-adress.com/r1?r="+escape(document.referrer);}</script><div id="ipinfo">IP: <a href="/ip_addresses/178.33.230.100">178.33.230.100</a><br>IP Country:<img src="/flags/fr.png" alt="ip address flag">France<br>This IP address resolves to ns231179.ovh.net[<a href="/whois/ns231179.ovh.net
DNS : 178.33.230.100

Debería devolver esto:

DNS : ns231179.ovh.net
DNS : 178.33.230.100

Mi duda ...

Ten el siguiente código :

//LocateIP 0.1
//Coded By Doddy H

package locateip;

import java.util.Scanner;
import java.net.*;
import java.io.*;

import java.util.regex.Matcher;
import java.util.regex.Pattern;

public class Main {

public static void main(String args) throws Exception {

String ip;
Scanner host = new Scanner(System.in);
System.out.println("\n\n-- == LocateIP 0.1 == --\n\n");
System.out.println(" IP : ");
ip = host.nextLine();

String code;

code = toma("http://www.melissadata.com/lookups/iplocation.asp?ipaddress="+ip);

Pattern uno= null;
Matcher dos= null;

uno = Pattern.compile("City</td><td align=(.*?)><b>(.*?)</b></td>");
dos = uno.matcher(code); ...

Hola de nuevo. Hace un unos días trataba de eliminar nombres repetidos de un archivo que es un log, yo estoy trabajando con putty en un servidor de Linux y bueno, en sí yo tengo archivos con nombres así: named-queries.log.1. Todo esto en Linux y dentro de esos archivos tengo algo así:
(192.168.99.1)12-Nov-2012 11:30:41.600 queries: info: client 192.168.99.2#58283: query: 99.168.192.in-addr.arpa IN SOA -E (192.168.99.1)
12-Nov-2012 11:30:56.068 queries: info: client 192.168.99.2#31132: query: erickdelcastillo.com IN SOA -E ...

Hola, soy nuevo en el foro. Llevo varios meses estudiando Perl y ahora estoy empezando con Catalyst. Tengo una consulta más orientada a Debian que a Perl, pero igual les pregunto :D

Estoy estudiando el tutorial que se encuentra en la página oficial de Catalyst:

https://metacpan.org/module/Catalyst::Manual::Tutorial::03_MoreCatalystBasics

Descargué una máquina virtual en la misma página (según indica el tutorial) que usa Debian. El problema es que en ...

Buenos días.

Por favor, me gustaría que alguien me orientara sobre el siguiente tema. Tengo instalado dentro de un PC una VM (máquina virtual) y dentro de ésta como SO Linux (Debian). He desarrollado un proceso que comprime unos archivos a modo de backup, creando cada día dos de dichos archivos en formato .zip. Quiero sacar esos archivos de la VM y de forma automática, por lo que veo en el foro creo que es ...

Hola a todos,

Planteo aquí un problema que seguramente será muy básico, pero en el que me he atascado como el tontaina que soy.
Pretendo filtrar una lista donde aparece el mismo nombre varias veces pero con valores diferentes y quiero quedarme con el menor de los valores que aparecen para cada nombre.

Este sería un ejemplo de la lista.
IDX2 10
IDX4 11
IDX5 12
IDX7 14
IDX12 15
IDX2 10
IDX4 11
IDX5 ...

Cuento con unos TXT que analizo con la ayuda de un script, y este me devuelve un archivo resultado que contiene los UPDATES que debo realizar a la DB.

El problemilla es que en dicho archivo resultado me encuentro con caracteres del tipo "Fray Cay Rodr�guez 325 2" y lo que quiero es evitar actualizar la DB con esos caracteres. Estoy al tanto de que se trata de la codificación del TXT pero ¿cómo puedo ...

Tengo dos (y puede que exista una tercera) variables con formato 20120131 y necesito formatearlas de manera tal de mostrarlas con el siguiente formato: '31-01-2012' por tratarse de información que necesito insertar a una base de datos (PostgreSQL).

El punto es que dichas variables (fechas) son todas distintas y no logro conseguir algo polimórfico que me las resuelva de ¡¡¡UN SOLO ZASS!!! Me refiero que haga el formateo correspondiente independientemente de que éstas sean distintas ...

Hola, soy nuevo en el foro y nuevo con Perl; apenas lo estoy conociendo.

Estoy realizando la práctica de la universidad y me colocaron a realizar un backup automático de Switch Nortel. Me dijeron que se puede realizar con Perl. El código que manejan acá usando telnet es el siguiente:

use Net::Telnet;
use Sys::Hostname;
use Mail::Sender;

system("cls");
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open ('172.85.45.19');
$telnet->waitfor('/Username:/i');
$telnet->print('admin');
$telnet->waitfor('/password:/i');
$telnet->print('123456');
$telnet->waitfor('/\login/i');
$telnet->print('tftp 172.30.77.99 put ...

Hola a todos...
Antes que nada me presento: soy n3td1srupt, joven de 15 años pues interesado en programación y el mundo del hacking :) ...

Bueno, esta duda la he buscado por Internet y no he visto nada relacionado. He encontrado en esta web diferentes soluciones para integrar PHP y perl, pero no sé si esto es lo mismo...

Veréis: estoy diseñando o tengo en mente más ...