#! /cygdrive/c/Perl/bin/perl # # A PERL script that takes a bibtex file as input and creates a file called # .bib.html which should be a html file that can be copied and # pasted into a bib file. # # Written by Margaret McGaley (mmcgaley@cs.nuim.ie) in an afternoon. # No guarantees or even promises. # # WARNING: If the file .bib.html already exists, this will overwrite # it # # Feel free to copy and/or modify. # Take the first argument to be the filename we want to htmlise $filename = $ARGV[0]; # If it's not called .bib, exit with an error if (!($filename =~ /\w+\.bib/)) { die "Please specify a bibtex file."; } # Try to open the file open $infile, $filename or die "Can't find file $filename. Quitting ..."; open $outfile, ">$filename.html" or die "Failed to open output file. Quitting."; print "Printing html to $filename.html"; print $outfile "\n"; print $outfile "$filename.html\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n\n"; print $outfile "

This HTML was created from $filename using htmliser.pl Each bibentry can be linked with #key.

"; while (<$infile>) { # This is attempting to match # @ { , if (/(\s*@\w+\{)([\w:]+),/) { print $outfile "

$1 $2,\n"; } # This should match # = elsif (/\s*\w+\s*=\s*[\w{}]\s*,?\s*/) { print $outfile "
    ", $_; } # Closing brace elsif (/\s*}\s*/) { print $outfile "
$_

\n"; } else { print $outfile "

", $_, "

\n"; } } print $outfile "\n\n";