Regular Expressions -> Datei auslesen: Mit RE eine betsimmte Zeile auslesen (Allgemeines zu Perl)

Gast Gast

2004-03-08 13:58

Hallo,

ich habe eine Frage zu den Regular expressions. Ich habe ein Problem, mit dem auslesen einer Datei...

Folgendes: Ich lese die Registry über cmd aus und schreibe dies in eine Datei. Ein eintrag in dieser Datei sieht dann so aus: "\UAS NT4.0 Version =6.002". Das ist immer einer der letzten Einträge. Ich will nun den Eintrag so auslesen, das ich nur die Versionsnummer 6.002 in einer Variablen habe. Kriege ich das mit reg expressions hin? Wäre über ein Codeschnippsel sehr dankbar.

Schon mal danke für die Hilfe

Ciao Kersten

Ronnie

2004-03-08 14:03

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Wenn du sicher sein kannst das es immer durch das "=" getrennt wird:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
  my $value = $_;
  if ($value =~ m/.*=(.*)$/) { print $1,"\n"; }
}


\UAS NT4.0 Version   =6.002
testiwguiwoi
iwguiwbui
wiubfbuigw=7

Sorry, erster Ansatz war falsch.\n\n

Crian

2004-03-08 14:03

User since
2003-08-04
5866 Artikel
ModeratorIn

Code: (dl )

1
2

my $string = '\UAS NT4.0 Version   =6.002'; # der backslash ist beunruhigend
(undef, my $version) = split /=/, $string;

getestet\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Crian

2004-03-08 14:08

User since
2003-08-04
5866 Artikel
ModeratorIn

RE ist mal wieder overkill, imho

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Ronnie

2004-03-08 14:09

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

womit du Recht hast, wenn es sich immer mit dem "=" trennen lässt.
Wieso wird eigentlich --DATA-- (mit _ verschwindet es auch hier) aus meinem Code-Block entfernt?\n\n

Crian

2004-03-08 14:13

User since
2003-08-04
5866 Artikel
ModeratorIn

Forum-BUG, wird Zeit fürs neue Forum...

Die drei nervigsten Dinge:

1) Nicht Anzeige von aktuell / nicht aktuell bei Beiträge der letzten 24 h
2) Erstes Whitespace wird in code-Block geklaut
3) Doppel-Underscore-Problem

Aber wie gesasgt, es lohnt sich nicht mehr das hier zu beheben...\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

drknowhow

2004-03-08 14:51

User since
2004-03-08
4 Artikel
BenutzerIn

Danke, das das so schnell ging. Hat mir auch sehr geholfen, aber ich habe ein Problem, da diese Versionsnummer öfters wechselt... Sorry, hatte ich nicht erwähnt, wie kann ich jetzt die Zeile "\UAS NT4.0 Version" auslesen, und was hinter dem "=" steht als Variable benutzen??

Danke

cu Kersten

renee

2004-03-08 14:53

User since
2003-08-04
14371 Artikel
ModeratorIn

siehe 1. Post von Crian... in $version steht jetzt die Versionsnummer...

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/

drknowhow

2004-03-08 15:07

User since
2004-03-08
4 Artikel
BenutzerIn

Danke...

Crian

2004-03-08 15:41

User since
2003-08-04
5866 Artikel
ModeratorIn

Ev. ist mein obiger Code noch nicht ganz das, was Du brauchst. Poste einfach mal einen relevanten Ausschnitt aus Deinem Code, falls es noch nicht funktioniert.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite