|Just another Perl shrine|
Re: extract lineby kcott (Canon)
|on Jul 21, 2013 at 06:45 UTC||Need Help??|
Welcome to the monastery.
This code does what you describe as being wanted:
I made a minor change to "File1" to show different Descriptions:
"File2" data is as you show it:
"This file has over a million lines and is running very slow."
Given that you've been provided with a number of solutions, use Benchmark to determine which works best for you. (That module also comes standard with Perl.)
[Aside: The code you posted is difficult to read due to the <code> tag issue. You appear to have made an effort but were unsuccessful: see Writeup Formatting Tips for how, where and why to do it.]