[Cascavel-pm] Duvida Text:CSV

[Nelson Ferraz]

Em Sep 3, 2007, às 3:28 PM, Patty Silva escreveu:

> Esse programa tem strict e warnings :D eh que coloquei um pedaço  
> somente

Então você precisa prestar atenção a alguns detalhes:

Ao invés de:

 > foreach $campo (@fields)
 > {
 > $campo=~ s/\.(\w*)//;
 > push(@variaveis,$1);
 >
 > }

Procure enviar algo que MOSTRE que você usou strict:

	my @variaveis = ();
	
	foreach my $campo ( @fields ) {
	    $campo =~ s/\.(\w*)//;
	    push @variaveis, $1;
	}

Lembre-se de declarar as variáveis no menor escopo possível -- veja,  
por exemplo, que eu declarei @variaveis logo antes do loop onde ela  
será usada, e $campo dentro do foreach.

Quando você fizer isso eu *prometo* que vou parar de chamar sua  
atenção. :-)