In Datei suchen und einfügen (Allgemeines zu Perl)

[thread]13568[/thread]

In Datei suchen und einfügen

Leser: 19

Articles: hide open all | hide show old branches

+12 replies
Gast holger

2009-05-25 17:34

Hallo zusammen,

ich bin langsam echt am verzweifeln und bekomm es einfach nicht gebacken.

Ich will in diversen dateien eine bestimmte Zeichenkette ("</body>") suchen und davor einen neuen String einsetzen und die datei dann abspeichern...

kann mir bitte jemand eine tip geben wie ich das anstelle???

viel vielen dank im voraus!
- betterworld
  
  2009-05-25 17:38
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Hast Du schon mal auf dem CPAN nach den diversen HTML-Modulen geguckt? Da ist bestimmt etwas dabei, mit dem man so etwas gut machen kann. Es ist besser, ein Modul zu benutzen, das alle Tücken von HTML beherrscht, als so etwas manuell mit z.B. regulären Ausdrücken zu machen.
  Lieblingsmodule: IPC::System::Simple, Path::Class
- +3 replies
- Gast perltiptop
  
  2009-05-25 18:20
  
  Hi Holger,
  
  mit regulaeren Ausdruecken könnte ich Dir mal ein Beispiel Script zur Verfuegung stellen. Ist wie betterworld sagte nicht das optimalste bei HTML.
  - +2 replies
  - Gast Holger
    
    2009-05-25 18:34
    
    Guest perltiptop
    Hi Holger,
    
    mit regulaeren Ausdruecken könnte ich Dir mal ein Beispiel Script zur Verfuegung stellen. Ist wie betterworld sagte nicht das optimalste bei HTML.
    
    das wäre echt super, postest du es hier oder per mail?
    - Gast perltiptop
      
      2009-05-25 18:53
      
      siehe praeprocessor replacement..... da werde ich es posten. keine ursache.
- +7 replies
- bloonix
  
  2009-05-26 08:07
  User since
  2005-12-17
  1615 Artikel
  HausmeisterIn
  Auf die einfache Weise...
  
  Code: (dl )
  
  1 2 3
  
  sed -i "s/<\/body>/foo\n<\/body>/" datei.html perl -pi -e "s/<\/body>/bar\n<\/body>/" datei.html
  
  foo und bar sind die Strings, die vor </body> eingefügt werden.
  Last edited: 2009-05-26 08:08:25 +0200 (CEST)
  What is a good module? That's hard to say.
  What is good code? That's also hard to say.
  One man's Thing of Beauty is another's man's Evil Hack.
  - +6 replies
  - Gast holger
    
    2009-05-26 09:38
    2009-05-26T06:07:04 bloonix
    Auf die einfache Weise...
    
    Code: (dl )
    
    1 2 3
    
    sed -i "s/<\/body>/foo\n<\/body>/" datei.html perl -pi -e "s/<\/body>/bar\n<\/body>/" datei.html
    
    foo und bar sind die Strings, die vor </body> eingefügt werden.
    
    ok, soweit hatte ich das auch... aber ich bekam immer wieder probleme mit dem system aufruf... also quasi:
    
    system(sed -i "s/<\/body>/foo\n<\/body>/" datei.html)
    
    und da weiß ich einfach net ob oder wie die " oder die < nicht gequotet wird...
    
    ?
    
    mod-edit pq: zitat repariert (schliessendes quote-tag)
    Last edited: 2009-05-26 10:06:01 +0200 (CEST)
    - +4 replies
    - Linuxer
      
      2009-05-26 10:16
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Öhm, warum machst Du ein system() auf sed, wenn Du das ganze in Perl selbst realisieren kannst?
      Du hast doch schon ein Perl Skript...
      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!
      - +3 replies
      - Gast Holger
        
        2009-05-26 10:35
        
        ich hab ja noch in meinem skript diverse andere dinge...
        
        also es sieht folgendermaßen aus... ich habe ein skript mit dem ich mich durch eine verzeichnisstruktur durchhangle mit unterverzeichnissen...
        
        und für jede datei soll nun eben sed aufgerufen werden...
        
        ich verstehe glaub icvh nicht ganz was du meinst linuxer...is wohl zu früh am morgen, sry...
        
        Gast wer
        
        2009-05-26 11:34
        
        Was Linuxer meint:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        my $file="test.dat"; my $insert="foo"; { local $/ = undef; open(my $fh, '<', $file) or die "$!"; my $data = <$fh>; $data=~s/<\/body>/$insert\n<\/body>/; open(my $fh,'>',$file) or die "$!"; print $fh $data; close($fh); }
        
        nepos
        
        2009-05-26 11:38
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Wieso sed aufrufen? Du kannst doch im Perl-Skript jede Datei einlesen, mit s/<\/body>/bar\n<\/body>/ deine Ersetzungen machen und die Datei wieder schliessen.
    - bloonix
      
      2009-05-26 12:12
      
      User since
      2005-12-17
      1615 Artikel
      HausmeisterIn
      
      Guest holger
      system(sed -i "s/<\/body>/foo\n<\/body>/" datei.html)
      
      Ähm, mea culpa, meine Schnippsel waren nicht für ein Perlskript gedacht,
      sondern als Futter für dein Shell-Promt :-)
      What is a good module? That's hard to say.
      What is good code? That's also hard to say.
      One man's Thing of Beauty is another's man's Evil Hack.

View all threads created 2009-05-25 17:34.