Opened by #Kein Kommentar at 2008-07-12 21:22
Man kann das auch mit Prototypen machen :)
Dann wird skalarer Kontext erzwungen.
Und es geht sogar strict und warnings konform und ohne den 3. Parameter:
MfG
Code: (dl
)
sub episode ($$$)
Dann wird skalarer Kontext erzwungen.
Und es geht sogar strict und warnings konform und ohne den 3. Parameter:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub episode ($$)
{
my( $start, $end ) = @_;
my $flipflop if 0;
($flipflop = 0) unless $flipflop;
($flipflop = 1) if $start;
my $return = $flipflop;
($flipflop = 0) if $end;
return $return;
} # episode
MfG