nntp2http.com
Posting
Suche
Optionen
Hilfe & Kontakt

Re: Eigenschaften von Perl

X-FaceVon: Felix M. Palmen (zirias@despammed.com) [Profil]
Datum: 27.02.2008 02:52
Message-ID: <N3e8I47c4c268T2ce1@nexus.palmen.homeip.net>
Newsgroup: de.comp.lang.perl.misc
* Frank Seitz <devnull4711@web.de>:
> Ferry Bolhar wrote:
>> my $x = 2;
>> func($x);
>
> Nicht, wenn func() so implementiert ist:
>
> sub func {
>   $_[0]++;
> }

Da muss ich mal zugeben -- das war mir so auch nicht bewusst. Aber
interessante Dinge lassen sich damit machen:

#v+
use strict;
use warnings;

sub inc ($;$)
{
local *foo = \(shift);
our $foo;
my $bar = shift;
$bar = 1 if (!$bar);

$foo += $bar;
}

my $var = 1;
print "\$var = $var\n";
inc $var;
print "\$var = $var\n";
inc $var, 3;
print "\$var = $var\n";
#v-

Das ist ja in gewisser Weise recht beunruhigend: In letzter Konsequenz
heißt das: Keine Variable ist vor böswilligen (oder einfach murksig
implementierten) subs sicher.

Grüße, Felix

--
Felix M. Palmen (Zirias)  \ -PGP- <fmp@palmen.homeip.net>  /"\  ASCII  Ribbon
web: http://zirias.ath.cx/ \ http://zirias.ath.cx/pub.txt  \ /     Campaign
my open source projects:    \ FP ED9B 62D0 BE39 32F9 2488   X  Against HTML In
http://zirias.ath.cx/?pg=pro \   5D0C 8177 9D80 5ECF F683  / \  Mail And News

[ Auf dieses Posting antworten ]

Antworten