|
#!/usr/local/perl5.005_56.Mar06/bin/perl -w |
|
1 |
######################### -*- Mode: Perl -*- ######################### |
######################### -*- Mode: Perl -*- ######################### |
2 |
## |
## |
3 |
## $Basename: bibdb $ |
## $Basename: bibdb $ |
4 |
## $Revision: 1.6 $ |
## $Revision: 1.7 $ |
5 |
## |
## |
6 |
## Author : Ulrich Pfeifer |
## Author : Ulrich Pfeifer |
7 |
## Created On : Mon Sep 2 12:57:12 1996 |
## Created On : Mon Sep 2 12:57:12 1996 |
8 |
## |
## |
9 |
## Last Modified By : Ulrich Pfeifer |
## Last Modified By : Ulrich Pfeifer |
10 |
## Last Modified On : Sun Nov 22 18:44:36 1998 |
## Last Modified On : Fri Apr 7 13:45:36 2000 |
11 |
## |
## |
12 |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
13 |
## |
## |
14 |
## |
## |
15 |
###################################################################### |
###################################################################### |
16 |
|
|
|
eval 'exec perl -S $0 "$@"' |
|
|
if 0; |
|
|
|
|
|
|
|
17 |
use strict; |
use strict; |
|
|
|
18 |
use File::Path; |
use File::Path; |
19 |
use DB_File; |
use DB_File; |
20 |
use Getopt::Long; |
use Getopt::Long; |