read and write

[lina]

$ perl extract_v2.pl  try.tex
Useless use of a constant (<) in void context at extract_v2.pl line 25.
Useless use of private variable in void context at extract_v2.pl line 25.
metabolism
toxic2
toxic4

#!/usr/bin/env perl

use strict;
use warnings;
use File::Spec;
use File::Basename;

my $INPUTFILE = $ARGV[0];
my $tex_filename = $INPUTFILE;

my $bib_filename = "/home/lina/texmf/bibtex/bib/biophymd.bib";
my $bib_abbrev_filename = "/home/lina/texmf/bibtex/bib/biophyabbrev.bib";

# divide the input file name into its path and name,
# ignore its extension

my ($name, $path) = fileparse($tex_filename, qr/\.[^\.]+$/);


# create a new name with .bib extension
my $output_bib_filename = File::Spec->catfile($path,"$name.bib");

# Read bib_abbrevation file

open my $bib_output, '<', $bib_abbrev_filename;
(^^^^^^^^^^^^^^ here I wish to read the bib-abbrevation first into
bib_out, namely try.bib and then search the bib_filename (database)
for the enerties showed in the try.tex.)

open $bib_output, '>', $output_bib_filename
        or die "Could not write $output_bib_filename:$!\n";

open my $texfile, '<', $tex_filename or die "Can't open ${tex_filename}:$!";

while (my $line = <$texfile>) {
        if( $line =~ m/cite\{(\S+)\}/g) {
                my $match_entry = $1 ;
                print $match_entry,"\n";
        }
}

$ more try.tex
bbbbb
aaaa \cite{metabolism}
ccc \cite{toxic2}
EEE \cite{toxic4}
ddd cite not


Thanks with best regards,

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/