Januar 2000 - Linux

Sortieren mit Perl...
by Tobias Lachmann 26 Jan '00

26 Jan '00

Hallo! Ich sortiere gerade ein Logfile, es enthält verschiedene Einträge: UserGD;9;0;1.0 UserCX;5;0;1.0 UserGF;3;9;0.25 UserSA;6;4;0.6 usw..... ich möchte jetzt folgende Sortierung vornehmen: 1. Kriterium: Spalte 4, Absteigend 2. Kriterium: Spalte 2, Absteigend 3. Kriterium: Spalte 1, Aufsteigend als Endergebnis also: UserGD;9;0;1.0 UserCX;5;0;1.0 UserSA;6;4;0.6 UserGF;3;9;0.25 Wie muß ich so etwas in Perl formulieren bzw. welche Library kann ich dafür werden?? Tschau, Tobias

3 3

Hey alain;)
by Jens Marder 26 Jan '00

26 Jan '00

Hey LUG-OWL Liste, Ich will aus ner 133AmdK6 Kiste mit 2 800MB Platten und 10MBit Karte nen Ethernet TCP/IP Server machen, der auch mit Windows (98) zurechtkommen soll! Alles soweit eingerichtet mit suse 6.1 / route --> eth0 und verkabelung,etc. Aber das Ding ist nicht PINGBAR!!!! ARGL! Woran kanns liegen? TCP/IP laeuft anscheinen auf win98, da internet laeuft und Netzwerkgames ueber TCP/IP mit anderem Rechner auch... ich mag nicht glauben, das linux dran schuld ist... achja, die netzwerkkarte ist ne2000 kompatibel und im Ethernet HOWTO leider als poor Clone eingestuft (Longshine XXX) und wird auch korrekt vom kernel erkannt. HILFE!!! achja, der rechner ist (noch) nicht am internet und nicht bei mir zuhause, deshalb leider keine config-dateien, aber ich gehe davon aus, das ich (und yast) das soweit hinbekommen haben, aber evtl. koennte mir einer noch einen kurzen ueberblick bieten wie ich die karte routen musz (etc.) um den rechner spaeter als gateway fuers ethernetnetz einzusetzen. cu, dustin PS: Hey Alain, meld dich mal ;)) -- Dustin Brinktriene .............oO ICQ#36814257 check out =====> http://www.superskunk.de Oo... =============================================== "Life is hard Beavis" --- "Yeah, and it sucks!" Zu lang?ADSL!Beavis & Butthead - (c) Mike Judge "If Jah is by my side, why should i be afraid?" ===============================================

2 1

Re: Domain not bound
by Mario Witte 26 Jan '00

26 Jan '00

Ingo Luetkebohle wrote: > Hoert sich nach unkonfiguriertem NIS an. Schau doch mal, ob der > "ypbind" gestartet wird -- wenn ja, einfach aus dem Systemstart > entfernen, das macht ja bei einer Standalone-Kiste wenig Sinn. Genau das war es! Vielen Dank fuer die prompte Hilfe! -- Mario Witte <mario.witte(a)chengfu.de> On the 8th day, God created Linux

1 0

Antwort: Re: Sortieren mit Perl...
by Kai.Windmoeller＠rokd.de 26 Jan '00

26 Jan '00

> Dann sortieren bzw sortiert ausgeben ... > > foreach $user ( sort keys %hash ) { > foreach $col1 ( sort keys ${ $hash{$user} } ) { > foreach $col2 ( sort keys ${ $hash{$user}{$col1} } ) { > foreach $col3 ( sort keys ${ $hash{$user}{$col1}{$col2} } ) { > print "$user;$col1;$col2;$col3\n"; > } > } > } > } Dies sortiert, meines wissens nach, primär nach $user, dann nach $col1, dann nach $col2, und dann nach $col3 und ist damit am Ziel vorbei. Perl kann mit rationalen zahlen umgehen und sortieren, weil alle zahlen ersteinmal in perl als rationale gespeichert werden (siehe doku nahe 'use integer') Das oben funktioniert, wenn mann das Hash anders aufbaut foreach (<STDIN>) { my @f=split(/;/,$_); $hash{$f[3]}{$f[1]}{$f[0]}{$f[2]}=1; } foreach $col3 ( reverse sort keys %hash ) { foreach $col1 ( reverse sort keys ${ $hash{$col3} } ) { foreach $user ( sort keys ${ $hash{$col3}{$col1} } ) { foreach $col2 ( sort keys ${ $hash{$col3}{$col1}{$user} } ) { print "$user;$col1;$col2;$col3\n"; } } } } Gruß Kai

2 1

Ethernet Win98/Linux Probs
by Jens Marder 26 Jan '00

26 Jan '00

