Foro - Perl en Español

A mí me parece correcta la forma de procesar el fichero. Podrías salir del bucle y entrar en el bucle de leer el mensaje en cuanto detectes la línea en blanco. Para agregar todo el mensaje en una variable puedes usar el operador de concatenación de strings (.). La línea podría quedar así: $conf{SMS} .= $linea;. Para detectar la línea en blanco podrías usar una expresión regular como /^$/ o simplemente, un if con un eq a un ''.

Me suena que puede haber algún módulo que procese este tipo de ficheros, ya que se parece mucho, por no decir que es casi idéntico, al de un correo electrónico.

La siguiente solución es un pelín oscura, así que la explico más abajo.

Salida:

Código: Seleccionar todo

$VAR1 = {
          'SMS' => 'server-xx webrestart alioli restarting asp pages down',
          'SUBJECT' => 'GSM1',
          'UDH' => 'false',
          'RECEIVED' => '07-05-28 14:37:39',
          'FROM_SMSC' => '34607003110',
          'SENT' => '07-05-28 14:37:30',
          'FROM' => '2004',
          'ALPHABET' => 'ISO'
        };

* El bucle de lectura, en este ejemplo, en lugar de hacerlo sobre un fichero, lo hacemos sobre la parte DATA, pero es sólo para abreviar el ejemplo. Usamos un while para leer de __DATA__ mientras nos dé líneas.
* Inmediatamente, quitamos el final de línea con chomp.
* Y ahora viene una cosa rara: es el operador binario rango '..'. Lo normal es verlo en contexto lista, donde nos devuelve el rango de números ( for (1 .. 100) {}), pero en esta ocasión está en contexto escalar. En este modo, se comporta de forma diferente: como un valor booleano. El operador es como un biestable, según se cumplan alguna de las dos condiciones separadas por los puntos. En este caso, la primera expresión se compara con el valor de la variable '$.', que contiene el número de línea del fichero leído (el '1' es lo mismo que si hubiéramos escrito '$. == 1'), así que estamos mirando por si hemos leído la primera línea del fichero de donde estamos leyendo. Y la expresión regular final indica que será cierta cuando lleguemos a la famosa línea en blanco.
El resultado de todo esto es que el primer if se ejecutará mientras a) pasemos de la primera línea y b) no hemos llegado a la línea en blanco. De hecho, también procesará la línea en blanco. Por eso ponemos un next para que pase a la siguiente (no vamos a hacer nada con ella).
* La línea siguiente es un poco más enrevesada... con split dividimos la línea por los dos puntos, aprovechando para quitar los espacios en blanco. Ponemos además un '2' para indicar que vamos a cortar por el primer carácter ':' y sólo por ese.
El resultado es una lista de dos valores. Los metemos en un array anónimo ([]) y se lo pasamos a un map.
El map coge el array anónimo que le pasamos por $_ y le extrae su primera componente ($_->[0]), la pasa a mayúsculas con la función uc() y se la da como clave a %conf, mientras que como valor le damos la segunda componente del array ($_->[1]).
* En caso de que no se cumpla el if quiere decir que estamos en la parte del mensaje. Ahí sólo tenemos que ir agregando cada línea a $conf{ SMS }. Aquí tenemos el problema de que si hemos quitado los retorno de carro antes, al juntar las líneas saldrán pegados el último carácter de una línea con el primer carácter de la siguiente. Por eso le añadimos un blanco al final.
* Al final del bucle quitamos el último carácter blanco que sobra en el mensaje construido.
* Con la ayuda del módulo Data::Dumper vemos cómo ha quedado la variable %conf.

No está puesto lo de quitar las comillas dobles, pero eso ya veo que lo sabes hacer.

Seguro que hay más formas de hacerlo, claro.

En el enlace que te pongo, en la sección Range Operators, hay más ejemplos de cómo leer ficheros compuestos de cabecera y cuerpo, del estilo de tus sms.

Yo pondría el 'last' como primera sentencia a ejecutar dentro del 'while'.