49 |
$input_filename or die "Usage: $0 filename"; |
$input_filename or die "Usage: $0 filename"; |
50 |
|
|
51 |
my ($basename, $path) = fileparse($input_filename, '\.bib'); |
my ($basename, $path) = fileparse($input_filename, '\.bib'); |
52 |
my $input_basename = $path . $basename; |
my $input_basename = $input_filename; |
53 |
|
$input_basename =~ s/\.bib$//; |
54 |
my $output_filename = $basename . '.xml'; |
my $output_filename = $basename . '.xml'; |
55 |
print STDERR "Input file name: $input_filename\n" if $DEBUG; |
print STDERR "Input file name: $input_filename\n" if $DEBUG; |
56 |
print STDERR "Input file name without suffix: $input_basename\n" if $DEBUG; |
print STDERR "Input file name without suffix: $input_basename\n" if $DEBUG; |