diff --git a/show_url.pl b/show_url.pl new file mode 100755 index 0000000000000000000000000000000000000000..9840a1f835e784773cbc8141306c763dcfaf9aa8 --- /dev/null +++ b/show_url.pl @@ -0,0 +1,35 @@ +#!/usr/bin/perl + +use strict; + +use Data::Dumper; +$Data::Dumper::Indent= 1; +$Data::Dumper::Sortkeys= 1; + +use Util::Simple_CSV; + +my $fnm= shift(@ARGV); + +my @columns= qw(url canonical_url doi identifier); + +my $csv= new Util::Simple_CSV (load => $fnm, separator => "\t"); +my $data= $csv->{data}; + +foreach my $row (@$data) +{ + print __LINE__, " row: ", Dumper($row); + my ($url, $canonical_url, $doi, $identifier)= map { $row->{$_} } @columns; + + $doi= $identifier unless ($doi); + $url= $canonical_url unless ($url); + my $doi_link= 'https://doi.org/'. $doi; + + print __LINE__, " doi=[$doi] url=[$url] doi_link=[$doi_link]\n"; + # system ('xdg-open', $url); + system ('xdg-open', $doi_link); + + <STDIN>; +} + + +