Manav, thanks for your suggestion. Your suggestion came so close to solving my
problem:
main:/var/qmail/alias# for x in `find -name config`; do { perl -ne
"($name)=/L:(.*)$/; ($add)=/H:(.*)$/; END { print [EMAIL PROTECTED]; }" $x; }
done
ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)ARRAY(0x8160124)main:/var/qmail/alias#
I tried some of the referencing and dereferencing tricks I know, but I can't
get it to work. I know I've seen this problem before, but can't remember how
I've solved it. My brain is fried by this time of the day.
Thanks, again, for your suggestions.
-Kevin
>>> Manav Mathur <[EMAIL PROTECTED]> 08/17/05 03:43PM >>>
>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
<snip>
</snip>
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?
>
>Thanks a lot for your advice and suggestions.
>
>-Kevin Zembower
The end block is specified as
END{} and not __END__{}
also, change
print [EMAIL PROTECTED]
to
print [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
