Открытие файлов и проверки содержимого в Perl

Raynon · #1 (**Постоянная ссылка**) 08-31-2008

Привет Все,

Мне необходима помощь экспертов при выполнении следующих в Perl.
У меня есть код, но он doesn; т похоже на работу. Может ли эксперт давать мне советы?

Ниже приведены требования
1) Откройте множество файлов, отнесенных к какой-массив @ файлов. Заметим, что файл с именем всегда с термином "сорта". Примерами таких имен файлов являются "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" и т.д.

2) Поиск по содержанию "32N6524" в открывшемся файле. Если содержание существует, добавьте в файл на другой массив, который @ arr_x. Здесь, в файл, что это содержание существование true1_sorts "," true_sorts "

Код:

#!/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 ";

Ожидаемый результат:

false1_sorts false_sorts true1_sorts true_sorts
true1_sorts true_sorts

Подробнее UNIX и Linux Темы форума можно найти полезные
Нить	Резьба для начинающих	Форум	Ответы	Последнее сообщение
Perl: Открытие ФАЙЛОВЫЙ ДЕСКРИПТОР, но не получают ничего от нее обратно	Улыбка дракона	Shell программирование и сценарии	8	08-16-2008 03:40 AM
Ls команду печатать FIFO содержимого (или Perl)	jerardfjay	Shell программирование и сценарии	1	04-06-2006 03:01 PM
Открытие файлов	saarshad001	UNIX для чайников Вопросы И Ответы	3	11-28-2003 12:42 PM
Открытие файлов	AJA	UNIX для чайников Вопросы И Ответы	4	11-10-2003 11:25 AM
Открытие Perl	perleo	Shell программирование и сценарии	2	08-26-2002 10:41 AM

Резьба Инструменты	Искать в этом Thread
Показать Версия для печати Email эта страница	Искать в этом Thread: Расширенный поиск
Режимы дисплея	Оценить эту ветку
Переход к линейной режим Переключиться на гибридном режиме Режим Нитевидный	Оценить эту ветку:


	Powered By