[29512] in Perl-Users-Digest
Perl-Users Digest, Issue: 756 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 15 14:09:43 2007
Date: Wed, 15 Aug 2007 11:09:04 -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 Wed, 15 Aug 2007 Volume: 11 Number: 756
Today's topics:
Re: form requires two parameters <bill@ts1000.us>
Re: form requires two parameters <brian.pat.kelly@googlemail.com>
format a number with leading and trailing zeros absmienk@hotmail.com
Re: format a number with leading and trailing zeros (Jens Thoms Toerring)
Re: format a number with leading and trailing zeros <mritty@gmail.com>
Re: format a number with leading and trailing zeros absmienk@hotmail.com
Re: format a number with leading and trailing zeros absmienk@hotmail.com
Free advertising forum <action841@gmail.com>
Free Air Conditioners!!!!! <digitalplusmail@gmail.com>
Getting "Don't know how to decode quoted-printable" fro <terrence.beard@globalcrossing.com>
Guitar Reviews cvezvu@gmail.com
Re: problems with LWP & HTTP <Narthring@gmail.com>
Re: problems with LWP & HTTP <stoupa@practisoft.cz>
Re: Regular Expression: Perl and vi <blb8@po.cwru.edu>
Re: Regular Expression: Perl and vi (John M. Gamble)
Re: Require versus just including the script <simon.chao@gmail.com>
Software error using CGI::Session - Your vendor has not wmwilson01@gmail.com
Re: Software error using CGI::Session - Your vendor has xhoster@gmail.com
Re: Software error using CGI::Session - Your vendor has wmwilson01@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 15 Aug 2007 04:06:37 -0700
From: Bill H <bill@ts1000.us>
Subject: Re: form requires two parameters
Message-Id: <1187175997.526222.192490@50g2000hsm.googlegroups.com>
On Aug 14, 9:48 pm, "Nospam" <nos...@home.com> wrote:
> I am trying to submit a form that requires hidden fields from another form
> on the same page before being submitted the relevant html is: < <form
> name=3D"poxy_url_form" method=3D"get" action=3D"/index.php">
> <input type=3D"hidden" name=3D"q" value=3D"" id=3D"url_input" />
> <input type=3D"hidden" name=3D"hl" value=3D"" />
> </form>
> <form name=3D"poxy_settings_form" method=3D"get" action=3D"" onsubmit=
=3D"return
> submit_form();">
> <table style=3D"width: 100%">
> <tr><td class=3D"option" style=3D"width: 20%">URL</td><td class=3D"opti=
on"
> style=3D"width: 80%"> <input type=3D"text" name=3D"url" size=3D"70" =
value=3D""
> /></td></tr>
>
> I have tried it with both $mech->submit("poxy_url_form") and
> $mech->submit("poxy_settings_form"), the first passes the value but nothi=
ng
> is submitted. The full code is:
>
> #!/usr/bin/perl;
> use WWW::Mechanize;
>
> my $mech =3D WWW::Mechanize->new();
> $mech->get("http://witchproxy.info");
> $mech->form("poxy_url_form");
> $mech->set_visible('poxy_url_form','http://news.google.com');
> $mech->form("poxy_settings_form");
> $mech->field('url','http://news.google.com');
> print $mech->content();
>
> #########################################################################=
##=AD#
> #################
> As seen from the print out it doesn't show any content from news.google.c=
om
> but just the content from the first url, meaning nothing was submitted to
> the form
Both of the forms are on the same web page? If so, I dont see how
using perl would give you values from another form when it is
submitted, the browser is only going to send what is in the form being
submitted, not what is in other forms on the same web page. To get
values from another form on the same webpage into the form you are
submitting you need to use JavaScript in the page so that the clients
browser gets the values for you and puts them into hidden fields on
the form being submitted, Or am I completly missing the meaning of
this problem?
Bill H
------------------------------
Date: Wed, 15 Aug 2007 05:20:27 -0700
From: kelticeye <brian.pat.kelly@googlemail.com>
Subject: Re: form requires two parameters
Message-Id: <1187180427.893471.105050@k79g2000hse.googlegroups.com>
On Aug 15, 4:19 am, "Mumia W." <paduille.4061.mumia.w
+nos...@earthlink.net> wrote:
> On 08/14/2007 08:48 PM, Nospam wrote:
>
>
> That website, witchproxy.info, says that Javascript is required to use
> the page. Perhaps they don't want automated access there.
Mechanize should have no problem with hidden fields, but does have a
problem with javascript (as stated in cpan there is no support). The
form ("poxy_settings_form") which is the form I think you are trying
to submit to, seems to use a Javascript function submit_form() which
itself links to two other javascript functions, the default being
base64_encode(), which seems to transform the text in the "url" field.
You need to figure out what this transformation is before submitting
your url.
Using Firefox firebug is probably the best way to look through the
Javascript of a webpage.
34/* base64 encode code below is not my own, although I did modify
it. */
35
36function base64_encode(str)
37{
38 var out = '';
39 var t, x, y ,z;
40
41 for (var i = 0; i < str.length; i += 3)
42 {
43 t = Math.min(3, str.length - i);
44 if (t == 1)
45 {
46 x = str.charCodeAt(i);
47 out += alnum.charAt((x >> 2));
48 out += alnum.charAt(((x & 0X00000003) << 4));
49 out += '--';
50 }
51 else if (t == 2)
52 {
53 x = str.charCodeAt(i);
54 y = str.charCodeAt(i+1);
55 out += alnum.charAt((x >> 2));
56 out += alnum.charAt((((x & 0X00000003) << 4) | (y >> 4)));
57 out += alnum.charAt(((y & 0X0000000f) << 2));
58 out += '-';
59 }
60 else
61 {
62 x = str.charCodeAt(i);
63 y = str.charCodeAt(i+1);
64 z = str.charCodeAt(i+2);
65 out += alnum.charAt((x >> 2));
66 out += alnum.charAt((((x & 0x00000003) << 4) | (y >> 4)));
67 out += alnum.charAt((((y & 0X0000000f) << 2) | (z >> 6)));
68 out += alnum.charAt((z & 0X0000003f));
69 }
70 }
71
72 return out;
73}
------------------------------
Date: Wed, 15 Aug 2007 05:38:32 -0700
From: absmienk@hotmail.com
Subject: format a number with leading and trailing zeros
Message-Id: <1187181512.575993.266780@19g2000hsx.googlegroups.com>
Very simpel question. I want to format the number 2.3 to be printed as
00002.30000.
I tried this:
printf("%05d",2.3);
which produces 00002
and this:
printf("%.5f",2.3);
which produces 2.30000
How can I combine these formats to print: 00002.30000? I already
tgried abount a zillion combinations, but no luck so far. Any help is
appreciated. Should be simple, right?
Cheers,
Ab
------------------------------
Date: 15 Aug 2007 12:48:52 GMT
From: jt@toerring.de (Jens Thoms Toerring)
Subject: Re: format a number with leading and trailing zeros
Message-Id: <5igb1kF3pftbqU2@mid.uni-berlin.de>
absmienk@hotmail.com wrote:
> Very simpel question. I want to format the number 2.3 to be printed as
> 00002.30000.
> I tried this:
> printf("%05d",2.3);
> which produces 00002
> and this:
> printf("%.5f",2.3);
> which produces 2.30000
Combine both your attempts:
printf "%011.5\n, 2.3;
11 is the total number of chars to output (including the dot!) and
the 0 in front of it tells printf to left-fill with '0's instead of
spaces.
Regards, Jens
--
\ Jens Thoms Toerring ___ jt@toerring.de
\__________________________ http://toerring.de
------------------------------
Date: Wed, 15 Aug 2007 05:50:41 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: format a number with leading and trailing zeros
Message-Id: <1187182241.855807.112560@50g2000hsm.googlegroups.com>
On Aug 15, 8:38 am, absmi...@hotmail.com wrote:
> Very simpel question. I want to format the number 2.3 to be printed as
> 00002.30000.
>
> I tried this:
> printf("%05d",2.3);
> which produces 00002
>
> and this:
> printf("%.5f",2.3);
> which produces 2.30000
>
> How can I combine these formats to print: 00002.30000? I already
> tgried abount a zillion combinations, but no luck so far. Any
> help is appreciated. Should be simple, right?
The number that comes before the decimal in a format specifier does
not mean the same thing as the number that comes after the decimal.
The number after the decimal is how many digits past the decimal you
want to print. The number before the decimal is the TOTAL WIDTH of
the string you want to print out. Therefore, if you say %05.5f,
you're saying you want five digits past the decimal, and that you want
the entire number to take up five places. Obviously, "2.30000" does
take up at least 5 places, so that requirement is fulfilled. What you
need to do is require enough spaces so that the ones on the left total
5. "2.30000" is seven characters long, and you want four zeroes on
the left, so you need a total of 11 spaces to fill:
$ perl -e'printf("%011.5f\n", 2.3)'
00002.30000
perldoc -f sprintf
contains the full description of what the format specifier components
do.
Paul Lalli
------------------------------
Date: Wed, 15 Aug 2007 06:16:01 -0700
From: absmienk@hotmail.com
Subject: Re: format a number with leading and trailing zeros
Message-Id: <1187183761.660196.37240@g4g2000hsf.googlegroups.com>
On Aug 15, 2:48 pm, j...@toerring.de (Jens Thoms Toerring) wrote:
> absmi...@hotmail.com wrote:
> > Very simpel question. I want to format the number 2.3 to be printed as
> > 00002.30000.
> > I tried this:
> > printf("%05d",2.3);
> > which produces 00002
> > and this:
> > printf("%.5f",2.3);
> > which produces 2.30000
>
> Combine both your attempts:
>
> printf "%011.5\n, 2.3;
>
> 11 is the total number of chars to output (including the dot!) and
> the 0 in front of it tells printf to left-fill with '0's instead of
> spaces.
> Regards, Jens
> --
> \ Jens Thoms Toerring ___ j...@toerring.de
> \__________________________ http://toerring.de
Thanks Jens,
this really helps me.
Cheers,
Ab
------------------------------
Date: Wed, 15 Aug 2007 06:18:45 -0700
From: absmienk@hotmail.com
Subject: Re: format a number with leading and trailing zeros
Message-Id: <1187183925.518930.218630@w3g2000hsg.googlegroups.com>
On Aug 15, 2:50 pm, Paul Lalli <mri...@gmail.com> wrote:
> On Aug 15, 8:38 am, absmi...@hotmail.com wrote:
>
> > Very simpel question. I want to format the number 2.3 to be printed as
> > 00002.30000.
>
> > I tried this:
> > printf("%05d",2.3);
> > which produces 00002
>
> > and this:
> > printf("%.5f",2.3);
> > which produces 2.30000
>
> > How can I combine these formats to print: 00002.30000? I already
> > tgried abount a zillion combinations, but no luck so far. Any
> > help is appreciated. Should be simple, right?
>
> The number that comes before the decimal in a format specifier does
> not mean the same thing as the number that comes after the decimal.
> The number after the decimal is how many digits past the decimal you
> want to print. The number before the decimal is the TOTAL WIDTH of
> the string you want to print out. Therefore, if you say %05.5f,
> you're saying you want five digits past the decimal, and that you want
> the entire number to take up five places. Obviously, "2.30000" does
> take up at least 5 places, so that requirement is fulfilled. What you
> need to do is require enough spaces so that the ones on the left total
> 5. "2.30000" is seven characters long, and you want four zeroes on
> the left, so you need a total of 11 spaces to fill:
>
> $ perl -e'printf("%011.5f\n", 2.3)'
> 00002.30000
>
> perldoc -f sprintf
> contains the full description of what the format specifier components
> do.
>
> Paul Lalli
Thanks a bunch Paul. You not only gave me the answer but a good
explanation and a lead to get the answer right away.
Ab
------------------------------
Date: Wed, 15 Aug 2007 09:31:35 -0700
From: action841 <action841@gmail.com>
Subject: Free advertising forum
Message-Id: <1187195495.843297.20390@19g2000hsx.googlegroups.com>
Advertise your products & websites for free:
http://www.fashion-forum.org/forum
------------------------------
Date: Wed, 15 Aug 2007 14:28:32 -0000
From: Lepi Duja <digitalplusmail@gmail.com>
Subject: Free Air Conditioners!!!!!
Message-Id: <1187188112.498505.126930@d55g2000hsg.googlegroups.com>
Air conditioning
http://airconditionerslinks.blogspot.com/
------------------------------
Date: Wed, 15 Aug 2007 08:14:12 -0700
From: Terry <terrence.beard@globalcrossing.com>
Subject: Getting "Don't know how to decode quoted-printable" from Email::MIME on Solaris
Message-Id: <1187190852.632296.83440@l22g2000prc.googlegroups.com>
All:
I hope someone can help me with this. I'm really not sure what the
issue is.
I have a Perl script that processes emails on a Solaris box. I'm using
the Email::MIME package to handle most of it. However, when an email
with the Content-Transfer-Encoding of quoted-printable comes in, I'm
getting the following error message:
Don't know how to decode quoted-printable at /export/opt/clarify/perl/
lib/Email/MIME.pm line 74
I've checked the Perl lib directory, and the QuotedPrint.pm module is
indeed installed under the lib/sun4-solaris/MIME directory.
I've even tried adding the sun4-solaris directory to the PERL5LIB
variable, without effect.
We're running Perl v5.8.0 for sun4-solaris, version 1.857 of the
Email::MIME.pm, and version 3.07 of QuotedPrint.pm.
Help!
------------------------------
Date: Wed, 15 Aug 2007 12:33:03 -0000
From: cvezvu@gmail.com
Subject: Guitar Reviews
Message-Id: <1187181183.084688.228380@g4g2000hsf.googlegroups.com>
Custom guitar, acoustic guitar, electric guitars, reviews,
specifications, pictures, prices, all here!!!!!
http://pro-guitars.blogspot.com/
Free guitars!!!!
http://freeguitars.blogspot.com/
------------------------------
Date: Wed, 15 Aug 2007 06:57:38 -0700
From: Narthring <Narthring@gmail.com>
Subject: Re: problems with LWP & HTTP
Message-Id: <1187186258.450038.200650@x40g2000prg.googlegroups.com>
The UserAgent isn't allowing redirection from a POST. This should fix
the problem.
use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);
my $ua = new LWP::UserAgent;
push @{$ua->requests_redirectable}, 'POST'; #allow redirection
from POST
my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
LoginServlet',
[ 'UserID' => 'abshidf',
'Password' => 'oddhfhg',
'Submit' => 'Submit'
];
print $req->as_string;
my $res = $ua->request($req);
print $res->content();
On Aug 15, 1:58 am, stephenc <m...@bymouth.com> wrote:
> OK, this code does compile but I have had to change my user id and
> pasword for obvious reasons:
>
> use LWP;
> use Crypt::SSLeay;
> use HTTP::Request::Common qw(POST);
>
> my $ua = new LWP::UserAgent;
>
> my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
> LoginServlet',
> [ 'UserID' => 'abshidf',
> 'Password' => 'oddhfhg',
> 'Submit' => 'Submit'
> ];
>
> print $req->as_string;
> my $res = $ua->request($req);
> print $res->content();
>
> It still hangs!
>
> On Aug 15, 9:55 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
>
> > stephenc wrote:
> > > Hi
>
> > > I am trying to log into a secur site using this:
>
> > > use LWP;
> > > use Crypt::SSLeay;
> > > use HTTP::Request::Common qw(POST);
>
> > > my $ua = new LWP::UserAgent;
>
> > > my $req = POST 'https://www.secure.********.com.au/Cardlink/
> > > LoginServlet',
> > > [ 'UserID' => '*********',
> > > 'Password' => '********',
> > > 'Submit' => 'Submit'
> > > ];
>
> > > print $req->as_string;
> > > my $res = $ua->request($req)
> > > print $response->content();
>
> > last line should be
>
> > print $res->content();
>
> > Isn't true?
>
> > --
>
> > Petr Vileta, Czech republic
> > (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> > from another non-spammer site please.)- Hide quoted text -
>
> > - Show quoted text -
------------------------------
Date: Wed, 15 Aug 2007 17:07:30 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: problems with LWP & HTTP
Message-Id: <f9v59k$1knq$1@ns.felk.cvut.cz>
stephenc wrote:
> OK, this code does compile but I have had to change my user id and
> pasword for obvious reasons:
>
> use LWP;
> use Crypt::SSLeay;
> use HTTP::Request::Common qw(POST);
>
> my $ua = new LWP::UserAgent;
>
>
>
>
> my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
> LoginServlet',
Try this script. Maybe this can help you to find reason ;-)
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
print "Content-type: text/html\n\n";
# don't forget to set right values in next line
my $params='UserID=abc&Password=abc&Submit=Submit';
my $ua = LWP::UserAgent->new(timeout => 30);
my $req = HTTP::Request->new(POST =>
'https://www.secure.cardlink.com.au/Cardlink/LoginServlet');
$req->headers->header(Accept => '*/*');
$req->headers->header(Connection => "Keep-Alive");
$req->headers->header(Accept_language => "en");
$req->headers->header(Cache_Control => 'no-cache');
$req->content_type('application/x-www-form-urlencoded');
$req->content($params);
my $res = $ua->request($req);
if ($res->code != 200)
{
print "<html><body>Error: ",$res->code," ",$res->message,"<br>",
"Response:<br>",
"<nobr> Message: $res->{_msg}</nobr><br>",
"<nobr> Protocol: $res->{_protocol}</nobr><br>",
"<nobr> Return code: $res->{_rc}</nobr><br>",
"Response headers:<br>";
foreach (sort keys %{$res->{_headers}})
{
print "<nobr> $_: $res->{_headers}->{$_}</nobr><br>";
}
print "<br><br>Page Content:<br>$res->content" if($res->content);
print "</body></html>";
}
else
{
print $res->content;
}
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Wed, 15 Aug 2007 13:58:22 +0000 (UTC)
From: Brian Blackmore <blb8@po.cwru.edu>
Subject: Re: Regular Expression: Perl and vi
Message-Id: <f9v0pt$jge$1@gnus01.u.washington.edu>
John W. Krahn <dummy@example.com> wrote:
> googler wrote:
> > I am trying to create a list of the differences in regular expression
> > for Perl and vi. I have been using both Perl and vi, and get confused
> > by this sometimes. There are a few that I already know of.
> >
> > 1. In Perl, characters like (, { etc when used as metacharacter can be
> > used by themselves (without using a \). In vi, they should be escaped
> > with a \. (Question: what is the full list of the metacharacters where
> > we see this difference?)
> >
> > 2. In Perl, non-greedy search can be done by using a ? character
> > (like .*?). In vi, this is done as .\{-}
> >
> > 3. In Perl, zero or one match can be achieved by putting a ? character
> > after the pattern. In vi, this is done by \=
> >
> > 4. In Perl, the RE for matching only a particular word is \bword\b .
> > In vi, it is \<word\> (Question: does \<word\> work for Perl?)
> >
> > Please add to the list if you know of any difference that I missed.
> Get the book:
> http://www.oreilly.com/catalog/regex3/index.html
> It should explain most if not all of the differences.
:help perl-patterns
--
Brian Blackmore
blb8 at po dot cwru dot edu
------------------------------
Date: Wed, 15 Aug 2007 16:37:15 +0000 (UTC)
From: jgamble@ripco.com (John M. Gamble)
Subject: Re: Regular Expression: Perl and vi
Message-Id: <f9va3r$1si$1@e250.ripco.com>
In article <f9v0pt$jge$1@gnus01.u.washington.edu>,
Brian Blackmore <blb8@po.cwru.edu> wrote:
>John W. Krahn <dummy@example.com> wrote:
>> googler wrote:
>> > I am trying to create a list of the differences in regular expression
>> > for Perl and vi. I have been using both Perl and vi, and get confused
>> > by this sometimes. There are a few that I already know of.
>> >
>> > 1. In Perl, characters like (, { etc when used as metacharacter can be
>> > used by themselves (without using a \). In vi, they should be escaped
>> > with a \. (Question: what is the full list of the metacharacters where
>> > we see this difference?)
>> >
>> > 2. In Perl, non-greedy search can be done by using a ? character
>> > (like .*?). In vi, this is done as .\{-}
>> >
>> > 3. In Perl, zero or one match can be achieved by putting a ? character
>> > after the pattern. In vi, this is done by \=
>> >
>> > 4. In Perl, the RE for matching only a particular word is \bword\b .
>> > In vi, it is \<word\> (Question: does \<word\> work for Perl?)
>> >
>> > Please add to the list if you know of any difference that I missed.
>
>> Get the book:
>
>> http://www.oreilly.com/catalog/regex3/index.html
>
>> It should explain most if not all of the differences.
>
>:help perl-patterns
>
Which does work in vim, but the OP may not be using that version of vi.
--
-john
February 28 1997: Last day libraries could order catalogue cards
from the Library of Congress.
------------------------------
Date: Wed, 15 Aug 2007 11:31:11 -0000
From: it_says_BALLS_on_your_forehead <simon.chao@gmail.com>
Subject: Re: Require versus just including the script
Message-Id: <1187177471.136178.324260@22g2000hsm.googlegroups.com>
On Aug 14, 8:54 pm, Tad McClellan <ta...@seesig.invalid> wrote:
> it_says_BALLS_on_your forehead <simon.c...@fmr.com> wrote:
> > (actually, use is
> > the equivalent of wrapping a require in a BEGIN block.)
>
> actually, use is the equivalent of wrapping a require and
> an import in a BEGIN block.
woops! right you are, Tad.
------------------------------
Date: Wed, 15 Aug 2007 13:57:11 -0000
From: wmwilson01@gmail.com
Subject: Software error using CGI::Session - Your vendor has not defined Fcntl macro O_NOFOLLOW
Message-Id: <1187186231.094709.16250@w3g2000hsg.googlegroups.com>
Can anyone shed some light on how I can address this:
Software error:
Your vendor has not defined Fcntl macro O_NOFOLLOW, used at /usr/local/
lib/perl5/site_perl/5.6.0/CGI/Session/Driver/file.pm line 26.
$ /usr/local/bin/perl -v
This is perl, v5.6.0 built for sun4-solaris
CGI::Session version is 4.20
Thanks.
------------------------------
Date: 15 Aug 2007 14:15:43 GMT
From: xhoster@gmail.com
Subject: Re: Software error using CGI::Session - Your vendor has not defined Fcntl macro O_NOFOLLOW
Message-Id: <20070815101544.270$sM@newsreader.com>
wmwilson01@gmail.com wrote:
> Can anyone shed some light on how I can address this:
>
> Software error:
> Your vendor has not defined Fcntl macro O_NOFOLLOW, used at /usr/local/
> lib/perl5/site_perl/5.6.0/CGI/Session/Driver/file.pm line 26.
>
> $ /usr/local/bin/perl -v
>
> This is perl, v5.6.0 built for sun4-solaris
>
> CGI::Session version is 4.20
I don't know why the eval isn't doing what it is supposed to be
doing. Perhaps Fcntl is somehow bypassing it. What version of Fcntl do
you have?
You could probably fix it by changing line 26 of the indicated file from
$NO_FOLLOW = eval { O_NOFOLLOW } || 0;
to
$NO_FOLLOW = 0;
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Wed, 15 Aug 2007 15:29:47 -0000
From: wmwilson01@gmail.com
Subject: Re: Software error using CGI::Session - Your vendor has not defined Fcntl macro O_NOFOLLOW
Message-Id: <1187191787.593990.53760@50g2000hsm.googlegroups.com>
On Aug 15, 10:15 am, xhos...@gmail.com wrote:
> I don't know why the eval isn't doing what it is supposed to be
> doing. Perhaps Fcntl is somehow bypassing it. What version of Fcntl do
> you have?
>
I'll give that a try. Fcntl version is 1.03.
------------------------------
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 756
**************************************
