Erstens:

naja, schau da mal ganz unbedarft drauf auf den code.

alleine die art, wie du die dateien öffnest.
wenn ich sowas sehen würde, ohne zu wissen, wie der code zustande gekommen ist, würde ich sagen, Teil 1 und Teil 3 sind von dir und Teil 2 hast du aus einem Forum bekommen.
du solltest den code nicht nur kopieren, sondern auch verstehen.

Quote

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

open A, '<Partnerliste_05_13.csv' or die $!;
open B, '>neu.csv' or die $!;
while (<A>) {
    print B;
}

my $infile = 'neu.csv';
open (my $infile_fh, '<', $infile) or die "Kann $infile nicht lesen\n";

my $outfile = 'neu2.csv';
open (my $outfile_fh, '>', $outfile) or die "Kann $outfile nicht schreiben\n";
while (my $line = <$infile_fh>) {
    print $outfile_fh ...
}


open C, '<neu2.csv' or die $!;
open D, '>endprodukt.csv' or die $!;
while (<C>) {
   print D 
}

ein open macht man so (im kürzesten fall):

gewöhn dir das mit A und B und C schnellstmöglich ab und lies dazu WasIsteinLexikalischerFileHandle


Zweitens:

du möchtest 3 verschiedene änderungen in einer datei machen.
warum öffnest und schreibst du dann die datei 3 mal neu?
deine kollegin hat völlig recht, mach doch alle änderungen in einem abwasch.
dafür müsstest du allerdings den code von FIFO auch verstehen.

kurz: du öffnest die datei, machst deine ersetzungen mit regexes.
dann splittest du die zeile und kürzt die länge, und fügst es wieder zu einer zeile zusammen. dann machst du noch das mit Gmb..., was allerdings in deinem code hier fehlt, in teil 3 machst du nämlich gar nichts.

Drittens:


die beiden zeilen haben den gleichen effekt. wenn du klammern ersetzen willst, musst du sie mit backslash escapen, das sind zeichen mit sonderbedeutung in regexes.