KEVIN ZEMBOWER wrote:
> I have a series of EZMLM configuration files in the ~alias directory that
> look like this:
> main:/var/qmail/alias# cat cire/config
> F:-aBCdEFGHiJKlmnOpQrStuVWXYZ
> X:
> D:/var/qmail/alias/cire
> T:/var/qmail/alias/.qmail-cire
> L:cire
> H:infoforhealthx.org
> C:
> 0:
> 3:
> 4:
> 5:
> 6:
> 7:
> 8:
> 9:
> main:/var/qmail/alias#
>
> I want to find them all and output the L: (list name) and H: (host name)
> information like this for the
> above example:
> [EMAIL PROTECTED]
>
> I've tried this unsuccessfully:
> main:/var/qmail/alias# for x in `find -name config`; do { perl -ne
> "($name)=/L:(.*)$/; ($add)=/H:(.*)$/;
> __END__ { print [EMAIL PROTECTED]; }" $x; } done
> main:/var/qmail/alias#
>
> Any suggestions on the mistakes I've made?
perl -l -0777ne'print /^L:(.+)/, q/@/, /^H:(.+)/' `find -name config`
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
