remove entry from a file in perl

[5jgibbs]

I have a file that contains the following.

246		IN	PTR	ip-3-1-246.
246		IN	PTR	some-name-here.
247		IN	PTR	ip-3-1-247.
248		IN	PTR	ip-3-1-248.
249		IN	PTR	ip-3-1-249.
250		IN	PTR	ip-3-1-250.
251		IN	PTR	ip-3-1-251.
252		IN	PTR	ip-3-1-252.
253		IN	PTR	ip-3-1-253.
254		IN	PTR	ip-3-1-254.
255		IN	PTR	ip-3-1-255.

I have a bunch of lines for example that have ip-3-1-246. and it's actual reverse lookup name. If it has an actual name in the file like "web-server" and an entry like "ip-3-1-246" for ip 246. How would I remove the line for ip-3-1-246 only. I have a feeling this will need to involve multiple arrays.

 

[MillerH]

You can use tools from the following faq to solve your problem:

How do I remove duplicate lines from a file?

- Miller