From owner-freebsd-current@FreeBSD.ORG Thu Feb 3 08:13:01 2005 Return-Path: Delivered-To: freebsd-current@freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id A607B16A4CF for ; Thu, 3 Feb 2005 08:13:01 +0000 (GMT) Received: from mx3.imp.ch (mx3.imp.ch [157.161.9.18]) by mx1.FreeBSD.org (Postfix) with ESMTP id 2076843D5D for ; Thu, 3 Feb 2005 08:13:00 +0000 (GMT) (envelope-from mb@imp.ch) Received: from mx3.imp.ch (localhost [127.0.0.1]) by mx3.imp.ch (8.12.11/8.12.11/Submit) with ESMTP id j138CsCe072622 for ; Thu, 3 Feb 2005 09:12:55 +0100 (CET) (envelope-from mb@imp.ch) Received: (from clamav@localhost) by mx3.imp.ch (8.12.11/8.12.11/Submit) id j138CsLq072619 for ; Thu, 3 Feb 2005 09:12:54 +0100 (CET) (envelope-from mb@imp.ch) Received: from cvs.imp.ch (cvs.imp.ch [157.161.4.9]) id j138CrS7065638; Thu, 03 Feb 2005 09:12:54 +0100 (CET) Date: Thu, 3 Feb 2005 09:12:53 +0100 (CET) From: Martin Blapp To: freebsd-current@freebsd.org Message-ID: <20050203090924.G55976@cvs.imp.ch> MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Subject: getline() very very slow on localhost on 5.X X-BeenThere: freebsd-current@freebsd.org X-Mailman-Version: 2.1.1 Precedence: list List-Id: Discussions about the use of FreeBSD-current List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 03 Feb 2005 08:13:01 -0000 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, ------------------------------------------------------------------ ImproWare AG, UNIXSP & ISP, Zurlindenstrasse 29, 4133 Pratteln, CH Phone: +41 61 826 93 00 Fax: +41 61 826 93 01 PGP: PGP Fingerprint: B434 53FC C87C FE7B 0A18 B84C 8686 EF22 D300 551E ------------------------------------------------------------------