#!/usr/bin/perl -w
# utilisation: 
# liens_pdf_2_html.perl fichier1.pdf fichier2.pdf ...  > fichier_test.html
# ensuite, tester les liens du fichier_test.html avec un checker de liens.

my @arguments=@ARGV;
while ( my $nom_fichier = shift(@arguments) ) 
{  
    open (FICHIER,"cat $nom_fichier | strings |") or die "erreur ouverture $nom_fichier\n";
    while(my $line = <FICHIER> ) 
    {
        # les lignes du pdf contenant des liens sont de la forme "/URI(http://xxx.xxx...)"
	if ($line =~ m/\/URI\s*\(([^)]*)\)/o) {
	# si la ligne contient un lien, on l'ecrit comme un lien html
	print "<A href=\"$1\"><ce lien etait dans $nom_fichier>\n";
    };
};
close (FICHIER);
};