erwthsh perl

[Apollon Koutlides]

Nikos Kanellopoulos wrote:

>
> Στο παρακάτω πολύ απλό σκριπτάκι, το run
> $ ./debug.pl abc
> θα έπρεπε να επιστρέφει την τιμή 1, που όμως
> δεν συμβαίνει.
> Το πρόβλημα προφανώς έγκειται στο if της συνάρτησης
> is_in_white(). Καταλαβαίνει κανείς πού είναι
> το λάθος;;
> Ευχαριστώ.
>
> --------debug.pl----------------------------------------------------
> #!/usr/bin/perl
>
> use strict;
>
> my $release = 0;
> my $whitefile = "whitelist.txt";
> my $logfile = "spamlog.txt";
>
> my @whitelist;    # the list of valid senders
> open(WHITELIST, '+<', $whitefile)
>     or die "Could not open white-list file $whitefile: $!\n";
> @whitelist = <WHITELIST>;

Δοκίμασε αντί γι' αυτό:
chomp( @whitelist = <WHITELIST> );
και πες μας τι έγινε. Επίσης, η μέθοδος αναζήτησης είναι λίγο 
μπρουτάλ... συνιστώ perl hashes.

Α.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: apollon.vcf
Type: text/x-vcard
Size: 348 bytes
Desc: not available
URL: <http://lists.hellug.gr/pipermail/linux-greek-users/attachments/20050408/bbc9aacb/attachment.vcf>