Re^6: How to display first line of each record using the question code

This particular code is trying to get the first line of each record

([^\n]*)

while(<FileHandler>)
    if(/([^\n]*)\n(.*)/sm)
    {
       print "$1\n";
    }
}
[download]

Comment on Re^6: How to display first line of each record using the question code Select or Download Code

Replies are listed 'Best First'.
Re^7: How to display first line of each record using the question code by LanX (Saint) on May 18, 2013 at 17:55 UTC
> `if(/([^\n])\n(.)/sm)` Which is not the code you posted before!!! Good luck! I'm on week end now. =) Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.