Perl: Simpler foreach mit file-open

Diskutiere Perl: Simpler foreach mit file-open im Ruby, php, Perl, Python ... Forum im Bereich Programmieren unter Linux/Unix; Hallo zusammen Ich habe beschlossen, so nebenbei alles mal in Perl zu proggen was ich normalerweise mit der Shell mache. Jetzt muss ich...

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. tr0nix

    tr0nix der-mit-dem-tux-tanzt

    Dabei seit:
    11.07.2003
    Beiträge:
    1.585
    Zustimmungen:
    0
    Ort:
    Schweiz, Opfikon/Glattbrugg
    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?
     
  2. Anzeige

    Anzeige

    Wenn du mehr über Linux erfahren möchtest, dann solltest du dir mal folgende Shellkommandos anschauen.


    Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
  3. tr0nix

    tr0nix der-mit-dem-tux-tanzt

    Dabei seit:
    11.07.2003
    Beiträge:
    1.585
    Zustimmungen:
    0
    Ort:
    Schweiz, Opfikon/Glattbrugg
    Hopsa, bitte schliessen :)
    $application =~ s/\n//;
    Ist des Raetsels Loesung!
     
Thema:

Perl: Simpler foreach mit file-open

Die Seite wird geladen...

Perl: Simpler foreach mit file-open - Ähnliche Themen

  1. Perl 6 in Raku umbenannt

    Perl 6 in Raku umbenannt: Perl 6 heißt ab jetzt Raku. Die jetzt vollzogene Änderung beendet nicht nur eine langjährige Diskussion um den Namen, sondern auch die Konfusion...
  2. perl: Zusammenführen von Zeilen, die mit Leerzeichen beginnen.

    perl: Zusammenführen von Zeilen, die mit Leerzeichen beginnen.: Hallo, Hintergrund: Das LDIF-Format trennt Zeilen, die größer als 80 Zeichen sind und schreibt in die nächste Zeile ein Leerzeichen. Beispiel:...
  3. perl Hochkommata um Worte im String einfügen?

    perl Hochkommata um Worte im String einfügen?: Hallo, $attributes=' cn dn uid ' wie fasse ich alle Worte in Hochkommata, so dass $attributes=' "cn" "dn" "uid" ' ist? Danke Tom
  4. Linux Foundation: Hyperledger-Projekt startet mit 30 Mitgliedern

    Linux Foundation: Hyperledger-Projekt startet mit 30 Mitgliedern: Das Hyperledger-Projekt der Linux Foundation will eine neue Form der dezentralisierten Kontoführung nach dem Prinzip der »distributed ledger« bei...
  5. Perl 6 offiziell vorgestellt

    Perl 6 offiziell vorgestellt: Wie erwartet, ist die Version C(hristmas) von Perl 6 veröffentlicht worden. Perl 6 stellt nicht, wie der Name suggeriert, einen Nachfolger von...
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies um Inhalte zu personalisieren. Außerdem werden auch Cookies von Diensten Dritter gesetzt. Mit dem weiteren Aufenthalt akzeptierst du diesen Einsatz von Cookies.
    Information ausblenden