Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6142[/thread]

mein Server: der anfang eines webservers



<< |< 1 2 >| >> 12 Einträge, 2 Seiten
Froschpopo
 2004-03-15 03:03
#81004 #81004
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
Hier der Anfang eines kleinen Servers:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl

use strict;
use warnings;
use Socket;


my $server_port = 8080;
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);

my $my_addr = sockaddr_in($server_port, INADDR_ANY);

bind(SERVER, $my_addr) or die "Keine Bindung zu Port $server_port möglich: $!\n";

listen(SERVER, SOMAXCONN) or die "Konnte Port $server_port nicht abfragen: $!\n";

while (accept(CLIENT, SERVER)) {
   print "bbb\n";
}
close(SERVER);

wenn ich den in der Shell starte, kommt die Meldung:
Name "main::CLIENT" used only once: possible typo at server.pl line 19.

Warum?
esskar
 2004-03-15 03:35
#81005 #81005
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
weil du CLIENT nur einmal benutzt und das hält perl für unnötig...also könntest du es auch ganz weglassen, da du ja eh nichts weiter damit machst:

btz. ich würde IO::Socket::INET benutzen
Strat
 2004-03-15 12:54
#81006 #81006
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
oder POE...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Froschpopo
 2004-03-16 00:57
#81007 #81007
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
ich bin grad auf eine ganz neue Idee gekommen:
Ich bastel ja einen Chat. Was haltet ihr davon, wenn ich auf einen Server verzichte, stattdessen ein Chat-Script schreibe und dieses mit mod_perl einbinde?
esskar
 2004-03-16 02:07
#81008 #81008
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
mein vorschlag für chat...
benutzt als frontend sowas wie java oder flash (wobei mir letzteres lieber ist) und für den server ganz einfach deinen http server...
Froschpopo
 2004-03-16 02:14
#81009 #81009
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
geht sowas? Ich hätt dann gerne ein JavaApplet ... :D Hokus Pokus Fidibus... zaber mir ein Applet herbei :laugh:
sri
 2004-03-16 02:31
#81010 #81010
User since
2004-01-29
828 Artikel
BenutzerIn
[Homepage] [default_avatar]
[quote=esskar,16.03.2004, 01:07]mein vorschlag für chat...
benutzt als frontend sowas wie java oder flash (wobei mir letzteres lieber ist) und für den server ganz einfach deinen http server...[/quote]
Genau der Vorschlag den ich in einem Perl Forum erwarte!!! :D

Bis jetzt mein absoluter Favorit, allein für diesen Beitrag sollte es eine "Hall of Shame" geben. ;)

Btw. Die Sache mit dem Chat Server ist früher schon gelöst worden, es nennt sich IRC! :)\n\n

<!--EDIT|sri|1079397330-->
http://mojolicio.us/
esskar
 2004-03-16 02:41
#81011 #81011
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
es liegt einfach daran, dass es allein mit html so schlecht möglichkeiten gibt, einen chat-client zu basteln ohne andauernd einen refresh zu machen...
pq
 2004-03-16 02:41
#81012 #81012
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=Froschpopo,16.03.2004, 01:14]geht sowas?[/quote]
ja, ich hab vor jahren mal einen chat gebastelt: frontend ein java-applet,
backend ein perl-cgi-skript. das java-applet war eine gute lösung, nur cgi
als backend war natürlichj zu langsam. hab das sogar noch irgendwo rumfliegen,
aber das ist von '99 und absolut grottenschlecht dokumentiert. und buggy.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Froschpopo
 2004-03-16 03:17
#81013 #81013
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
was ist mit Server-Push? Hab das mal in der Manpage von cgi.pm gelesen...
<< |< 1 2 >| >> 12 Einträge, 2 Seiten



View all threads created 2004-03-15 03:03.