[9723] in Perl-Users-Digest
Perl-Users Digest, Issue: 3317 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 2 05:04:55 1998
Date: Sun, 2 Aug 98 02:00:24 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 2 Aug 1998 Volume: 8 Number: 3317
Today's topics:
Re: Associative array of associative arrays (Michael J Gebis)
Re: fcntl & locking <tchrist@mox.perl.com>
Re: Good Book? <tchrist@mox.perl.com>
Re: Help NEEDED!!!! (Steve Linberg)
Re: hiding user input (Ed Blackman)
Re: hiding user input (Miguel Cruz)
Re: How to format numbers for web pages (Craig Berry)
Re: Is there a way to.. <jdporter@min.net>
Re: number (6 -> 06) conversion question (Larry Rosler)
perl problem on dec machine (Henryrb)
Re: perl problem on dec machine (Henryrb)
Re: Power (ie C's 4^7) (Craig Berry)
Re: Schemelike qqq function? reinterpolation without ev <abarfoot@eng.auburn.edu>
Re: seeing if a file exists. <zenin@bawdycaste.org>
Re: seeing if a file exists. <zenin@bawdycaste.org>
Re: What's the future of Perl? (Ilya Zakharevich)
Re: What's the future of Perl? (-)
Re: What's the future of Perl? <tchrist@mox.perl.com>
write file in htdocs directory c.clark@student.unsw.edu.au
Re: write file in htdocs directory (Kelly Hirano)
zip files with Perl <chabert.sebastien@cur-archamps.fr>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Jul 1998 20:55:07 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Associative array of associative arrays
Message-Id: <6pqmjb$g66@mozo.cc.purdue.edu>
h_o_t_r_o_d@my-dejanews.com writes:
}Does anyone know if it's possible to create an associative array of
}associative arrays? If so, could you give me an example? I've tried, but it
}doesn't seem to be working. Please reply by e-mail. Thanks,
Have you seen page 270 in the Camel?
It's a section entitled "Data Structure Code Examples" on "Hashes of
Hashes."
It's really good. Even I understood it.
If you're a cheapo, you could read the perldsc which has a similar
(maybe identical) section but go buy the camel anyway, it makes you
smarter.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: 30 Jul 1998 21:12:58 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: fcntl & locking
Message-Id: <6pqnkq$3vu$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
drhale@mmm.com (David Hale) writes:
:Please give example of how to file lock and test file lock using "fcntl"
:function. This PERL script is running on hpux. thanks for your help.
I don't know why you don't use flock.
--tom
#!/usr/bin/perl -w
# lockarea - demo record locking with fcntl
use strict;
my $FORKS = shift || 1;
my $SLEEP = shift || 1;
use Fcntl;
use POSIX qw(:unistd_h :errno_h);
my $COLS = 80;
my $ROWS = 23;
# when's the last time you saw *this* mode used correctly?
open(FH, "+> /tmp/lkscreen") or die $!;
select(FH);
$| = 1;
select STDOUT;
# clear screen
for (1..$ROWS) {
print FH " " x $COLS, "\n";
}
my $progenitor = $$;
fork while $FORKS-- > 0;
print "hello from $$\n";
if ($progenitor == $$) {
$SIG{INT} = \&genocide;
} else {
$SIG{INT} = sub { die "goodbye from $$" };
}
while (1) {
my $line_num = int rand($ROWS);
my $line;
my $n;
# move to line
seek(FH, $n = $line_num * ($COLS+1), SEEK_SET) or next;
# get lock
my $place = tell(FH);
my $him;
next unless defined($him = lock(*FH, $place, $COLS));
# read line
read(FH, $line, $COLS) == $COLS or next;
my $count = ($line =~ /(\d+)/) ? $1 : 0;
$count++;
# update line
seek(FH, $place, 0) or die $!;
my $update = sprintf($him
? "%6d: %d ZAPPED %d"
: "%6d: %d was just here",
$count, $$, $him);
my $start = int(rand($COLS - length($update)));
die "XXX" if $start + length($update) > $COLS;
printf FH "%*.*s\n", -$COLS, $COLS, " " x $start . $update;
# release lock and go to sleep
unlock(*FH, $place, $COLS);
sleep $SLEEP if $SLEEP;
}
die "NOT REACHED"; # just in case
# lock($handle, $offset, $timeout) - get an fcntl lock
sub lock {
my ($fh, $start, $till) = @_;
##print "$$: Locking $start, $till\n";
my $lock = struct_flock(F_WRLCK, SEEK_SET, $start, $till, 0);
my $blocker = 0;
unless (fcntl($fh, F_SETLK, $lock)) {
die "F_SETLK $$ @_: $!" unless $! == EAGAIN || $! == EDEADLK;
fcntl($fh, F_GETLK, $lock) or die "F_GETLK $$ @_: $!";
$blocker = (struct_flock($lock))[-1];
##print "lock $$ @_: waiting for $blocker\n";
$lock = struct_flock(F_WRLCK, SEEK_SET, $start, $till, 0);
unless (fcntl($fh, F_SETLKW, $lock)) {
warn "F_SETLKW $$ @_: $!\n";
return; # undef
}
}
return $blocker;
}
# unlock($handle, $offset, $timeout) - release an fcntl lock
sub unlock {
my ($fh, $start, $till) = @_;
##print "$$: Unlocking $start, $till\n";
my $lock = struct_flock(F_UNLCK, SEEK_SET, $start, $till, 0);
fcntl($fh, F_SETLK, $lock) or die "F_UNLCK $$ @_: $!";
}
# OS-dependent flock structures
# Linux struct flock
# short l_type;
# short l_whence;
# off_t l_start;
# off_t l_len;
# pid_t l_pid;
BEGIN {
# c2ph says: typedef='s2 l2 i', sizeof=16
my $FLOCK_STRUCT = 's s l l i';
sub linux_flock {
if (wantarray) {
my ($type, $whence, $start, $len, $pid) =
unpack($FLOCK_STRUCT, $_[0]);
return ($type, $whence, $start, $len, $pid);
} else {
my ($type, $whence, $start, $len, $pid) = @_;
return pack($FLOCK_STRUCT,
$type, $whence, $start, $len, $pid);
}
}
}
# SunOS struct flock:
# short l_type; /* F_RDLCK, F_WRLCK, or F_UNLCK */
# short l_whence; /* flag to choose starting offset */
# long l_start; /* relative offset, in bytes */
# long l_len; /* length, in bytes; 0 means lock to EOF */
# short l_pid; /* returned with F_GETLK */
# short l_xxx; /* reserved for future use */
BEGIN {
# c2ph says: typedef='s2 l2 s2', sizeof=16
my $FLOCK_STRUCT = 's s l l s s';
sub sunos_flock {
if (wantarray) {
my ($type, $whence, $start, $len, $pid, $xxx) =
unpack($FLOCK_STRUCT, $_[0]);
return ($type, $whence, $start, $len, $pid);
} else {
my ($type, $whence, $start, $len, $pid) = @_;
return pack($FLOCK_STRUCT,
$type, $whence, $start, $len, $pid, 0);
}
}
}
# (Free)BSD struct flock:
# off_t l_start; /* starting offset */
# off_t l_len; /* len = 0 means until end of file */
# pid_t l_pid; /* lock owner */
# short l_type; /* lock type: read/write, etc. */
# short l_whence; /* type of l_start */
BEGIN {
# c2ph says: typedef="q2 i s2", size=24
my $FLOCK_STRUCT = 'll ll i s s'; # XXX: q is ll
sub bsd_flock {
if (wantarray) {
my ($xxstart, $start, $xxlen, $len, $pid, $type, $whence) =
unpack($FLOCK_STRUCT, $_[0]);
return ($type, $whence, $start, $len, $pid);
} else {
my ($type, $whence, $start, $len, $pid) = @_;
my ($xxstart, $xxlen) = (0,0);
return pack($FLOCK_STRUCT,
$xxstart, $start, $xxlen, $len, $pid, $type, $whence);
}
}
}
# alias the fcntl structure at compile time
BEGIN {
for ($^O) {
*struct_flock = do {
/bsd/ && \&bsd_flock
||
/linux/ && \&linux_flock
||
/sunos/ && \&sunos_flock
||
die "unknown operating system $^O, bailing out";
};
}
}
# install signal handler for children
BEGIN {
my $called = 0;
sub genocide {
exit if $called++;
print "$$: Time to die, kiddies.\n" if $$ == $progenitor;
my $job = getpgrp();
$SIG{INT} = 'IGNORE';
kill -2, $job if $job; # killpg(SIGINT, job)
1 while wait > 0;
print "$$: My turn\n" if $$ == $progenitor;
exit;
}
}
END { &genocide }
__END__
--
"Everything you said about Plan 9 is wrong"
-- Rob Pike, letting a speaker have it
------------------------------
Date: 30 Jul 1998 21:08:09 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Good Book?
Message-Id: <6pqnbp$3vu$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Dave Mckeown <dmckeown@istar.ca> writes:
:I just bought "Perl 5 Complete" by Edward S. Peschko & Michele DeWolfe I
:was told by someone to buy "programming perl" by Larry wall, Randal
:Swartz or "Cgi programming for the www" Is the book I bought any good
:any one read it I sat down and read it for about 30 minutes in the store
:and it looked good any opinions??
See http://www.perl.com/perl/critiques/
--tom
--
Von Neumann: "Anyone attempting to generate random numbers by
deterministic means is, of course, living in a state of sin."
------------------------------
Date: Thu, 30 Jul 1998 16:53:05 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Help NEEDED!!!!
Message-Id: <linberg-3007981653050001@projdirc.literacy.upenn.edu>
In article <35C0D59A.C3EB184E@mail.datanet.hu>, Thomas Malindovszky
<dragotom@mail.datanet.hu> wrote:
> Hi!
>
> I am a newbie in Perl programming and I have some problems.
>
> How can I generate a HTML page with a script and decode the datas with
> the SAME script...
Read up on CGI.pm, included in your perl distribution.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Sun, 02 Aug 1998 07:09:53 GMT
From: edgewood+news@pobox.com (Ed Blackman)
Subject: Re: hiding user input
Message-Id: <d79w1AJ7K5yY092yn@pobox.com>
rjk@coos.dartmouth.edu (Ronald J Kimball) wrote:
>Gary L. Burnore <gburnore@databasix.com> wrote:
>> >i vote that they move this to private email. what do you all think?
>>
>> I think you should learn to use your news-reader's killfile feature.
>
>There are three reasons why using a kill-file is not an optimanl
>solution in this case.
[..]
>2) Kill-filing on participants may delete other, useful posts from the
>participants. Kill-filing on the thread may delete other, useful posts
>on the original topic.
Not much chance of that in Gary's case.
Ed
------------------------------
Date: 2 Aug 1998 08:27:50 GMT
From: mnc@diana.law.yale.edu (Miguel Cruz)
Subject: Re: hiding user input
Message-Id: <6q17u6$7hs$1@news.ycc.yale.edu>
X-No-Archive: No
In article <35ca0868.186579838@nntpd.databasix.com>,
Gary L. Burnore <gburnore@databasix.com> wrote:
>On 1 Aug 1998 21:43:04 GMT, in article <6q0258$cp8@scel.sequent.com>,
>krader@sequent.com (Kurtis D. Rader) wrote:
>snip
>
>
>So Now Kurtis, you think it's proper to attempt to (paraphrasing> put pressure
>on someone's human resources department to have them fired for posts made to
>USENet. Since that's the way you see it, it seems fair that the human
>resources department of Sequent be notified of your posts to USENet and your
>private email. Email sent even after being warned to stop and being warned
>that your emails were considered as harassment.
>
>Instead of standing up for those new posters here who get shit on by a few,
>you attack me. That's fine. You're welcome to do so. Gotta say at least
>you're not like Rodger Donaldson <rodgerd@sacco.wnl.co.nz> who also sends
>insulting emails but states he's got me killfiled and procmailed so that he
>doesn't have to hear my reply. At least you're not a coward posting
>anonymously.
>
>As for archiving posts in DejaNews, just because you and others think it's ok
>that your posts be archived there so DejaNews can earn $$$ for the
>advertisements you're stuck seeing while your searching, that's YOUR problem.
>
>
>--
> for i in databasix primenet ; do ; gburnore@$i ; done
>---------------------------------------------------------------------------
> How you look depends on where you go.
>---------------------------------------------------------------------------
>Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
> | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
>DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
> | ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
>spamgard(tm): zamboni | Official Proof of Purchase
>===========================================================================
------------------------------
Date: 2 Aug 1998 06:54:58 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: How to format numbers for web pages
Message-Id: <6q12g2$4d1$2@marina.cinenet.net>
eliscano@clubi.net wrote:
: I have written a small CGI program in PERL that multiplies the quantity of
: items ordered by the price of the item. It then adds all the items and
: prints the total. All is fine to this point. When I multiply the subtotal
: by the tax rate, I get decimals longer than two digits. How can I format the
: output to the webpage to two decimals??
perldoc -f printf
perldoc -f sprintf
And read the newsgroup -- this question is asked and answered at least
three times a week, sometimes more often. It's impolite to post without
having read through a few days' worth of messages, or checking DejaNews
for answers to the question you're about to post.
: Please direct any answers to: eliscano@clubi.net
Sorry, private consulting costs money.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Fri, 31 Jul 1998 14:25:50 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Is there a way to..
Message-Id: <35C1D489.5C42@min.net>
J. Pratt wrote:
>
> Notice my if (param($i) == 1) line. Apparently that won't work.. I
> if (param('$i') == 1) {
> print "test." }
> }
Of course it won't work. It's not as you say it is.
$i should not be quoted like that. Do it as you say you do it:
if ( param($i) == 1 )
Now, I'm not guaranteeing that that one fix will solve all your
problems; but it is a show-stopper.
--
John Porter
------------------------------
Date: Thu, 30 Jul 1998 13:24:11 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: number (6 -> 06) conversion question
Message-Id: <MPG.102a7641ba1efc2a98974d@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <35C0CDF4.4469300D@cowboys.anet-dfw.com> on Thu, 30 Jul 1998
14:48:04 -0500, Tom Turton <tturton@cowboys.anet-dfw.com> says...
...
> I thought the "%.2d" gave digits after a decimal point (although I confess
> to not having tried it to see how it works with integers).
Why not try it then? Integer representations have no decimal points, so
it can't mean that, can it? The '%.2#' specifier has different meanings
for different values of '#'. You can find them in `perlfunc -f sprintf`.
> I've used "%02d" to pad single digits with leading zeros. Likewise, for
> the follow-up question about wider fields such as "00067", I'd use "%05d".
Either one works for integers. It is a question of style, because '0' is
also used to introduce octal notation into integer literals. A specifier
of '%08d' might induce a fatal attack of cognitive dissonance, and
'%011d' is confusing. But who needs such long integers, anyway?
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 30 Jul 1998 21:37:26 GMT
From: henryrb@aol.com (Henryrb)
Subject: perl problem on dec machine
Message-Id: <1998073021372700.RAA09232@ladder03.news.aol.com>
Hi, we have a dec machine at our company that has trouble with dbaccess()
commands in the perl scripts. The scripts run fine on machines of other
architectures. The perl representative here doesn't know how to help up
because it's unsupported public-domain software. Does anyone know of a perl
expert who can help us with this problem? We tried running both 5.4.1 and
5.4.4, and get the same memory faults or null values when trying to do
dbaccess().
Thanks
Henry
------------------------------
Date: 30 Jul 1998 21:48:05 GMT
From: henryrb@aol.com (Henryrb)
Subject: Re: perl problem on dec machine
Message-Id: <1998073021480500.RAA10739@ladder03.news.aol.com>
I'll add that we will pay such expert money.
>Hi, we have a dec machine at our company that has trouble with dbaccess()
>commands in the perl scripts. The scripts run fine on machines of other
>architectures. The perl representative here doesn't know how to help up
>because it's unsupported public-domain software. Does anyone know of a perl
>expert who can help us with this problem? We tried running both 5.4.1 and
>5.4.4, and get the same memory faults or null values when trying to do
>dbaccess().
>
>Thanks
>
>Henry
>
>
>
>
>
>
------------------------------
Date: 2 Aug 1998 06:51:26 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Power (ie C's 4^7)
Message-Id: <6q129f$4d1$1@marina.cinenet.net>
Thomas van Gulick (melkor@valimar.middle.earth) wrote:
: I couldn't find it in the perlop pages so I'll try here, is there some sort
: of power function in perl ala the ^ operator in C, or do I have to do it all
: myself?
Um, C has no power operator; ^ is an exclusive or (as it also is in Perl,
by some strange coincidence). In C, you use the pow() function from the
standard C math library. In Perl, the ** operator is basically a wrapper
around C's pow(). See 'perldoc perlop'.
(By the way, in C 4^7 is 3.)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Fri, 31 Jul 1998 08:49:02 -0500
From: andy barfoot <abarfoot@eng.auburn.edu>
To: David Nicol <david@kasey.umkc.edu>
Subject: Re: Schemelike qqq function? reinterpolation without eval; weak eval?
Message-Id: <Pine.SOL.3.96.980731084217.14460A-100000@leahy.eng.auburn.edu>
my $from = "andy";
my $template = 'la dee da `ls` $from';
$template =~ s#\$\w+#$&#eeg;
print "$template\n";
The 'e' flag to s/// causes the replacement pattern to be eval'ed.
The other 'e' flag causes a re-evaluation of that. So,
$& becomes the matched text, in this case '$from'.
'$from' is replaced by $from, in this case 'andy'.
Have fun!
--
andy.barfoot@eng.auburn.edu
On Thu, 30 Jul 1998, David Nicol wrote:
> Hello
>
> I'm sending some form-letter e-mail based on templates read in
> from a database.
>
> So I've got this template, $Template and a pile of local variables
> that fit into it, and I'm interpolating the local variables into the
> template like so
>
> send_email_function(eval "qq/$Template/")
>
>
> I am worried about my templates getting tainted.
>
> Is there a Scheme triple quote kind of operator that can explicitly
> interpolate a scalar, following the double-quote rules?
> qq/$Template/ isn't what I want, it will return
>
> To: $RecipAddress
> Subject: $Subject
>
> Dear $Recipient
>
> Regarding $Issue
>
> et cetera, et cetera
>
> Or how do I cripple eval so it won't do anything but interpolation,
> even if the string in there is all full of semicolons and such?
>
> Example:
>
> #!perl
> $one = "one1";
> $two = 'two2';
>
> $OT = "\$one};print `date`;qq{ \$two\n";
> print $OT, qq/$OT/, eval "qq{$OT}";
>
> I suppose I am going to use s/// to eliminate all occurances of my
> quoting character from $Template before evaluating it, so the text
> could not break out of the qq//.
>
> but a qqq/STRING/ operator would be nice, and I am a little surprised
> that there isn't one already. Is there some kind of
> _sys_interpolate function that can be called?
>
> the CPAN text-handling modules that provide a whole language
> for writing your form letters (or web pages) are a bit beyond
> what I'm looking for.
>
> ______________________________________________________________________
> David Nicol 816.235.1187 UMKC Network Operations david@news.umkc.edu
> "The latest monstrous creation from the loathsome..."
>
>
------------------------------
Date: 2 Aug 1998 07:42:29 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: seeing if a file exists.
Message-Id: <902044353.588388@thrush.omix.com>
Alan Silver <alan@find-it.furryferret.uk.com> wrote:
>snip<
: More importantly, REMOTE_ADDR is set by the *browser*, not the server.
No, it's not. The server sets it based off calls against the
socket descriptor (gethostbyaddr() and friends). The browser
does not have any control over this value.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 2 Aug 1998 07:55:20 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: seeing if a file exists.
Message-Id: <902045124.823549@thrush.omix.com>
Ollie Cook <oliver.cook@bigfoot.com> wrote:
>snip<
: Yes, I see what you're getting at. Thanks for pointing that out. What
: would be a better way of doing it? Basically it's a file which stores
: information about what's in a shopping cart. I'd prefer not to use
: cookies, but i'll think about that again later maybe! Thanks!
It's hard to maintain state without some kind of session ID
being passed around. If cookies aren't an option, then you
need to pass them around in the URI some how. -That is, every
link is something like "/foo/bar.html?ID=1234", etc.
This can be done through a CGI, but it's much better handled
by the server. Apache mod_perl lets you write translation
handlers that can do this, but it's not simple, but neither
is the CGI method, and at least it's cleaner. For mod_perl
however, you've got to have full access to the server because
you'll need to compile it into the Apache binary as well as
be able to modify the server config files.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 30 Jul 1998 20:47:25 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: What's the future of Perl?
Message-Id: <6pqm4t$gqv$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
who wrote in article <6pq615$k7j$2@csnews.cs.colorado.edu>:
> Sure, it's there, but it's not what you think it is. The compiler does
> not, except in a few very rare cases, do any of these things:
>
> increase security
> increase portability
> decrease size
> decrease runtime
All these were true last time I checked (a year or so ago), but I
wonder, could we insert that wordy "yet" when discussing the compiler?
Malcolm did a fine job, and it is very easy (and very painful) to
denigrate work-in-progress basing on the today's results...
Ilya
------------------------------
Date: Thu, 30 Jul 1998 20:29:18 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: What's the future of Perl?
Message-Id: <35c0d74e.185606466@news2.cais.com>
quinn coldiron <qcoldiro@deal.unl.edu> Said this:
>I have heard some various things about the future versions of Perl. The
>one rumor I heard that excites me the most is that the next release will
>have a compiler, so we can make compiled code if we want, or keep
>running our code as an interpreted script. Is this true? Another thing
>I have wondered is will Perl every get a Case or Switch statement?
>
You can already get a halfway decent compiler from the CPAN. It
doesn't work in all cases, but you can at least get some basic scripts
compiled.
I've had about an 80% success rate with compiling my perl scripts.
------------------------------
Date: 30 Jul 1998 20:52:56 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: What's the future of Perl?
Message-Id: <6pqmf8$3de$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
:All these were true last time I checked (a year or so ago), but I
:wonder, could we insert that wordy "yet" when discussing the compiler?
Yes.
:Malcolm did a fine job, and it is very easy (and very painful) to
:denigrate work-in-progress basing on the today's results...
Absolutely. I am in violent and earnest agreement with you.
--tom
--
"What is the sound of Perl? Is it not the sound of a wall that
people have stopped banging their heads against?"
--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
------------------------------
Date: Thu, 30 Jul 1998 09:22:18 GMT
From: c.clark@student.unsw.edu.au
Subject: write file in htdocs directory
Message-Id: <35c03a7a.5458444@news.syd.enternet.com.au>
Hi,
Can anyone tell me how (if it is possible) to write into the html
documents directory (htdocs) from a perl program on an Apache server?
Is it a permission thing? I've tried using "../htdocs/" to get into
the directory and also "http://www.myplace.com/" but it doesn't like
that either.
My purpose is that I would like to create static HTML documents based
on User input.
Thanks (especially as this is such a basic question),
Chris Clarke
------------------------------
Date: 30 Jul 1998 13:58:54 -0700
From: hirano@Xenon.Stanford.EDU (Kelly Hirano)
Subject: Re: write file in htdocs directory
Message-Id: <6pqmqe$lsm@Xenon.Stanford.EDU>
try using the absolute path. and make sure that the user/group that the web
server is running as has permission to write to your htdocs directory.
In article <35c03a7a.5458444@news.syd.enternet.com.au>,
<c.clark@student.unsw.edu.au> wrote:
>Hi,
>
>Can anyone tell me how (if it is possible) to write into the html
>documents directory (htdocs) from a perl program on an Apache server?
>Is it a permission thing? I've tried using "../htdocs/" to get into
>the directory and also "http://www.myplace.com/" but it doesn't like
>that either.
>
>My purpose is that I would like to create static HTML documents based
>on User input.
>
>Thanks (especially as this is such a basic question),
>
>
>Chris Clarke
--
Kelly William Hirano Stanford Athletics:
hirano@cs.stanford.edu http://www.gostanford.com/
hirano@alumni.stanford.org (WE) BEAT CAL (AGAIN)! 100th BIG GAME: 21-20
------------------------------
Date: Thu, 30 Jul 1998 22:52:35 +0200
From: Chabert Sebastien <chabert.sebastien@cur-archamps.fr>
Subject: zip files with Perl
Message-Id: <35C0DD13.11AEFD36@cur-archamps.fr>
I want to zip some data and send them to a java applet.
Do i have to create a temporary file with this data and to call
something like :
system( gzip <my_file> )
or can I do st else ?
Is there a way, for example to direcly apply gzip (or a Perl sub) on a
@array in order to compress it ?
tx
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
CHABERT Sebastien
chabert.sebastien@france-mail.com
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed 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 3317
**************************************
