Eliminar comillas

[Agus211]

Hola, estoy iniciandome en perl y queria consultarles si pueden decirme como eliminar las comillas de la siguiente expresion:
<img alt="Hola" src="Holas.jpg"/>

De esta expresion yo solo quiero imprimir el Hola, sin las comillas.


Gracias...

[jferrero]

Código:

$x = '<img alt="Hola" src="Holas.jpg"/>';
$x =~ m/alt="(.*?)"/;
print "$1\n";

[monoswim]

Hola agus211, bienvenido/a a los foros !!! este es tu primer mensaje !!!

ahí jferrero te dió una solución muy buena con expresiones regulares, solo te quería comentar que en www.perlenespanol.com tienes 2 tutoriales muy fáciles para entender bien las expresiones regulares...

Espero que te sirvan

Saludos

[Agus211]

Hola, gracias por el codigo, ahora lo voy a implementar, y gracias por la bienvenida, la verdad que estoy muy contento de haber encontrado este foro, me parece que es muy bueno tener un recurso en español de ayuda...GRACIAS!!!!

[Agus211]

No quiero abusar, pero en la red vi un codigo que me intereso mucho para el tema de parseo de htmls, el tema es que no esta explicado, si alguien puede darme una breve explicacion le voy a estar SUPER AGRADECIDO...

$page tendria el codigo html...

$p = HTML::Parser->new(api_version => 3);
$p->handler( start => \&start_form, "tagname,self,text");
$p->parse($page) || die $!;

sub start_form {
($tagname, $self, $text) = @_;

return if $tagname ne 'form';

$self->handler(start => undef);
$self->handler(default => \&save_form, "text");
$self->handler(end => \&end_form, "tagname,self,text");

push @forms, '';
save_form($text);
}

sub save_form {
$forms[-1] .= shift;
}

sub end_form {
($tagname, $self, $text) = @_;

save_form($text);

if ($tagname eq 'form') {
$self->handler(start => \&start_form, "tagname,self,text");
$self->handler(default => undef);
$self->handler(end => undef);
}
}

[monoswim]

Pues está usando el módulo HTML::Parser, en PERL tienes montones de módulos que te dan más funcionalidad...

Para verlos checkea el search.cpan.org

http://search.cpan.org/~gaas/HTML-Parser-3.56/Parser.pm acá tienes la explicación del HTML:Parser...

Simplemente usa esas funciones...

Saludos

[Agus211]

Preguntilla, si estoy haciendo un foreach de un vector, por ejemplo:

foreach (@vector) {
}

y quiero decir que si $vector(posicion actual del foreach) = "Jose" entonces sume dos posiciones a la posicion actual.

O sea, si jose esta en la posicion actual numero 3 del vector, quiero que la proxima posicion a evaluar del foreach sea 5 y no 4.

Gracias!.

push(@a,"alberto");
push(@a,"pedro");
push(@a,"jose");
push(@a,"nahuel");
push(@a,"miguel");

foreach $i ( 0..$#a ) {
if ($a[$i] eq "jose") {
$i=4;
print $i;
}else{
print $i;
}

Me imprime 01434.

Esto es lo que yo hice, pero no cambia el indice...

[monoswim]

que es 0..$#a ???

tienes que hace foreach my $i (@a){

}

Saludos

[Agus211]

Oks, gracias por responder...

entonces seria:

foreach $i ( @a ) {
if ($a[$i] eq "jose") {
$i=$i+2;
print $i;
}else{
print $i;
}





El $i=$i+2, imprime el valor 4, pero cuando vuelve a hacer el ciclo del foreach, i vale 3 en vez de 5 como deberia, como hago que no pase eso?

[monoswim]

en vez de usar un foreach probemos mejor con un for:

Código:

my $i = 0;
for ($i = 0; $i < @a; $i++){
   ...
}

Espero que te sirva

Saludos

[Agus211]

Gracias, funciona barbaro!.