Hey LUG-OWL Liste, Ich will aus ner 133AmdK6 Kiste mit 2 800MB Platten und 10MBit Karte nen Ethernet TCP/IP Server machen, der auch mit Windows (98) zurechtkommen soll! Alles soweit eingerichtet mit suse 6.1 / route --> eth0 und verkabelung,etc. Aber das Ding ist nicht PINGBAR!!!! ARGL! Woran kanns liegen? TCP/IP laeuft anscheinen auf win98, da internet laeuft und Netzwerkgames ueber TCP/IP mit anderem Rechner auch... ich mag nicht glauben, das linux dran schuld ist... achja, die netzwerkkarte ist ne2000 kompatibel und im Ethernet HOWTO leider als poor Clone eingestuft (Longshine XXX) und wird auch korrekt vom kernel erkannt. HILFE!!! achja, der rechner ist (noch) nicht am internet und nicht bei mir zuhause, deshalb leider keine config-dateien, aber ich gehe davon aus, das ich (und yast) das soweit hinbekommen haben, aber evtl. koennte mir einer noch einen kurzen ueberblick bieten wie ich die karte routen musz (etc.) um den rechner spaeter als gateway fuers ethernetnetz einzusetzen. cu, dustin PS: Hey Alain, meld dich mal ;)) -- Dustin Brinktriene .............oO ICQ#36814257 check out =====> http://www.orderweb.de Oo... =============================================== "Life is hard Beavis" --- "Yeah, and it sucks!" Zu lang?ADSL!Beavis & Butthead - (c) Mike Judge "If Jah is by my side, why should i be afraid?" ===============================================

1 0

Antwort: Sortieren mit Perl...
by Kai.Windmoeller＠rokd.de 26 Jan '00

26 Jan '00

Das einfachste ist, das Schreiben einer eigenen Sortierfunktion. Das is nicht schwierig, weil man nur den Vergleich definieren brauch. @ergebnis = sort {Vergleichsfunktion} (Liste); Häufig findet man das in dieser Form @ergebnis = sort &by_name (Liste); oder so ähnlich. die Funktion hat zwei lokale Variablen definiert $a und $b, der Rückgabewert der Funktion ist -1 wenn $a < $b 0 wenn $a == $b 1 wenn $a > $b Bei Hashes ist $a,$b jeweils der Schlüssel des Eintrags. Du wirst warscheinlich die beinen operatoren <=> und cmp praktisch finden, weil die diese Vergleiche für Zahlen bzw. Strings durch führen $erg = $a <=> $b; Die Funktion die du suchst sieht warscheinlich so aus @Ergebnis = sort &log (@Liste); sub log { local ($erg, @a, @b); @a = split /;/, $a; @b = split /;/, $b; $erg = $b[3] <=> $a[3]; # Falsch rum für umgekehrte Reihenfolge if ($erg == 0) { $erg = $b[1] <=> $a[1]; # Falsch rum für umgekehrte Reihenfolge if ($erg == 0) { $erg = $a[0] cmp $b[0]; } } $erg; } Ich hoffe dies hilft und ich habe keine Fehler gemacht. Gruß Kai

1 0

Modemverbindung zum ISP
by Martin 26 Jan '00

26 Jan '00

Hallo Leute, Ich versuche, mich mit einem analogen ZyXEL Elite 2864D bei einem ISP einzuwählen. Meine Versuche scheitern jedoch immer an der selben Stelle: Login-Skript Fenster: ATZ OK ATM1L1 OK ATDT... CONNECT ... und das Modem "legt auf". Dann kommt ein Fensterchen: "Der ppp-Dämon wurde unerwartet beendet!" Die PPP-Logdatei zeigt: The remote system is required to authenticate itself but I couldn't find any secret (password) which would let it use an IP address. Die kppp-Diagnose hält sich dezent zurück: "Sorry, kann Ihnen hier nicht helfen." ...könnt ihr??? Danke im voraus Martin

3 3

Domain not bound
by Mario Witte 25 Jan '00

25 Jan '00

Mahlzeit! Ein Bekannter, der seit kurzem mit Caldera Openlinux (war wohl kuerzlich auf einer CHIP-Heft-CD) arbeitet berichtete mir von folgendem Problem: Beim einloggen als root erhaelt er die Meldung "Domain not bound". Woran kann das liegen? -- Mario Witte <mario.witte(a)chengfu.de> Microsoft is not the answer. Microsoft is the question. The answer is "NO!"

3 2

DLUG - LUG in Duesseldorf
by Toens Bueker 25 Jan '00

25 Jan '00

Hi *, kennt jemand jemanden in der DLUG? Tschö Töns -- Linux. The dot in /.

2 1

[ADMIN] Spam -- ein Ausblick
by Jan-Benedict Glaw 25 Jan '00

25 Jan '00

Hallo... In letzter Zeit war's mal wieder nicht ganz wenig, was da so an Spam über die Liste ging. Dafür zeichne ich mich (abgesehen von den Spamern selbst) schul- dig und werde am Wochenende wieder einen Check gegen ORBS einführen. Die Konfiguration dazu hab ich soweit (Danke, Flo!), komm aber im Moment nicht dazu, weil ich etwas "ab vom Schuß" bin. Freitag Nachmittab bin ich wieder in der Heimat, dann wird gebastelt. Bis dahin bitte ich um Geduld udn Entschuldigung... MfG, JBG -- Fehler eingestehen, Größe zeigen: Nehmt die Rechtschreibreform zurück!!! keyID=0x8399E1BB fingerprint=250D 3BCF 7127 0D8C A444 A961 1DBD 5E75 8399 E1BB

1 0