[13830] in Perl-Users-Digest
Perl-Users Digest, Issue: 1240 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 1 00:05:45 1999
Date: Sun, 31 Oct 1999 21:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <941432708-v9-i1240@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 31 Oct 1999 Volume: 9 Number: 1240
Today's topics:
Re: #!perl like (Kragen Sitaker)
Re: #!perl like (Kragen Sitaker)
Re: 'Crypt' function on CPAN (Martin Vorlaender)
-w <spyder@pikesville.net>
Re: -w (David H. Adler)
Re: -w (Brett W. McCoy)
Re: -w <jeffp@crusoe.net>
Access to perldoc <scott_beck@my-deja.com>
Re: Access to perldoc (Eric Bohlman)
Re: Can this be made faster? (Kragen Sitaker)
Re: comparing text with words <lr@hpl.hp.com>
Re: comparing text with words <ltl@rgsun40.viasystems.com>
Re: FAQ 2.14: What mailing lists are there for perl? (Graeme Kennedy)
Re: function showing memory available? (Kragen Sitaker)
Re: HELP: Perl 5.005_03 wont build on Win32 w/ Cygwin 2 <randy@theory.uwinnipeg.ca>
Re: Need help with error. Thanks! <claire@telix.com>
Re: Need help with error. Thanks! <kbandes@home.com>
Re: newbie to perl ( looking to read the date on a file (Kragen Sitaker)
odbc, accessdb, ole object <mikekimriss@home.com>
Re: Perl4 and Y2K (Kragen Sitaker)
Re: sendmail question (Kragen Sitaker)
Re: upload progress <ab@cd.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 01 Nov 1999 03:28:44 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: #!perl like
Message-Id: <MN7T3.15714$23.844076@typ11.nn.bcandid.com>
In article <381B2119.4397540E@geocities.com>,
* Tong * <sun_tong@geocities.com> wrote:
>I want to find a way to let sh pick perl for me instead of my hard
>coding perl path into my perl script.
You could try
#!/usr/bin/env perl -w
. . . but I don't know if that works.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Thu Oct 28 1999
12 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Mon, 01 Nov 1999 03:43:52 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: #!perl like
Message-Id: <Y%7T3.15735$23.847790@typ11.nn.bcandid.com>
In article <MN7T3.15714$23.844076@typ11.nn.bcandid.com>,
Kragen Sitaker <kragen@dnaco.net> wrote:
>In article <381B2119.4397540E@geocities.com>,
>* Tong * <sun_tong@geocities.com> wrote:
>>I want to find a way to let sh pick perl for me instead of my hard
>>coding perl path into my perl script.
>
>You could try
>#!/usr/bin/env perl -w
>
>. . . but I don't know if that works.
I could have phrased this better. I meant, "It finds it on the PATH,
at least on systems where env is in /usr/bin, and perl gets the correct
flags because perl parses the #! line itself, but I'm not really sure
of all the implications of doing things this way, and it's not a common
way to do it, and it certainly won't work on ancient grody systems
without #!, which almost certainly doesn't include yours." At least, I
think I did. I might be deceiving myself. :)
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Thu Oct 28 1999
12 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Mon, 01 Nov 1999 04:33:56 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: 'Crypt' function on CPAN
Message-Id: <381d0a24.524144494f47414741@radiogaga.harz.de>
Tom Phoenix (rootbeer@redcat.com) wrote:
: But there is no "CPAN port". If what you've got doesn't support crypt,
: though, a module should be making its way to CPAN soon. By installing that
: module, you should be able to use crypt even if you're stuck with a port
: suffering from "paranoia".
:
: Look for Crypt::UnixCrypt, which should appear Any Day Now(tm).
Crypt-UnixCrypt-1.0 has entered CPAN. It should be available soon on
your nearest CPAN mirror, from my userid directory MVORL.
NAME
Crypt::UnixCrypt - perl-only implementation of the `crypt'
function.
SYNOPSIS
use Crypt::UnixCrypt;
$hashed = crypt($plaintext,$salt);
# always use this module's crypt
BEGIN { $Crypt::UnixCrypt::OVERRIDE_BUILTIN = 1 }
use Crypt::UnixCrypt;
DESCRIPTION
This module is for all those poor souls whose perl port answers
to the use of `crypt()' with the message `The crypt() function
is unimplemented due to excessive paranoia.'.
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
OpenVMS: When you | work: mv@pdv-systeme.de
KNOW where you want | http://www.pdv-systeme.de/users/martinv/
to go today. | home: martin@radiogaga.harz.de
------------------------------
Date: Sun, 31 Oct 1999 21:08:18 -0500
From: "V.B." <spyder@pikesville.net>
Subject: -w
Message-Id: <381CF612.57BCB409@pikesville.net>
hi all
im back again.
im writing several scripts, all that work together. i am using "require"
to include nessecary scripts.. i would like to use the -w command for
perl, but if i leave an ending "return1;" -w gives me an error. any ways
to work around this?
all help is appreciated.
vince
------------------------------
Date: 1 Nov 1999 03:19:46 GMT
From: dha@panix7.panix.com (David H. Adler)
Subject: Re: -w
Message-Id: <slrn81q1mi.4b0.dha@panix7.panix.com>
In article <381CF612.57BCB409@pikesville.net>, V.B. wrote:
>im writing several scripts, all that work together. i am using
>"require" to include nessecary scripts.. i would like to use the -w
>command for perl, but if i leave an ending "return1;" -w gives me an
>error. any ways to work around this?
My suggestion would be to use "return 1;" instead, as "return1" is
not, in fact a keyword in perl.
HTH
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"Do not look at the cursor! Look where the cursor points!"
- Chip Salzenberg
------------------------------
Date: Mon, 01 Nov 1999 03:24:01 GMT
From: bmccoy@foiservices.com (Brett W. McCoy)
Subject: Re: -w
Message-Id: <slrn81q280.mf2.bmccoy@moebius.foiservices.com>
Also Sprach V.B. <spyder@pikesville.net>:
>im back again.
>im writing several scripts, all that work together. i am using "require"
>to include nessecary scripts.. i would like to use the -w command for
>perl, but if i leave an ending "return1;" -w gives me an error. any ways
>to work around this?
You can't return a value outside of a subroutine. Why do you need to
return 1 at the end of your program?
--
Brett W. McCoy bmccoy@foiservices.com
Computer Operations Manager (Alpha Geek) http://www.foiservices.com
FOI Services, Inc./DIOGENES 301-975-0110
---------------------------------------------------------------------------
------------------------------
Date: Sun, 31 Oct 1999 22:45:30 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: -w
Message-Id: <Pine.GSO.4.10.9910312243300.2694-100000@crusoe.crusoe.net>
On Nov 1, Brett W. McCoy blah blah blah:
> >im writing several scripts, all that work together. i am using "require"
> >to include nessecary scripts.. i would like to use the -w command for
> >perl, but if i leave an ending "return1;" -w gives me an error. any ways
> >to work around this?
>
> You can't return a value outside of a subroutine. Why do you need to
> return 1 at the end of your program?
Err, that's wrong. When a file is require()d or use()d, Perl demands that
the last value evaluated be true. Thus, a file often ends in:
1;
or with the optional return keyword:
return 1;
On a totally unrelated note, November 9th shall be my undoing. For I
shall be 18 years of age. Look out.
--
MIDN 4/C PINYAN, USNR, NROTCURPI
jeff pinyan japhy@pobox.com
perl stuff japhy+perl@pobox.com
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
------------------------------
Date: Mon, 01 Nov 1999 02:58:02 GMT
From: Scott Beck <scott_beck@my-deja.com>
Subject: Access to perldoc
Message-Id: <7vivjo$6dn$1@nnrp1.deja.com>
Hey,
Does someone know of a module or something that I
can use within a script to access perldoc.
Accessing it through a system call I donot think is
the right answer.
Thanks
Scott Beck
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 1 Nov 1999 04:38:05 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Access to perldoc
Message-Id: <7vj5fd$erm$1@nntp5.atl.mindspring.net>
Scott Beck (scott_beck@my-deja.com) wrote:
: Does someone know of a module or something that I
: can use within a script to access perldoc.
: Accessing it through a system call I donot think is
: the right answer.
You might want to look at Pod::Parser and the other Pod::* modules, as
well as Tom C's pmtools.
------------------------------
Date: Mon, 01 Nov 1999 04:12:41 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Can this be made faster?
Message-Id: <Zq8T3.15786$23.851106@typ11.nn.bcandid.com>
In article <381CD0D5.7B879432@sympatico.ca>,
Ala Qumsieh <qumsieh@sympatico.ca> wrote:
>PB wrote:
>> foreach $line (@line){
>> if ($line =~ /\s$string\s/oi) {$count++;}
>> }
>
>Your main problem is that you read the every file completely into
>memory (the array @line), and then you iterate through the elements
>of @line. This makes two iterations; one of which is unnecessary.
>
>I believe the following should be faster, but I didn't benchmark:
>
>my $count = 0;
>for my $file (@files) {
> open F, $file or die $!;
> while (<F>) {
> $count += () = /(\s$string\s)/goi;
> }
> close F or die $!;
>}
FWIW, your program will give different results than his -- if
\s$string\s happens more than once per line -- and it may actually be
slower because of the ().
One solution to making it faster might be this:
#!/usr/bin/perl -w
use strict; my $string = 'you'; my @files = @ARGV;
my $count = 0;
for my $file (@files) {
open F, "<$file" or die "Opening $file: $!\n";
$_ = do {local $/; <F>};
$count += () = /^.*\s$string\s.*$/goim;
}
print "count: $count\n";
The first couple of lines and the last line are just there to help me
test it. This will read in the whole file, just as before, but will
pattern-match on the whole file all at once instead of on each line.
The pattern will match a whole line, so you'll only get one match per
line, just as in your original script (but unlike Ala's.) If that's
not what you want, of course you can take the ^.* and .*$ out.
Benchmark this on your data and let us know if this is a faster
method. Also try studying $_ before doing the pattern match.
(Studying the filename won't help.)
btw, if you're looking for occurrences of a word, you might try
bracketing it with \b instead of \s -- that way you'll get words at the
beginning and end of lines, and with punctuation, etc.
I got this idea from lt lindley, who submitted something similar as a
context-grep contest entry. (I'd used something similar before for
comment-stripping in C and C++, but didn't usually think of this as a
possibility.)
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Thu Oct 28 1999
12 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Sun, 31 Oct 1999 19:17:15 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: comparing text with words
Message-Id: <MPG.1286a612c15badc98a16b@nntp.hpl.hp.com>
In article <381CCE33.491FAD47@sympatico.ca> on Sun, 31 Oct 1999 23:16:28
GMT, Ala Qumsieh <qumsieh@sympatico.ca> says...
> Larry Rosler wrote:
...
> > The following snippet uses the same method, but has a *much* lower golf
> > score:
> >
> > my $string = 'sub { local $_ = shift;' .
> > join('||' => map "/$_/o" => @pats) . '}';
>
> Of course what I showed above was simply an example to clarify things. I
> don't know
> the size of @pats beforehand, so I can't construct $string explicitly. I
> used a for()
> loop, something like:
>
> my $string = 'sub { my $x = shift; ';
> for my $pat (@pats) {
> $string .= "if (\$x =~ /$pat/o) { return 1 } ";
> }
> $string .= 'return 0; }';
>
> Perl golf is never in my mind when I write programs, but I like to be
> simple
> and concise.
The 'golf score' is often an indication of clarity and even of
performance. In this case, using 'local $_' to eliminate all the
repetitions of '$x =~', and using logical short-circuiting '||' instead
of all those 'if' statements.
> Now, if you think about it a bit, the /o modifier isn't really needed,
> so you can
> improve your golf score by one :-)
Not without knowing the contents of '@pats'. If there are interpolated
variables in any of the patterns, and if they will not change, then the
'/o' is a performance booster. You had it in your code, so I presumed
it was still desirable.
By the way, your newsreader is still producing funny line breaks. See
above.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 1 Nov 1999 04:35:06 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: comparing text with words
Message-Id: <7vj59q$e23$1@rguxd.viasystems.com>
Larry Rosler <lr@hpl.hp.com> wrote:
:>In article <381CCE33.491FAD47@sympatico.ca> on Sun, 31 Oct 1999 23:16:28
:>GMT, Ala Qumsieh <qumsieh@sympatico.ca> says...
[snip]
:>> Now, if you think about it a bit, the /o modifier isn't really needed,
:>> so you can
:>> improve your golf score by one :-)
:>Not without knowing the contents of '@pats'. If there are interpolated
:>variables in any of the patterns, and if they will not change, then the
:>'/o' is a performance booster. You had it in your code, so I presumed
:>it was still desirable.
Since when has code efficiency been a consideration in golf? OK. If
what you do also happens to be efficient, then that would be like
you have a pretty swing. But it shouldn't be required to win.
I mean, come on, next you'll be talking about readability and then
what kind of game would we have?
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: Mon, 01 Nov 1999 04:59:40 GMT
From: graeme@seercom.com (Graeme Kennedy)
Subject: Re: FAQ 2.14: What mailing lists are there for perl?
Message-Id: <graeme-3110992059380001@cr626399-a.crdva1.bc.wave.home.com>
In article <381bc4f6@cs.colorado.edu>, perlfaq-suggestions@perl.com (Tom
and Gnat) wrote:
> What mailing lists are there for perl?
> http://www.perl.org/maillist.html
This FAQ has been out of date for some time. The URL does not exist.
Try:
http://www.perlmongers.org/support/online_support.html#mail
-Graeme.
------------------------------
Date: Mon, 01 Nov 1999 03:50:18 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: function showing memory available?
Message-Id: <_58T3.15743$23.849080@typ11.nn.bcandid.com>
In article <7vi1r9$it7$1@nnrp1.deja.com>, <newsmf@bigfoot.com> wrote:
>is there a perl function that will show me how much memory is unused on
>the server? I want to used it to avoid out of memory problems when
>forking many separate programs.
There probably is a way to do this. It probably is not possible in a
portable fashion, and it may not be a good idea.
On many Unixes, you can do `vmstat` and parse the results. Look at
vmstat's man page for details. On Linux, you can read /proc/meminfo.
But do you have control over all programs that can start on the
server? You may end up OOM anyway. In the worst case, you may get the
system into a state where it runs fine until something else happens, at
which point it runs out of memory.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Thu Oct 28 1999
12 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Sun, 31 Oct 1999 21:05:27 -0600
From: "Randy Kobes" <randy@theory.uwinnipeg.ca>
Subject: Re: HELP: Perl 5.005_03 wont build on Win32 w/ Cygwin 20.1!
Message-Id: <7vivvc$2g9$1@canopus.cc.umanitoba.ca>
Jon Frisby <jfrisby@NOSPAM.megapathdsl.net> wrote in
message news:s1pk3apviqi18@corp.supernews.com...
> I'm running Windows 98...
> I'd like to build Perl for the purpose of using mod_perl under Apache.
> First off, there are no gcc2 and ld2 wrapper scripts included with this
> version of Cygwin!
[snip]
Hi,
I believe in a recent issue of the Perl Journal there was an
article on building perl with the cygwin tools - you may want to
check that. However, at least in the mod_perl README files,
it's recommended to use VC++ 5 (or greater) for building
mod_perl - I know that works (with a VC++ native perl build),
but I'm not sure if anyone has managed to use another
Win32 compiler for mod_perl.
best regards,
Randy Kobes
------------------------------
Date: Sun, 31 Oct 1999 21:35:24 -0500
From: "claire" <claire@telix.com>
Subject: Re: Need help with error. Thanks!
Message-Id: <s1puobl4iqi33@corp.supernews.com>
Okay, I removed the "!" and I get this error now:
syntax error at multiple_choice.cgi line 337, near "print"
Missing right bracket at multiple_choice.cgi line 408, at end of line
syntax error at multiple_choice.cgi line 408, at EOF
multiple_choice.cgi had compilation errors.
What am I doing wrong? No amount of right bracket here, left bracket there
seems to help.
The script now reads and is the last thing in the file:
print qq!
<HTML>
<HEAD>
<TITLE>Your Results:</TITLE>
</HEAD>
<BODY BGCOLOR=FFFFD9 TEXT=000000 LINK=0000FF VLINK=808080>
<TABLE>
<TR Row-1>
<TD>Ether</TD>
<TD>$number_of_Ether </TD>
</TR>
<TR Row-2>
<TD>Air </TD>
<TD> $number_of_Air </TD>
</TR>
<TR Row-3>
<TD>Fire </TD>
<TD> $number_of_Fire </TD>
</TR>
<TR Row-4>
<TD>Water</TD>
<TD> $number_of_Water </TD>
</TR>
<TR Row-5>
<TD>Earth </TD>
<TD> $number_of_Earth </TD>
</TR>
</TABLE>
<P>
Take the highest numbered column and that is your type. Check below for the
characteristics of your type and others.
</P>
</BODY>
</HTML>!;
claire wrote in message ...
>
>claire wrote in message ...
>>I get the following error for a script I am running:
>>
>>TEST 4: perl syntax
>> Bareword found where operator expected at multiple_choice.cgi line 341,
>>near "
>>
>>what is a bareword? Line 341 is near where I start HTML formatting. The
>>script follows:
>>
>> {
>> print qq!
>> <HTML>
>> <HEAD>
>> <TITLE>Your Results!</TITLE>
>> </HEAD> (THIS IS LINE 341)
>> <BODY BGCOLOR=FFFFD9 TEXT=000000 LINK=0000FF VLINK=808080>
>> <TABLE>
>> <TR Row-1>
>> <TD>Ether </TD>
>> <TD> $number_of_Ether </TD>
>> </TR>
>> <TR Row-2>
>> <TD>Air </TD>
>> <TD> $number_of_Air </TD>
>> </TR>
>> <TR Row-3>
>> <TD>Fire </TD>
>> <TD> $number_of_Fire </TD>
>> </TR>
>> <TR Row-4>
>> <TD>Water</TD>
>> <TD> $number_of_Water </TD>
>> </TR>
>> <TR Row-5>
>> <TD>Earth </TD>
>> <TD> $number_of_Earth </TD>
>> </TR>
>> </TABLE>
>><P>
>>Take the highest numbered column and that is your type! Check below for
the
>>characteristics of your type and others.
>></P>
>></B></FONT>
>></BODY>
>></HTML>!;
>>
>> close (RESULTS);
>> }
>>
>>
>
>
------------------------------
Date: Mon, 01 Nov 1999 03:17:38 GMT
From: Kenneth Bandes <kbandes@home.com>
Subject: Re: Need help with error. Thanks!
Message-Id: <381D0654.F7827AD2@home.com>
claire wrote:
>
> Okay, I removed the "!" and I get this error now:
>
> syntax error at multiple_choice.cgi line 337, near "print"
> Missing right bracket at multiple_choice.cgi line 408, at end of line
> syntax error at multiple_choice.cgi line 408, at EOF
> multiple_choice.cgi had compilation errors.
...
> The script now reads and is the last thing in the file:
>
> print qq!
> <HTML>
...
> </HTML>!;
The code fragment you provided works fine (although I still think
you should use a here document, as others also suggested). I'd
be inclined to take Perl at its word, i.e., you're missing a right
bracket in the code preceeding the print statement.
Ken Bandes
------------------------------
Date: Mon, 01 Nov 1999 03:30:02 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: newbie to perl ( looking to read the date on a file)
Message-Id: <_O7T3.15717$23.845929@typ11.nn.bcandid.com>
In article <uyFS3.14$2t5.6595@ratbert.tds.net>,
jim and lois flaherty <kf4dmb@tds.net> wrote:
>Hello i am looking for a script that would compair the date on a file to a
>file installed on the c drive on a users PC . I am looking to do this
>because of virus updates.
On clpm we can help you write scripts; to find them, look elsewhere.
The function to find the date, among other things, of a file, is called
stat(). Look it up with perldoc -f stat.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Thu Oct 28 1999
12 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Mon, 01 Nov 1999 04:15:38 GMT
From: Mike Ross <mikekimriss@home.com>
Subject: odbc, accessdb, ole object
Message-Id: <381D13CF.1977E784@home.com>
I have an access database which has a table containing GIF images stored
in a column of picture OLE objects. My hope was that I could simply use
the statements:
$data->Sql("select image from table");
$data->FetchRow();
$image = $data->Data("image");
Then remove the OLE headers and print out the image (as suggested in the
article
http://support.microsoft.com/support/kb/articles/q175/2/61.asp).
Unfortunately this does not seem to work. The Fetch throws the
following error:
Error number: 9
Error message: "[Microsoft][ODBC Microsoft Access Driver]Error in row "
Any advice on how I might extract these images with perl?
Mike
------------------------------
Date: Mon, 01 Nov 1999 03:56:05 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Perl4 and Y2K
Message-Id: <pb8T3.15753$23.849968@typ11.nn.bcandid.com>
In article <m1yacjz7ov.fsf@halfdome.holdit.com>,
Randal L. Schwartz <merlyn@stonehenge.com> wrote:
>Just a reminder since we're now just two months away from the
>rollover:
>
> THERE ARE NO PLANS TO MAKE ANY VERSION OF PERL PRIOR TO
> PERL VERSION 5 Y2K COMPLIANT.
>
>Be sure your boss knows. Upgrade now, or be sorry!
People who haven't upgraded from Perl4 yet are surely sorry already.
But what's wrong with Perl4 Y2K-wise? There's an article by tchrist at
http://www.perl.com/pub/1999/01/y2k.html which says:
Now, what about Perl? Is Perl ``Year 2000 Compliant''? The answer is
that Perl is every bit as Y2K compliant as is your pencil; no more,
and no less. Does that comfort you? It shouldn't. Just as you can
commit Y2K transgressions with your pencil, so too you can do so with
Perl -- or with any other tool, for that matter. You don't really even
have to go very far out of your way to do so; witness the
demonstration of the perfectly compliant cal program provided above.
I take it Tom was mistaken?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Thu Oct 28 1999
12 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Mon, 01 Nov 1999 03:07:25 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: sendmail question
Message-Id: <Nt7T3.15679$23.841735@typ11.nn.bcandid.com>
In article <7vhd88$1g8$1@gellyfish.btinternet.com>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
>On Sat, 30 Oct 1999 21:46:40 +0800 Singapore Fan wrote:
>> open ($i, "|/usr/sbin/sendmail -t") or print "Cannot open sendmail: No
>> . . .
>> close $i;
>> The first mail works fine but the second, third .....
>> the subject of those mails disappeared and the from address change to
>"nobody".
> . . .
>
>close MAILER;
Good advice you gave, Jon, but both you and Mr. Fan aren't checking the
return value from close -- always a good thing if you care about
whether the pipe succeeded or failed, as you probably do in this case.
But I'm perfectly mystified by the actual problem. Is it possible the
subject and from headers are actually blank, so sendmail makes the from
say 'nobody'?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Thu Oct 28 1999
12 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Sun, 31 Oct 1999 20:20:47 -0600
From: "Blair Heuer" <ab@cd.com>
Subject: Re: upload progress
Message-Id: <7vitkg$dj7$1@fir.prod.itd.earthlink.net>
> OK then: 'no' .
That is all I wanted to know. :)
Thanks,
Blair Heuer
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 1240
**************************************
