[6426] in Perl-Users-Digest
Perl-Users Digest, Issue: 51 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 4 23:07:23 1997
Date: Tue, 4 Mar 97 20:00:16 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 4 Mar 1997 Volume: 8 Number: 51
Today's topics:
`date` equivalent in win32 perl <charwu@ibm.net>
garbage collection <dmahler@ozemail.com.au>
Re: Getting list of files in a path <tchrist@mox.perl.com>
Re: pattern matching question (Brian L. Matthews)
Re: Please help me understand!! (Brian L. Matthews)
PLEASE HELP! I don't wanna get fired tomorrow!! My gir <Steve.Karr@Media-Link.Com>
Re: Where is FAQ? <tchrist@mox.perl.com>
Re: Which one is the best (pattern matching) (Dylan Northrup)
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 04 Mar 1997 21:09:55 -0500
From: Charlie Wu <charwu@ibm.net>
Subject: `date` equivalent in win32 perl
Message-Id: <331CD5F3.4515@ibm.net>
hi all:
how do i get the system date on the PC? i want the result which is
equivalent to the unix `date +%m-%d-%y`
is there an faq that has a list of win32 perl? i checked the evangelo
site but want something more technical... more about programming issues
than installation .. etc.
thanks!
charlie
------------------------------
Date: Wed, 05 Mar 1997 12:59:38 +1100
From: Daniel Mahler <dmahler@ozemail.com.au>
Subject: garbage collection
Message-Id: <331CD38A.1659@ozemail.com.au>
I have been thinking about getting sound garbage collection
in Perl by simply building it with the Bohm-Demers garbage collector
installed in the C compiler
(it can be set up to replace C's malloc with a garbage collected
alternative).
Has anyone tried this or thought about it?
Is there any reason why it would not work?
If it does work,
how hard would it be to turn off perl's own reference counting?
Daniel Mahler
------------------------------
Date: 5 Mar 1997 03:06:52 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Getting list of files in a path
Message-Id: <5fio0c$57g$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, tadmc@flash.net (Tad McClellan) writes:
:: @files = (<*.jpg>);
: ^^^^^
:This is called file globbing. It is not very portable.
Why not?
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Ask Ken. He hates Everything.
------------------------------
Date: 4 Mar 1997 17:38:43 -0800
From: blm@halcyon.com (Brian L. Matthews)
Subject: Re: pattern matching question
Message-Id: <5fiir3$hg7$1@halcyon.com>
In article <4n78yF200YUq0cP3M0@andrew.cmu.edu>,
Lee William Jones <lj25+@andrew.cmu.edu> wrote:
|I'm trying to do a relaxed pattern match -- i.e. given a string
|sequence, return position(s) where it matches at least x characters in
|the string.
I might be misunderstanding your question, but {n,m} can be used to
match at least n and at most m of the previous expression. For example:
/x{4,}/
matches if $_ contains at least 4 'x's in a row.
Brian
--
Brian L. Matthews Illustration Works, Inc.
For top quality, stock commercial illustration, visit:
http://www.halcyon.com/artstock
------------------------------
Date: 4 Mar 1997 17:41:09 -0800
From: blm@halcyon.com (Brian L. Matthews)
Subject: Re: Please help me understand!!
Message-Id: <5fiivl$hjt$1@halcyon.com>
In article <331CFF61.15F4@dial.pipex.com>,
Glenn Johnson <ng19@dial.pipex.com> wrote:
|I know that I must be very stupid, but please explain to me why I can't
|get the simple task of running a very short perl script code to run on my
|server.
This has little to do with perl, and lots to do with your server. Try
asking again in one of the comp.infosystems.www.servers.* groups.
Brian
--
Brian L. Matthews Illustration Works, Inc.
For top quality, stock commercial illustration, visit:
http://www.halcyon.com/artstock
------------------------------
Date: Wed, 5 Mar 1997 03:21:44 GMT
From: Steve Karr <Steve.Karr@Media-Link.Com>
Subject: PLEASE HELP! I don't wanna get fired tomorrow!! My girlfriend leaves me last week now this! Ugh!
Message-Id: <331CE6C8.7176@Media-Link.Com>
Please, oh, please help! If my boss asks "Ya got it done yet?" one
more time I think I'll curl up into a ball and cry (while chewing on
my camel book).
SOLUTION: to be able to click on a file and have a browser pop up
dialog to save it locally (no matter the file type) for the user to
download it with out having to right click save as. I need to serve
up files. No biggie? I've been working on this since Monday morning
and I'm way burned out.
PROBLEM: (1) when the save box appears, the default save as filename
is my script name...I need to be able to suggest file name (2) this
script works with (successfully downloads) text files, but nothing else.
It trys, but the files are corrupt. They end up being the same size
in K (e.i. a file on the server that is 9K, ends up being 9K locally)
but its a few BYTES off. A gif I tested it with was two bytes
bigger than the original and therefore was screwed. I tested it
(in front of my boss 15 min before I was supposed to get off of work)
with a word document. The word doc came across the right size (in K),
but wouldn't load. UGH! I *don't* need this in my life right now!
(Oh, its running on the Netscape Enterprise Server, WinNT...I'm used
to Unix and Apache...oh well)
What's wrong with my program?! Any one else have a totally different
working example or know the solution to my problem? PLEASE HELP!
Thanks in advance. Oh, one more thing, PLEASE send a respond to me
via E-MAIL, because I can't access the newsgroups at work because our
sys. admin. can't get reverse DNS working)
--Steve
#!/perl/perl5/perl.exe -w -T
$|=0;
$filename = $ENV{'QUERY_STRING'};
print "Content-type: application/octet-stream\n\n";
#
# I have a feeling something else goes here to suggest filename?
&readFileContents;
exit 0;
sub readFileContents {
local($/) = undef;
open (FILE, $filename) || die "Cannot open file for input";
binmode(FILE);
print <FILE>;
close(FILE);
exit;
}
#That's it!
------------------------------------------------------
Steve Karr - Internet Services Coordinator
UniDial Communications, Inc. http://www.unidial.com
Voice (502) 244-6666 ext. 1147 Fax (502) 244-6222
E-mail: stevek@unidial.com
------------------------------
Date: 5 Mar 1997 02:12:31 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Where is FAQ?
Message-Id: <5fikqf$3h0$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
stanley@skyking.OCE.ORST.EDU (John Stanley) writes:
:On a related note, the last time I saw the Meta-FAQ come through the
:group was July 6, 1995. I can't find a copy using either altavista or
:dejanews.
Gnat's provided that twice weekly, I believe.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"Lisp has all the visual appeal of oatmeal with fingernail clippings mixed in."
--Larry Wall in <1994Jul21.173737.16853@netlabs.com>
------------------------------
Date: 4 Mar 1997 19:58:32 GMT
From: northrup@chem.ufl.edu (Dylan Northrup)
Subject: Re: Which one is the best (pattern matching)
Message-Id: <5fhut8$fm5@nostromo.clas.ufl.edu>
An infinite number of monkeys in the guise of Tad McClellan <tadmc@flash.net> wrote:
=:Abigail (abigail@ny.fnx.com) wrote:
=:: On 03 Mar 1997 18:04:38 GMT, Jeffrey wrote in comp.lang.perl.misc:
=:: ++
=:: ++ Comments on this point from perl.gods would be appreciated here,
=:
=:: Are you trying to start a religion?
=:
=:Too late. ;-)
alt.religion.perl anyone?
--
Dylan Northrup <*> northrup@pobox.com <*> http://pobox.com/~northrup <*>
Ask me about e-mail P.O. Boxes <*> "I don't want the world, just your half"
---------------
Random B5 Quote
---------------
"I find this notion of the press a fascinating and sometimes troubling
concept."
'Join the club.'
-- Delenn and Sheridan, "Divided Loyalties"
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
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 V8 Issue 51
************************************
