Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - ~ Yoya ~

#771
Cita de: globsharp en 13 Julio 2010, 15:42 PM
Mira :) decir mejor o peor siempre traerá polémica, por ejemplo, a un amante de Linux y de los sistemas abiertos es casi imposible que le guste Mac...
Muy cierto o por lo menos en mi caso, tengo una Macbook y mi PC con linux pero solo uso la MacBook para cosas simples o cuando me voy de viaje xD...

#772
[Decoded] xD
#773
Scripting / Re: Ordenar array perl y regex
9 Julio 2010, 03:46 AM
Tienes que leer un poco la documentación del modulo mechanize...

Tienes dos opción para aplicarle expresiones regulares al array que contiene los links y también el que contiene las imágenes.

Puedes usar url_regex => qr/regex/ tanto para links y imagenes...

O simplemente le aplicas expresiones regulares al array que contiene los links y imagenes...
Aplicando expresiones regulares a arrays


Para el otro problema, si existe mas links que imágenes o viceversa, puedes usar un if() o puedes crear una función y usar un poco de lógica xD.

Ej:
Código (perl) [Seleccionar]

#!/usr/bin/perl

@numeros = qw(12 12 45 87 91 1);
@letras = qw(sd sf ss aaaas);

if(scalar(@numeros) <= scalar(@letras)){
for($i = 0;$i <= scalar(@numeros);$i++){
print $i, "\n";
}
}else{
for($i = 0;$i <= scalar(@letras);$i++){
print $i, "\n";
}
}


Salida:
yoya@yoya-desktop:~/Escritorio$ perl s.pl
0
1
2
3
4
#774
Usa overflow....

a.html
Código (html4strict) [Seleccionar]
<html xmlns="http://www.w3.org/1999/xhtml">

<head>
  <title></title>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  <link rel="stylesheet" type="text/css" href="a.css" />
</head>
<body>
<div id="bloque">
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
asasdasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
asasdasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
asasdasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
asasdasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
asasdasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
asasdas
asasdas
</div>


</body>
</html>


a.css
Código (css) [Seleccionar]


#bloque {
    float : left;
    height : 20%;
    overflow : scroll;
    width : 50%;
    background-color : #54257a;
  }



Salida:
#775
Scripting / Re: Ordenar array perl y regex
8 Julio 2010, 23:44 PM
Vaya vaya, lo eh logrado... Como me a costado pero lo he hecho!!!. Me a causado un dolor de cabesa pensando como lo podría organizar pero aquí lo tienes y algunos conejitos...

Vasta con declarar un modulo porque uno llama otro sin necesidad de declararlo...
Citaryoya@yoya-desktop:~/Escritorio$ time perl a.pl

real   0m1.046s
user   0m0.292s
sys   0m0.016s
yoya@yoya-desktop:~/Escritorio$ time perl a.pl

real   0m0.994s
user   0m0.264s
sys   0m0.040s

El primero es con lo dos modulo y el segundo un solo...


Aqui el code:
Código (perl) [Seleccionar]
#!/usr/bin/perl   
#<table border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
#            <tr>
#
#            <td>
#               <a href="http://valeptr.com/scripts/runner.php?PA=4749" target="_ptc" onclick="javascript:reloadpage(11)">
#                    <img src="http://valeptr.com/scripts/runner.php?REDIRECT=http%3A%2F%2Fwww.e-qoo2.net%2Fimages%2Fbanner2.gif&amp;hash=fc93bac327d1672abbe159e0a1fc17cd" alt="e-qoo2"   border="0">
#                </a>
#            </td>
#           </tr>
#            </table>

