/[MARC-Fast]/trunk/scripts/dump_fastmarc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/scripts/dump_fastmarc.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by dpavlin, Wed Dec 28 22:03:24 2005 UTC revision 10 by dpavlin, Fri Nov 3 20:07:58 2006 UTC
# Line 19  dump_fastmarc.pl - display MARC records Line 19  dump_fastmarc.pl - display MARC records
19    
20  =over 16  =over 16
21    
22  =item -n number  =item -o offset
23    
24  dump just record C<number>  dump records starting with C<offset>
25    
26  =item -l limit  =item -l limit
27    
28  import just first C<limit> records  dump just C<limit> records
29    
30  =item -h  =item -h
31    
# Line 40  turn debugging output on Line 40  turn debugging output on
40  =cut  =cut
41    
42  my %opt;  my %opt;
43  getopts('dn:l:h', \%opt);  getopts('do:l:h', \%opt);
44    
45  my $file = shift @ARGV || die "usage: $0 [-n number] [-l limit] [-h] [-d] file.marc\n";  my $file = shift @ARGV || die "usage: $0 [-o offset] [-l limit] [-h] [-d] file.marc\n";
46    
47  my $marc = new MARC::Fast(  my $marc = new MARC::Fast(
48          marcdb => $file,          marcdb => $file,
Legend:
Removed from v.7  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26