|
use Data::Dump qw/dump/; |
|
|
|
|
|
sub marc {}; |
|
|
|
|
|
sub lookup { |
|
|
my ( $db, $input, $from, $op, $to, $closure ) = @_; |
|
|
|
|
|
print dump(@_),$/; |
|
|
} |
|
| 1 |
|
|
| 2 |
marc('777','v', |
marc('777','v', |
|
|
|
| 3 |
lookup( |
lookup( |
| 4 |
'ffkk','peri', [ '11' ], 'eq', |
sub { 'ffkk/peri' . rec('000') }, |
| 5 |
[ '11' ], |
'ffkk','peri', |
| 6 |
sub { |
sub { rec('11') } |
| 7 |
'ffkk/perl' . lrec('000') |
) || |
| 8 |
} |
lookup( |
| 9 |
) || lookup( |
sub { 'ffkk/peri' . rec('000') }, |
| 10 |
'ffkk','peri', [ qw/200 a 200 e/ ], 'eq', |
'ffkk','peri', |
| 11 |
[ qw/200 a 200 e/ ], |
sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) }, |
| 12 |
sub { |
) || |
| 13 |
'ffkk/perl' . lrec('000') |
lookup( |
| 14 |
} |
sub { "ffkk/peri" . rec('000') }, |
| 15 |
) || lookup( |
'ffkk','peri', |
| 16 |
'ffkk','peri', [ qw/200 a/ ], 'eq', |
sub { rec(200,'a') }, |
| 17 |
[ qw/200 a/ ], |
sub { rec(900,'x') }, |
|
sub { |
|
|
'ffkk/perl' . lrec('000') |
|
|
} |
|
| 18 |
) |
) |
| 19 |
|
); |
| 20 |
|
|
| 21 |
|
marc('900','x', |
| 22 |
|
lookup( |
| 23 |
|
sub { first(rec('200','a')) . ' ' . first(rec('200','b')) }, |
| 24 |
|
'ffps','libri', |
| 25 |
|
sub { rec('245','a') }, |
| 26 |
|
) |
| 27 |
); |
); |
Parent Directory
| 
Revision Log
| 
Patch