Duda con perl

Thread View: es.comp.os.linux.programacion

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Han Solo Thu, 01 Jul 1999 00:00

#18848

Author: Han Solo
Date: Thu, 01 Jul 1999 00:00

24 lines
1219 bytes

Hola a todos:

No consigo que funcione una tonter�a en perl. Estoy probando lo
siguiente:

#!/usr/bin/perl
$text="jjj   kkk";
$numesp = $text =~ tr/\s\s/\s\s/;
print $numesp;

Se trada de que cuente el n�mero de espacio dobles que hay en una cadena
dada, 
para luego pasarle un fitro, pero no consigo que lo haga. He probado de
todas  
las formas que se ma ha ocurrido, pero lo m�s que he conseguido es que
cuente  
el n�mero de espacios totales (poniendo tr/  /  /;).

�Alguien me cuenta en que estoy metiendo la pata?

Un saludo

Han Solo
The Rebel Alliance

Re: Duda con perl

#18858

Author: Manuel Moreno
Date: Fri, 02 Jul 1999 00:00

33 lines
1409 bytes

El Thu, 01 Jul 1999 19:55:22 +0000, Han Solo escrivio estos
 fermosos latines:

>No consigo que funcione una tonter�a en perl. Estoy probando lo
>siguiente:
>
>#!/usr/bin/perl
>$text="jjj   kkk";
>$numesp = $text =~ tr/\s\s/\s\s/;
>print $numesp;

>Se trada de que cuente el n�mero de espacio dobles que hay en una cadena
>dada, 

sustituye
	$numesp = $text =~ tr/\s\s/\s\s/;
por
	$numesp = $text =~ s/  /  /g;

Creo que con "tr//" nunca hubieras podido conseguir lo que querias ya
que "tr" hace su trabajo caracter a caracter, no se si me explico.
Es mas adecuado utilizar "s//g" que tambien devuelve el numero
de ocurrencias.

Un saludo!

-- 
   /\    Quitar ANTIBASURA para contestar por e-mail
  /  \   Remove ANTIBASURA to reply via e-mail
 /____\  Manuel Moreno - Albacete - Spain
 \    /  
  \  /  
   \/

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads