| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Cursor/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Cursor/try.pl |
Cursor::perl("$x = $cursor1->x();
Cursor::perl("$y = $cursor2->y(); $x == $y",$cursor2)->EX()
(ALL x St ? (x) cur (EX y St ? (y) cur x == y), $cursor1, $cursor2)
map { $_->{"x"} = $x
$cursor->start($z,$cursor1,$cursor2);
Cursor::define(
while ($x = $cursor1->cursor_next()) {
while ($y = $cursor2->cursor_next()) {
next if ($x->{'PERSON'} != $y->{'NAME'} + $z);
return([$x,$y]);
}
}
return(0);