[perl] Duda con espacios vacios

[Gunnar Wolf]

> Hola Lista!!!
>
> Tengo una pequeña duda: En un archivo de puro texto las lineas empiezan
> con espacios vacios, como si el texto tuviera tabuladores, quisiera
> "limpiar" ese archivo quitando los espacios vacios desde el principio de
> la linea hasta donde encuentre la primer letra pero no se como hacer para
> indicarle cuantos espacios vacios quite pues suelen variar.
>
> De antemano muchas gracias.

A ojo y sin probar:

#!/usr/bin/perl -w
use strict;

open(IN,'archivo.de.entrada') or die 'Chin...';
open(OUT,'>archivo.de.salida') or die 'Me lleva...';
while (my $linea = <IN>) {
    $linea =~ s/^\s+//;
    print OUT $linea;
}

Salú!

-------------------------------------------------------------------
           Gunnar Wolf    gwolf@campus.iztacala.unam.mx
     Universidad Nacional Autónoma de México, Campus Iztacala
   Jefatura de Sección de Desarrollo y Admon. de Sistemas en Red
       Departamento de Seguridad en Computo - DGSCA - UNAM
-------------------------------------------------------------------

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl