20 |
} |
} |
21 |
} |
} |
22 |
|
|
23 |
# Get the filename. Perhaps a more sofisticated approach would be nice? |
# Get the filename. |
24 |
my $filename = shift @ARGV; |
my $filename = shift @ARGV; |
25 |
$filename or die "Usage: $0 filename\n"; |
$filename or die "Usage: $0 filename\n"; |
26 |
unless (-e "$filename.bib") { |
$filename =~ s/\.bib$//; |
|
$filename =~ s/\.bib$//; |
|
|
-e "$filename.bib" or die "$filename.bib not found.\n"; |
|
|
} |
|
27 |
|
|
28 |
# Don't bother dealing with existing files -- exit |
# Don't bother dealing with existing files -- exit |
29 |
# and let the user sort it out: |
# and let the user sort it out: |