Abertura de arquivos e verificar conteúdo em Perl

Raynon · #1 (**permalink**) 08-31-2008

Todas oi,

Preciso de ajuda especializada em realizar o seguinte na Perl.
Tenho um código abaixo, mas ele doesn; t seem to work. Pode me dar qualquer perito alguns conselhos?

Abaixo estão os requisitos
1) Abra inúmeros arquivos atribuído a um array @ FILES. Note que os ficheiros são sempre nomeados com o termo "tipo". Exemplos destes nomes são "false1_sorts", "false_sorts", "true1_sorts", "true_sorts", etc

2) Procurar por conteúdo "32N6524" no arquivo aberto. Se existe conteúdo, adicionar o arquivo para um outro array que é @ arr_x. Aqui, os arquivos que este conteúdo é true1_sorts existem "," true_sorts "

Código:

#!/usr/bin/perl

@FILES = ( *sorts );
print "@FILES ";
print "\n";

foreach $summary_x ( @FILES ) {
        open(FH, '< $summary_x') or die $!;
                while( <FH> ) {
                chomp;      
                if ( /32N6524/ ) {
                       push (@arr_x, $summary_x)
                };
                close FH;
};
};


print "@arr_x ";

Esperado de saída:

false1_sorts false_sorts true1_sorts true_sorts
true1_sorts true_sorts

Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
Fio	Thread Starter	Fórum	Respostas	Última postagem
Perl: Abrindo um filehandle mas não recebendo nada de volta com ela	Sorridente Dragão	Programação Shell Script e	8	08-16-2008 02:40
ls comando para imprimir fifo de conteúdo (ou perl)	jerardfjay	Programação Shell Script e	1	04-06-2006 02:01
Abertura de arquivos	saarshad001	UNIX para Dummies Perguntas & Respostas	3	11-28-2003 12:42
Abertura de arquivos	AJA	UNIX para Dummies Perguntas & Respostas	4	11-10-2003 11:25
Abertura Perl	perleo	Programação Shell Script e	2	08-26-2002 09:41

Thread Tools	Pesquisar este Thread
Show Printable Version Enviar esta página	Pesquisar este Thread: Pesquisa Avançada
Display Modes	Esta taxa Thread
Mude para o Modo Linear Switch to Hybrid Mode Threaded Mode	Esta taxa Thread:


	Powered by