Programación Web y Scripting > Perl

 Un $ O Un Programa Para Extraerlo

(1/1)

su -:
Hey SoloCodiger@s, les tengo una pregunta que quisas los ponga a romper coco   :brickwall:

Tengo un testo plano de X lineas, palabras....
De este, quiero sacar una palabra, por ejemplo :

Tengo esto :

Hola a : su -
de : su - * 2

y quiero sacar de la linea 1 y 2 lo que esta al lado de los dos puntos ( : )
Como ago esto?  ;)

su -:
:lol:  Ja, ja
Bamos!
 :huh:  map, split, grep s// ?

su -:
:devil:  Je, je, je! no pudieron.
Bueno, bueno, les doy el codigillo.

--- Citar ---sub sdlp {
  my ($testo, $num) = @_;;
  my @linea   = split /\n/, $testo;
  my $numas = $num + 1;
  if( grep {$linea[$num] eq /\b([^a-zA-Z0-9\.\-\+\~]):([^a-zA-Z0-9\.\-\+\~])\b/i}$head){print "$linea[$num]\n";}
  else {sdlp($testo, $numas)};
}
sdlp("$mi_archivo", 0);

--- Fin de la cita ---

Bueno, es algo parecido

Nota en la  :(  del codigo en la linea 5 es en realidad : ( (sin espacio)

explorer:

--- Código: Text ---#!/usr/bin/perl -luse warnings;use strict; my $fichero = 'mensajes.txt';open my $fh, '<', $fichero    or die "ERROR: No pude abrir el fichero $fichero: $!\n"; while ( my $linea = <$fh> ) {    chomp( $linea );    if ( $linea =~ /(\w+) *: *(\w+)/ ) {        print "$1 : $2";    }} close $fh; 

Navegación

[0] Índice de Mensajes