perl如何批量从txt文件中提取指定信息
有几千个txt文本，每个txt文本包含类似如下的信息：
1 of 2973 DOCUMENTS /* 记录数 */
Copyright 1991 The McGraw-Hill Companies, Inc.
S&P DAILY NEWS /* 信息源 */
AERODYNE PRODUCTS CORP.
August 1, 1991 /* 日期 */
TYPE: Company Descriptions
HEADLINE: Company Description
LIT-TS: ADYN
TICKER: AAI (ASX) (55%); AA (NYSE) (55%);
SUBJECT: INSPECTIONS (90%); RESEARCH & DEVELOPMENT (76%); MACHINE VISION (75%);
INDUSTRIAL AUTOMATION (75%); INTELLECTUAL PROPERTY LAW (73%); RESEARCH (70%);
NAVIES (69%); ALUMINUM INDUSTRY (68%);
-----------------------
2 of 2973 DOCUMENTS /* 记录数 */
Copyright 1991 The McGraw-Hill Companies, Inc.
S&P DAILY NEWS /* 信息源 */
ALUMINUM CO. OF AMERICA
August 1, 1991 /* 日期 */
TYPE: Mergers & Acquisitions
HEADLINE: Unit Completes Sale of Lancy Waste Management Systems & Equipment to
U.S. Filter Corp.
LIT-TS: AA
CUSIP: 022249
TICKER: AAI (ASX) (58%); AA (NYSE) (58%);
SUBJECT: MERGERS & ACQUISITIONS (86%);
-----------------------
试图遍历这几千个txt文件，截取指定字段信息并排列如下。Perl语言已完全忘记，请教各位高手代码怎么写？
记录数 | 信息源 | 时间 | Type | LIT-TS | TICKER
1； S&P Daily News； August 1, 1991； Company Descriptions； ADYN； AAI (ASX) (55%), AA (NYSE) (55%)
2； S&P Daily News； August 1, 1991； Mergers & Acquisitions； AA； AAI (ASX) (58%), AA (NYSE) (58%)
[解决办法]
网上查资料，遍历目录很简单
把文件加载后，用正则提取相应的信息段，也不难
还是自己动手比较好
[解决办法]
有个glob关键字 拿到你说的txt的列表，然后循环遍历 截取指定字段信息 应该不算难
