On Wed, 03 Apr 2002 15:58:22 -0300
irado furioso com tudo <irado@subdimension.com> wrote:
> talvez não seja o forum próprio, mas francamente *não* sei nadinha de
> programação e preciso de um scriptzinho pra extração de strings. A situação:
>
> dado um arquivo com linhas de comprimentos variáveis, e com sub-string
> com posicionamento aleatório:
>
> aaaaaaaaaaaaaaa[string]bbbbbbbbbbbbbbbbbbbbbb
> aaa[string]bbbbbbbbbbbb
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa[string]bbbbbbbbbbbbbbbbbb
> [..continua..]
>
> como fazer para coletar a [string] e coloca-la em outro arquivo? o
> delimitador existe, e é o próprio par de colchetes '[]'.
>
> P.S:Tentei o cut -d[, mas apanhei tanto que perdi até o rumo.
Opa, voce disse q quer redirecionar para outro arquivo, ai vai:
#!/usr/bin/perl -w
open(HEH,"heh.txt") or die "Can't open file: $!";
while(<HEH>) {
$_ =~ /.*\[(.+)\].*/;
push(@strings,$1);
}
close(HEH);
open(RESULTADO,">resultado.txt") or die "Can't open file: $!";
foreach $string (@strings) {
print RESULTADO "$string\n";
}
close(RESULTADO);
Observe que se voce rodar duas vezes o arquivo, o resultado.txt sera
sobrescrito.Para que isso nao ocorra adicione um >, ficando assim:
open(RESULTADO,">>resultado.txt") or die "Can't open file: $!";
--
_
_ __|_ _. _ _|_.__.._ _ _
(_||_|_> |_(_|\/(_) | |(_|| |(_(_) stratus@ax.net.br
_|nupg id: 0x37155778 gustavo@dsgx.org
Alternex S/A - www.alternex.com.br -- Rio de Janeiro/Brazil
gnupg id: 0x37155778 (fetch from keyserver: wwwkeys.eu.pgp.net)
Key fingerprint = 1908 52B9 4A16 6EC2 74D1 C03B EDFB 7005 3715 5778
Attachment:
pgpcqvZR7P4KE.pgp
Description: PGP signature