Hilfe bei einem kleinen Programm.... (Dateien löschen, umbenennen) (Projekte)

[thread]16588[/thread]

Hilfe bei einem kleinen Programm.... (Dateien löschen, umbenennen)

Leser: 21

Articles: hide open all | hide show old branches

+7 replies
IngUni

2011-08-03 08:21

User since
2011-08-03
2 Artikel
BenutzerIn

Guten Morgen liebe Perl Community,
ich habe leider ein Problem bezüglich eines kleinen Prgramms. Anders gesagt ich bin ein totaler Programmierleie...

Ich glaube für euch ist das ein total einfaches, und schnell zu schreibendes Programm, deshalb möchte ich mal lieb fragen, ob mir vielleicht jemand hilft.

Mein Problem: Ich hab einen Ordner voll mit .tex-Dateien die hinter ihrem eingentlichen Namen die Endung -neu.tex haben.

Mein Ziel: Das Programm sollte vorher alle .tex-Dateien, also alle Dateien die eine .tex-Endung haben, aber nicht -neu.tex-Endung löschen, und nun bei allen verbleibenden -neu.tex-Dateien das -neu entfernen.

Beispiel:
Im Ordner: hallo-neu.tex gutentag.tex hallo.tex gutentag-neu.tex

Nach dem ersten Programmschritt(den man auch einfach aus dem Programm nehmen kann): Im Ordner: Hallo-neu.tex gutentag-neu.tex

Nach dem zweiten Programmschritt:
Im Ordner: Hallo.tex gutentag.tex

Ich hoffe die Beschreibung war soweit ganz gut.

Ich würde mich sehr freuen wenn mir jemand helfen kann. Wenn ihr noch fragen bezüglich des Programms habt einfach fragen....

Ich bedanke mich im Vorraus

MfG

Michael

modedit Editiert von GwenDragon: Titel erweitert
Last edited: 2011-08-03 12:42:26 +0200 (CEST)
- rosti
  
  2011-08-03 10:39
  
  User since
  2011-03-19
  3206 Artikel
  BenutzerIn
  
  Quote
  Ich glaube für euch ist das ein total einfaches, und schnell zu schreibendes Programm, deshalb möchte ich mal lieb fragen, ob mir vielleicht jemand hilft.
  
  An welcher Stelle brauchst Du denn Hilfe?
- +5 replies
- FIFO
  
  2011-08-03 10:59
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  edit: Ob Programmierlaie oder nicht: Mach Deine Löschversuche auf jeden Fall mit einer Kopie Deines Dokumentenverzeichnisses :)
  
  z.B. so (ungetestet):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  
  use warnings; use strict; my @files = glob('*.tex'); # Liste aller '.tex'-Dateien # im aktuellen Verzeichnis FILE: for my $file (@files) { # Nimm alle einzeln von der Liste # FALSCH! vgl. Linuxer # if ($file !~ /-neu\.tex$/) { # Endet sie nicht auf '-neu.tex'? # unlink $file; # dann weg damit # next FILE; # und zur nächsten (Sprung zu FILE:) # } if ($file =~ /(.*)-neu(\.tex)$/) { # eine neue .tex-Datei? my $oldfile = "$1$2"; if (-e $oldfile) # alte Version vorhanden? unlink $oldfile; # dann löschen } my $newname = $file; # Kopie des Dateinamens machen $newname =~ s/-neu(\.tex)$/$1/; # ersetze '-neu.tex' durch '.tex' rename($file, $newname); # benenne Datei um } } # zurück nach FILE: (nächste Datei)
  
  in dieser Version werden
  * nur Dateien bearbeitet, deren Dateiname mit Kleinbuchstaben endet, ggf. musst Du die Suchmuster anpassen.
  * ~~alle .tex-File ohne '-neu' gelöscht, also auch die ohne entsprechendes Pendant.~~
  * nur noch die alten .tex-Files gelöscht, die ein '-neu'-Pendant haben
  
  Die Abfrage nach der alten Datei kann man evtl. weglassen, wenn rename() auf Deinem System ungefragt die alte mit der neuen Datei überschreibt.
  
  Editiert von FIFO: Kommentare ergänzt
  Last edited: 2011-08-03 12:54:18 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +2 replies
  - IngUni
    
    2011-08-03 11:35
    
    User since
    2011-08-03
    2 Artikel
    BenutzerIn
    
    Ich danke euch zweien für eure schnelle Antwort. Es ist vielleicht doch besser, wenn ich erstmal versuche alleine zurechtzukommen und dann bei Fragen ggf. poste. Wenn ich das Programm nicht verstehe kann ich nicht soviel damit anfangen...
    
    Trotzdem 1000Dank & ich melde mich dann bei Rückfragen.
    
    Daumen hoch
    
    Gruß Michael
    - FIFO
      
      2011-08-03 11:49
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Hab mal Kommentare im Listing ergänzt. Wenn Du wirklich wenig Erfahrung hast, besorg Dir "Einführung in Perl" vom O'Reilly-Verlag, damit kommst Du schon sehr weit. Als nächstes dann "Programmieren in Perl" vom selben Verlag, die Bibel.
      Programmierst Du unter Windows? Linux?
      
      Gruß FIFO
      
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +2 replies
  - Linuxer
    
    2011-08-03 12:04
    User since
    2006-01-27
    3875 Artikel
    HausmeisterIn
    
    Das Skript räumt aber zu gut auf.
    
    Angenommene Dateinamen:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    abc-neu.tex abc.tex def-neu.tex def.tex ghi-neu.tex ghi.tex
    
    Dann macht das Skript:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    rename(abc-neu.tex, abc.tex); unlink abc.tex rename(def-neu.tex, def.tex); unlink def.tex rename(ghi-neu.tex, ghi.tex); unlink ghi.tex
    
    Finde ich etwas fatal...
    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!
    - FIFO
      
      2011-08-03 12:57
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      2011-08-03T10:04:20 Linuxer
      Das Skript räumt aber zu gut auf.
      
      Finde ich etwas fatal...
      
      Grauslich, ja *maximum blush*. Erst denken, dann posten. Das kommt davon, wenn man mal Zeit hat ...
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View all threads created 2011-08-03 08:21.