2013-12-03T14:06:00 Muffi

Super :)
Nun sieht man auch, dass $datei_in ein ganz normaler string ist, da kannst du die "" beim laden und schreiben weglassen.

ansonsten: warum nicht sowas?

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10

my @mess_ids = qw(
MessID1
MessID2
MessID3
MessID4
);

for my $id (@mess_ids) {
 # und hier die Ersetzung
}

Das erspart das Code vorgenerieren.

edit: alternativ (war Quark)

1
2
3
4
5
6
7

...
open(my $csv_fh, "<",$Datei_in) or die "...: $!";

my @csv_lines = map {chomp;} <$csv_fh>;  

my $temp = ...; # string in which "Item n" has to be replaced
$temp =~ s/Item (\d+)/$csv_line[$1-1]/ge;  # replace "Item 1" with $csv_line[0]