die Funktionen opendir, readdir, ... (Allgemeines zu Perl)

[thread]18721[/thread]

die Funktionen opendir, readdir, ...

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
kimmy

2013-11-04 11:44
User since
2010-09-10
87 Artikel
BenutzerIn
Hallo zusammen,
ich möchte alle XML-files, die in einem Verzeichnis sind, einlesen und bestmmite Zeilen löschen und dann die Datei unter gleichen Name speichern. Ist es eigentlich möglich?
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

opendir(my $dir, '/home/users/perl/test/') or die "$!"; my @files = readdir($dir); foreach my $file(@files){ next unless ($file =~/\.xml/); open(my $txt, '<', $file) or die "$!"; my $new_filename = $txt; open(my $out, '>', $new_filename) or die "$!"; while (<$txt>) { chomp; $_ =~ s/.*<ENCC>.*//; print $out "$_\n"; } }
- Linuxer
  
  2013-11-04 11:54
  
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  
  Gewünschte Antwort: Ja.
  
  Deine neue Datei sollte anders heissen als die Originaldatei, ansonsten hast Du ein Problem.
  Nach dem Lesen/Schreiben und Schließen der beiden Dateien kannst Du die neue Datei umbenennen (und ihr den Namen der alten Datei geben).
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Relais
  
  2013-11-04 12:03
  
  User since
  2003-08-06
  2244 Artikel
  ModeratorIn
  
  Wenn Du ohne den Zwischenschritt einer temporären Datei mit am Besten File::Temp in die Originaldatei schreiben willst, dann geht das nur, wenn Du ausreichend Hauptspeicher hast oder Dir dafür ermogelst.
  
  Der Vorteil der Temp-Datei: Du machst es Dir leichter und absturzsicherer.
  Erst denken, dann posten --
  26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.
  
  Winter is Coming
- GwenDragon
  
  2013-11-04 12:08
  
  User since
  2005-01-17
  14590 Artikel
  Admin1
  
  Welche Fragen hast du jetzt zu: "die Funktionen opendir, readdir, ..."?
  die Drachin Gwen
- Linuxer
  
  2013-11-04 13:47
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Wenn es nur eine einmalige Aktion ist, könnte man das auch auf Kommandozeile mit einem Einzeiler bewerkstelligen.
  
  perlrun
  
  Code: (dl )
  
  perl -p -i.orig -e 's/.*<ENCC>.*//' *.xml *.XML
  
  Das nimmt alle Dateien mit Endung ".xml" oder ".XML", und liest sie jeweils zeilenweise ein und führt die benannten Befehle für jede Zeile aus; in diesem Fall eine Substitution für die jeweilige Zeile (in $_).
  Mit dem Schalter -i wird diese Aktion "inline" durchgeführt; da wird der Option noch eine Endung .orig mitgegeben haben, wird die originale Datei vorher kopiert und mit der entsprechenden Endung versehen.
  
  Mehr Details zu den Optionen sind der genannten Perldoc zu entnehmen ;-)
  
  Test:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  $ ll total 4 -rw-r--r-- 1 linuxer users 21 Nov 4 13:42 a.xml $ cat a.xml hallo du<ENCC> welt. $ perl -p -i.orig -e 's/.*<ENCC>.*//' *.xml *.XML Can't open *.XML: No such file or directory, <> line 3. $ ll total 8 -rw-r--r-- 1 linuxer users 13 Nov 4 13:43 a.xml -rw-r--r-- 1 linuxer users 21 Nov 4 13:42 a.xml.orig $ cat a.xml hallo welt. $ cat a.xml.orig hallo du<ENCC> welt. $
  
  Wenn alles wie gewünscht gelaufen ist, kann man beispielsweise die Dateien *.orig löschen....
  Wenn nicht, dann kann man die originale eben wiederherstellen.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- GUIfreund
  
  2013-11-04 19:21
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  Wenn dein Speicher ausreicht, könntest du die gesamte Datei in ein Array einlesen, die bestimmten Zeilen aus dem Array entfernen, die Datei zurückspulen und schließlich das Array zurückschreiben.
  Gruß
  GUIfreund

View all threads created 2013-11-04 11:44.