Opened by #Kein Kommentar at 2008-07-12 21:22
Ich hab noch mal mit caller rumgespielt, und folgendes klappt bei mir prima, es funktioniert nur nicht, wenn man die sub 2x in der selben Zeile verwendet.
MfG
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl
use strict;
use warnings;
{
my %flipflop;
sub episode ($$)
{
my( $start, $end ) = @_;
my $id = join( '.', (caller)[0..2] );
( $flipflop{$id} = 1 ) if $start;
my $return = $flipflop{$id} ;
( $flipflop{$id} = 0 ) if $end;
return $return;
} # episode
}
for (qw/ ich du er sie es wir ihr sie /)
{
print "$_ " if episode( /ich/, /er/ );
print "$_ " if episode( /er/, /es/ );
} # for
MfG