[29261] in Perl-Users-Digest
Perl-Users Digest, Issue: 505 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 11 21:09:50 2007
Date: Mon, 11 Jun 2007 18:09:07 -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 Mon, 11 Jun 2007 Volume: 11 Number: 505
Today's topics:
Does anybody know why mx1.hotmail.com doesn't response <needpassion@gmail.com>
Re: Does anybody know why mx1.hotmail.com doesn't respo (Randal L. Schwartz)
Re: Does anybody know why mx1.hotmail.com doesn't respo <needpassion@gmail.com>
Re: Does anybody know why mx1.hotmail.com doesn't respo <tadmc@seesig.invalid>
Re: Does anybody know why mx1.hotmail.com doesn't respo <needpassion@gmail.com>
Re: lookahead bug (at least in 5.8.4) <tadmc@seesig.invalid>
Re: lwp:: what came before get <tadmc@seesig.invalid>
Re: parallel child processes not working properly vkinger@hotmail.com
Re: parallel child processes not working properly xhoster@gmail.com
Re: Passing literal with reference? <mritty@gmail.com>
Re: Passing literal with reference? <rvtol+news@isolution.nl>
Re: The Concepts and Confusions of Prefix, Infix, Postf <tfb+google@tfeb.org>
Re: The Concepts and Confusions of Prefix, Infix, Postf <pats@acm.org>
Re: Useless use of array element in void context <rvtol+news@isolution.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Jun 2007 13:09:36 -0700
From: mike <needpassion@gmail.com>
Subject: Does anybody know why mx1.hotmail.com doesn't response correctly? Thanks
Message-Id: <1181592576.634398.146900@j4g2000prf.googlegroups.com>
Hi Guys,
In command line, I tried to connect and read responses from hotmail's
smtp server, and get the ACK very fast, and correct. But, when I tried
to do the same work with a script, the response to "helo" was very
slow(30 seconds), and failed eventually. However, when I tried with
gmail's smtp server(and some others), the script worked fine.
Could anybody give me some hints what the problem is(please see
attached content)?
Thanks a lot.
Mike
-------------------------------------------------------------
In command line:
[testhost]$ telnet mx1.hotmail.com 25
Trying 65.54.244.136...
Connected to mx1.hotmail.com (65.54.244.136).
Escape character is '^]'.
220 bay0-mc3-f9.bay0.hotmail.com Sending unsolicited commercial or
bulk e-mail to Microsoft's computer network is prohibited. Other
restrictions are found at http://privacy.msn.com/Anti-spam/.
Violations will result in use of equipment located in California and
other states. Mon, 11 Jun 2007 12:59:17 -0700
helo testeasy.com
250 bay0-mc3-f9.bay0.hotmail.com (3.3.3.1) Hello [65.61.195.165]
quit
221 bay0-mc3-f9.bay0.hotmail.com Service closing transmission channel
Connection closed by foreign host.
[testhost]$
-------------------------------------------------------------
Run the test.pl with gmail's smtp server:
[testhost]$ test.pl gsmtp183.google.com
2007-05-11 13:01:24 << 220 mx.google.com ESMTP 34si1452943nfu
2007-05-11 13:01:24 >> helo testeasy.com
2007-05-11 13:01:24 waiting...
2007-05-11 13:01:24 << 250 mx.google.com at your service
2007-05-11 13:01:24 done
[testhost]$
-------------------------------------------------------------
Run the test.pl with hotmail's smtp server:
[testhost]$ test.pl mx1.hotmail.com
2007-05-11 13:01:56 << 220 bay0-mc12-f16.bay0.hotmail.com Sending
unsolicited commercial or bulk e-mail to Microsoft's computer network
is prohibited. Other restrictions are found at http://privacy.msn.com/Anti-spam/.
Violations will result in use of equipment located in California and
other states. Mon, 11 Jun 2007 13:01:19 -0700
2007-05-11 13:01:56 >> helo testeasy.com
2007-05-11 13:01:56 waiting...
2007-05-11 13:02:26 << NOTHING
2007-05-11 13:02:26 done
[testhost]$
-------------------------------------------------------------
Source code of test.pl
#!/usr/bin/perl -w
use strict;
use IO::Socket;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
my ($string, $ret, $outstr);
my $s = new IO::Socket::INET(PeerAddr=>$ARGV[0],
PeerPort=> 25,
Proto => 'tcp',
Timeout => 10);
die "Could not create socket: $!\n" unless $s;
select($s);
$|=1;
select(STDOUT);
$ret = $s->sysread( $string, 4096);
&prtlog("<< $string");
$string = "helo testeasy.com\n";
$ret = $s->syswrite($string);
if ($ret != length($string)) {
prtlog("syswrite error. $ret\n");
close($s);
exit(0);
}
&prtlog(">> $string");
$string = '';
&prtlog("waiting...\n");
$ret = $s->sysread( $string, 4096);
if ($string eq '') {
&prtlog("<< NOTHING\n");
}
else {
&prtlog("<< $string");
}
close($s);
prtlog("done\n");
sub get_date()
{
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov
Dec);
my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset,
$dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
my $year = 1900 + $yearOffset;
return sprintf("%d-%02d-%02d %02d:%02d:%02d", $year, $month,
$dayOfMonth, $hour, $minute, $second);
}
sub prtlog {
my $str = shift;
print &get_date." $str";
}
------------------------------
Date: Mon, 11 Jun 2007 15:21:06 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Does anybody know why mx1.hotmail.com doesn't response correctly? Thanks
Message-Id: <864pledtf1.fsf@blue.stonehenge.com>
>>>>> "mike" == mike <needpassion@gmail.com> writes:
mike> In command line, I tried to connect and read responses from hotmail's
mike> smtp server, and get the ACK very fast, and correct. But, when I tried
mike> to do the same work with a script, the response to "helo" was very
mike> slow(30 seconds), and failed eventually. However, when I tried with
mike> gmail's smtp server(and some others), the script worked fine.
mike> Could anybody give me some hints what the problem is(please see
mike> attached content)?
Why are you writing your own tool instead of using Net::SMTP or any of the
higher-level libraries?
And why do you care if the ACK is fast or slow?
Unless you're a spammer... in which case... FOAD.
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/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Mon, 11 Jun 2007 16:17:55 -0700
From: mike <needpassion@gmail.com>
Subject: Re: Does anybody know why mx1.hotmail.com doesn't response correctly? Thanks
Message-Id: <1181603875.971835.108750@o11g2000prd.googlegroups.com>
On Jun 11, 2:21 pm, mer...@stonehenge.com (Randal L. Schwartz) wrote:
> >>>>> "mike" == mike <needpass...@gmail.com> writes:
>
> mike> In command line, I tried to connect and read responses from hotmail's
> mike> smtp server, and get the ACK very fast, and correct. But, when I tried
> mike> to do the same work with a script, the response to "helo" was very
> mike> slow(30 seconds), and failed eventually. However, when I tried with
> mike> gmail's smtp server(and some others), the script worked fine.
> mike> Could anybody give me some hints what the problem is(please see
> mike> attached content)?
>
> Why are you writing your own tool instead of using Net::SMTP or any of the
> higher-level libraries?
>
> And why do you care if the ACK is fast or slow?
>
> Unless you're a spammer... in which case... FOAD.
>
> print "Just another Perl hacker,"; # the original
>
> --
> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
> <mer...@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
> See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
>
> --
> Posted via a free Usenet account fromhttp://www.teranews.com
Dude, I create the lower level code doesn't mean I am a hacker. Have
you ever seen a hacker asked this such low lever questions? :-)
------------------------------
Date: Mon, 11 Jun 2007 18:22:59 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Does anybody know why mx1.hotmail.com doesn't response correctly? Thanks
Message-Id: <slrnf6rmaj.38u.tadmc@tadmc30.sbcglobal.net>
mike <needpassion@gmail.com> wrote:
> #!/usr/bin/perl -w
>
> use strict;
That should be:
#!/usr/bin/perl
use warnings;
use strict;
> &prtlog("<< $string");
You should not use the ampersand on subroutine calls unless what
it means is what you really want to do (and it seldom is).
> prtlog("syswrite error. $ret\n");
That's better.
> &prtlog(">> $string");
> &prtlog("waiting...\n");
> &prtlog("<< NOTHING\n");
> &prtlog("<< $string");
Oops, slipped back to bad style.
> prtlog("done\n");
Followed by a return to good style.
You should choose one style and stick with it.
> my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov
> Dec);
You never use the @months array. So why is it there?
> my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset,
> $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
> my $year = 1900 + $yearOffset;
> return sprintf("%d-%02d-%02d %02d:%02d:%02d", $year, $month,
> $dayOfMonth, $hour, $minute, $second);
You got the year value right. :-)
You got the month value wrong. :-(
> print &get_date." $str";
print get_date() . " $str";
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 11 Jun 2007 16:38:13 -0700
From: mike <needpassion@gmail.com>
Subject: Re: Does anybody know why mx1.hotmail.com doesn't response correctly? Thanks
Message-Id: <1181605093.159319.59430@j4g2000prf.googlegroups.com>
On Jun 11, 2:21 pm, mer...@stonehenge.com (Randal L. Schwartz) wrote:
> >>>>> "mike" == mike <needpass...@gmail.com> writes:
>
> mike> In command line, I tried to connect and read responses from hotmail's
> mike> smtp server, and get the ACK very fast, and correct. But, when I tried
> mike> to do the same work with a script, the response to "helo" was very
> mike> slow(30 seconds), and failed eventually. However, when I tried with
> mike> gmail's smtp server(and some others), the script worked fine.
> mike> Could anybody give me some hints what the problem is(please see
> mike> attached content)?
>
> Why are you writing your own tool instead of using Net::SMTP or any of the
> higher-level libraries?
>
> And why do you care if the ACK is fast or slow?
>
> Unless you're a spammer... in which case... FOAD.
>
> print "Just another Perl hacker,"; # the original
>
> --
> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
> <mer...@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
> See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
>
> --
> Posted via a free Usenet account fromhttp://www.teranews.com
Actually, I just found that hotmail.com sucks. Once I append "\r\n" to
the end of the string, then everything worked fine.
------------------------------
Date: Mon, 11 Jun 2007 17:55:18 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: lookahead bug (at least in 5.8.4)
Message-Id: <slrnf6rkmm.38u.tadmc@tadmc30.sbcglobal.net>
use63net@yahoo.com <use63net@yahoo.com> wrote:
> 'ab' =~ /(?=.*a)b/; # How the heck is this false?
The 2nd word of the description in the docs explains that:
A zero-width positive look-ahead assertion.
I'll use <> to mark the regex engine's current position.
We begin at the start of the string:
<>ab
We do a successful *zero-width* look ahead on .*a
<>ab
(the current position did not advance because that is what zero-width means)
Now we need to match a "b" next, but there is an "a" next. Cannot match here.
Since the pattern is not anchored, we advance one character
a<>b
and try again.
But now we can't match the .*a lookahead expression, so the match must fail.
> 'ab' =~ /(?=a)b/; # Nope, but still looks like it should match
> 'Xab' =~ /(?=.*a)b/; # Nice try, but putting in any other characters
> doesn't work.
Same reason for both of those.
> 'ab' =~ /(?=.*b)a/; # At least this matches as expected.
Let's do that one too:
<>ab
We do a successful zero-width look ahead on .*b
<>ab
Now we need to match an "a" next, and there is an "a" next. Match succeeds.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 11 Jun 2007 18:03:24 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: lwp:: what came before get
Message-Id: <slrnf6rl5s.38u.tadmc@tadmc30.sbcglobal.net>
joez3@yahoo.com <joez3@yahoo.com> wrote:
> I need to write a perl script using perl version 5.005 on windows
Do you mean on Windows 98?
That was contemporary with that version of perl...
> I orginally wrote the perl scipt using a new version
> of perl and LWP.
What is stopping you from installing a version of perl
from the current millenia?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 11 Jun 2007 13:49:50 -0700
From: vkinger@hotmail.com
Subject: Re: parallel child processes not working properly
Message-Id: <1181594990.107722.39220@k79g2000hse.googlegroups.com>
On Jun 11, 12:42 pm, xhos...@gmail.com wrote:
> vkin...@hotmail.com wrote:
> > Hi,
>
> > I have a problem where I am creating multiple parallel child processes
> > to connect to multiple servers. Each child process has a different
> > filehandle to read starttime from a text file at the time of fork and
> > then write into this text file each time it runs. Each child process
> > has a forever loop so that it never exits unless killed or reboot
> > occured at server and then it tries to reconnect.
>
> How does the no longer existent child process try to reconnect?
>
> > My problem is it
> > works for couple of times and logs data from different servers into
> > syslog but on 2nd or 3rd attempt(after being stopped by kill -9
> > <process id>)
>
> What is killed by kill -9, the parent or the child or something else? And
> why -9?
>From cygwin I do ps -ef and then use kill -9 <process id>, -9 is flag
to force it to die, the result is same even if I press ctrl-c.
> > it only works with the one server( it can be 1st or 2nd
> > or 3rd as I am testing with only three servers at present)
>
> What do you mean by "works" in this case?
it works once or twice, that means I can see the events coming from
the both servers but most of the time it show events coming from only
one server and the other server just shuts up:
>
> > I am not
> > sure what is wrong, may be I can use some help here from the experts.
> > Here is what I am doing.
>
> > sub fork_pids
> > {
> > my @pids;
>
> This variable doesn't seem to be used.
>
> > my $i = 0;
>
> premature declaration, no?
>
> > my $length = scalar(@lines);
> > my $pm = new Parallel::ForkManager($length);
> > print " Connecting to " , $length , " servers\n ";
> > for $i ( 1 .. $length )
> > {
> > print "spawning child processes $i\n";
>
> How many of these get printed?
I am working one server and opening two connections with two child
processes and third server configured in the text file has a wrong
address, to handle a condition where the server address is wrong, get
a open failed condition and exit that child process. here is what I
get:
Connecting to 3 servers
spawning child processes 1
spawning child processes 2
Inside the child process
<Here it calls GetEventData(0) function and stops just before entering
the forever loop>
Inside the child process
spawning child processes 3
<Here it calls the GetEventData(1) function and stops just before
entering the forever loop>
Inside the child process
<Here it calls the GetEventData(2) function and stops just before
entering the forever loop, it also tell me here that it can not
connect to third server as the IP address is wrong, for testing I gave
it 1.2.3.4>
>
> > $pm->start and next; #do the fork
> > print "Inside the child process\n";
>
> How many of these get printed?
>
> > &GetEventData($i-1);
> > $pm->finish;
> > }
> > $pm->wait_all_children;
> > }
>
Here is the layout of my program:
sub GetEventData
{
my $i = shift; #index into the config.text file that was passed
from the fork below
$s = Net::SDEE->new(
returnXML=> 1,
debug => 1,
callback => \&xmlCallback , #it is huge function I created to log
events into syslog and creat text file to take timestamp of the event
came from server so next time server starts from that time
debug_callback => \&local_debug
);
$s->Server($items[0]);
$s->Port($items[1]);
$s->Username($items[2]);
$s->Password($items[3]);
my $subs = Net::SDEE::Subscription->new();
$subs->maxNbrOfEvents(30);
$subs->startTime($lasttimearray[$i]);
$s->open($subs);
for(;;)
{
print "Getting events $$ and line $i\n";
$s->get($varsubid); #varsubid is a global variable
}
}
sub fork_pids
{
my $length = @lines;
my $pm = new Parallel::ForkManager($length);
print " Connecting to " , $length , " servers\n ";
for $i ( 1 .. $length )
{
print "spawning child processes $i\n";
$pm->start and next; #do the fork
print "Inside the child process\n";
GetEventData($i-1);
$pm->finish;
}
$pm->wait_all_children;
}
> Xho
>
> --
> --------------------http://NewsReader.Com/--------------------
> Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 11 Jun 2007 23:02:26 GMT
From: xhoster@gmail.com
Subject: Re: parallel child processes not working properly
Message-Id: <20070611190233.944$t2@newsreader.com>
vkinger@hotmail.com wrote:
> On Jun 11, 12:42 pm, xhos...@gmail.com wrote:
> > vkin...@hotmail.com wrote:
> >
> > > My problem is it
> > > works for couple of times and logs data from different servers into
> > > syslog but on 2nd or 3rd attempt(after being stopped by kill -9
> > > <process id>)
> >
> > What is killed by kill -9, the parent or the child or something else?
> > And why -9?
> From cygwin I do ps -ef and then use kill -9 <process id>, -9 is flag
> to force it to die, the result is same even if I press ctrl-c.
So once the program has been running once you kill it with ctrl-c, and
then it starts acting up the next time you run it. What does it take to
"clear" this problem so that you can run it again? A machine reboot? Or
if you just leave it for a few minutes, will it start working? Also,
aren't the children still running? At this point, the parent wasn't doing
anything but waiting on the children anyway, so the death of the parent
should have no effect--the children should still be running the same as
before. But that is from my experience on Linux, since you are using
cygwin then that very well may not apply.
> > > it only works with the one server( it can be 1st or 2nd
> > > or 3rd as I am testing with only three servers at present)
> >
> > What do you mean by "works" in this case?
> it works once or twice, that means I can see the events coming from
> the both servers but most of the time it show events coming from only
> one server and the other server just shuts up:
What do you see in the way of internal debugging information?
> > > I am not
> > > sure what is wrong, may be I can use some help here from the experts.
> > > Here is what I am doing.
> >
> > > sub fork_pids
> > > {
> > > my @pids;
> >
> > This variable doesn't seem to be used.
> >
> > > my $i = 0;
> >
> > premature declaration, no?
> >
> > > my $length = scalar(@lines);
> > > my $pm = new Parallel::ForkManager($length);
> > > print " Connecting to " , $length , " servers\n ";
> > > for $i ( 1 .. $length )
> > > {
> > > print "spawning child processes $i\n";
> >
> > How many of these get printed?
> I am working one server and opening two connections with two child
> processes and third server configured in the text file has a wrong
> address, to handle a condition where the server address is wrong, get
> a open failed condition and exit that child process. here is what I
> get:
(To clean it up, I snipped some editorial comments from the below)
> Connecting to 3 servers
> spawning child processes 1
> spawning child processes 2
> Inside the child process
> Inside the child process
> spawning child processes 3
> Inside the child process
Do you see this both when your code "works" and when your code "doesn't
work"? If so, then the problem probably lies in the part of your code that
uses Net::SDEE, rather than here. If not, then what does it print when the
code doesn't work?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 11 Jun 2007 14:31:06 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Passing literal with reference?
Message-Id: <1181597466.227518.324450@h2g2000hsg.googlegroups.com>
On Jun 11, 4:04 pm, Gunnar Hjalmarsson <nore...@gunnar.cc> wrote:
> Paul Lalli wrote:
> > I do not believe you can create a reference to a literal, regardless
> > of what you want to do with it.
>
> Why do you say that? The code below prints "myvariable" just as I would
> have expected:
>
> sub myroutine {
> my $ref = shift;
> print $$ref;
> }
>
> myroutine( \'myvariable' );
.... and I stand humbly corrected.
Thanks, Gunnar.
Paul Lalli
------------------------------
Date: Tue, 12 Jun 2007 00:54:11 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Passing literal with reference?
Message-Id: <f4kr0b.b4.1@news.isolution.nl>
dorno schreef:
> Passing variables to a subroutine by reference is covered in depth by
> any of the books. Like this...
>
> myroutine(\$var1, \@array1, \%hash1);
The \$var1 is somewhat exceptional, normally you just do
myroutine( $var1, \@array1, \%hash1);
For example:
$ perl -Mstrict -wle'
sub f {$_[0] = reverse $_[0]}
my $x = q(abc);
f $x; # changes $x
print $x;
f q{xyz};
'
cba
Modification of a read-only value attempted at -e line 2.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Mon, 11 Jun 2007 14:36:57 -0700
From: Tim Bradshaw <tfb+google@tfeb.org>
Subject: Re: The Concepts and Confusions of Prefix, Infix, Postfix and Fully Functional Notations
Message-Id: <1181597817.867161.10510@h2g2000hsg.googlegroups.com>
On Jun 11, 8:02 am, Twisted <twisted...@gmail.com> wrote:
> On Jun 11, 2:42 am, Joachim Durchholz <j...@durchholz.org> wrote:
>
> > It is possible to write maintainable Perl.
>
> Interesting (spoken in the tone of someone hearing about a purported
> sighting of Bigfoot, or maybe a UFO).
>
I think it's just obvious that this is the case. What would *stop*
you writing maintainable Perl?
------------------------------
Date: Mon, 11 Jun 2007 17:57:35 -0700
From: Patricia Shanahan <pats@acm.org>
Subject: Re: The Concepts and Confusions of Prefix, Infix, Postfix and Fully Functional Notations
Message-Id: <f4kr23$317v$1@ihnp4.ucsd.edu>
Twisted wrote:
> On Jun 11, 2:42 am, Joachim Durchholz <j...@durchholz.org> wrote:
>> It is possible to write maintainable Perl.
>
> Interesting (spoken in the tone of someone hearing about a purported
> sighting of Bigfoot, or maybe a UFO).
>
> Still, extraordinary claims require extraordinary evidence. (And no, a
> fuzzy picture of something that might be a giant serpent-like thing in
> the loch, or equivalent, does not constitute "extraordinary
> evidence".)
>
How about "I caught a very small one, but it belonged to a former
employer, so I couldn't keep it for display."?
I wrote a Perl script to process logic analyzer traces for some hardware
engineers. While I was out of the office, they found they needed to
process a new record type. They didn't want to delay their work until I
got back, and one of the EEs knew Perl, so he modified my script.
The change was done correctly. It not only worked. Except for a couple
of comments calling my attention to the changes, it looked as though
the new record type had always been there.
Patricia
------------------------------
Date: Tue, 12 Jun 2007 01:01:33 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Useless use of array element in void context
Message-Id: <f4kr9p.1fs.1@news.isolution.nl>
Marek schreef:
> Affijn:
Heheh, "Affijn" is a Dutch variant of the French "enfin".
> This is looking really genius! But this gives me a syntax
> error! I probably misunderstood something?
What did you try, and what was the syntax error?
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
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 505
**************************************