#use WWW::Mechanize;
use WWW::Mechanize::Sleepy;
my $Explorador = WWW::Mechanize::Sleepy->new( agent => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030624', sleep => '0' );


$Explorador->get("http://foro.elhacker.net/") #Proceed to access the URL to find all the links in emails
     or die q{Ha ocurrido un error obteniendo la página http://valeptr.com/pages/1appsearch.php.html};

my @links = $Explorador->links();
my @img = $Explorador->find_all_images(tag_regex => qr/^(img)$/i );
foreach (@links){
$links .= $_->url();
$links .= " ";
}
foreach (@img){
$img .= $_->url();
$img .= " ";
}

@url = split(/\s+/,$links);
@images = split(/\s+/,$img);
for($i = 0;$i <= 5;$i++){
print "Url-> ".@url[$i], "\n";
print "Img-> ".@images[$i], "\n";
}


Salida:
yoya@yoya-desktop:~/Escritorio$ perl a.pl
Url-> http://foro.elhacker.net/.xml.html;sa=news;board=34;limit=10;type=rss
Img-> http://foro.elhacker.net/Themes/converted/selogo.jpg
Url-> http://foro.elhacker.net/Themes/converted/css/style.css
Img-> http://foro.elhacker.net/Themes/converted/der_logo.jpg
Url-> http://www.elhacker.net
Img-> http://foro.elhacker.net/Themes/converted/images/spanish/home.gif
Url-> http://foro.elhacker.net/login.html
Img-> http://foro.elhacker.net/Themes/converted/images/spanish/help.gif
Url-> http://foro.elhacker.net/register.html
Img-> http://foro.elhacker.net/Themes/converted/images/spanish/login.gif
Url-> http://foro.elhacker.net/activate.html
Img-> http://foro.elhacker.net/Themes/converted/images/spanish/register.gif


Pd: Si no entiendes algo me avisas por este mismo Post y responder el post si te a funcionado...

Saludos!
#776
Scripting / Re: Ordenar array perl y regex
8 Julio 2010, 19:11 PM
No entiendo nada, explícate mejor, que es lo que quieres hacer y como estas tratando de hacerlo y si te ayudan por lo menos escribir que lo haz resuelto, porque si no dices nada es porque no haz resolvido nada...
#777
Bien, te doy una ayudita...

Código (perl) [Seleccionar]
#!/usr/bin/perl -w

$cont = '     <td class="tm"><b>AQUI QUIERO COJER ESTO1</b><br>
Welcome back to your members area.<br><br>
Your username here is <b>AQUI QUIERO COJER ESTO2</b>.<br>

<script language="javascript" type="text/javascript">';

if($cont =~ m/m"><b>([\w\s]*?)<\//i){
print $1, "\n";
}
if($cont =~ m/is\s<b>([\w\s]*?)</i){
print $1, "\n";
}


Salida:
yoya@yoya-desktop:~/Escritorio$ perl a.pl
AQUI QUIERO COJER ESTO1
AQUI QUIERO COJER ESTO2


Osea, en vez de limpiar el texto, solo extraigo la parte que me interesa...

Si se lo adaptara, seria mas o meno asi:

Código (perl) [Seleccionar]
#!/usr/bin/perl
#=======================================================================
#
#
#  DESCRIPCIÓN:
#
#      OPTIONS:  ---
#         BUGS:  ---
#        NOTAS:  ---
#      VERSION:  1.0
#     CREADO:  Lunes 5 de julio del 2010
#    REVISIÓN:  1
#=======================================================================

use warnings;
use strict;
use WWW::Mechanize;


    my $Explorador = WWW::Mechanize->new( agent => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030624' ); #Constructor del explorador con un UserAgent falso.
    $Explorador->get("file://home/alejandro/enter.php.html"); #Se procede a acceder a la dirección url para hacer el HTTP Post
    $Explorador->field('username','Miuser'); # Busca el campo username y pone el usuario
    $Explorador->field('password','Mipass');  # Busca el campo password y pone la contraseña
    $Explorador->submit(); # Hace el HTTP POST



if($Explorador =~ m/m"><b>([\w\s]*?)<\//i){
print $1, "\n";
}
if($Explorador =~ m/is\s<b>([\w\s]*?)</i){
print $1, "\n";
}
#778
Código (php) [Seleccionar]
<?php

function image_exists($url)
{
    if(
getimagesize($url)){
    return 
1;

    }else{
           return 
0;
 }
}
echo 
image_exists('http://foro.elhacker.net/Themes/converted/selogo.jpg');
?>
#779
Si quieres practicar, lo puedes hacer por localhost, instalando php, mysql y apache. O simple mente instalando wamp (Window) o Lamp (Linux).

Vaya titulo xD.
#780
Cita de: Servia en  1 Julio 2010, 14:51 PM
Cita de: ~ Yoya ~ en  1 Julio 2010, 01:18 AM
Lo que deberias hacer, seria:
Código (php) [Seleccionar]
header("Location: http://www.pagina.com/");

Que seria lo correcto...

Lo que yo he puesto no es menos correcto..
Ps disculpa...