2012-07-17T10:15:33 INIING

Code (perl): (dl )

1
2
3
4
5
6
7

        while (<FILE1>){                                    # <--- 1

        $Datafield_List_tmp=<FILE1>;                        # <--- 2
        @Datafield_List_tmp =split(//,$Datafield_List_tmp); # <--- 3
        foreach(@Datafield_List_tmp){
                print "$_";                                 
                }

Es fällt etwas schwer zu erkennen, wie weit Deine Bereitschaft geht, sich mit den Grundzügen der Perl-Programmierung zu befassen. In etlichen Posts haben Profis wie pq, topeg, Dubu usw. mit viel Geduld versucht, Deine Gedanken zu lesen. Wenn schon ein so kurzes Snippet nicht erkennen lässt, dass Du aus ihren Ratschlägen etwas verstanden hast, hat man keine besondere Motivation, Dir weitere Hilfen zu geben.
Zum Code oben: Du liest bei jedem Schleifendurchgang zweimal die nächste Zeile aus FILE1 (Markierung 1+2), verarbeitest aber nur jede 2. Zeile.
Das split mit leerem Pattern gibt Dir ein Array der einzelnen Zeichen zurück (split am Nullstring).
Ach ja, Du verwendest ja offensichtlich gerne das implizite $_. Dann kannst Du auch gleich print; ohne Argument schreiben. Dies ist explizit nicht als Tip gemeint.