[12422] in Perl-Users-Digest
Perl-Users Digest, Issue: 6022 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 16 17:07:25 1999
Date: Wed, 16 Jun 99 14:01:35 -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 Wed, 16 Jun 1999 Volume: 8 Number: 6022
Today's topics:
Re: Location (Abigail)
Re: Makefile.PL when you're not the admin <rootbeer@redcat.com>
Re: memory question <rootbeer@redcat.com>
Re: MIcrosofts Attack on Perl <paul@notepad.com>
Re: MIcrosofts Attack on Perl (Kvan)
Re: Multidimensional Associative (hash) array (Bart Lateur)
Re: my and interpolation? <nenad@halcyon.ca>
Re: my and interpolation? <uri@sysarch.com>
Re: my and interpolation? (Eric Bohlman)
Re: my and interpolation? <emschwar@rmi.net>
Re: my and interpolation? (Jerome O'Neil)
Re: newbie learning "my" declarations (Charles DeRykus)
Re: newbie learning "my" declarations (Abigail)
Re: newbie learning "my" declarations <rootbeer@redcat.com>
Re: overwrite "print" ? (Abigail)
Re: Page Refresh (Abigail)
Re: pattern matching question <emschwar@rmi.net>
Re: Perl and CGI (Abigail)
Re: Perl print to stdout not working...causes beeps. <upsetter@ziplink.net>
Re: saving uploaded file <rootbeer@redcat.com>
Re: Scripts Needed <rootbeer@redcat.com>
sending to html page... <jbowers@bsat.com>
Re: sending to html page... <upsetter@ziplink.net>
Re: What is functional difference between .pm and .pl? (Abigail)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Jun 1999 09:22:34 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Location
Message-Id: <slrn7mfd9l.do2.abigail@alexandra.delanet.com>
Tim (bie@connect.ab.ca) wrote on MMCXV September MCMXCIII in
<URL:news:37673EDD.4D82@connect.ab.ca>:
;;
;; How can I make user go right now a page, without going to a page, then
;; redirected.
The same way as you would do with a ADA program.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 16 Jun 1999 13:24:57 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Makefile.PL when you're not the admin
Message-Id: <Pine.GSO.4.02A.9906161313390.26850-100000@user1.teleport.com>
On Wed, 16 Jun 1999, Burton Kent wrote:
> I use
> 'perl Makefile.PL PREFIX=~ LIB=~/lib/perl'
> to install libraries in my own ~/lib/perl directory.
Sounds good...
> But this seems unreliable when there is a binary. If there is a
> binary, it's not found, even if I put the path to the binary in @INC.
I don't see why this should be unreliable, but I'm not completely certain
how PREFIX and LIB interact. They should do the Right Thing, but the docs
say
Conflicts between parameters LIB, PREFIX and the various INSTALL*
arguments are resolved so that XXX
It seems that I can't see the rest of that paragraph because the V-chip
just kicked in on my WebTV. :-)
Seriously, this looks as if someone left off in the middle of updating
that part of the docs. Oops! But you should probably check that you're
getting everything installed in the right places when you do 'make
install' by reading through the Makefile you're getting. (You are using
'make install', aren't you?) Then make sure that you're also using 'use
lib' correctly in your code. (You _are_ using 'use lib', aren't you?) And
double-check that you're doing what the docs say for installing your own
collection of modules.
Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 16 Jun 1999 13:12:36 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: memory question
Message-Id: <Pine.GSO.4.02A.9906161300370.26850-100000@user1.teleport.com>
On Wed, 16 Jun 1999 bing-du@tamu.edu wrote:
> I know that as long as the Perl program has gotten the memory, the
> memory will not be given back to the system during the execution period
> of the program. My question is:
[ snip ]
> if the space ever taken by %test can be reused by the program after
> '%test=()'?
You want to know whether Perl, unable to return memory to the system, will
itself reuse the memory it had needed for a large amount of data. Yes, if
it can do so, it will; this is one of those cases. You shouldn't worry
about it, generally.
But, most often, you should simply use properly-scoped lexical variables
which go out of scope when you're through with them.
> What's the difference between '%test=()' and 'undef %test'?
Essentially nothing. I could put a long paragraph or three here about
symbol tables and a few other technical details about what's happening
behind the scenes with those two, but in the end it comes down to "Use
properly-scoped lexical variables and don't sweat the small stuff." :-)
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 16 Jun 1999 16:27:15 -0400
From: "Paul M. Parks" <paul@notepad.com>
Subject: Re: MIcrosofts Attack on Perl
Message-Id: <929564837.783.42@news.remarQ.com>
There are those of us who, when developing an application with Visual C++,
prefer to drop the "Visual" altogether and use the language as it was
intended. Don't count me out.
--
Paul M. Parks
Parks Computing Services, Inc.
http://www.notepad.com/
Steve Horne <steve.horne1@bridge.bst.bls.com> wrote in message
news:3767DAD1.A64A7D1E@bridge.bst.bls.com...
> Cameron Laird wrote:
> >
> > Now, what "C++" means, as least at the business level
> > defined by recruiters and managers, is "the latest
> > MS VC++". VC++ is poorly compatible between versions,
>
> I just wanted to make the comment that _many_ of us working on
> mission-critical "real" business applications develop in C++ on a Unix
> platform (myself on HP-UX, AIX and Solaris).
>
> As an active participant in the interview/evaluation process, I view
> past experience with VC++ differently than straight C++ experience. Due
> to MS VC++'s GUI drag-and-drop "programming", experience with VC++
> counts for less than equivalent work done with the actual language
> itself.
>
> I'm not saying that we don't hire people w/VC++ experience, but when
> considering previous experience, VC++ usually has less weight than
> development on other platforms. Plus, as far as your comment above,
> most managers in my type of environment couldn't care less about "the
> latest MS VC++".
>
> -Steve
------------------------------
Date: Wed, 16 Jun 1999 19:52:56 GMT
From: kvan@dis.dk (Kvan)
Subject: Re: MIcrosofts Attack on Perl
Message-Id: <3767ff02.535879113@news.newsguy.com>
On 16 Jun 1999 10:30:04 -0500, claird@Starbase.NeoSoft.COM (Cameron
Laird) wrote:
> [...] and a lot of practitioners seem to believe
>that MFC is the standard library. Maybe MS *did*
>hijack VC++.
I don't believe so. I'll acknowledge that they did as far as their own
platform is concerned, although they didn't so much hi-jack it as
create something much, much different. Considering that, they could in
fact be construed as a threat to Perl's portability: MSPerl could
become unable to run on other platforms. The thing is this, however:
They have no reason to create a proprietary version. What could they
gain? VBScript isn't really a product or a core technology for them,
it's ASP that is. And I don't see them (and consequently MS-centric
managers and buyers) acknowledging Perl as anything but a scripting
language.
So it stands to reason that MS has nothing, or exceedingly little, to
gain from apllying an embrac & extend to Perl. Doesn't mean they won't
do it, of course, but the threat to the OS itself is much, much less
than it was with Java.
Kvan, still not worried.
-------Casper Kvan Clausen------ | 'A *person* is smart. People are
---------<kvan@dis.dk>---------- | dumb, panicky, dangerous animals
| and you know it.'
| - "K" in Men in Black.
------------------------------
Date: Wed, 16 Jun 1999 20:34:12 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Multidimensional Associative (hash) array
Message-Id: <376c08f7.7771612@news.skynet.be>
jtubaugh@cftnet.com wrote:
>%ARRAY1 = ("key1","value1", "key2","value2");
>
>Then store it in a second array:
>
>%ARRAY2 = ("key1", %ARRAY1);
>
>Each row in %ARRAY2 will have different values set for %ARRAY1.
You could try
%ARRAY2 = ("key1", \%ARRAY1);
but preferably only if you declared %ARRAY1 using my(), and don't use it
for anything else in the same block (and in same loop), or:
%ARRAY2 = ("key1", { %ARRAY1 });
which will be slower. Doing this directly works too:
%ARRAY2 = ("key1", { "key1","value1", "key2","value2" });
Then try:
print $ARRAY2{"key1"}{"key2"};
or
print $ARRAY2{"key1"}->{"key2"};
Result of either:
value2
Bart.
------------------------------
Date: Wed, 16 Jun 1999 15:57:57 -0400
From: Nenad Vidovic <nenad@halcyon.ca>
Subject: Re: my and interpolation?
Message-Id: <376801C5.E1A513D4@halcyon.ca>
Hi again,
Thanks for answering. But I am not clear about this, but I guess I'll have
to read about it more. Still in my mind the question: how then to create a
dynamicly create variables. Isn't this supposed to be an advantage of Perl.
Look at this:
@variables = ( "city", "country", "first_name", "last_name");
foreach $var (@variables) {
${$var} = &query("$var");
}
query is some function. Is it wrong to write in this way. What is the
alternative?
Eric The Read wrote:
> Because you're trying to do symbolic references, which are Very Very
> Bad(tm). One of their major failings is that they only work on package
> variables, so variables declared with "my", which are lexical, can't be
> referred to in this manner.
>
> The Right Way(tm) is to use a hash:
>
> $compression = 'gz'; # don't use double-quotes unless you're trying to
> # interpolate
> $file_size = $file_compress{$compression};
> print "$file_size\n";
>
> Cue TomC's screed on symrefs, or better yet, search Deja.com for it, and
> save him the trouble.
>
> -=Eric
--
Regards,
==========================================================
Nenad Vidovic Halcyon Inc.
nenad@halcyon.ca http://www.halcyon.ca
==========================================================
------------------------------
Date: 16 Jun 1999 16:24:33 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: my and interpolation?
Message-Id: <x7u2s7dhby.fsf@home.sysarch.com>
>>>>> "NV" == Nenad Vidovic <nenad@halcyon.ca> writes:
NV> Thanks for answering. But I am not clear about this, but I guess
NV> I'll have to read about it more. Still in my mind the question:
NV> how then to create a dynamicly create variables. Isn't this
NV> supposed to be an advantage of Perl. Look at this:
it is an advantage but you can do it much better in other ways.
NV> @variables = ( "city", "country", "first_name", "last_name");
NV> foreach $var (@variables) {
NV> ${$var} = &query("$var");
NV> }
NV> query is some function. Is it wrong to write in this way. What is the
NV> alternative?
it is very wrong. see recent threads on this and tom c.'s posts. look
for them on dejanews. in general symbolic references are evil. hashes
are the proper way to do dynamic structures in perl.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Wed, 16 Jun 1999 20:23:43 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: my and interpolation?
Message-Id: <ebohlmanFDFsnJ.80n@netcom.com>
Nenad Vidovic (nenad@halcyon.ca) wrote:
: Thanks for answering. But I am not clear about this, but I guess I'll have
: to read about it more. Still in my mind the question: how then to create a
: dynamicly create variables. Isn't this supposed to be an advantage of Perl.
: Look at this:
:
: @variables = ( "city", "country", "first_name", "last_name");
: foreach $var (@variables) {
: ${$var} = &query("$var");
: }
:
: query is some function. Is it wrong to write in this way. What is the
: alternative?
It's a hack, and one that can lead to subtle, hard-to-track-down bugs.
It was a necessary evil back in the days before Perl 5, when you didn't
have references and therefore you had to simulate data structures, but
now you can actually create data structures instead of hiring an actor to
portray them.
In this case, all you need is a plain old one-dimensional hash, which has
been part of Perl since before version 5, so using symbolic references
here is particularly bad. Try:
@variables = ( "city", "country", "first_name", "last_name");
foreach $var (@variables) {
$results{$var} = &query($var);
}
Then $results{city} has the query results for "city," etc.
------------------------------
Date: 16 Jun 1999 14:32:04 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: my and interpolation?
Message-Id: <xkfhfo7lwe3.fsf@valdemar.col.hp.com>
Nenad Vidovic <nenad@halcyon.ca> writes:
> Thanks for answering. But I am not clear about this, but I guess I'll have
> to read about it more.
*PLEASE* use Deja.com. If you go there, and search for "symbolic
references" in this newsgroup, you'll get reams and reams of discussions
on this very topic. It'll save you a lot of time from rehashing (no pun
intended!) a question that keeps getting asked again and again, and
again. Also, read the FAQ. This is a Frequently Asked Question, and
it's most polite to read a newsgroup's FAQ before asking a Frequently
Asked Question, so that you won't waste time and resources asking a
question that's been asked before.
Mind you, if you read the FAQ, and you *still* have questions, or you
don't understand the FAQ, then this is certainly the place to come back
to.
> Still in my mind the question: how then to create a dynamicly create
> variables.
Use a hash.
> Isn't this supposed to be an advantage of Perl.
Not really. Most people, at first blush, think it is. Then they run
into problems like you did, and discover that symbolic references are
not their friend.
> Look at this:
>
> @variables = ( "city", "country", "first_name", "last_name");
> foreach $var (@variables) {
> ${$var} = &query("$var");
> }
>
> query is some function. Is it wrong to write in this way. What is the
> alternative?
All you're really doing when you say "${$var}" is using the current
namespace to look up the scalar variable named in $var. It's absolutely
no different than saying "$myvars{$var}". In the above case, you'd say:
@variables = ( "city", "country", "first_name", "last_name");
foreach $var (@variables) {
$myvars{$var} = &query("$var");
} ^^^^^^
The only difference is that you're then explicitly specifying the hash
used. If you really don't know the names of the variables beforehand,
you can't write code that explicitly references them, like so:
print "$city\n";
You'd have to write:
print "${$var}\n";
If you have to go to all that trouble, why not just use an explicit hash?
It's easier, and it means you keep data in the user's namespace separate
from data in your program's namespace.
-=Eric
------------------------------
Date: 16 Jun 1999 20:46:13 GMT
From: jeromeo@atrieva.com (Jerome O'Neil)
To: Nenad Vidovic <nenad@halcyon.ca>
Subject: Re: my and interpolation?
Message-Id: <7k92el$ehb$1@brokaw.wa.com>
[Posted and mailed]
In article <376801C5.E1A513D4@halcyon.ca>,
Nenad Vidovic <nenad@halcyon.ca> writes:
> Hi again,
>
> Thanks for answering. But I am not clear about this, but I guess I'll have
> to read about it more. Still in my mind the question: how then to create a
> dynamicly create variables. Isn't this supposed to be an advantage of Perl.
> Look at this:
>
> @variables = ( "city", "country", "first_name", "last_name");
> foreach $var (@variables) {
> ${$var} = &query("$var");
> }
>
> query is some function. Is it wrong to write in this way. What is the
> alternative?
While 'wrong' is perhaps too strong a word, I think there are generaly
better ways to do this. Whenever you find yourself in this situation,
you should think "hash."
my @fieldnames = qw{city country first_name last_name};
my %record;
foreach(@fieldnames){
$record{$_} = &query($_);
}
Symbolic references are ooky. Hashes are much more flexible.
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: Wed, 16 Jun 1999 19:52:46 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: newbie learning "my" declarations
Message-Id: <FDFr7y.3JL@news.boeing.com>
In article <7k8o7n$8sj$1@monet.op.net>, Mark-Jason Dominus <mjd@op.net> wrote:
>In article <B38C77AC966851720D@204.112.166.88>, Lee <rlb@intrinsix.ca> wrote:
>>"Make me a brand new variable, call it $total, and set its value to one
>>more than it used to be."
>
>You can say that, but not the way the other guy wanted to:
>
> my $total = $total + 1;
or, even: my $total += 1;
--
Charles DeRykus
------------------------------
Date: 16 Jun 1999 09:25:22 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: newbie learning "my" declarations
Message-Id: <slrn7mfdes.do2.abigail@alexandra.delanet.com>
aaronp@removeme-shore.net (aaronp@removeme-shore.net) wrote on MMCXIV
September MCMXCIII in <URL:news:AyA93.5842$nn.1067464@news.shore.net>:
'' I have a question about using the 'my' and 'local' declarations. I'm new
'' to perl and am at the stage of teaching myself how to make scripts not
'' just work, but work right, based on info from this newsgroup.
''
'' I want to do this:
''
'' my $total++;
Since my declares a new, fresh variable, with no value (hence undef),
and adding 1 to undef results in 0 being replaced for undef, why not
my $total = 1;
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 16 Jun 1999 13:38:04 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: newbie learning "my" declarations
Message-Id: <Pine.GSO.4.02A.9906161332510.26850-100000@user1.teleport.com>
On Wed, 16 Jun 1999, Lee wrote:
> > my $total = $total + 1;
>
> With use strict, that gives a compilation error.
>
> With -w, my $total; $total = $total + 1; gives a warning.
At least, it gives a warning unless it gives the wrong answer. (That is,
unless the answer it happens to give happens to be the answer you happen
to want. :-)
$total = 17; # global $total is 17
my $total = $total + 1; # lexical $total is 18
Yow!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 16 Jun 1999 08:46:27 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: overwrite "print" ?
Message-Id: <slrn7mfb5s.do2.abigail@alexandra.delanet.com>
Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote on MMCXV September
MCMXCIII in <URL:news:1dtgos0.lsarda1o2zankN@p51.tc1.metro.ma.tiac.com>:
.. Abigail <abigail@delanet.com> wrote:
..
.. > Sig that overrides both print and __PACKAGE__ follows.
.. >
.. >
.. > Abigail
.. > --
.. > package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
.. > print } sub __PACKAGE__ { &
.. > print ( __PACKAGE__)} &
.. > __PACKAGE__
.. > ( )
..
.. I don't believe so. You're calling your print and __PACKAGE__
.. subroutines with an ampersand. You haven't overridden either keyword;
.. you've just declared subroutines that happen to have the same names.
.. Similarly, if you define a subroutine named s, you have not overridden
.. the s/// operator, and you have to call your new subroutine as &s.
..
.. In particular, when you execute the simple statement 'print', you get
.. the builtin print, not your new print subroutine.
In that case, you can't override __PACKAGE__ either, as a lone __PACKAGE__
will resolve to CORE::__PACKAGE__().
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 16 Jun 1999 08:57:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Page Refresh
Message-Id: <slrn7mfbrg.do2.abigail@alexandra.delanet.com>
Raj (technology@workmail.com) wrote on MMCXIV September MCMXCIII in
<URL:news:376673C8.BA0DF839@workmail.com>:
:: Hi ,
:: How do i refresh the previos CGI/Perl script Page when the browser back
:: button is clicked? TIA,
You don't. Go and understand the back function.
More questions about this should be asked elsewhere, as it has nothing
at all the do with Perl.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 16 Jun 1999 14:42:19 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: pattern matching question
Message-Id: <xkfemjblvx0.fsf@valdemar.col.hp.com>
gbacon@itsc.uah.edu (Greg Bacon) writes:
> If you're determined to use a regular expression
>
> ($path = $url) =~ s,^.*?//.*?/,,;
It's entirely possible that those are the ugliest delimiters I've ever
seen for s///.
-=Eric
------------------------------
Date: 16 Jun 1999 08:58:53 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl and CGI
Message-Id: <slrn7mfbt8.do2.abigail@alexandra.delanet.com>
Chen & Jinlin (linchen88@prodigy.net) wrote on MMCXII September MCMXCIII
in <URL:news:376430EF.A13CA803@prodigy.net>:
!! I have a web server that doesn't support CGI! Is there a work around
!! this? (Such as an executable file...)
Yes. Get a web server that does support CGI.
Now, what's your Perl question?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 16 Jun 1999 20:09:27 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Perl print to stdout not working...causes beeps.
Message-Id: <XvT93.99$7X1.24559@news.shore.net>
gharris8158@my-deja.com wrote:
: We have 2 NT web servers running Microsoft
: Internet Server manager, one for development, one
: for production.
You have my sympathy.
: On the development server, this works
: fine and the browser tries to launch the
: appropriate viewer for the file, but when the
: perl script runs on the production server, the
: computer just starts beeping, and the browser
: eventually returns the message :
If it works on one server but not the other then the chances are
exceedingly slim that it's a perl problem.
Sorry!
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Wed, 16 Jun 1999 13:40:43 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: saving uploaded file
Message-Id: <Pine.GSO.4.02A.9906161340230.26850-100000@user1.teleport.com>
On Wed, 16 Jun 1999, Ryan Corder wrote:
> Now, how do i strip the path from $filename so i can specify the file
> to be saved in a specific directory?
Use File::Basename. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 16 Jun 1999 13:39:42 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Scripts Needed
Message-Id: <Pine.GSO.4.02A.9906161339260.26850-100000@user1.teleport.com>
On Wed, 16 Jun 1999, Ky Luong wrote:
> Do anyone know where I can get a script
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 16 Jun 1999 15:57:00 -0400
From: Jeff Bowers <jbowers@bsat.com>
Subject: sending to html page...
Message-Id: <3768018C.D1C3E582@bsat.com>
I'm new to this newsgroup, so if this has come up before, forgive.
Up to this point, we have been generating our HTML out of Perl for our
simple databases. Now we have a dynamic display of network throughput
which some don't think should be on the "common" net.
I have written the script that requests an ID and a password (simple,
not very secure, but just to keep the
peasants away). The problem is the syntax to say "Yes your Password is
correct, here is your page".
We have tried many methods including a system command to cat the html
doc, to no avail.
What (or where is) the scriptology to send a URL back to the browser?
Thanx Jeff Bowers jbowers@bsat.com
------------------------------
Date: Wed, 16 Jun 1999 20:45:03 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: sending to html page...
Message-Id: <j1U93.112$7X1.24559@news.shore.net>
Jeff Bowers <jbowers@bsat.com> wrote:
: The problem is the syntax to say "Yes your Password is
: correct, here is your page".
print "Yes your Password is correct, here is your page";
(Sorry, couldn't resist!)
: We have tried many methods including a system command to cat the html
: doc, to no avail.
: What (or where is) the scriptology to send a URL back to the browser?
I'm not sure what you're trying to accomplish. If you're sending them to a
specific HTML page, where do you wish to insert the "your password is
correct" text? At the beginning of the page? Or do you wish to have an
intermediate page that auto-refreshes to the desired page?
In any case, it's not really a perl problem and you might have better luck
in the CGI newsgroup.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: 16 Jun 1999 08:47:30 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: What is functional difference between .pm and .pl?
Message-Id: <slrn7mfb7s.do2.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXV September MCMXCIII in
<URL:news:37729134.14765927@news.skynet.be>:
|| Abigail wrote:
||
|| >I use .pl because that makes my editor jump into the appropriate mode. :)
||
|| Give us back our own Abigail! ;-)
||
|| You did write, some while ago, that you "refused to program a christmas
|| tree" (my paraphrase), didn't you?
Yes, I did. What's your point?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 6022
**************************************
