64 |
encoding => 'ISO-8859-2', |
encoding => 'ISO-8859-2', |
65 |
recode => 'char pairs', |
recode => 'char pairs', |
66 |
no_progress_bar => 1, |
no_progress_bar => 1, |
67 |
|
input_config => { |
68 |
|
mapping => [ 'foo', 'bar', 'baz' ], |
69 |
|
}, |
70 |
); |
); |
71 |
|
|
72 |
C<module> is low-level file format module. See L<WebPAC::Input::ISIS> and |
C<module> is low-level file format module. See L<WebPAC::Input::ISIS> and |
236 |
|
|
237 |
my $ll_db = $class->new( |
my $ll_db = $class->new( |
238 |
path => $arg->{path}, |
path => $arg->{path}, |
239 |
|
input_config => $arg->{input_config} || $self->{input_config}, |
240 |
# filter => sub { |
# filter => sub { |
241 |
# my ($l,$f_nr) = @_; |
# my ($l,$f_nr) = @_; |
242 |
# return unless defined($l); |
# return unless defined($l); |
523 |
|
|
524 |
my $out = join("\n", |
my $out = join("\n", |
525 |
map { |
map { |
526 |
my $f = $_ || die "no field"; |
my $f = $_; |
527 |
|
die "no field in ", dump( $s->{fld} ) unless defined( $f ); |
528 |
my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}"; |
my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}"; |
529 |
$max_fld = $v if ($v > $max_fld); |
$max_fld = $v if ($v > $max_fld); |
530 |
|
|
544 |
} |
} |
545 |
|
|
546 |
$o; |
$o; |
547 |
} sort { $a cmp $b } keys %{ $s->{fld} } |
} sort { $a <=> $b } keys %{ $s->{fld} } |
548 |
); |
); |
549 |
|
|
550 |
$log->debug( sub { dump($s) } ); |
$log->debug( sub { dump($s) } ); |
563 |
|
|
564 |
return unless $self->{ll_db}; |
return unless $self->{ll_db}; |
565 |
|
|
566 |
if ($self->{ll_db}->can('dump_rec')) { |
if ($self->{ll_db}->can('dump_ascii')) { |
567 |
return $self->{ll_db}->dump_ascii( $self->{pos} ); |
return $self->{ll_db}->dump_ascii( $self->{pos} ); |
568 |
} else { |
} else { |
569 |
return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) ); |
return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) ); |