[Cascavel-pm] string e carecteres entre aspas ainda
Douglas Cunha
dougmcunha em yahoo.com.br
Quarta Julho 7 00:09:25 CDT 2004
Supondo que seus itens estejam separados por espaços...
# Até aqui o filehandle FILE já deve estar aberto com o arquivo.
# Use sua imaginação... ;)
my @items;
foreach my $line(<FILE>) {
if ($line =~ /^\S+\s+\S+\s+\"?(\S+)\"?/) {
push(@items, $1);
}
}
# Aqui o array @items tem todos os terceiros itens, já sem as aspas
Como já é comum, o código segue sem testes
Um abraço
Douglas Moreira da Cunha
ICQ #109485576
Linux Registered User #237609
Historiadores acreditam que em Tue, 6 Jul 2004 15:47:53 -0300
<dexter em ticbrasil.com.br> escreveu:
> a algum tempo perguntei a vcs, como pegar apenas os caracteres entre aspas
> em uma frase de um texto, com a resposta que vcs me enviarão montei alguns
> scripts que funcionarão muito bem. Porem agora prescisso fazer um programa
> que leia um arquivo, e pegue sempre o terceiro item [2], até ai tudo bem,
> porem as vezes esse item estará entre aspas, e as vezes não, gostaria que
> quando ele estiver entre aspas meu programa trate isso e tire as aspas e
> jogue pra um array :
>
> #!/usr/bin/perl
> `cat cfg|grep fruta>fruta`;
> open (FRUTA, "<fruta");
> while (<FRUTA>){
> push @fruta, (split (/ /,$_)) [2];
> }
> foreach $fruta (@fruta){
> if ($fruta eq "CARACTERES_ENTRE_ASPAS" ){
> $frut substr($fruta, 1);
> chop $frut;
> push @frut, $frut;
> print "$frut\n";
> }
> else
> {
> push @frut, $frut;
> print "bbb";
> }
> }
>
>
> Ass: Ricardo
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
Mais detalhes sobre a lista de discussão Cascavel-pm