January 2004 - openSUSE Programming (Deutsch)

Sockets und Threads
by Nils Meinert 05 Jan '04

05 Jan '04

Hallo Liste, ich habe folgende Probleme, bzw. Fragen. Ich moechte einen kleinen Webserver (nur fuer HTML-Dateien) schreiben, der mit Threads arbeitet. Die Anfragen der Clients werden dann bei jedem "accept" einem Thread zugeteilt, der diese dann bearbeitet. 1. Frage: Benoetige ich fuer jeden Thread eine eigene Socket-Verbindung, die ich nach dem Ende des Threads wieder schliessen muss? 2. Frage: Wenn ich den Server oefter starte und beende, erhalte ich eine Bind-Exception beim Eerstellen eines Server-Sockets ("Address already used" oder so aehnlich). Was hat es damit auf sich? Bleiben die Sockets auch nach Ende des Programmes eine Zeit im Betriebssystem (SuSE 9.0) erhalten? Natuerlich bin auch fuer andere Tips dankbar, bin erst ziemlich kurz dran mit dem Kram. Vielen Dank schonmal fuer etwaige Antworten. Gruss N.M. -- -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.2.2 (GNU/Linux) mQGiBD+z82QRBADKcsT0qrCHn6J2VNAw8rsoaVBp5Myss6YFtccAdqxEpiT5ukIk 1FkBOArdvlfVtPolQOuO91buGN3KZh7TGp2ktjAVZwpo8QcLrk3ICoqiOAjy3vM5 9/ByWub3gZvYTK/YZcdd60++mekRKJkCz7I9uBDAeWXOQvn/Mm6xuQzeswCgwnSw s0DV7igdn/RtI54lUe315TMD/3zBI8QbDOJMYTHIOijXBuKn+F71TimiJjfqETg7 tVgM6iPcVQ5+JTj8aQcbiApF423LNKu2B3bNaGzLWo6MIJkdnmGCV/d4djurOA89 CW3S/Gp8jYdA2trIZ0XD9xe8fPeWHSj3mr0Sr2AFO4cJvQTiGZsQPkyJxEaU5iqm 07E3A/947eFVqcr1+EMY9YvXLhl2QcpO5SmOzqk+hx/vdO9zzq97V5A5A87VEksw SdmWTJc2HbelZMEbvYd6QfebBfs11uIAISJGALw9njKCipjWFNux6DBL66/PfIZI +nMxpnpHFMBA69wsFlBGooJ0YziW/PTIK++V4tDDDmhIQNmuPbQiTmlscyBNZWlu ZXJ0IDxOaWxzLk1laW5lcnRAZ214LmRlPohbBBMRAgAbBQI/s/NkBgsJCAcDAgMV AgMDFgIBAh4BAheAAAoJEITqIMnPnjN3kq4An1JNVlAaVxcsIKMNwTR855ZwvreI AJ96LV9LBG11iZcl3zw8jK7dbC5z+LkEDQQ/s/O7EBAAia6SrXQVkn9SxpiCBx+s ao/tThgI0iE1U6i7NHyCczAhiIhdCwrnW6iO1VjMuj/Eg1hnvfJHMZsH2nXefRWK BKokkDnsBTq611/vHi8T+G4lcpudWXBfkApNjBzVXZonhAQSiuNH3jzLF9zYQPse SN7ZiylynKsmzDsvbmjuVr0D24Vio8FvDCu+gVJ2q9TJzNB4lulOriwJcgTtmq9V egITrjKZ6wh6HRdkrw4rmK5Cogs3WrnIG/6EngX4+mz2016vECuq05hfXv2+XwlJ MchbwFT44dIzskY7kpQO9DlnSTVWtSmUsi+DzpRz0rBdSxnoWnvfwiuHu1OsfoJi UiWN1XcviY6z9e1iXKQUshlzJti7d/LcC2lWVS2Z1JITvmCSwMR/+3MWCjbXzGC0 JSk9MNbv57gyWxq+d7H9St919jgdq2b4/SxMdK0TE4xSMv9woExciQsGWxmz0KMq fv2Hk3VGxaHDnJzxkjdKb1Xy1ZASXDnDNE1eIXvDIKeodH7hzB1yVqm+TRdg4W81 UJVDEXsMysbEU74/+vfsBulmF7tCpj0jx/Lwwv+IB+UemDJPOWyFSN0vj/QVMKDb YGuzDeMiVptk8cgIZ2oa6A0krBP+IYwdDy2feMxHCrzbusOoe7ecM3DO5rJvo2fD Id8Mg0nv/wwxmavnKK4DW48AAwUP/1/c/91tnu/rnze+XqX42/BtT4/7LShPnvY7 LjU4xcZBJQxws/1NgOyMe+BchuIO9pKebc2JNUAWU1OMZYkX3x5NbZAGi5FCN1k7 hnUcUJHLKaXJIbW8CnQBpezfFNvcbmH4ERZEiMdmDRxulFzHv0Bo4Ta0+gGL5r5U g1tsIViAizMYdlXjXjXqm+Tz4BVMFYavCD8ArKIKWDejizjkjUi+cHEinMGHC2Dt KvMlwrzRuJcX1tNgobUNDk7L4AB0k5zm5ZqMaVztIv+peKQUJSiygvdyPAzNBNZM Vh5kRbHwruoKfc0q68fdgTJwZLob1VomWrgOYF2jnaomXHNS60XMu3RHAiOPw6Ky pfFYS5ZrbTKu3eugfwds8CS93tuNrP+Wg1A79mhKiKmxlz6/kjzzEHXn3ZMIKxcf Jbm/DQIR2w1N4hHiBC9kC6Mk214LZakFuiNAXj5SCwT+gYpqLxRj44YE6O1xXuiz szMQsCwLMKQpj6yoEGv+xlHWRsXs666NrrOimPaAJ+d5c2n6qJ6sK/DB7IjCXvL1 kTSTVf9B1PsoXbkY5BI6hgb4OaA/+G5pyK7WVrBSoToZi+nmVm4AsupxJ2HqFwaQ WMfZ8WZL32FgRHD+QwKboSOEe35pVlSRiEsEruVWtzsuwf4h63UsHU2R3EqdTjLM YNSnBzYCiEYEGBECAAYFAj+z87sACgkQhOogyc+eM3ct5gCgqkjBWNJrPbjutzRw i06n29BFdBoAoKp5hgIRsL8Evv2C5JPOXYAMZ8Ei =SJYX -----END PGP PUBLIC KEY BLOCK-----

