Hey Luke,
BL> Will this work?
Yes, that did the trick, thanks!
BL> {
BL> local $/ = "\n\n";
BL> while (<FILE>)
BL> {
BL> for $line (split /\n/, $_)
BL> {
BL> # process lines in a dn section here
BL> next unless $line =~ /^(dn:|member:|groupType:)/;
BL> }
BL> }
BL> }
--
Tim Musson
Flying with The Bat! eMail v2.12.00
The generation of random numbers is too important to be left to
chance.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
