A Diumenge 09 Maig 2004 13:02, Nick Chettle va escriure:
> For anyone that's interested, here is the solution:
>
> open(LIST,"/var/qmail/control/rcpthosts") || die "Unable to open
> rcpthosts\n";
> my @array = ;
> close(LIST);
> chomp(@array);
> my $localdom = join(",", @array);
> my @local_domains_array = split(/,/,$localdom);
>
Why you use join and then split?
A more perlish solution:
chomp(my @local_domains_array = do {
local @ARGV=("/var/qmail/control/rcpthosts",
"/var/qmail/control/morercpthosts",
);<>
});
and if you need the domains to pass the taint check:
chomp(my @local_domains_array = map { /(\S+)/ }
do {
local @ARGV=("/var/qmail/control/rcpthosts",
"/var/qmail/control/morercpthosts");
<> });
--
$anarion=\$anarion;
s==q^QBY_^=,$_^=$[x7,print
-------------------------------------------------------
This SF.Net email is sponsored by Sleepycat Software
Learn developer strategies Cisco, Motorola, Ericsson & Lucent use to
deliver higher performing products faster, at low TCO.
http://www.sleepycat.com/telcomwpreg.php?From=osdnemail3
_______________________________________________
Qmail-scanner-general mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/qmail-scanner-general