5 5

Zufallsgenerator für C++
by Philipp Otte 03 Jan '04

03 Jan '04

Hi, ich versuche für meine Facharbeit einer Double-Variable einen Zufallswert zuzuweisen. Bisher hab ich keine Funktion gefunden, die direkt einen Double-Wert ausgibt. Gibt es da eine oder muss ich einen int bestimmen und den dann irgendwie teilen? Ich brauche eine Zahl zwischen 0 und 1. Danke philipp

5 8

forken in perl
by Joerg Rossdeutscher 02 Jan '04

02 Jan '04

Anmerkung: Diese Mail sollte seit fast einem Tag bereits in der Liste sein, ist aber, auch laut http://marc.theaimsgroup.com/?l=suse-programming&r=1&b=200312&w=2 nicht angekommen. Ich poste nochmal. Laut obiger Adresse ist es auch recht selten, daß 3 Tage lang keine einzige Mail in dieser Liste auftaucht. Vieleicht klemmte da was, denn heute kam auch von jemand anders wieder was (eclipse + cvs) Hallo, Ich komme da bei einer Sache nicht weiter... Ich bastele wieder an meiner Fontsammlung rum, und wie gehabt gibt es das Problem, dass ein beschädigter Font mein Perlscript per Segfault crashen kann. Ich möchte aber das Script weiterlaufen lassen. Ich habe hier den Tip bekommen, daß das Abfangen von Segfault-Signalen unsauber wäre, da der Prozess sich in einem mehr oder weniger undefinierten Zustand befände. Besser wäre es, einen separaten Prozess zu nutzen, und den wenn der wegbricht, ihn in Frieden sterben zu lassen und einen neuen Prozess zu starten. Joo... klingt gut. Krieg ich aber nicht hin. Hier mal etwas Pseudocode: fork() if parent gib_child_kommandos() if (child weggebrochen) fork nochmal if ich_bin_plötzlich_child: raus hier # Könnte wg. fork passieren endif if child höre auf parent, führe dessen kommandos aus simuliere_crash # mit chance von 30% endif Soweit die Theorie. In der Praxis funktioniert das prima, bis tatsächlich ein Fehler im Child-Block auftritt. Derzeit simuliere ich das einfach über ein "die" mit 30%-Chance. Es scheint, als würde ein "die" im Child auch den Parent sofort beenden. Verstehe ich nicht. Steht in der Doku anders. Geguckt habe ich bisher in der perldoc unter perlipc und perlfork, große Teile des Scriptes sind den Beispielen dort entnommen. Ich füge das Script mal bei. Danke für eure Hilfe! Gruß, Ratti #!/usr/bin/perl -w use warnings; use strict; use Socket; use IO::Handle; use POSIX ":sys_wait_h"; use POSIX 'setsid'; # thousands of lines just for autoflush :-( # We say AF_UNIX because although *_LOCAL is the # POSIX 1003.1g form of the constant, many machines # still don't have it. my ($pid,$line); my ($kid,$parent); new_socket(); my $kid_pid = fork_kid(); if ( $parent ) { #parent my $alive; for ( my $i=0 ; ( $i<20 ) && ( $kid == 0) ; $i++) { $alive=kid_alive($kid_pid); if ($alive) { print CHILD "DO\n"; } else { new_socket(); $kid_pid=fork_kid(); } sleep 1; } # maybe we forked because kid died, # so "kid" can occur in parent process. # Get out here, go kid. if ( $parent ) { print "died as parent\n"; print CHILD "DIE\n"; waitpid($kid_pid,0); } if ( $kid ) { print "died as kid\n"; } } if ($kid) { #child while (1) { $line = <PARENT>; chomp $line; if ( $line eq "HELLO" ) { print PARENT "SMACK\n"; } if ( $line eq "DO" ) { if ( int(rand(100)) < 30 ) { die "e\n"; } } if ( $line eq "DIE" ) { close PARENT; exit; } } } sleep 4; sub fork_kid { $pid = fork; if ($pid != 0) { #parent close PARENT; $parent=-1; $kid=0; return $pid; } else { #kid die "cannot fork: $!" unless defined $pid; close CHILD; setsid or die "Can't start a new session: $!"; $parent=0; $kid=-1; return 0; } } sub kid_alive { my $pid=shift; if (! defined $pid ) { return 0; } # Undefined pid: Never forked before my $kid = waitpid( $pid , WNOHANG); if ( $kid == -1 ) { return 0; } # No such process # Found a(!) process. Is it the right one? print CHILD "HELLO\n"; chomp(my $line = <CHILD>); if ( $line eq "SMACK" ) { return -1; } # Kid's alive and replies return 0; # Uh. Rang the wrong door, or kid's dead. } sub new_socket { socketpair(CHILD, PARENT, AF_UNIX, SOCK_STREAM, PF_UNSPEC) or die "socketpair: $!"; CHILD->autoflush(1); PARENT->autoflush(1); } -- -o) fontlinge | Font management for Linux | Schriftenverwaltung in Linux /\\ http://freshmeat.net/projects/fontlinge/ _\_V http://www.gesindel.de https://sourceforge.net/projects/fontlinge/

9 57