Perl: Simpler foreach mit file-open

Status
Für weitere Antworten geschlossen.
tr0nix

tr0nix

der-mit-dem-tux-tanzt
Hallo zusammen

Ich habe beschlossen, so nebenbei alles mal in Perl zu proggen was ich normalerweise mit der Shell mache. Jetzt muss ich automatischen SQL-Code machen. Dazu habe ich 2 files mit Primary-keys die ich zu insert-statements zusammenfuehren will.

Jetzt mein Problem:
Code:
open F, "< server.list" or die "Can't open server.list : $!";
my @ser = <F>;
close F;

open F, "< app.list" or die "Can't open app.list : $!";
my @app = <F>;
close F;

foreach $application (@app) {
        foreach $server (@ser) {
                print "$application - $server"
        }
}

Wenn ich das ausgebe, sieht das so aus:
...
6
- 102
6
- 103
6
- 54
6
- 182
6
...

Er scheint also die Newline wie im File mitzunehmen. Wie kriege ich das weg?
 
Hopsa, bitte schliessen :)
$application =~ s/\n//;
Ist des Raetsels Loesung!
 
Status
Für weitere Antworten geschlossen.

Ähnliche Themen

perl script, das Dateien aus einer Liste löscht

Probs mit Perl script

Synaptics Scrolling

Apache zu langsam ?

Squid nur zum maskieren der eigenen IP, nicht für Webserver auf port 80

Zurück
Oben