16 |
|
|
17 |
=head1 VERSION |
=head1 VERSION |
18 |
|
|
19 |
Version 0.15 |
Version 0.16 |
20 |
|
|
21 |
=cut |
=cut |
22 |
|
|
23 |
our $VERSION = '0.15'; |
our $VERSION = '0.16'; |
24 |
|
|
25 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
26 |
|
|
535 |
return $out; |
return $out; |
536 |
} |
} |
537 |
|
|
538 |
=head2 dump |
=head2 dump_ascii |
539 |
|
|
540 |
Display humanly readable dump of record |
Display humanly readable dump of record |
541 |
|
|
542 |
=cut |
=cut |
543 |
|
|
544 |
sub dump { |
sub dump_ascii { |
545 |
my $self = shift; |
my $self = shift; |
546 |
|
|
547 |
return unless $self->{ll_db}; |
return unless $self->{ll_db}; |
548 |
|
|
549 |
if ($self->{ll_db}->can('dump_rec')) { |
if ($self->{ll_db}->can('dump_rec')) { |
550 |
return $self->{ll_db}->dump_rec( $self->{pos} ); |
return $self->{ll_db}->dump_ascii( $self->{pos} ); |
551 |
} else { |
} else { |
552 |
return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) ); |
return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) ); |
553 |
} |
} |
566 |
|
|
567 |
sub _get_regex { |
sub _get_regex { |
568 |
my ($sf,$from,$to) = @_; |
my ($sf,$from,$to) = @_; |
569 |
|
if ($from =~ m/^regex:(.+)$/) { |
570 |
|
$from = $1; |
571 |
|
} else { |
572 |
|
$from = '\Q' . $from . '\E'; |
573 |
|
} |
574 |
if ($sf =~ /^\^/) { |
if ($sf =~ /^\^/) { |
575 |
return |
return |
576 |
's/\Q'. $sf .'\E([^\^]*?)\Q'. $from .'\E([^\^]*?)/'. $sf .'$1'. $to .'$2/'; |
's/\Q'. $sf .'\E([^\^]*?)'. $from .'([^\^]*?)/'. $sf .'$1'. $to .'$2/'; |
577 |
} else { |
} else { |
578 |
return |
return |
579 |
's/\Q'. $from .'\E/'. $to .'/g'; |
's/'. $from .'/'. $to .'/g'; |
580 |
} |
} |
581 |
} |
} |
582 |
|
|