deletion of one line of a particula pattern

drock has asked for the wisdom of the Perl Monks concerning the following question:

All, I have tried to delete every line that has the string ID:a-z-0-9 or ID:* and cannot get it to work. Any help would be much appreciated! Here is the data file

ID:8F03F770.3E6A0B05.00000200.5E0263D7, 
(E00123),       
(E00540),       
(E00216),       
(E00313),       
(E00486),       
(E00112),       
(E00822),       
(E00792),       
(E00774),       
(E00623),       
(E00022),       
(E00188),       
(E00017),       
(E00075),       
(E00055),       
ID:500460E9.BB25AD46.00000200.3E044511,
[download]

I do not want the string ID:* and ideally only Exxxx w.out the ( ) or , thank you!

Comment on deletion of one line of a particula pattern Download Code

Replies are listed 'Best First'.
Re: deletion of one line of a particula pattern by insensate (Hermit) on Aug 23, 2004 at 19:45 UTC
`while(<DATA>){ print "$1$/" if /\((E\d+)/; } __DATA__ ID:8F03F770.3E6A0B05.00000200.5E0263D7, (E00123), (E00540), (E00216), (E00313), (E00486), (E00112), (E00822), (E00792), (E00774), (E00623), (E00022), (E00188), (E00017), (E00075), (E00055), ID:500460E9.BB25AD46.00000200.3E044511,` [download] Should do the trick...assuming all your desired values match E then a number of digits....	[reply] [d/l]
Re^2: deletion of one line of a particula pattern by drock (Beadle) on Aug 23, 2004 at 20:06 UTC
awesome... I wish I was better at reg exps. my only complaint is the output looks like: `(E1234), E1234 (E4545), E4545` [download] instead of just `Exxxx Exxxx Exxxx` [download]	[reply] [d/l] [select]
Re^3: deletion of one line of a particula pattern by insensate (Hermit) on Aug 23, 2004 at 20:09 UTC
That's odd... can you provide the snippet of code that's producing that output?	[reply]
Re^4: deletion of one line of a particula pattern by drock (Beadle) on Aug 23, 2004 at 20:10 UTC
Re^5: deletion of one line of a particula pattern by insensate (Hermit) on Aug 23, 2004 at 20:19 UTC
Some notes below your chosen depth have not been shown here
Re: deletion of one line of a particula pattern by ccn (Vicar) on Aug 23, 2004 at 19:56 UTC
`perl -ne "print unless /ID:/" datafile` update: `perl -i.bak -lne "print $1 if /$(E\d+)$/" datafile`	[reply] [d/l] [select]


We don't bite newbies here... much
	PerlMonks