Strings ersetzen in Datei: .. mit Werten aus einer anderen Datei - #57356 (Allgemeines zu Perl)

plutos

2005-08-23 18:09

User since
2005-08-23
1 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich bin Anfänger in Sachen Perl und habe folgendes Problem.
Ich möchte aus einer XML-Template-Datei eine neue XML-Datei erzeugen,
indem bestimmte Strings (NAME,TITEL,AUFRUF) ersetzt werden; die Werte
dazu befinden sich sich in einer anderen Datei (CSV-Format).

Datei template.xml:
...

Code: (dl )

<JOBS ... name="NAME">
...
      <Title>TITEL</Title>
...
      <MSCRI><![CDATA[AUFRUF
...

Datei jobs.csv:
Job A;Backup-Job;backup.sh Job B;Loesch-Job;delete.sh Job C;Kopier-Job;copy.sh

Hier mein letzter Skript-Versuch:

Code: (dl )

#!/bin/perl -w
use strict;
my $XML = 'template.xml';
my $CSV = 'jobs.csv';
my $OUT = 'neudatei.xml';

open(READ1, "$XML")
open(READ2, "$CSV")
open(WRITE1, "> $OUT")

my @datei = <READ1>;

while (my $i = <READ2>)
{
  my @a = split(/;/,$i);  # CSV-Zeilen splitten
    my $name = "$a[0]";
    my $titel = "$a[1]";
    my $aufruf = "$a[2]";
    chomp $aufruf;
    foreach(@datei)
    {
      $_ =~ s/NAME/$name/;
      $_ =~ s/TITEL/$titel/;
      $_ =~ s/AUFRUF/$aufruf/;
      print WRITE1; }
}
close(READ1);
close(READ2);
close(WRITE1)
  or die "Fehler beim Schliessen von '$OUT': $! \n";

so sieht die generierte Datei neudatei.xml aus:

Code: (dl )

...
<JOBS ... name="Job A">
...
      <Title>Backup-Job</Title>
...
      <MSCRI><![CDATA[backup.sh
...
...
<JOBS ... name="Job A">
...
      <Title>Backup-Job</Title>
...
      <MSCRI><![CDATA[backup.sh
...
...
<JOBS ... name="Job A">
...
      <Title>Backup-Job</Title>
...
      <MSCRI><![CDATA[backup.sh
...

und so sollte sie aussehen:
...

Code: (dl )

<JOBS ... name="Job A">
...
      <Title>Backup-Job</Title>
...
      <MSCRI><![CDATA[backup.sh
...
...
<JOBS ... name="Job B">
...
      <Title>Loesch-Job</Title>
...
      <MSCRI><![CDATA[delete.sh
...
...
<JOBS ... name="Job C">
...
      <Title>Kopier-Job</Title>
...
      <MSCRI><![CDATA[copy.sh
...

Irgendwie kriege ich das nicht hin.
Wäre super wenn ihr mir weiterhelfen könnt.

Klaus

edit pq: code-tags hinzugefügt\n\n