#! /usr/bin/env perl use strict; use warnings; my $outfile = 'Adressen.txt'; open my $OUTH, '>>', $outfile or die "open($outfile, w+) failed: $!"; for my $i ( 1 .. 1250 ) { my $pdffile = sprintf "%01d.pdf", $i; my $txtfile = sprintf "%01d.txt", $i; my $prog = "pdftotext.exe -f 1 -raw $pdffile $txtfile"; system( $prog ) == 0 or next; # bei Fehler weiter mit der nächsten Datei open my $INH, '<', $txtfile or die "open($txtfile,ro) failed: $!"; ( undef, my $address ) = <$INH>; # zweimal lesen; erste "Zeile" ignorieren print $OUTH $address; close $INH; } close $OUTH or die "close($outfile) failed: $!";