... so jetzt für ein ganzes Verzeichnis:
#!/usr/bin/perl
my $indir = "/home/dave/openoffice_test/obtain_meta";
# read in all files from the directory
foreach my $filename ( glob "$indir/*.odt" ) {
print "$filename\n";
system ("unzip -p $filename meta.xml > meta.txt");
system (q@sed 's/[^A-Za
Hallo Bernd,
mit 'perl' und 'sed' es immerhin vorerst für eine datei hingekriegt. Muss
noch das erweitern, damit das programm alle .odt dateien in einem
verzeichnis abarbeitet:
#!/usr/bin/perl
system ("unzip -p harman_hisbo_15.odt meta.xml > meta.txt");
system (q@sed 's/[^A-Za-z0-9_.;]//g' meta.t