[ SNIPPED ]
perl -e 'undef $/; $t = STDIN; while($t){$t =~
s/DOC\s*DOCNO([^]+)\/DOCNO([^]+)\/DOC\s*//s; $file = $1;
$content = $2; print $file $content\n;}'
Reminds me of http://xkcd.com/208/
:-)
Pratul
--
dum vivimus, vivamus
pratul == lut4rp
http://pratul.in
I have one big fat file(8GB) which is in the format
DOC DOCNO 93489fjdf -adsf0a-t9-4q /DOCNO
sdf0934lkrsjfamkf-q39qjkfrev-dafkvad
,43-0=-toqtgegedag=d0fga /DOC DOC DOCNO 9348943jikfsdf0adfa-4q /DOCNO
sdf0934lkrsjfamkf-q39qjkfrev-dafkvad,34
r09mkfas0923rfs;a[qr0qfsfvsdsaf
/DOC
note that the
On Wednesday 01 Jul 2009, pracheer gupta wrote:
I have one big fat file(8GB) which is in the format
DOC DOCNO 93489fjdf -adsf0a-t9-4q /DOCNO
sdf0934lkrsjfamkf-q39qjkfrev-dafkvad ,43-0=-toqtgegedag=d0fga /DOC
DOC DOCNO 9348943jikfsdf0adfa-4q /DOCNO
sdf0934lkrsjfamkf-q39qjkfrev-dafkvad,34