datei in array einlesen zwecks mailversand - #140446 (Allgemeines zu Perl)

2010-08-07 10:21

User since
2003-08-04
12208 Artikel
Admin1

2010-08-07T04:45:09 renee

Du musst es so machen:

Code (perl): (dl )

$sender->MailMsg({to => 'asd',
subject => 'Testmail',
msg => join '::', @text,
}) or print "FUBAR";

nicht gut. funktionen wie join sollte man in solchen konstrukten immer mit klammern aufrufen.
warum? weil man sich jederzeit ueberlegen koennte, noch einen weiteren key einzufuegen:

Code (perl): (dl )

use Data::Dumper;
my @text = qw/ a b c /;
my %hash = (
    foo => 1,
    bar => join ",", @text,
    baz => 2,
);
print Dumper \%hash;
__END__
$VAR1 = {
          'bar' => 'a,b,c,baz,2',
          'foo' => 1
        };

vs.

Code (perl): (dl )

perl -wle'use Data::Dumper;
my @text = qw/ a b c /;
my %hash = (
    foo => 1,
    bar => join(",", @text),
    baz => 2,
);
print Dumper \%hash;
__END__
$VAR1 = {
          'bar' => 'a,b,c',
          'baz' => 2,
          'foo' => 1
        };

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem