Textdatei auslesen und filtern (Allgemeines zu Perl)

[thread]7476[/thread]

Textdatei auslesen und filtern

Leser: 1

Gast Gast

2005-11-16 09:25

Hallo,

ich hoffe ihr könnt mir als Perl Anfänger bei meinem Problem helfen:

Ich habe einige mehrzeilige Textdatein mit Output.
Eine Zeile sieht z.B. so aus:

Software Version: x.yz (Release blabla) mehr Text

Die Zeile sieht bei allen Textdateien genau gleich aus, bis auf das "x.yz". Und genau diesen Wert möchte ich in eine Variable schreiben.

Ich kann den Wert ja anhand des "Software Version: " finden, da dies ja überall gleich ist..

Ich hoffe ihr versteht was ich euch zu erklären versuche :-)

Kann mir jemand helfen?

Gruß
rag

lichtkind

2005-11-16 11:12

User since
2004-03-22
5728 Artikel
ModeratorIn + EditorIn

also wenn der zeilenanfang immer Software Version ist dann ist doch die sache leicht. du könntest noch genauer angeben wie die versionsnummern aussehen können aber du kannst ganz einfach datei mit open öffnen, dann mit diamant operator <> zeilenweise auslesen und dann:

$_ =~ m/Software Version:\s+(\d+\.\d+)/;

deine gesuchte zahl ist dann in $1 drin.

mein zeug:, Leute

Es beginnt immer mit einer Entscheidung.

Crian

2005-11-17 16:52

User since
2003-08-04
5875 Artikel
ModeratorIn

Falls auch mehrstellige Versionsnummern oder Versionsnummern mit kleinen Buchstaben vorkommen können, kannst du den Ausdruck abwandeln:

Code: (dl )

m~Software Version:\s+([.\d]+)~;

oder

Code: (dl )

m~Software Version:\s+([.\da-z]+)~;

btw. schreibt man $_ =~ nicht hin, dazu verwendet man ja gerade $_.\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

View all threads created 2005-11-16 09:25.