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:
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?
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?