Putz, isso mesmo ... tava digitando quando chegou a sua mensagem ... rsrsrs
Que shit ... metadona tá me fazendo mal mesmo ...
Muito obrigado Cron!
[...]'s
Marcio
### Campanha Ajude o Marcio! ###
http://sosmarcio.blogspot.com.br/
http://w
É só usar @p = split /\|/, $texto
On Oct 22, 2013 10:47 PM, "Marcio - Google" wrote:
> Cron, nada sério. Só procurando informações em arquivos de log ...
> Tentei uns exemplos de regex mais não consegui também. Você sabe de kbç?
>
>
> [...]'s
>
> Marcio
>
> ==
Cron, nada sério. Só procurando informações em arquivos de log ...
Tentei uns exemplos de regex mais não consegui também. Você sabe de kbç?
[...]'s
Marcio
### Campanha Ajude o Marcio! ###
http://sosmarcio.blogspot.com.br/
http://www.vakin
Regular expressions.. Você precisa escapiar o pipe.
Obs: você devia usar o text::csv::xs se isso for sério!
On Oct 22, 2013 10:32 PM, "Marcio - Google" wrote:
> Mestres, desculpem a newbieçe, mas to apanhando do split.
>
> my $line = "T|blablablabla |blabla | mais blabla bla ";
> chomp $lin
Mestres, desculpem a newbieçe, mas to apanhando do split.
my $line = "T|blablablabla |blabla | mais blabla bla ";
chomp $line;
my @p = split /|/, $line;
print $p[0] . "\n";
print $p[1] . "\n";
print $p[2] . "\n";
print $p[3] . "\n";
Minhas colunas são separadas por | e não tem tamanho fixo.
