Date: Thu, 3 Feb 2005 09:12:53 +0100 (CET) From: Martin Blapp <mb@imp.ch> To: freebsd-current@freebsd.org Subject: getline() very very slow on localhost on 5.X Message-ID: <20050203090924.G55976@cvs.imp.ch>
next in thread | raw e-mail | index | archive | help
Hi all, Can someone confirm that this is still a problem on 6.X ? Something is really broken here ... Martin FreeBSD 5.x connecting to localhost time perl5.6.1 -MIO::Socket -e '$s = new IO::Socket::INET("localhost:110"); $s->print("user USER\r\n"); $s->getline(); $s->print("pass PASS\r\n"); $s->getline(); $s->print("LIST\r\n"); for ($i = 1; $i < 2000; ++$i) { $j=1 + $i%500;$s->print("top $j 0\r\n"); } $s->print("quit\r\n"); while (defined($_ = $s->getline())) { print $_; }' > xxx real 2m9.509s user 0m0.559s sys 0m0.184s FreeBSD 5.x connecting to the external IP of the server time perl -MIO::Socket -e '$s = new IO::Socket::INET("server:110"); $s->print("user USER\r\n"); > $s->getline(); $s->print("pass PASS\r\n"); $s->getline(); $s->print("LIST\r\n"); for ($i = 1; $i > < 2000; ++$i) { $j=1 + $i%500;$s->print("top $j 0\r\n"); } $s->print("quit\r\n"); while (defined($_ > = $s->getline())) { print $_; }' > xxx real 0m6.932s user 0m0.553s sys 0m0.187s Martin Blapp, <mb@imp.ch> <mbr@FreeBSD.org> ------------------------------------------------------------------ ImproWare AG, UNIXSP & ISP, Zurlindenstrasse 29, 4133 Pratteln, CH Phone: +41 61 826 93 00 Fax: +41 61 826 93 01 PGP: <finger -l mbr@freebsd.org> PGP Fingerprint: B434 53FC C87C FE7B 0A18 B84C 8686 EF22 D300 551E ------------------------------------------------------------------
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20050203090924.G55976>