Zahl im Text finden und bearbeiten - #64926 (Allgemeines zu Perl)

EagleFox

2006-04-13 18:44

User since
2006-04-10
66 Artikel
BenutzerIn
[default_avatar]

Ist wieder mal ne Anfängerfrage.

Ich habe in einer Datei einen Header, der verschiedene Informationen für die Daten in der Datei enthält.
z.B. steht dort:

# Number Of Points: 10000.0000

Dieser Header wird gelesen und in eine andere Datei geschrieben. Dabei sollen einige Werte verändert werden.
Wie kann ich aus dem Header diese Zahl (10000) mathematisch bearbeiten (z.B einfach - 200) und dann in den "neuen" Header einfügen?

Der Gedanke von mir war:
Header in Zeilen zerlegen,

Code: (dl )

1
2
3

if($entry =~ /^\s*?#/){
  my $zeile(split(/\r?\n/,$entry))
{

Zeile mit "Points" suchen (kommt nur einmal im Header vor),

Code: (dl )

1
2
3

if($zeile =~ /Points/){
  .....?
}

in der Zeile dann eine Zahl suchen (aber wie speicher ich dann die gefundene Zahl in eine Variable? So gibt der Ausdruck doch nur true oder false, oder?)

Code: (dl )

my $zahl =~ /[0-9]+/

mathematisch bearbeiten

Code: (dl )

my $Points = $zahl - 200;

und dann den Header scheiben, aber wie? ;-/