Suchen in Dateien (Allgemeines zu Perl)

[thread]13418[/thread]

Suchen in Dateien

Leser: 21

Articles: hide open all | hide show old branches

+7 replies
Gast guest

2009-04-21 10:19

Hallo,

ich hab folgendes Problem, ich hab ein File welchen beim öffnen mit dem Texteditor mitten in der Datei folgende Stelle hat:
<Release>12/<Release>

nun wollte ich fragen wie ich mit Perl zu der Zahl 12 komm.

Danke
- +6 replies
- renee
  
  2009-04-21 10:32
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2
  
  my $filecontent = "Inhalt der Datei <Release>12</Release>"; my ($nr) = $filecontent =~ m!<Release>(\d+)</Release>!;
  
  Wenn es sich aber um eine XML-Datei handelt, solltest Du Dir besser mal einen XML-Parser wie XML::Twig oder XML::LibXML anschauen.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +5 replies
  - Gast guest
    
    2009-04-21 11:16
    
    Die Datei ist keine XML sondern eine Catia-File. Wie kann ich die jetzt noch einlesen damit darin gesucht wird?
    - GwenDragon
      
      2009-04-21 11:28
      
      User since
      2005-01-17
      14745 Artikel
      Admin1
      
      Mit der Funktion open aus dem Themekreis der Dateifunktionen
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - roooot
      
      2009-04-21 15:02
      
      User since
      2008-03-03
      276 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my $file = './foo.file'; open my $OF, $file or die $!; my $filecontent = join '', <$OF>; close $OF or die $!;
      
      Viele Grüße :)
      - +2 replies
      - GwenDragon
        
        2009-04-21 15:46
        
        User since
        2005-01-17
        14745 Artikel
        Admin1
        
        Wozu der Join?
        
        Code: (dl )
        
        1 2 3 4 5
        
        my $file = './foo.file'; local $/; open my $OF, $file or die $!; my $filecontent = <$OF>; close $OF or die $!;
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Patterner
        
        2009-04-22 09:24
        
        User since
        2007-01-02
        25 Artikel
        BenutzerIn
        
        Oder einfach File::Slurp :)
        “I’m working on it.”

View all threads created 2009-04-21 10:19.