Opened by esskar at 2005-01-20 13:15
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
kein wunder, guck mal, was du evaluierst.
auch hier wieder ein schönes beispiel, wie ein print-statement an der richtigen stelle wunder wirkt.
ich nehme an, dass du stattdesssen
my $eval = "require Encode; \$value = Encode::decode('MIME-Header', \$value)";
tun willst. darf ich fragen, wieso es kein block-eval sein darf? string-eval
brauchst du doch hier echt nicht...
also
eval {
require Encode;
$value = Encode::decode('MIME-Header', $value);
}
edit: ein $ vergessen\n\n
<!--EDIT|pq|1106220970-->
auch hier wieder ein schönes beispiel, wie ein print-statement an der richtigen stelle wunder wirkt.
Code: (dl
)
1
2
3
4
5
6
perl -wle'
my $value = "Start your year with a Smart move .. Register for FREE";
my $eval = "require Encode; $value = Encode::decode('MIME-Header', $value)";
print "Eval:\n$eval"'
Eval:
require Encode; Start your year with a Smart move .. Register for FREE = Encode::decode(MIME-Header, Start your year with a Smart move .. Register for FREE)
ich nehme an, dass du stattdesssen
my $eval = "require Encode; \$value = Encode::decode('MIME-Header', \$value)";
tun willst. darf ich fragen, wieso es kein block-eval sein darf? string-eval
brauchst du doch hier echt nicht...
also
eval {
require Encode;
$value = Encode::decode('MIME-Header', $value);
}
edit: ein $ vergessen\n\n
<!--EDIT|pq|1106220970-->
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:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem