• # A froid

    Posté par . En réponse au message Archivage de pdf locaux avec swish-e. Évalué à 1.

    Bon comme cela a froid sans tester je dirais :

    #!/usr/bin/perl -w
    use pdf2xml;
    my @files =
    `find /home/alf/Travail/Biblio -name '*.pdf' -print`;
    for (@files) {
    chomp();
    my $xml_record_ref;
    eval{
    $xml_record_ref = pdf2xml($_);
    }
    unless($@){
    # this is one XML file with a SWISH-E header
    print $$xml_record_ref;
    }
    }

    Sébastien