[23719] in Perl-Users-Digest
Perl-Users Digest, Issue: 5925 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 11 09:05:52 2003
Date: Thu, 11 Dec 2003 06:05:11 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 11 Dec 2003 Volume: 10 Number: 5925
Today's topics:
Re: $socket->timeout usage <sppNOSPAM@monaco377.com>
Re: $socket->timeout usage (Anno Siegel)
Re: (RFD) ANNOUNCE: Time::Format v0.13 <mothra@nowhereatall.com>
Address matching <iain@smokehythe.net>
Re: Address matching <carsten@welcomes-you.com>
Re: Address matching (Anno Siegel)
Re: Address matching <iain@smokehythe.net>
Re: Character class [\W_] clarification (William Herrera)
Colance, connecting ideas with professionals. (Samuel Patterson)
Re: Colance, connecting ideas with professionals. <Paul.E.Boardman@umist.ac.uk>
ColdFusion opportunities (Bonnie Rogers)
ColdFusion opportunities (Carol Coleman)
Re: ColdFusion opportunities <SpamBlocked@tbdata.com>
Re: ColdFusion opportunities <no@spam.for.me.invalid>
File handeling <nospam@spamcop.org>
Re: File handeling <carsten@welcomes-you.com>
Re: File handeling <jundy@jundy.com>
Re: File handeling <nospam@spamcop.org>
Re: File handeling <HelgiBriem_1@hotmail.com>
Re: In search of elegant code - searching keys of hashe (Anno Siegel)
Re: Memory: measuring 5 limitations (Bart Van der Donck)
Re: Memory: measuring 5 limitations <ubl@schaffhausen.de>
Need programmers? At Colance they compete for your busi (Brian Edwards)
Re: no $workbook->Close; in Spreadsheet::WriteExcel but <asu1@c-o-r-n-e-l-l.edu>
No program too tough. At Colance we have the best profe (Eric Wright)
No program too tough. At Colance we have the best profe (Irene Ramirez)
Re: No program too tough. At Colance we have the best p <REMOVEsdnCAPS@comcast.net>
Re: No program too tough. At Colance we have the best p (Tad McClellan)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 11 Dec 2003 08:49:05 +0100
From: =?ISO-8859-15?Q?S=E9bastien?= Cottalorda <sppNOSPAM@monaco377.com>
Subject: Re: $socket->timeout usage
Message-Id: <3fd82171$0$28683$626a54ce@news.free.fr>
A. Sinan Unur wrote:
> Consider the following script:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use Socket;
> use IO::Socket;
>
> my $s = IO::Socket::INET->new(
> LocalAddr => '127.0.0.1',
> LocalPort => 50000,
> Reuse => 1,
> Listen => 5,
> Timeout => 10,
> );
>
> die "$@" unless $s;
>
> while(my $c = $s->accept()) {
> $c->timeout(5);
> while($c->getline()) {
> print;
> }
> $s->shutdown(2);
> }
> print $@ if $@;
>
> __END__
>
> Now, the 10 second timeout I set on $s works like I expected: If a
> connection does arrive in 10 seconds, accept fails with:
>
> C:\develop\perl> sto.pl
> accept: timeout
>
> on both Windows XP and FreeBSD 4.8. OTOH, if I connect using
>
> telnet 127.0.0.1 50000
>
> before the accept call times out, the script just hangs waiting for input
> and never times out.
>
> Changing the while loop to:
>
> my ($byte, $msg);
> while(sysread($c, $byte, 1) == 1) {
> last if $byte eq 'z';
> $msg .= $byte;
> print $msg, "\n";
> }
>
> does not make a difference either.
>
> I do realize this is a naive query and I am probably missing something
> obvious. I'd really appreciate some pointers.
>
> Sinan.
Hi,
To manage timeout on socket use IO::Select package (see perldoc).
To not use the buffered socket use the $|=1; command at the beginning of
your script.
Cheers.
Sébastien
--
[ retirer NOSPAM pour répondre directement
remove NOSPAM to reply directly ]
------------------------------
Date: 11 Dec 2003 11:12:59 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: $socket->timeout usage
Message-Id: <br9jfr$72b$2@mamenchi.zrz.TU-Berlin.DE>
Sébastien Cottalorda <sppNOSPAM@monaco377.com> wrote in comp.lang.perl.misc:
> A. Sinan Unur wrote:
>
> > Consider the following script:
> >
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > use Socket;
> > use IO::Socket;
> >
> > my $s = IO::Socket::INET->new(
> > LocalAddr => '127.0.0.1',
> > LocalPort => 50000,
> > Reuse => 1,
> > Listen => 5,
> > Timeout => 10,
> > );
> >
> > die "$@" unless $s;
> >
> > while(my $c = $s->accept()) {
> > $c->timeout(5);
> > while($c->getline()) {
> > print;
> > }
> > $s->shutdown(2);
> > }
> > print $@ if $@;
> >
> > __END__
> >
> > Now, the 10 second timeout I set on $s works like I expected: If a
> > connection does arrive in 10 seconds, accept fails with:
> >
> > C:\develop\perl> sto.pl
> > accept: timeout
> >
> > on both Windows XP and FreeBSD 4.8. OTOH, if I connect using
> >
> > telnet 127.0.0.1 50000
> >
> > before the accept call times out, the script just hangs waiting for input
> > and never times out.
> >
> > Changing the while loop to:
> >
> > my ($byte, $msg);
> > while(sysread($c, $byte, 1) == 1) {
> > last if $byte eq 'z';
> > $msg .= $byte;
> > print $msg, "\n";
> > }
> >
> > does not make a difference either.
> >
> > I do realize this is a naive query and I am probably missing something
> > obvious. I'd really appreciate some pointers.
> >
> > Sinan.
>
> Hi,
>
> To manage timeout on socket use IO::Select package (see perldoc).
Well, yes, that's a possibility.
However, if I understand Sinan's question, it is why the secondary
socket doesn't seem to time out according to the timeout parameter.
I don't know either. Socket timeouts have puzzled people for ages.
> To not use the buffered socket use the $|=1; command at the beginning of
> your script.
That won't help, unless you select() (the other "select") the socket
first.
Anno
------------------------------
Date: Thu, 11 Dec 2003 06:05:22 -0800
From: "Mothra" <mothra@nowhereatall.com>
Subject: Re: (RFD) ANNOUNCE: Time::Format v0.13
Message-Id: <3fd86c77$1@usenet.ugs.com>
Hi Eric,
"Eric J. Roode" <REMOVEsdnCAPS@comcast.net> wrote in message
news:Xns944DD44EF3184sdn.comcast@216.196.97.136...
> -----BEGIN xxx SIGNED MESSAGE-----
> Hash: SHA1
>
> I have received almost no feedback on this module, which means
> a) It's perfect the way it is;
> b) Nobody uses it because it stinks;
> c) Nobody uses it because nobody knows about it.
> I am posting this in case the latter is true.
> Feel free to comment. Or heck, feel
> free to continue to ignore it. :-) ]
>
I have provided some feedback on this module. As I recall,
there were some issues regarding Compiling on Win32
systems. (yep you did fix it). I have used it to some extent.
However, you have to realize that there are
a lot of Date/Time modules on CPAN that you are competing with.
I for one have chosen to use DateTime as my standard. These
modules provide all if not more functionality that Time::Format.
That is not to say that Time::Format stinks, on the contrary,
I have used this module and found it very useful.
I just don't want to mess with learning another Date module.
( I have my hands full with DateTime)
I hope this helps.
Mothra
------------------------------
Date: Thu, 11 Dec 2003 12:24:49 +0000
From: Iain <iain@smokehythe.net>
Subject: Address matching
Message-Id: <TbZBb.19955$lm1.172626@wards.force9.net>
Hi,
I'm looking for some help:
Given an IP vector A.B.C.D, I want to test for a match against a lookup
table that may contain something like 'a.b.c.d/w', or 'a.b.c.d e.f.g.h'
(where e.f.g.h is a mask).
Please can somebody give me a few pointers or refer me to the work of a
Perl module that does it already.
Many thanks,
Iain.
--
Clear the smoke from my address before replying directly to me.
------------------------------
Date: Thu, 11 Dec 2003 13:25:46 +0100
From: Carsten Aulbert <carsten@welcomes-you.com>
Subject: Re: Address matching
Message-Id: <br9nq8$v4p5$1@ID-213226.news.uni-berlin.de>
Hi Iain
Iain wrote:
> Given an IP vector A.B.C.D, I want to test for a match against a lookup
> table that may contain something like 'a.b.c.d/w', or 'a.b.c.d e.f.g.h'
> (where e.f.g.h is a mask).
>
> Please can somebody give me a few pointers or refer me to the work of a
> Perl module that does it already.
I don't know of a perl module, but could you not just convert (via
pack/unpack) A.B.C.D, a.b.c.d, /w and e.f.g.h into a 32 bit object.
Say $orig is conversion of A.B.C.D, $subnet is conversion of e.f.g.h or /w
and $test the conversion a.b.c.d, then ($orig & $subnet) == ($test &
$subnet) should give you the answer IIRC.
HTH
CA
------------------------------
Date: 11 Dec 2003 13:19:00 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Address matching
Message-Id: <br9qs4$fpk$1@mamenchi.zrz.TU-Berlin.DE>
Iain <iain@smokehythe.net> wrote in comp.lang.perl.misc:
> Hi,
>
> I'm looking for some help:
>
> Given an IP vector A.B.C.D, I want to test for a match against a lookup
> table that may contain something like 'a.b.c.d/w', or 'a.b.c.d e.f.g.h'
> (where e.f.g.h is a mask).
Barring an appropriate CPAN module, I'd use a normalization routine
for the IP strings you are working with. It should extract the first
four of dot-separated numbers (and remove leading zeros, if any).
For example:
sub normalize { join '.', ( shift() =~ /([1-9]\d*)/g )[ 0 .. 3] }
Then normalize the given quad:
$given = normalize( $given);
...and grep the matches out of the table:
my @matches = grep normalize( $_) eq $given, @table;
Anno
------------------------------
Date: Thu, 11 Dec 2003 13:58:14 +0000
From: Iain <iain@smokehythe.net>
Subject: Re: Address matching
Message-Id: <rz_Bb.19987$lm1.173778@wards.force9.net>
Carsten Aulbert wrote:
> Hi Iain
>
> Iain wrote:
-->8--
> I don't know of a perl module, but could you not just convert (via
> pack/unpack) A.B.C.D, a.b.c.d, /w and e.f.g.h into a 32 bit object.
>
> Say $orig is conversion of A.B.C.D, $subnet is conversion of e.f.g.h or
> /w and $test the conversion a.b.c.d, then ($orig & $subnet) == ($test &
> $subnet) should give you the answer IIRC.
>
> HTH
>
> CA
Carsten,
Thanks; that's a plan. I'll go take a look.
I.
--
Clear the smoke from my address before replying directly to me.
------------------------------
Date: Thu, 11 Dec 2003 06:10:25 GMT
From: posting.account@lynxview.com (William Herrera)
Subject: Re: Character class [\W_] clarification
Message-Id: <3fd80a5e.2412088@news2.news.adelphia.net>
On 10 Dec 2003 17:37:59 -0800, ifiaz@hotmail.com (Fiaz Idris) wrote:
Point 1:
[\W_] is equivalent to [^a-zA-Z0-9__] ----> (two underscores)
and thought that the last underscore is actually unnecessary.
The problem is that, in a negated char class like [^a], any character you add
to the class within those brackets, like [^ab], is added as an excluded char.
But with th \W syntax, the 'negation' of \w is in the set of INCLUDED chars in
the class, and is NOT continued to other chars in a bracketed charachter class
containing \W.
So, [\W] is the same as [^a-zA-Z0-9_], but
[\W_] is the same as [^a-zA-Z0-9_]|_
HTH,
--------
perl -MCrypt::Rot13 -e "$m=new Crypt::Rot13;$m->charge('WhfgNabgureCreyUnpxre');print $m->rot13;"
------------------------------
Date: Thu, 11 Dec 2003 09:54:23 -0000
From: SPatterson@excite.com (Samuel Patterson)
Subject: Colance, connecting ideas with professionals. X
Message-Id: <vtgfmfffnpic1c@corp.supernews.com>
Webmasters: Colance specialise in connecting your ideas with Freelance Professionals to produce your project.
Programmers: Providing your Service is made easy through Colance. It is free to sign up with no monthly costs.
3
------------------------------
Date: Thu, 11 Dec 2003 11:18:43 -0000
From: "Paul Boardman" <Paul.E.Boardman@umist.ac.uk>
Subject: Re: Colance, connecting ideas with professionals. X
Message-Id: <3fd852f2$1@news.umist.ac.uk>
> Webmasters: Colance specialise in connecting your ideas with Freelance
Professionals to produce your project.
> Programmers: Providing your Service is made easy through Colance. It is
free to sign up with no monthly costs.
Ten messages all within a few seconds of each other? What kind of response
do you expect to that from a technical newsgroup?
Well, I for one will never consider using your services.
------------------------------
Date: Thu, 11 Dec 2003 09:52:13 -0000
From: BRogers@yahoo.com (Bonnie Rogers)
Subject: ColdFusion opportunities AqIw
Message-Id: <vtgfidcr9vkh4c@corp.supernews.com>
Webmasters: Colance specialise in connecting your ideas with Freelance Professionals to produce your project.
Programmers: Providing your Service is made easy through Colance. It is free to sign up with no monthly costs.
HXq
------------------------------
Date: Thu, 11 Dec 2003 09:50:52 -0000
From: CColeman@google.com (Carol Coleman)
Subject: ColdFusion opportunities B8
Message-Id: <vtgffsf7nj3ic8@corp.supernews.com>
Webmasters: Colance specialise in connecting your ideas with Freelance Professionals to produce your project.
Programmers: Providing your Service is made easy through Colance. It is free to sign up with no monthly costs.
dZERGShXmGAbfwrJy7nGgBimgF
------------------------------
Date: Thu, 11 Dec 2003 11:02:11 -0000
From: "William Tasso" <SpamBlocked@tbdata.com>
Subject: Re: ColdFusion opportunities B8
Message-Id: <br9ilv$sgh4$1@ID-139074.news.uni-berlin.de>
Carol Coleman wrote:
> Webmasters: Colance specialise in ...
usenet spam - it's the sort of thing you may want to do in the privacy of
your bedroom, but wouldn't want your friends and family to know about.
http://supernews.com/faq.html#23
--
William Tasso - http://WilliamTasso.com
------------------------------
Date: Thu, 11 Dec 2003 11:13:19 GMT
From: Nils Petter Vaskinn <no@spam.for.me.invalid>
Subject: Re: ColdFusion opportunities B8
Message-Id: <pan.2003.12.11.11.09.23.874670@spam.for.me.invalid>
On Thu, 11 Dec 2003 11:02:11 +0000, William Tasso wrote:
> Carol Coleman wrote:
>> Webmasters: Colance specialise in ...
>
> usenet spam - it's the sort of thing you may want to do in the privacy of
> your bedroom, but wouldn't want your friends and family to know about.
And they've effectively made certain that a lot of webmasters and
programmers will never turn to them for their needs.
Do they actually think they will benefit from this sort of thing?
--
NPV
"the large print giveth, and the small print taketh away"
Tom Waits - Step right up
------------------------------
Date: Thu, 11 Dec 2003 05:38:38 +0000
From: Truthless <nospam@spamcop.org>
Subject: File handeling
Message-Id: <mUWBb.117343$PD3.5832092@nnrp1.uunet.ca>
Hello All,
While I am familiar with programing concepts I am quite new to perl. I
am trying to find out what methods does perl use to retrieve file
information. For example the size of a file and search for files over a
certain size.
I am looking for something similar to the bash command:
find /home/*/*-mail/ -size +10000k
I use that in a bash script for compressing large mail boxes.
Could someone please point me in the right direction? Perhaps provide me
with a small example?
Thanks in advance for any avice.
Truthless
------------------------------
Date: Thu, 11 Dec 2003 10:49:04 +0100
From: Carsten Aulbert <carsten@welcomes-you.com>
Subject: Re: File handeling
Message-Id: <br9eke$sec0$1@ID-213226.news.uni-berlin.de>
Hi nameless one ;-),
Truthless wrote:
> While I am familiar with programing concepts I am quite new to perl. I
> am trying to find out what methods does perl use to retrieve file
> information. For example the size of a file and search for files over a
> certain size.
>
I think a good starting point would be to look at 'perldoc -f -s' which
should list you possible operators to get info about a file, e.g. -s
$filename will return you the size of a file in bytes.
Secondly, the standard module File::Find ('perldoc File::Find') will help
you emulating some parts of the find program.
HTH
CA
------------------------------
Date: Thu, 11 Dec 2003 09:35:57 GMT
From: Erik Tank <jundy@jundy.com>
Subject: Re: File handeling
Message-Id: <0fd2c8c3feb9ccc3485783a3f25dd957@news.teranews.com>
I would use the File::Find module to find all files and then you can
use the stat function to get the size and other attribute information
about the files. To get information about each:
File::Find - man File::Find
if you don't have it install you can get it from CPAN
stat - perldoc -f stat
also check out perldoc -f -x
On Thu, 11 Dec 2003 05:38:38 +0000, Truthless <nospam@spamcop.org>
wrote:
>Hello All,
>
>While I am familiar with programing concepts I am quite new to perl. I
>am trying to find out what methods does perl use to retrieve file
>information. For example the size of a file and search for files over a
>certain size.
>
>I am looking for something similar to the bash command:
>
>find /home/*/*-mail/ -size +10000k
>
>I use that in a bash script for compressing large mail boxes.
>
>Could someone please point me in the right direction? Perhaps provide me
>with a small example?
>
>Thanks in advance for any avice.
>
>
>Truthless
------------------------------
Date: Thu, 11 Dec 2003 06:14:19 +0000
From: Truthless <nospam@spamcop.org>
Subject: Re: File handeling
Message-Id: <QpXBb.117346$PD3.5832044@nnrp1.uunet.ca>
Carsten Aulbert wrote:
> Hi nameless one ;-),
>
> I think a good starting point would be to look at 'perldoc -f -s' which
> should list you possible operators to get info about a file, e.g. -s
> $filename will return you the size of a file in bytes.
>
> Secondly, the standard module File::Find ('perldoc File::Find') will
> help you emulating some parts of the find program.
>
> HTH
>
> CA
Hello,
Thanks for the info all who replied.
Guess I need to learn more about the include modules. No sense
reinventing the wheel.
------------------------------
Date: Thu, 11 Dec 2003 13:21:37 +0000
From: Helgi Briem <HelgiBriem_1@hotmail.com>
Subject: Re: File handeling
Message-Id: <ijrgtv8m9vsvkdtovdrbbodtc3gii791l3@4ax.com>
On Thu, 11 Dec 2003 06:14:19 +0000, Truthless <nospam@spamcop.org>
wrote:
>> I think a good starting point would be to look at 'perldoc -f -s' which
>> should list you possible operators to get info about a file, e.g. -s
>> $filename will return you the size of a file in bytes.
>>
>> Secondly, the standard module File::Find ('perldoc File::Find') will
>> help you emulating some parts of the find program.
>Guess I need to learn more about the include modules. No sense
>reinventing the wheel.
Exactly.
The first step in learning Perl is to learn to use the
tools and documentation that come with it.
Now to find out what the File::Find module does for you,
open a command line and type the following:
perldoc File::Find
This will tell you a lot.
To study the documentation for a function, use
perldoc -f FUNCTION_NAME
To search for a word in the headings of various
Frequently Asked Questions, type
perldoc -q KEYWORD
To learn more, have a look at:
perldoc perl
perldoc perldoc
perldoc perlrun
perldoc perltoc
I hope this helps.
------------------------------
Date: 11 Dec 2003 10:26:03 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: In search of elegant code - searching keys of hashes in array
Message-Id: <br9gnr$72b$1@mamenchi.zrz.TU-Berlin.DE>
David Filmer <IneverReadAnythingSentToMe@hotmail.com> wrote in comp.lang.perl.misc:
> Suppose I have an array of hashes of names and social-security
> numbers:
>
> @ARRAY = (
Upper case names should be reserved for system variables (and a few
exceptions).
> { first => 'John', last => 'Doe', ssn => '123-45-6789' },
> { first => 'Fred', last => 'Ree', ssn => '9876-54-321' }
> );
>
> Now suppose I want to print an error if any particular SSNs (say
> '234-56-7890' and '0987-65-4321') are not found in my @ARRAY.
> Obviously I can't just grep the array.
Why not?
warn "boo: $ssn\n" unless grep $_->{ ssn} eq $ssn, @ARRAY;
It isn't particularly efficient, but perfectly valid.
> I could build an intermediate
> hash (%SSN) like this:
The only reason to do that would be efficiency.
> for (@ARRAY) { $SSN{$$_{'ssn'}}++ }
> for (qw/234-56-7890 0987-65-4321/) {
> print "Not found: $_\n" unless $SSN{$_}
> }
This way you build the hash from scratch each time you need it. It
won't save time over grep that way.
> but that's REALLY ugly (I don't like the creation of the intermediate
> %SSN hash). I would appreciate suggestions for a more elegant
> approach.
If you find you need the hash, build it along with the array @ARRAY,
so that it is always up to date. Then a fast lookup can decide if
a ssn is in the table or not.
Anno
------------------------------
Date: 11 Dec 2003 02:44:38 -0800
From: bart@nijlen.com (Bart Van der Donck)
Subject: Re: Memory: measuring 5 limitations
Message-Id: <b5884818.0312110244.22c3b580@posting.google.com>
James Willmore wrote:
> *If* you have shell access, you *may* be able to use
> 'time "name of script here"'.
> This will give you information about the execution of the script. Not
> Perl, but it will give you more information than what you're getting
> now.
Yeah I have shell access and I can execute the time command.
The output of 'time "script.cgi"' is:
script.cgi: command not found
So I played a little around, my best shot was something like this:
'time "perl -e script.cgi"'
But whatever I do, it always says that it can't find the command
between the quotation marks.
However the output format looks great and I believe that it is what I
need:
0.000u 0.000s 0:00.00 0.0% 0+0k 0+0io 0pf+0w
Am I missing something?
Regards
Bart
------------------------------
Date: Thu, 11 Dec 2003 14:10:26 +0100
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: Memory: measuring 5 limitations
Message-Id: <br9te8$662$1@news.dtag.de>
> 'time "perl -e script.cgi"'
time perl script.cgi
???
------------------------------
Date: Thu, 11 Dec 2003 09:54:19 -0000
From: BEdwards@hotmail.com (Brian Edwards)
Subject: Need programmers? At Colance they compete for your business. M
Message-Id: <vtgfmbb4orpn17@corp.supernews.com>
Webmasters: Colance specialise in connecting your ideas with Freelance Professionals to produce your project.
Programmers: Providing your Service is made easy through Colance. It is free to sign up with no monthly costs.
LsMLTV
------------------------------
Date: 11 Dec 2003 05:14:13 GMT
From: "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
Subject: Re: no $workbook->Close; in Spreadsheet::WriteExcel but in Win32::OLE?
Message-Id: <Xns944E269538E3asu1cornelledu@132.236.56.8>
zdu@cs.nmsu.edu (Zhidian Du) wrote in
news:e4c69a32.0312102053.6ee97a5d@posting.google.com:
> When I write a program that need the xls file immediately after
> finishing writing the xls file. Why there is no $workbook->Close; to
> close the current file?
I do not have Spreadsheet::WriteExcel installed checking the docsquickly
reveals that there issuch a method indeed.
http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-0.42/WriteExcel.pm
> #$workbook->SaveAs( $dir . '/perl_ole.xls');
On the other hand there is no mention of this method.
> #$workbook->Close;
Case matters in Perl.
--
A. Sinan Unur
asu1@c-o-r-n-e-l-l.edu
Remove dashes for address
Spam bait: mailto:uce@ftc.gov
------------------------------
Date: Thu, 11 Dec 2003 09:51:45 -0000
From: EWright@google.com (Eric Wright)
Subject: No program too tough. At Colance we have the best professionals. OZ7m
Message-Id: <vtgfhh95sssf1f@corp.supernews.com>
Webmasters: Colance specialise in connecting your ideas with Freelance Professionals to produce your project.
Programmers: Providing your Service is made easy through Colance. It is free to sign up with no monthly costs.
l3IzChPSq6cEVzPlNxnqSrCG
------------------------------
Date: Thu, 11 Dec 2003 09:51:33 -0000
From: IRamirez@google.com (Irene Ramirez)
Subject: No program too tough. At Colance we have the best professionals. u
Message-Id: <vtgfh5ll4bi80d@corp.supernews.com>
Webmasters: Colance specialise in connecting your ideas with Freelance Professionals to produce your project.
Programmers: Providing your Service is made easy through Colance. It is free to sign up with no monthly costs.
cpMlQSny
------------------------------
Date: Thu, 11 Dec 2003 06:27:39 -0600
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: No program too tough. At Colance we have the best professionals. u
Message-Id: <Xns944E4BE1F8039sdn.comcast@216.196.97.136>
IRamirez@google.com (Irene Ramirez) wrote in
news:vtgfh5ll4bi80d@corp.supernews.com:
>
>
> Webmasters: Colance specialise in connecting your ideas with Freelance
> Professionals to produce your project. Programmers: Providing your
> Service is made easy through Colance. It is free to sign up with no
> monthly costs.
I think it's time to mount a DOS attack against colance.com.
--
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
------------------------------
Date: Thu, 11 Dec 2003 07:07:13 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: No program too tough. At Colance we have the best professionals. u
Message-Id: <slrnbtgr01.l2.tadmc@magna.augustmail.com>
Peter Hickman <peter@semantico.com> wrote:
> unless I am mistaken google don't do email.
We aren't doing email (SMTP) either, we are doing Usenet (NNTP).
Usenet is not email.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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.
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 V10 Issue 5925
***************************************
