[28825] in Perl-Users-Digest
Perl-Users Digest, Issue: 69 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 24 21:38:57 2007
Date: Wed, 24 Jan 2007 18:38:22 -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 Wed, 24 Jan 2007 Volume: 11 Number: 69
Today's topics:
efficiency question about 'split' <g_m@remove-comcast.net>
Re: efficiency question about 'split' xhoster@gmail.com
Re: efficiency question about 'split' xhoster@gmail.com
Re: efficiency question about 'split' <g_m@remove-comcast.net>
Re: efficiency question about 'split' <g_m@remove-comcast.net>
Re: efficiency question about 'split' <paul.marquess@btinternet.com>
Re: efficiency question about 'split' <bik.mido@tiscalinet.it>
Re: efficiency question about 'split' xhoster@gmail.com
Re: efficiency question about 'split' xhoster@gmail.com
Re: Email-Find module jcharth@hotmail.com
Re: Email-Find module <glex_no-spam@qwest-spam-no.invalid>
Re: Email-Find module <greg.ferguson@icrossing.com>
Email::Send <anedza@infotek-consulting.com>
Re: Email::Send <anedza@infotek-consulting.com>
Re: forum perl <jurgenex@hotmail.com>
Re: forum perl <john@castleamber.com>
Re: forum perl <bik.mido@tiscalinet.it>
Re: forum perl <scobloke2@infotop.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 23 Jan 2007 21:03:43 -0500
From: "~greg" <g_m@remove-comcast.net>
Subject: efficiency question about 'split'
Message-Id: <Ba2dnWqU24gcIyvYnZ2dnUVZ_qOpnZ2d@comcast.com>
I have a very large Archive::Zip object, $Dictionary,
and I am doing a loop over its contents, like this:
foreach my $line (split "\n", $Dictionary->contents())
{
....
}
So.
I was just wondering if perl is smart enough
not to literally actually make a temporary big array first
out of the splitting of the big string $Dictionary->contents() ...
( because i hope it is)
~Greg.
------------------------------
Date: 24 Jan 2007 05:46:46 GMT
From: xhoster@gmail.com
Subject: Re: efficiency question about 'split'
Message-Id: <20070124004724.664$3L@newsreader.com>
"~greg" <g_m@remove-comcast.net> wrote:
> I have a very large Archive::Zip object, $Dictionary,
> and I am doing a loop over its contents, like this:
>
> foreach my $line (split "\n", $Dictionary->contents())
> {
> ....
> }
>
> So.
> I was just wondering if perl is smart enough
> not to literally actually make a temporary big array first
> out of the splitting of the big string $Dictionary->contents()
I'm pretty sure that first it will read the entire contents into memory as
a very big scalar, and then it will split the entire contents, in memory,
into an even bigger array.
You'll probably want to use the fh() method to get a file handle, and then
read from that handle line by line.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 24 Jan 2007 06:04:23 GMT
From: xhoster@gmail.com
Subject: Re: efficiency question about 'split'
Message-Id: <20070124010501.926$QV@newsreader.com>
xhoster@gmail.com wrote:
> "~greg" <g_m@remove-comcast.net> wrote:
> > I have a very large Archive::Zip object, $Dictionary,
> > and I am doing a loop over its contents, like this:
> >
> > foreach my $line (split "\n", $Dictionary->contents())
> > {
> > ....
> > }
> >
> > So.
> > I was just wondering if perl is smart enough
> > not to literally actually make a temporary big array first
> > out of the splitting of the big string $Dictionary->contents()
>
> I'm pretty sure that first it will read the entire contents into memory
> as a very big scalar, and then it will split the entire contents, in
> memory, into an even bigger array.
>
> You'll probably want to use the fh() method to get a file handle, and
> then read from that handle line by line.
Actually, that gives you handle onto the compressed data stream, not the
uncompressed one. I'm sure that there is a way to this with the tools
listed under "Low-level member data reading", but at this point I'd just
punt and extract it to a temp file then re-read it from that.
> Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Wed, 24 Jan 2007 02:38:11 -0500
From: "~greg" <g_m@remove-comcast.net>
Subject: Re: efficiency question about 'split'
Message-Id: <qvKdnYYzx6t_kSrYnZ2dnUVZ_oqmnZ2d@comcast.com>
<xhoster@gmail.com> wrote in message news:20070124010501.926$QV@newsreader.com...
> xhoster@gmail.com wrote:
>> "~greg" <g_m@remove-comcast.net> wrote:
>> > I have a very large Archive::Zip object, $Dictionary,
>> > and I am doing a loop over its contents, like this:
>> >
>> > foreach my $line (split "\n", $Dictionary->contents())
>> > {
>> > ....
>> > }
>> >
>> > So.
>> > I was just wondering if perl is smart enough
>> > not to literally actually make a temporary big array first
>> > out of the splitting of the big string $Dictionary->contents()
>>
>> I'm pretty sure that first it will read the entire contents into memory
>> as a very big scalar, and then it will split the entire contents, in
>> memory, into an even bigger array.
>>
>> You'll probably want to use the fh() method to get a file handle, and
>> then read from that handle line by line.
>
> Actually, that gives you handle onto the compressed data stream, not the
> uncompressed one. I'm sure that there is a way to this with the tools
> listed under "Low-level member data reading", but at this point I'd just
> punt and extract it to a temp file then re-read it from that.
>
>> Xho
>
Thank you.
However a temp file would defeat the purpose.
This is what I'm doing with the $ZippedFile:
use Archive::Zip;
my $Zip = Archive::Zip->new("$Folder/$ZippedFile");
my ($Dictionary) = $Zip->members();
--and the result is exactly the same
as if I'd done this with the $UnzippedFile:
open F, "$Folder/$UnzippedFile";
my $Dictionary = join "\n", (<F>);
close F;
EXCEPT that the loading is about 4 times faster
from the $ZippedFile, --even though it has to be
expanded in-memory, -- than from the unzipped file.
But what I don't know is
1) does every call to $Dictionary->contents()
go through the inflation process again?
And 2) - what is a very general perl question:
Since I will be running the loop many many times,
can I just leave it like this?
foreach my $line (split "\n", $String)
or should I do this?
my @String = split "\n", $String;
foreach my $line (@String)
The reason I'd want to leave it the first way
is that $String is very larger, and @String
would be even larger.
I would undef $String, but still, for a moment,
anyway the 2nd way just might be using twice
as much memory as is really necessary.
But I don't know, because IF the first way
does essentially the same thing that the 2nd
way does, but with a temorary @String,
--and IF it does it EVERY single time it's called,
then that obviously that would be wrong way
to go!
I hope that's clearer :)
~greg
------------------------------
Date: Wed, 24 Jan 2007 03:12:01 -0500
From: "~greg" <g_m@remove-comcast.net>
Subject: Re: efficiency question about 'split'
Message-Id: <oLCdnVvB09t4iSrYnZ2dnUVZ_sCinZ2d@comcast.com>
I just tried this:
while($Dictionary->contents() =~ /^(.*)$/gm)
{
my $line = $1;
...
}
I wasn't sure that $Dictionary->contents()
would be a full-fledged string, with the book-keeping
necessary to keep place during the loop,
But it does seem to be. (Or become)
Because it worked.
Except that it's about 100 times slower!
------------------------------
Date: Wed, 24 Jan 2007 09:57:03 +0000
From: Paul Marquess <paul.marquess@btinternet.com>
Subject: Re: efficiency question about 'split'
Message-Id: <45b72d71$0$310$4d4eb98e@read.news.uk.uu.net>
~greg wrote:
>
>
> I have a very large Archive::Zip object, $Dictionary,
> and I am doing a loop over its contents, like this:
>
> foreach my $line (split "\n", $Dictionary->contents())
> {
> ....
> }
>
>
>
> So.
> I was just wondering if perl is smart enough
> not to literally actually make a temporary big array first
> out of the splitting of the big string $Dictionary->contents() ...
Nope, it will uncompress the whole lot in memory, then split that into an
array.
A more efficient way to do what you want is with Archive::Zip::MemberRead,
which is part of Archive::Zip. This is from its synopsis
use Archive::Zip;
use Archive::Zip::MemberRead;
$zip = new Archive::Zip("file.zip");
$fh = new Archive::Zip::MemberRead($zip, "subdir/abc.txt");
while (defined($line = $fh->getline()))
{
print $fh->input_line_number . "#: $line\n";
}
Alternatively you can use IO::Uncompress::Unzip to do the same thing
use IO::Uncompress::Unzip qw(:all);
my $file = "$Folder/$ZippedFile";
my $uz = IO::Uncompress::Unzip->new($file)
or die "Cannot open $file: $UnzipError\n";
while (<$uz>)
{
}
Paul
------------------------------
Date: Wed, 24 Jan 2007 11:34:32 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: efficiency question about 'split'
Message-Id: <6cber2lnrauic61ku0folpic1e525qn0fl@4ax.com>
On Wed, 24 Jan 2007 02:38:11 -0500, "~greg" <g_m@remove-comcast.net>
wrote:
>This is what I'm doing with the $ZippedFile:
>
> use Archive::Zip;
> my $Zip = Archive::Zip->new("$Folder/$ZippedFile");
> my ($Dictionary) = $Zip->members();
>
>--and the result is exactly the same
>as if I'd done this with the $UnzippedFile:
>
> open F, "$Folder/$UnzippedFile";
> my $Dictionary = join "\n", (<F>);
Except that in this case you would better to slurp the file all at
once by local()lly setting $/ to undef, or by using File::Slurp.
(Incidentally I also think you would have twice as "\n"'s as
necessary.)
>EXCEPT that the loading is about 4 times faster
>from the $ZippedFile, --even though it has to be
>expanded in-memory, -- than from the unzipped file.
Well, in that case you're generating a huge list, requiring perl to
split on the input record separator, and join() it back, which
probably explains the slowliness.
>1) does every call to $Dictionary->contents()
> go through the inflation process again?
I don't have the slightest idea, but then you may either look into
Archive::Zip's sources or do a benchmark comparing (i) code that just
calls the contents() method on the same previously created object and
(ii) code that instantiates a new object every time. I suppose that
the instantiation times are negligible compared to the inflation ones,
so if (i) is considerably faster than (ii) chances are that it caches
its results.
>And 2) - what is a very general perl question:
>Since I will be running the loop many many times,
>can I just leave it like this?
>
> foreach my $line (split "\n", $String)
Why not?
But better yet would be, as another poster suggested, if there were a
method returning a filehandle for reading line by line.
>or should I do this?
>
> my @String = split "\n", $String;
> foreach my $line (@String)
Absolutely not required and not particularly adding to clarity IMHO. I
would only do so if in addition to iterating over @String I would need
to randomly access its entries within the loop itself, which is not
probable.
>I would undef $String, but still, for a moment,
That wouldn't buy you much.
>anyway the 2nd way just might be using twice
>as much memory as is really necessary.
I'm not that expert about these issues, but remember that the list
must be built in memory also if it is not assigned to an array...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 24 Jan 2007 15:55:34 GMT
From: xhoster@gmail.com
Subject: Re: efficiency question about 'split'
Message-Id: <20070124105617.894$7P@newsreader.com>
"~greg" <g_m@remove-comcast.net> wrote:
> <xhoster@gmail.com> wrote in message
> news:20070124010501.926$QV@newsreader.com...
> > xhoster@gmail.com wrote:
> >> "~greg" <g_m@remove-comcast.net> wrote:
> >> > I have a very large Archive::Zip object, $Dictionary,
> >> > and I am doing a loop over its contents, like this:
> >> >
> >> > foreach my $line (split "\n", $Dictionary->contents())
> >> > {
> >> > ....
> >> > }
> >> >
> >> > So.
> >> > I was just wondering if perl is smart enough
> >> > not to literally actually make a temporary big array first
> >> > out of the splitting of the big string $Dictionary->contents()
> >>
> >> I'm pretty sure that first it will read the entire contents into
> >> memory as a very big scalar, and then it will split the entire
> >> contents, in memory, into an even bigger array.
> >>
> >> You'll probably want to use the fh() method to get a file handle, and
> >> then read from that handle line by line.
> >
> > Actually, that gives you handle onto the compressed data stream, not
> > the uncompressed one. I'm sure that there is a way to this with the
> > tools listed under "Low-level member data reading", but at this point
> > I'd just punt and extract it to a temp file then re-read it from that.
> >
> >> Xho
> >
>
> Thank you.
>
> However a temp file would defeat the purpose.
>
...
>
> But what I don't know is
>
> 1) does every call to $Dictionary->contents()
> go through the inflation process again?
I suspect so. However, $Dictionary->contents() is only called
once for the entire foreach loop, not once for each iteration
of that loop. So if your foreach loop is nested in another loop,
$Dictionary->contents() is called once per outer loop, not once per
outer loop * inner loop.
>
> And 2) - what is a very general perl question:
> Since I will be running the loop many many times,
> can I just leave it like this?
>
> foreach my $line (split "\n", $String)
>
> or should I do this?
>
> my @String = split "\n", $String;
> foreach my $line (@String)
I think those are effectively identical.
>
> The reason I'd want to leave it the first way
> is that $String is very larger, and @String
> would be even larger.
I suspect this makes no difference.
> I would undef $String, but still, for a moment,
> anyway the 2nd way just might be using twice
> as much memory as is really necessary.
This is Perl, you are almost certainly using more than twice as much
memory as is really necessary anyway :)
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 24 Jan 2007 16:02:52 GMT
From: xhoster@gmail.com
Subject: Re: efficiency question about 'split'
Message-Id: <20070124110335.953$aK@newsreader.com>
Paul Marquess <paul.marquess@btinternet.com> wrote:
> ~greg wrote:
>
> >
> >
> > I have a very large Archive::Zip object, $Dictionary,
> > and I am doing a loop over its contents, like this:
> >
> > foreach my $line (split "\n", $Dictionary->contents())
> > {
> > ....
> > }
> >
> >
> >
> > So.
> > I was just wondering if perl is smart enough
> > not to literally actually make a temporary big array first
> > out of the splitting of the big string $Dictionary->contents() ...
>
> Nope, it will uncompress the whole lot in memory, then split that into an
> array.
>
> A more efficient way to do what you want is with
> Archive::Zip::MemberRead, which is part of Archive::Zip. This is from its
> synopsis
Very nice. I wish Archive::Zip::MemberRead was mentioned somewhere in
the Archive::Zip perldoc.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 24 Jan 2007 04:49:51 -0800
From: jcharth@hotmail.com
Subject: Re: Email-Find module
Message-Id: <1169642991.651548.61500@v45g2000cwv.googlegroups.com>
thanks for the input, never seen a modules like this one, i put a
variable inside. not sure, it does not look clean but it works
my $manyemails1 ="";
my $finder1 = Email::Find->new(sub {
my($email1, $orig_email1) = @_;
my $acutemp1;
$acutemp1 = $email1->format;
$manyemails1 = "$manyemails1
$acutemp1";
return $orig_email1;
});
$finder1->find(\$myfrom);
$myfrom = $manyemails1 ;
On Jan 23, 4:16 pm, kra...@visto.com wrote:
> On Jan 23, 2:21 pm, jcha...@hotmail.com wrote:
>
> > Hello Guys I am trying to extract all email from text file using the
> > Email-find module and put them in an array
> > but i cant seem to figure it out. when i give it a text sample it works
> > but it just prints the emails out. How can i put them in an array? or
> > just put them in a string variable?
> > thanks.
>
> > my $finder = Email::Find->new(sub {
> > my($email, $orig_email) = @_;
> > print "Found ".$email->format."\n";
> > return $orig_email;
> > });
> > $finder->find(\$text);The emails are printing out because you're printing them out. Hence the
> print statement you are using. If you wish to add them to an array then
> do so.
------------------------------
Date: Wed, 24 Jan 2007 09:58:40 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Email-Find module
Message-Id: <45b781b1$0$508$815e3792@news.qwest.net>
jcharth@hotmail.com wrote:
> thanks for the input, never seen a modules like this one, i put a
> variable inside. not sure, it does not look clean but it works
>
> my $manyemails1 ="";
>
> my $finder1 = Email::Find->new(sub {
> my($email1, $orig_email1) = @_;
> my $acutemp1;
> $acutemp1 = $email1->format;
> $manyemails1 = "$manyemails1
> $acutemp1";
> return $orig_email1;
> });
> $finder1->find(\$myfrom);
> $myfrom = $manyemails1 ;
Please, post your reply AFTER, the previous post, instead of before it.
To make it "look clean", use push.
perldoc -f push
e.g.
my @manyemails1;
push ( @manyemails1, $email1->format );
print "@manyemails1\n";
No need for $acutemp1.
------------------------------
Date: 24 Jan 2007 15:22:09 -0800
From: "gf" <greg.ferguson@icrossing.com>
Subject: Re: Email-Find module
Message-Id: <1169680929.227435.60500@a75g2000cwd.googlegroups.com>
jcharth@hotmail.com wrote:
> $manyemails1 = "$manyemails1
> $acutemp1";
I can't begin to explain how much it hurts to see that.
For your own future sanity read through the perldata documentation...
perldoc perldata
and pay particular attention to the section on arrays and lists. They
are primary building blocks to storing and accessing data in any
language, and the basis for hashes in Perl.
------------------------------
Date: 24 Jan 2007 11:51:18 -0800
From: "Andy" <anedza@infotek-consulting.com>
Subject: Email::Send
Message-Id: <1169668278.829927.129630@v45g2000cwv.googlegroups.com>
I'm using the perl module Email::Send to generate email. In my tests,
the send function executes and no errors are thrown. But, even though
I'm sending the email to myself through my local SMTP email server to
my local exchange server, nothing seems to happen.
I'm also using Email::MIME and Email::MIME::Creator to build the email
headers.
Does anyone have any suggestions on what is going wrong or how to
diagnose the problem?
Here's the code I'm calling to send the email:
#SendEmail($html,$text,$sender,$recipient,$subject,$smtpserver);
sub SendEmail{
($html,$text,$sender,$recipient,$subject,$smtpserver)=@_;
@multipart = (
Email::MIME->create(
attributes => {
content_type => "text/plain",
format => "flowed",
charset => "US-ASCII",
},
body => $text,
),
Email::MIME->create(
attributes => {
content_type => "text/html",
charset => "US-ASCII",
encoding => "quoted-printable",
format => "flowed",
},
body => $html,
),
);
$email = Email::MIME->create(
header => [ From => $sender ],
parts => [ @multipart ],
);
$email->header_set( To => $recipient );
$email->header_set( Subject => $subject );
$email->header_set( 'Content-Type' => 'multipart/alternative' );
$email->boundary_set('INFOTEK_Boundary_text');
$mailer = Email::Send->new({mailer => 'SMTP'});
$mailer->mailer_args([Host => "$smtpserver"]);
$mailer->send($email);
}
------------------------------
Date: 24 Jan 2007 11:56:34 -0800
From: "Andy" <anedza@infotek-consulting.com>
Subject: Re: Email::Send
Message-Id: <1169668594.139389.12770@v33g2000cwv.googlegroups.com>
Sorry about that, here's a more legible copy of the code:
#SendEmail($html,$text,$sender,$recipient,$subject,$smtpserver);
sub SendEmail{
($html,$text,$sender,$recipient,$subject,$smtpserver)=@_;
@multipart = (
Email::MIME->create(
attributes => {
content_type => "text/plain",
format => "flowed",
charset => "US-ASCII",
},
body => $text,
),
Email::MIME->create(
attributes => {
content_type => "text/html",
charset => "US-ASCII",
encoding => "quoted-printable",
format => "flowed",
},
body => $html,
),
);
$email = Email::MIME->create(
header => [ From => $sender ],
parts => [ @multipart ],
);
$email->header_set( To => $recipient );
$email->header_set( Subject => $subject );
$email->header_set( 'Content-Type' => 'multipart/alternative' );
$email->boundary_set('INFOTEK_Boundary_text');
$mailer = Email::Send->new({mailer => 'SMTP'});
$mailer->mailer_args([Host => "$smtpserver"]);
$mailer->send($email);
}
------------------------------
Date: Wed, 24 Jan 2007 04:24:29 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: forum perl
Message-Id: <1cBth.7274$8P.6448@trndny05>
Michele Dondi wrote:
> On Tue, 23 Jan 2007 05:55:43 +0100, "john.swilting"
> <john.swilting@wanadoo.fr> wrote:
>
>> Exist you he(it) of the forums perl
>> There are solutions with php
>> But I schedule(program) it perl not with php
>> Sourceforge gives me 3000 solutions
>> How to choose
>
> I understand that you may not be a native English speaker
Although the name John would indicate otherwise. At least I am not aware of
any other language that uses "John" as a given name.
> I. Whatever, may you try to explain yourself better?
I second that
jue
------------------------------
Date: 24 Jan 2007 04:47:58 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: forum perl
Message-Id: <Xns98C1E7ED2637Dcastleamber@130.133.1.4>
"Jürgen Exner" <jurgenex@hotmail.com> wrote:
> Michele Dondi wrote:
>> On Tue, 23 Jan 2007 05:55:43 +0100, "john.swilting"
>> <john.swilting@wanadoo.fr> wrote:
>>
>>> Exist you he(it) of the forums perl
>>> There are solutions with php
>>> But I schedule(program) it perl not with php
>>> Sourceforge gives me 3000 solutions
>>> How to choose
>>
>> I understand that you may not be a native English speaker
>
> Although the name John would indicate otherwise. At least I am not
> aware of any other language that uses "John" as a given name.
I am Dutch, and I am John(y) [1]. Or do you mean something else?
[1] My passport states Johny, but I know plenty of Dutch people with non-
Dutch names.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Wed, 24 Jan 2007 10:03:04 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: forum perl
Message-Id: <i28er25ekk9ie1t7m9lnovlpifmt9lvija@4ax.com>
On Wed, 24 Jan 2007 04:24:29 GMT, "Jürgen Exner"
<jurgenex@hotmail.com> wrote:
>> I understand that you may not be a native English speaker
>
>Although the name John would indicate otherwise. At least I am not aware of
>any other language that uses "John" as a given name.
Well, that may just be a nick not necessarily corresponding or even
related to the OP's real name, and OTOH
: Message-ID: <45b59547$0$27387$ba4acef3@news.orange.fr>
^^
^^
: From: "john.swilting" <john.swilting@wanadoo.fr>
^^
^^
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 24 Jan 2007 14:35:45 +0000
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: forum perl
Message-Id: <ReOdne71hNxe8yrYnZ2dnUVZ8s2mnZ2d@bt.com>
Jürgen Exner wrote:
> Michele Dondi wrote:
>
>>On Tue, 23 Jan 2007 05:55:43 +0100, "john.swilting"
>><john.swilting@wanadoo.fr> wrote:
>>
>>
>>>Exist you he(it) of the forums perl
>>>There are solutions with php
>>>But I schedule(program) it perl not with php
>>>Sourceforge gives me 3000 solutions
>>>How to choose
>>
>>I understand that you may not be a native English speaker
>
>
> Although the name John would indicate otherwise.
In another thread, John Swilting said "I am French."
The construct "he(it)" is not the sort of English I'd expect from a
human "native English speaker".
------------------------------
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 69
*************************************
