#!/usr/bin/perl use strict; while( <DATA> ) { if ( /^[A-Z]{2}:\s/ ... /\n\n/ ) { print; } } __DATA__ Thu Mar 19 2:34:14 EDT 2009 STC Data query: Record 1 of 1 DN: Data Name Information Sciences TI: Title Distribution and abundance of bound volumes of the file in institute shelves from 1978 AU: Author Sahu, SR; Gawas, AKG AF: Affiliation Inst. of document scanning and documentation profiling at library, toward the prograssive society and establishment SO: Source Test document file. Vol. 5, no. 1, pp. 1-14. Jul 1990. DE: Descriptors Article Subject Terms: Abundance; Ecological distribution; Geographical distribution; Life cycle; Zooplankton; Article Taxonomic Terms: Euphausia; Article Geographic Terms: ISW, LA: Language English
In reply to Re: Need help to make correction in a perl script
by bichonfrise74
in thread Need help to make correction in a perl script
by srsahu75
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |