[30375] in Perl-Users-Digest
Perl-Users Digest, Issue: 1618 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 7 06:10:23 2008
Date: Sat, 7 Jun 2008 03:09:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 7 Jun 2008 Volume: 11 Number: 1618
Today's topics:
new CPAN modules on Sat Jun 7 2008 (Randal Schwartz)
Re: OT: SI units <sean.prawn@gmail.com>
Re: Perl CGI Issue xhoster@gmail.com
Re: Perl CGI Issue <ben@morrow.me.uk>
Re: Perl CGI Issue <bill@ts1000.us>
Re: perl command line help dummy@phony.info
Re: regex back matching dummy@phony.info
Re: regex back matching <whynot@pozharski.name>
Set breakpoint at a file/class in debugger <me@hongyu.org>
Re: Set breakpoint at a file/class in debugger <stefan.petrea@gmail.com>
Re: sorting a hash / 2008-06-01 <dn.perl@gmail.com>
Re: TCP apllications <stefan.petrea@gmail.com>
Re: Tk with Thread <glex_no-spam@qwest-spam-no.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 7 Jun 2008 04:42:20 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Jun 7 2008
Message-Id: <K22t2K.8G3@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Algorithm-CheckDigits-0.50
http://search.cpan.org/~mamawe/Algorithm-CheckDigits-0.50/
Perl extension to generate and test check digits
----
Algorithm-Search-0.02
http://search.cpan.org/~arthur/Algorithm-Search-0.02/
Module for traversing an object.
----
AnyEvent-4.15
http://search.cpan.org/~mlehmann/AnyEvent-4.15/
provide framework for multiple event loops
----
AnyEvent-4.151
http://search.cpan.org/~mlehmann/AnyEvent-4.151/
provide framework for multiple event loops
----
AnyEvent-HTTP-1.01
http://search.cpan.org/~mlehmann/AnyEvent-HTTP-1.01/
simple but non-blocking HTTP/HTTPS client
----
Apache2-Ajax-0.11
http://search.cpan.org/~rkobes/Apache2-Ajax-0.11/
mod_perl interface to CGI::Ajax
----
Apache2-Autocomplete-0.12
http://search.cpan.org/~rkobes/Apache2-Autocomplete-0.12/
Autocomplete service backend via mod_perl
----
Apache2-SOAP-0.73
http://search.cpan.org/~rkobes/Apache2-SOAP-0.73/
mod_perl-2 SOAP server
----
Archive-Lha-0.03_04
http://search.cpan.org/~ishigaki/Archive-Lha-0.03_04/
extract .LZH archives
----
CPAN-Reporter-1.15_54
http://search.cpan.org/~dagolden/CPAN-Reporter-1.15_54/
Adds CPAN Testers reporting to CPAN.pm
----
CPAN-SQLite-0.196
http://search.cpan.org/~rkobes/CPAN-SQLite-0.196/
maintain and search a minimal CPAN database
----
CPAN-Uploader-0.001
http://search.cpan.org/~rjbs/CPAN-Uploader-0.001/
upload things to the CPAN
----
CPAN-Uploader-0.002
http://search.cpan.org/~rjbs/CPAN-Uploader-0.002/
upload things to the CPAN
----
Catalyst-Model-Akismet-0.01
http://search.cpan.org/~mramberg/Catalyst-Model-Akismet-0.01/
Catalyst model for the Akismet anti-spam protocol
----
Class-Declare-Attributes-0.05
http://search.cpan.org/~ibb/Class-Declare-Attributes-0.05/
Class::Declare method types using Perl attributes.
----
Class-Declare-Attributes-0.06
http://search.cpan.org/~ibb/Class-Declare-Attributes-0.06/
Class::Declare method types using Perl attributes.
----
ClearPress-164
http://search.cpan.org/~rpettett/ClearPress-164/
Simple, fresh & fruity MVC framework
----
Config-Interactive-0.03
http://search.cpan.org/~mpg/Config-Interactive-0.03/
config module with support for interpolation, XML fragments and interactive UI
----
DBIx-Migration-Directories-0.07
http://search.cpan.org/~crakrjack/DBIx-Migration-Directories-0.07/
Install/remove/upgrade/downgrade SQL schemas
----
Data-Pairs-0.04
http://search.cpan.org/~bbaxter/Data-Pairs-0.04/
Perl module to implement ordered mappings with possibly duplicate keys.
----
Digest-JHash-0.05
http://search.cpan.org/~jfreeman/Digest-JHash-0.05/
Perl extension for 32 bit Jenkins Hashing Algorithm
----
File-Assets-0.060_1
http://search.cpan.org/~rkrimen/File-Assets-0.060_1/
Manage .css and .js assets in a web application
----
Google-AJAX-Library-0.01
http://search.cpan.org/~rkrimen/Google-AJAX-Library-0.01/
----
Gtk2-Ex-TickerView-4
http://search.cpan.org/~kryde/Gtk2-Ex-TickerView-4/
scrolling ticker display widget
----
HTTP-Engine-0.0.10
http://search.cpan.org/~yappo/HTTP-Engine-0.0.10/
Web Server Gateway Interface and HTTP Server Engine Drivers (Yet Another Catalyst::Engine)
----
IO-Interface-1.05
http://search.cpan.org/~lds/IO-Interface-1.05/
Perl extension for access to network card configuration information
----
IPC-System-Simple-0.11
http://search.cpan.org/~pjf/IPC-System-Simple-0.11/
Run commands simply, with detailed diagnostics
----
IPC-System-Simple-0.12
http://search.cpan.org/~pjf/IPC-System-Simple-0.12/
Run commands simply, with detailed diagnostics
----
JS-jQuery-Loader-0.02
http://search.cpan.org/~rkrimen/JS-jQuery-Loader-0.02/
Load (and cache) the jQuery JavaScript library
----
Lemonldap-NG-Handler-0.87
http://search.cpan.org/~guimard/Lemonldap-NG-Handler-0.87/
The Apache protection module part of Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Handler-0.88
http://search.cpan.org/~guimard/Lemonldap-NG-Handler-0.88/
The Apache protection module part of Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Manager-0.85
http://search.cpan.org/~guimard/Lemonldap-NG-Manager-0.85/
Perl extension for managing Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Portal-0.83
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.83/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Portal-0.84
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.84/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
MooseX-Struct-0.05
http://search.cpan.org/~jsoverson/MooseX-Struct-0.05/
Struct-like interface for Moose Object creation
----
Net-Akismet-Protocol-0.02
http://search.cpan.org/~mramberg/Net-Akismet-Protocol-0.02/
Perl interface to Akismet Protocol - comment and trackback spam fighter
----
Net-BobrDobr-0.02
http://search.cpan.org/~arto/Net-BobrDobr-0.02/
module for using http://bobrdobr.ru.
----
Net-ManageSieve-0.04
http://search.cpan.org/~ska/Net-ManageSieve-0.04/
ManageSieve Protocol Client
----
POD-Credentials-0.02
http://search.cpan.org/~mpg/POD-Credentials-0.02/
POD credentials OO wrapper (see also, author, license, copyright)
----
POD-Credentials-0.03
http://search.cpan.org/~mpg/POD-Credentials-0.03/
POD credentials OO wrapper (see also, author, license, copyright)
----
POE-Component-MessageQueue-0.2.2
http://search.cpan.org/~dsnopek/POE-Component-MessageQueue-0.2.2/
A POE message queue that uses STOMP for its communication protocol
----
Parse-Stallion-0.01
http://search.cpan.org/~arthur/Parse-Stallion-0.01/
Perl backtracking parser and resultant tree evaluator
----
Pod-2-DocBook-0.01_01
http://search.cpan.org/~jkutej/Pod-2-DocBook-0.01_01/
Convert Pod data to DocBook SGML
----
Schema-RDBMS-AUS-0.04
http://search.cpan.org/~crakrjack/Schema-RDBMS-AUS-0.04/
Authentication, Users and Sessions in an SQL schema
----
Squatting-0.31
http://search.cpan.org/~beppu/Squatting-0.31/
A Camping-inspired Web Microframework for Perl
----
Test-MonitorSites-0.14
http://search.cpan.org/~hesco/Test-MonitorSites-0.14/
Monitor availability and function of a list of websites
----
URI-SmartURI-0.021
http://search.cpan.org/~rkitover/URI-SmartURI-0.021/
URIs with extra sugar
----
URI-SmartURI-0.022
http://search.cpan.org/~rkitover/URI-SmartURI-0.022/
URIs with extra sugar
----
WWW-YouTube-2008.0606
http://search.cpan.org/~ermeyers/WWW-YouTube-2008.0606/
YouTube Development Interface (YTDI)
----
XML-Compile-0.84
http://search.cpan.org/~markov/XML-Compile-0.84/
Compilation based XML processing
----
XML-Compile-Cache-0.10
http://search.cpan.org/~markov/XML-Compile-Cache-0.10/
Cache compiled XML translators
----
XML-Compile-SOAP-Daemon-0.11
http://search.cpan.org/~markov/XML-Compile-SOAP-Daemon-0.11/
base class for SOAP message servers
----
XML-RelaxNG-Compact-PXB-0.02
http://search.cpan.org/~mpg/XML-RelaxNG-Compact-PXB-0.02/
create perl XML (RelaxNG Compact) data binding API
----
XML-TinyXML-0.03
http://search.cpan.org/~xant/XML-TinyXML-0.03/
Little and efficient Perl module to manage xml data.
----
mysql-genocide_0.01
http://search.cpan.org/~rsoliv/mysql-genocide_0.01/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Sat, 7 Jun 2008 05:37:48 +0100
From: prawn <sean.prawn@gmail.com>
Subject: Re: OT: SI units
Message-Id: <stfph5-386.ln1@prawn.mine.nu>
On Fri, 06 Jun 2008 19:44:06 +0000, Willem wrote:
> Joost wrote:
> ) Just as an additional data point; in Dutch the unit/noun is "meter", )
> while the translations of the *verb* "measuring" / "measure" and the )
> noun "measurement" in Dutch are "meten" / "meet" / "meting" )
> respectively. Definitely related but also not that easily confused.
>
> And what do you call someone (or something) who measures ? :-)
A ruler, stupid :-)
--
p BotM#1 LotR#9
http://www.last.fm/user/prawnuk
------------------------------
Date: 06 Jun 2008 22:34:42 GMT
From: xhoster@gmail.com
Subject: Re: Perl CGI Issue
Message-Id: <20080606183445.240$gv@newsreader.com>
Eric <venner@gmail.com> wrote:
> Hello,
>
> I'm having an issue with a perl CGI script. The code looks like this:
>
> #!/usr/bin/perl
> use CGI;
> use IO::Handle;
>
> $|=1;
>
> [... snip ...]
>
> # Redirect the user to the appropriate output page.
> $io = new IO::Handle;
> if ($io->fdopen(fileno(STDOUT),"w")) {
> $io->print("Output:output.php?load=$sum/$pdbid.html\n");
> $io->flush() || die $!;
> }
>
> system("cmd & perl backend.pl $pdbid $sum"); # takes about 4
> minutes to run
>
> My web page makes an AJAX post to this cgi script to start the
> "backend" process. Since that process takes a few minutes, I would
> like the user to be taken to a waiting page. However, I need to pass
> that $sum variable back to the page.
>
> In my head, this code should print the output message to stdout, start
> the backend.pl script in the background,
"cmd &" looks like something meant for Windows. But Perl on my Windows
machine, that doesn't cause the thing to be started in the background.
Are you sure your system does what you want it to? I almost never use
Perl on windows, so I could be misinterpreting something.
> exit and then send the
> contents of stdout down to the web page.
But if it isn't really in the background, then your program won't exit.
If your program did exit immediately after starting the program in the
background, then you would not need to take any special measures to flush
the buffer. It would automatically get flushed upon exit.
>
> In actuality what happens is there is a delay of several minutes
> before the output message is sent to the page. However, it is not the
> full amount of time required to run backend.pl. It seems to be pretty
> consistently about half of the required time. The page then gets the
> output message, and redirects to the waiting page and works fine from
> thereon out.
It could be that you are flushing the buffer to the web-server, but the
web-server isn't passing it on to the web-client immediately, or that the
web-client AJAX program isn't acting on the information immediately. They
might be waiting for X minutes, or for Y bytes, or for eof, before *they*
act, and are insensitive to your program's buffer-flushing. If STDOUT gets
closed, not just flushed, that might encourage them to hurry things up.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Sat, 7 Jun 2008 01:18:25 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Perl CGI Issue
Message-Id: <hn0ph5-epf.ln1@osiris.mauzo.dyndns.org>
Quoth xhoster@gmail.com:
> Eric <venner@gmail.com> wrote:
> >
> > system("cmd & perl backend.pl $pdbid $sum"); # takes about 4
> > minutes to run
>
> "cmd &" looks like something meant for Windows. But Perl on my Windows
> machine, that doesn't cause the thing to be started in the background.
> Are you sure your system does what you want it to? I almost never use
> Perl on windows, so I could be misinterpreting something.
My suspicion is the OP has misinterpreted the line
You could also use
system("cmd &")
in perldoc -q background. I have no idea why it 'worked' at all, unless
the OP *is* on windows, where the command shell treats '&' as a
statement separator, much like ';' in sh.
To the OP: that statement means you should run
system("perl backend.pl $pdbid $sum &");
and it only works on systems with a shell that interprets '&' that way.
A much better solution is IPC::Run.
Ben
--
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes, [ Heracles shoots Vulture with arrow. Vulture bursts into ]
'Alcestis') [ flame, and falls out of sight. ] ben@morrow.me.uk
------------------------------
Date: Fri, 6 Jun 2008 18:00:47 -0700 (PDT)
From: Bill H <bill@ts1000.us>
Subject: Re: Perl CGI Issue
Message-Id: <f8c379aa-e8ef-4f5c-af3e-8753e9a3dd6d@c58g2000hsc.googlegroups.com>
On Jun 6, 3:53=A0pm, Eric <ven...@gmail.com> wrote:
> Hello,
>
> I'm having an issue with a perl CGI script. =A0The code looks like this:
>
> #!/usr/bin/perl
> use CGI;
> use IO::Handle;
>
> $|=3D1;
>
> [... snip ...]
>
> # Redirect the user to the appropriate output page.
> $io =3D new IO::Handle;
> if ($io->fdopen(fileno(STDOUT),"w")) {
> =A0 =A0 $io->print("Output:output.php?load=3D$sum/$pdbid.html\n");
> =A0 =A0 $io->flush() || die $!;
>
> }
>
> system("cmd & perl backend.pl $pdbid $sum"); =A0 =A0# takes about 4
> minutes to run
>
> My web page makes an AJAX post to this cgi script to start the
> "backend" process. =A0Since that process takes a few minutes, I would
> like the user to be taken to a waiting page. =A0However, I need to pass
> that $sum variable back to the page.
>
> In my head, this code should print the output message to stdout, start
> the backend.pl script in the background, exit and then send the
> contents of stdout down to the web page.
>
> In actuality what happens is there is a delay of several minutes
> before the output message is sent to the page. =A0However, it is not the
> full amount of time required to run backend.pl. =A0It seems to be pretty
> consistently about half of the required time. =A0The page then gets the
> output message, and redirects to the waiting page and works fine from
> thereon out.
>
> Does anyone know how I can get that output message to my webpage
> immediately? =A0As you can see I've tried flushing stdout several
> different ways with no luck.
>
> Also, if there is a better group for me to post to, that would be
> appreciated too.
>
> Thanks,
> Eric
It's been a long day but I think I get the flow of this
Client - > perl - > php - > perl - > client
If this is the case and the 2 perl's in the above are the same program
either 1)eliminate the php and do what it does in perl so you can send
the status back to the client as it is being performed or 2) do it all
in php (same as #1) or 3)have your php call the perl when it is done
so perl isn't waiting and the client isn't waiting.
I think Sinan was close on the suggested link in his first response.
Bill H
------------------------------
Date: Fri, 06 Jun 2008 16:13:21 -0700
From: dummy@phony.info
Subject: Re: perl command line help
Message-Id: <h2hj44dfe6r69ju8c39lnt2b9rr8pdlub4@4ax.com>
On Thu, 5 Jun 2008 09:09:12 -0700 (PDT), Ray Muforosky
<muforo@gmail.com> wrote:
>assuming fileA contain the data below could help with this
>
>perl -lane '$l=$_, ($a,$b,$c,$d)= split(/\./,$F[0]),print $d' fileA
>
>fileA
>===
> 192.68.45.718 daskjaskjf asdfjkasjf asfkasfklh
> 192.68.34.62 ADKDAK Dkkslaslk jjsdkdldj
> 192.68.23 INEED HELP PLEASE
> 192.68.67.4 dkasdfkl kasfkasfkakf
> 192.68.4.97 flaskfk asfkfafv asf
>
>How do I modify the command line code above to get this below : print
>lines where the last quadrant is even
>
>123.68.45.718 daskjaskjf asdfjkasjf asfkasfklh
>192.68.34.62 ADKDAK Dkkslaslk jjsdkdldj
>192.68.67.4 dkasdfkl kasfkasfkakf
>
>
>Thanks
>Any other ideas will be appreciated.
perl -ne "print if /(\d+\.){3}\d{0,2}[02468]\s/" FileA.txt
------------------------------
Date: Fri, 06 Jun 2008 16:32:52 -0700
From: dummy@phony.info
Subject: Re: regex back matching
Message-Id: <96ij44dllts7ruq5ee2pf84jogsjk73ks7@4ax.com>
On Thu, 5 Jun 2008 05:53:13 -0700 (PDT), Ray Muforosky
<muforo@gmail.com> wrote:
>Hello
>
>I need to match on lines where the 4 quadrant of the ip is even with
>one line regex.
>
>For example, if I have
>
>192.68.45.78 daskjaskjf asdfjkasjf asfkasfklh
>192.68.34.62 ADKDAK Dkkslaslk jjsdkdldj
>192.68.23 INEED HELP PLEASE
>192.68.67.34 dkasdfkl kasfkasfkakf
>192.68.4.97 flaskfk asfkfafv asf
>
>
>I should only get:
>123.68.45.78 daskjaskjf asdfjkasjf asfkasfklh
>192.68.34.62 ADKDAK Dkkslaslk jjsdkdldj
>192.68.67.34 dkasdfkl kasfkasfkakf
>
>help and thanks in advance
>Ramey
perl -ne "print if /(\d+\.){3}\d{0,2}[02468]\s/" FileA.txt
I apologize for the others.
------------------------------
Date: Sat, 07 Jun 2008 10:39:51 +0300
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: regex back matching
Message-Id: <7jqph5x8g6.ln2@carpet.zombinet>
dummy@phony.info wrote:
> On Thu, 5 Jun 2008 05:53:13 -0700 (PDT), Ray Muforosky
> <muforo@gmail.com> wrote:
*SKIP*
> perl -ne "print if /(\d+\.){3}\d{0,2}[02468]\s/" FileA.txt
C<use Regexp::Common qw(net);>
Your re perfectly matches something like C<12345.6789.00000.122>
> I apologize for the others.
Me differs.
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
Date: Fri, 6 Jun 2008 17:57:37 -0700 (PDT)
From: Hongyu <me@hongyu.org>
Subject: Set breakpoint at a file/class in debugger
Message-Id: <16be30ad-f545-4287-b753-0e3b95bd772e@m3g2000hsc.googlegroups.com>
Dear all,
Does anyone know how to set a breakpoint at a file or class that is
not in the main program file when using debugger?
For example, I have a Perl class named MyClass.pm, and my main program
is named main.pl which use MyClass module. When I launch the debugger
by typing "perl -d main.pl", I want to set a breakpoint at line 100 of
MyClass.pm.
Appreciate your time!
------------------------------
Date: Fri, 6 Jun 2008 21:59:13 -0700 (PDT)
From: SPX2 <stefan.petrea@gmail.com>
Subject: Re: Set breakpoint at a file/class in debugger
Message-Id: <8affcdbc-19a2-4063-a015-826ce18aa66a@t54g2000hsg.googlegroups.com>
On Jun 7, 3:57=A0am, Hongyu <m...@hongyu.org> wrote:
> Dear all,
>
> Does anyone know how to set a breakpoint at a file or class that is
> not in the main program file when using debugger?
>
> For example, I have a Perl class named MyClass.pm, and my main program
> is named main.pl which use MyClass module. When I launch the debugger
> by typing "perl -d main.pl", I want to set a breakpoint at line 100 of
> MyClass.pm.
>
> Appreciate your time!
Hi,
use ptkdb.
you can find a guide on how to use it here http://www.cpan.org/authors/id/A/=
AE/AEPAGE/ptkdb.pdf
after you install it,you just do perl -d:ptkdb <main_source_file>
then after it's opened just File->Open the module you want to set the
bkpt in and you can return to
the first file and hit run and wait for the bkpt to occur.
good luck!
------------------------------
Date: Fri, 6 Jun 2008 22:30:55 -0700 (PDT)
From: "dn.perl@gmail.com" <dn.perl@gmail.com>
Subject: Re: sorting a hash / 2008-06-01
Message-Id: <31a6a8ef-302f-47ac-a46e-3759846ae5ed@d1g2000hsg.googlegroups.com>
On May 30, 5:59 am, "A. Sinan Unur" wrote:
>
> How do you handle ties?
>
I was asked to list cities with the top 4 maximum temperature, and
there was no word on how to handle ties. But that is a trivial part of
the problem. I suggested a solution (which the client was fine with)
that if a tie makes the list extend beyond 4 where city #4 has temp >
90, list all elements of the tie. If the city #4 has temp <= 90, break
the tie at 4.
Thus :
Austin 105
Miami 93
New York 91
Phoenix 91
Boston 91
Framingham 91 (6 cities listed)
Not listed ===> Dallas 88.
But :
Austin 105
Miami 93
New York 88
Phoenix 88
Not listed ==> Boston 88. Stop after first 4 entries.
Not listed ==> Chicago 88
Not listed ==> Seattle 82
------------------------------
Date: Fri, 6 Jun 2008 22:05:26 -0700 (PDT)
From: SPX2 <stefan.petrea@gmail.com>
Subject: Re: TCP apllications
Message-Id: <ac99d34f-c140-4529-a73e-3e3907734b86@f63g2000hsf.googlegroups.com>
On Jun 6, 5:40=A0pm, Ted Zlatanov <t...@lifelogs.com> wrote:
> On Fri, 6 Jun 2008 04:28:22 -0700 (PDT) Arun <sajapuram.arun.prak...@gmail=
.com> wrote:
>
> A> This is Arun here, i am new to Perl so i was just thinking of
> A> programming the TCP apllications or working. So how do i do that,
> A> just needed guidance from you.
>
> Learn how TCP/IP works, from ARP to the SYN/ACK sequence to session
> management. =A0You don't need to become an expert, just be aware of what
> happens on the wire. =A0Then you'll understand your application much
> better and your skills will go beyond "I can open a port and
> listen/write to it." =A0Also, writing the Perl application will be much
> easier if you know what's going on underneath and what problems TCP/IP
> may cause.
>
> Ted
there's also a book on this.
it's called Network Programming in Perl - Lincoln D. Stein
http://www.google.com/search?hl=3Den&client=3Dopera&rls=3Den&hs=3DDMB&q=3Dli=
ncoln+d.+stein+networking+perl&btnG=3DSearch&lr=3D
the book is very appropriate for what you want to learn.
------------------------------
Date: Fri, 06 Jun 2008 17:16:50 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Tk with Thread
Message-Id: <4849b753$0$89869$815e3792@news.qwest.net>
Slickuser wrote:
> Can you explain this line of the code about the sleep and what is .1
> for?
>
> select undef,undef,undef,.1; #sleep awhile
You may look it up on your own:
perldoc -f select
select RBITS,WBITS,EBITS,TIMEOUT
...
You can effect a sleep of 250 milliseconds this way:
select(undef, undef, undef, 0.25);
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1618
***************************************
