El lun, 27-10-2008 a las 13:15 +0100, Javier escribió: > Hola lista, > > estoy escribiendo un programilla en perl muy simple. Coge desde STDIN > la entrada, que es un correo electrónico y muestra los campos que este > tiene. Luego, dentro del campo $body (siempre tiene un formato > específico algo: valor) necesito quedarme sólo con un campo. ¿Cómo > puedo lograrlo? > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > El programa: > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > my $mbox= \*STDIN; > my $mb = Mail::MboxParser->new($mbox); > for my $msg ($mb->get_messages) > { > my $to = $msg->header->{to}; > my $from = $msg->header->{from}; > my $subject = $msg->header->{subject} || '<No Subject:>', > my $body = $msg->body($msg->find_body,0); > my $body_str = $body->as_string || '<No message text>'; > print "From: $from\n", > "To: $to\n", > "Subject: $subject\n", > "Message Text: $body_str\n"; > } > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > El mail de entrada: > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > Pages: 1 > Receiver: > Quality: 196 > ... > GroupID: 16 > CommID: c000000040 > > Processing time was 0:39. > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > La idea es leer con el programa esta entrada y luego conseguir > quedarme en una variable con el valor "c000000040". Alguna idea de > cómo realizar ese "grep" en perl. Lo intenté, pero en perl no consigo > sacarlo. > $body_str tiene '\n' ? Parece que si Hace un while y busca la linea que contenga CommID: if ($linea ~= /^CommID:/){ @dato = split(' ', $linea); print $dato[1]; # o el comando que quieras
} > -- > Power by Debian. > > Un saludo, > Javier. > > -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]