In allen Dateien Kommentare mit Dateinamen einfügen (Allgemeines zu Perl)

[thread]13678[/thread]

In allen Dateien Kommentare mit Dateinamen einfügen

Leser: 15

Articles: hide open all | hide show old branches

+4 replies
Gast Bernd

2009-07-01 14:26

Hallo,

ich muss in einem Verzeichnis mit ca. 100 HTML-Template-Dateien
a) am Anfang der jeweiligen Datei einen HTML-Kommentar einfügen,
b) in diesem muss der Name der entsprechenden Template-Datei vorkommen,
c) am Ende der Datei muss quasi dasselbe erneut eingefügt werden.
Das alles auf einem Perl-fähigen Webserver mit Linux drauf, per SSH Shell-Zugriff.

Da meine Perl-Kenntnisse eher beschränkt sind (keine Angst: ich arbeite dran), wäre mir eine Lösung, die hier jemand aus dem Ärmel schüttelt, sehr recht. (GERNE mit Erklärung, was die kryptische Zeichenfolge bedeutet.)
- +2 replies
- Gast Bernd
  
  2009-07-01 15:08
  Also, mit
  
  Code: (dl )
  
  perl -pi -e '~s/xxx/yyy/' *dateiendung
  
  kann ich in allen Files mit $dateiendung xxx durch yyy ersetzen. Das geht ja schon in die richtige Richtung. Gibt es denn irgendeine Möglichkeit BEGIN_OF_FILE bzw. END_OF_FILE zu finden und dort was hinzuschreiben?
  - moritz
    
    2009-07-01 15:33
    User since
    2007-05-11
    923 Artikel
    HausmeisterIn
    
    Also ans ende einer datei was einfuegen ist einfach
    
    Code: (dl )
    
    echo foo >> datei.html
    
    am anfang was einfuegen geht z.B. mit
    
    Code: (dl )
    
    perl -pi -e 's/^/yyy/ if $. == 1' *dateiendung
    
    Perl 6 - Perls Zukunft
- pq
  
  2009-07-01 15:46
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  wieso eigentlich?
  evtl. möchtest du ja HTML::Template::Compiled verwenden, das hat eine debugging-option, die dir automatisch den dateinamen am anfang und ende einfügt.
  hat den vorteil, dass man diesen html-kommentar im live-system eben nicht hat.
  
  edit: die option heisst 'debug_file', in deinem fall würdest du sie z.b. auf 'start,end' setzen.
  
  edit2: typo, s/debug-file/debug_file/
  Last edited: 2009-07-01 15:56:37 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2009-07-01 14:26.