Nefungujici hash
Honza Pazdziora
adelton na informatics.muni.cz
Pondělí Duben 3 11:09:40 MEST 2000
On Mon, Apr 03, 2000 at 08:16:30AM +0200, Miroslav Kure wrote:
>
> $scan = (%lists) ? 1 : 0;
>
> LINE: while ($line = <STDIN>) {
> $this_mail .= $line;
>
> if ($scan) {
> if ($line =~ /^To: (.+)/ || $line =~ /^Cc: (.+)/) {
> foreach $list (%lists) {
keys
Jinak se taky hodi use strict a -w, protoze ty hlasky o nedefinovanych
hodnotach by Vam napovedely, kde je problem.
--
------------------------------------------------------------------------
Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
.project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------
Další informace o konferenci Perl