/[bibulus]/bibulus/BibTeX/bib2xml
ViewVC logotype

Diff of /bibulus/BibTeX/bib2xml

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

revision 1.14 by mariuslj, Sat Sep 27 11:20:05 2003 UTC revision 1.15 by mariuslj, Mon Sep 29 16:21:44 2003 UTC
# Line 49  my $input_filename = shift @ARGV; Line 49  my $input_filename = shift @ARGV;
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;

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26