[9727] in Perl-Users-Digest
Perl-Users Digest, Issue: 3321 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 2 23:05:12 1998
Date: Sun, 2 Aug 98 20:00:18 -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: 3321
Today's topics:
ActivePerl - browser problem <int@rz.fh-augsburg.de>
CGI / Perl and SQL Server <JSANDAIRE@prodigy.net>
Re: comp.lang.perl.announce redux <merlyn@stonehenge.com>
Re: comp.lang.perl.announce redux (Abigail)
Re: comp.lang.perl.announce redux (Mark-Jason Dominus)
Re: comp.lang.perl.announce redux (Ronald J Kimball)
dbm tie and file locking (Scott)
Re: forked children won't terminate (nobody)
Re: help help help please!!!! (Tad McClellan)
Re: Interesting Question needs Quick Answer <shadolin@cableinet.co.uk>
IO::Socket problem / alternative? (Michael Caver)
Re: IO::Socket problem / alternative? (Ronald J Kimball)
Re: luser is spelt L-O-S-E-R was Re: hiding user input (Abigail)
Re: luser is spelt L-O-S-E-R was Re: hiding user input <sp@m.block>
Newbie questions...help! <astudill@ix.netcom.com>
Re: Newbie questions...help! (Bob Trieger)
Re: Perl + FP Web Server + Microsoft Web Server joetombus@my-dejanews.com
Re: Perl + FP Web Server + Microsoft Web Server <rootbeer@teleport.com>
Re: Perl + FP Web Server + Microsoft Web Server (Larry Rosler)
Re: printf behaviour (I think bug) (Tad McClellan)
Re: printf behaviour (I think bug) (Larry Rosler)
Re: Q:Parsing file paths <dereks@fc.hp.com>
rename($oldname,$newname) don't work in browser <dellacorte@ibm.net>
Re: rename($oldname,$newname) don't work in browser (Bob Trieger)
Re: seeing if a file exists. (Martien Verbruggen)
Test (Scott)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 3 Aug 1998 03:51:43 +0200
From: "Aurel" <int@rz.fh-augsburg.de>
Subject: ActivePerl - browser problem
Message-Id: <6q3599$qs5$1@av2.rz.fh-augsburg.de>
Hi!
My perl skripts only work, if they are called by a html-page ; but typing
someprog.pl into the URL-window of a browser just won't work - even with a
3-lines-test.pl
The perl.exe DOS-box pops up an vanishes.
Calling www.activestate.com/Packages brings the source-code(!) into my
browser-window (IE4) - NT4.0 SP3
The registry keys HKEY_LOCAL_SYSTEM\System\CurrentControlSet\ and so on seem
to be ok according to the docs.
I studied the FAQs but i don't even have a clue...
Aurel
------------------------------
Date: Sun, 2 Aug 1998 22:06:50 -0400
From: "JOHNNY SANDAIRE" <JSANDAIRE@prodigy.net>
Subject: CGI / Perl and SQL Server
Message-Id: <6q35tr$tpe$1@newssvr04-int.news.prodigy.com>
I am planing to collect information from a web-based interface using perl
and would like to write this information to a SQL server (6.5). Does anyone
have any ideas on how to proceed. I have the SQL server installed on an NT
4.0, IIS 4.0 and Perl 5 Server.
Thanks.
Please send all information to jsandaire@prodigy.net
------------------------------
Date: Sun, 02 Aug 1998 23:38:47 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <8cr9yzlzsy.fsf@gadget.cscaper.com>
OK, here's my next cut at the updated charter.
comp.lang.perl.announce is a low-volume announcement group for messages
that benefit the worldwide Perl programming community. The acceptance
criteria are as follows:
0) The moderator's decision is final, unless he changes his mind. :)
1) Your post must be much more about Perl than about any other
subject.
2) Your post must offer something *to* the reader, not ask a question.
3) Your post must be completely non-commercial, *unless* you have the
sponsorship of a recognized non-profit organization (like Perl
Mongers, The Perl Institute, or Usenix/LISA). Commercial posts
will be tagged in the subject line as [COM].
4) Perl code *must* reside in the CPAN. Non-CPAN code announcements
will be rejected, even if sponsored as a commercial post. (See
http://www.perl.com/CPAN/modules/04pause.html for details on how to
submit items to the CPAN.) Postings consisting of source code will
be rejected. (If it's good enough to post, it's good enough to go
into the CPAN.)
5) Book/magazine/article/website pointers/reviews are permitted only
from a third-party; no PR from the author or the publisher, please.
6) Conference announcements should be brief and infrequent.
7) Articles must be in English, and have a reply-able email address.
If I don't hear any significant exceptions, I'll put this in place
by the end of this week.
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 3 Aug 1998 00:35:45 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q30l1$6m8$1@client3.news.psi.net>
Nathan Torkington (gnat@frii.com) wrote on MDCCXCV September MCMXCIII in
<URL: news:5qvhoeavaf.fsf@prometheus.frii.com>:
++
++
++ So, I'd like to suggest that the new comp.lang.perl.announce policy
++ be:
++
++ 1) Posts must be relevant to Perl. That is, applications written in
++ Perl, development tools for Perl, new Perl modules, and conferences,
++ meetings, and magazines featuring Perl.
++
++ 2) Posts must mention whether the product or event described is free
++ or commercial. Commercial posts will be tagged [COM] on the subject
++ line by the moderator unless already so tagged.
++
++ 3) Unless the software otherwise meets the criteria for acceptance in
++ (1), CGI scripts written in Perl won't be accepted. CGI modules and
++ CGI scripts that help with development in Perl will be accepted.
Since (1) allows applications just because they are written in Perl,
I don't see which CGI scripts written in Perl can be rejected.
I'd rather see clpa free of application announcements just because they
are written in Perl. Would there be a group of readers of clpa that are
interested in those applications? (Yeah, I'm looking for software that I
can use the program my voice mail - but I'm not reading the groups related
to voice mail, because I insists on having the software written in Perl)
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: 2 Aug 1998 20:50:42 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q31h2$1rn$1@monet.op.net>
In article <8cr9yzlzsy.fsf@gadget.cscaper.com>,
Randal Schwartz <merlyn@stonehenge.com> wrote:
> 3) Your post must be completely non-commercial,
I am afraid that without a clearer definition of `commercial', you are
going to continue to have the same sorts of problems that you had
before. For example, you rejected Jon Orwant's announcement of the
Obfuscated Perl Contest. I would not have considered this commercial,
and I think many other people would have agreed.
This, for me, was the problem: We seemed to have very different
understanding of what would constitute `commerce'. Your new
guidelines do not address this at all.
------------------------------
Date: Sun, 2 Aug 1998 21:53:06 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <1dd5kod.1qzsp3n18m47tiN@bay1-92.quincy.ziplink.net>
Randal Schwartz <merlyn@stonehenge.com> wrote:
> 3) Your post must be completely non-commercial, *unless* you have the
> sponsorship of a recognized non-profit organization (like Perl
> Mongers, The Perl Institute, or Usenix/LISA). Commercial posts
> will be tagged in the subject line as [COM].
How do you determine whether the poster has "sponsorship"? For example,
what would you do if an O'Reilly employee submitted an announcement
about the Perl Conference?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sun, 02 Aug 1998 16:48:43 -0700
From: public@moriah.com (Scott)
Subject: dbm tie and file locking
Message-Id: <public-0208981648430001@d01a85e9.dip.cdsnet.net>
Do you have to manually lock a dbm file or is it taken care of automatically?
What about when you use tie? (which I haven't figured out yet).
What about when only reading to the file. I assume you only need to lock
the file when writing to it.
The docs say that dbm is now depreciated and to use tie. Does anyone know
of a good reference or tuitorial on moving from dbm to tie?
I've read perltie and it left me completely confused.
Thanks in advance,
Scott C.
--
With God, All things are possible
Without God, Nothing is possible
public@moriah.com
------------------------------
Date: 2 Aug 1998 22:47:11 GMT
From: ac1@fspc.netsys.itg.telecom.com.au (nobody)
Subject: Re: forked children won't terminate
Message-Id: <6q2q9f$7nc@newsserver.trl.OZ.AU>
Ack!! Non-deteministic programming is something to be avoided if
at all possible. All it does is reduce the probability that a problem
will occur. Far better to fix the source of the problem than hide it
where it'll bite some other poor sod on the butt.
Calle Dybedahl (qdtcall@esb.ericsson.se) wrote:
: dwiesel@my-dejanews.com writes:
: > Why won't the other children terminate?
: They do (check with ps). What's happening is that some SIGCHLDs are
: arriving while you're still processing the previous one, and therefore
: dropped on the floor. Insert some sleeps of different lengths in the
: children (so that they don't all die at the same time) and your
: program will behave as you expect it to.
: --
: Calle Dybedahl, UNIX Sysadmin
: qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: Sun, 2 Aug 1998 10:59:17 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: help help help please!!!!
Message-Id: <lc22q6.3kp.ln@localhost>
David (dstanton@airmail.net) wrote:
: Subject: help help help please!!!!
If you could find the time to put a subject subject subject in
your Subject: Subject: Subject: you'd be ignored less!!!!
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 03 Aug 1998 01:03:26 +0100
From: "P. Hegarty" <shadolin@cableinet.co.uk>
Subject: Re: Interesting Question needs Quick Answer
Message-Id: <35C4FE4E.F884FB7A@cableinet.co.uk>
This is a multi-part message in MIME format.
--------------2CD463C6D50E76AC59991CA1
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Thank you to everyone you replied with at least helpful hints. As it was only a
exercise to help us learn about perl I was able to get a solution from the powers
that be. It worked by storing most of the script in a variable. It then did some
cute stuff and printed the first few lines out with the contents of the variable.
If anyone really wants I will email a copy if requested to do so.
Have Fun!!!
Shadolin
******************************************************************************
Patrick Hegarty shadolin@cableinet.co.uk
102 Jubilee Drive sm8plh@csc.liv.ac.uk
Liverpool http://wkweb4.cableinet.co.uk/shadolin/
L7 8SM http://www.csc.liv.ac.uk/~sm8plh/
0151 281 4510 Fax 0151 281 7123
*****************************************************************************
--------------2CD463C6D50E76AC59991CA1
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Patrick Hegarty
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Patrick Hegarty
n: Hegarty;Patrick
org: WITS
adr: 84 Claremont Road;;Wavertree;Liverpool;Merseyside;L15 3HL;U.K.
email;internet: shadolin@cableinet.co.uk
tel;fax: 0151 281 7123
tel;home: 0151 281 4510
note: sm8plh@csc.liv.ac.uk During working Hours
x-mozilla-cpt: ;0
x-mozilla-html: TRUE
version: 2.1
end: vcard
--------------2CD463C6D50E76AC59991CA1--
------------------------------
Date: Mon, 03 Aug 1998 01:21:11 GMT
From: michael@mcaver.com (Michael Caver)
Subject: IO::Socket problem / alternative?
Message-Id: <DEA39C6F6CD75CDC.E15DD7BC6EF9D7C0.21AE5267270D62FA@library-proxy.airnews.net>
Hello, group.
I have a perl script reading URLs from a database and making an HTTP
connection to each using IO::Socket to read the server code...i.e. a
self-maintaining database of links.
I have noticed that some of the links are coming back with 400, 404 or
500 server codes when I know for a fact the page is up. Sure enough,
I can access the site via Netscape, but the HTTP header via my perl
script returns a bad code. This happens on maybe 20 of 800+ sites in
my database.
What I figured out was that IO:Socket is apparently accessing the sites
by IP address, even though I am feeding it the name address. The sites
that are returning the "false" codes do return errors on IP addresses
in Netscape, but not by name address.
So my question is, is there an alternative to IO::Socket that perhaps
uses a name address rather than IP address? Am I way off-base with
this whole thing (I am a bit ignorant of the workings of such things)?
An example URL is "http://www.maltergalleries.com/", which is IP
address "207.115.185.150". I get a 400 error with IO:Socket and when
I use the IP address in Netscale. The name address in Netscape works
fine.
I've tried using the Socket module as specified in the Programming Perl
and Advanced Perl Programming books, but I can't get them to produce
any output at all...
Thanks for any help,
Michael
------------------------------
Date: Sun, 2 Aug 1998 22:11:53 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: IO::Socket problem / alternative?
Message-Id: <1dd5mxg.1ncshwj1wb103kN@bay1-92.quincy.ziplink.net>
Michael Caver <michael@mcaver.com> wrote:
> I have a perl script reading URLs from a database and making an HTTP
> connection to each using IO::Socket to read the server code...i.e. a
> self-maintaining database of links.
Retrieving web pages might be easier using the LWP package instead - it
includes methods for doing exactly that.
It's available on CPAN.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 3 Aug 1998 00:42:13 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: luser is spelt L-O-S-E-R was Re: hiding user input
Message-Id: <6q3115$6m8$2@client3.news.psi.net>
Spam Block (sp@m.block) wrote on MDCCXCVI September MCMXCIII in
<URL: news:35C33300.88432BBD@m.block>:
++
++
++ BTW luser is spelt L-O-S-E-R
No, it's not.
Abigail
--
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
------------------------------
Date: Mon, 03 Aug 1998 10:42:21 +0900
From: Boiled Animal By-Products <sp@m.block>
Subject: Re: luser is spelt L-O-S-E-R was Re: hiding user input
Message-Id: <35C51585.B580B486@m.block>
Abigail wrote:
> ++
> ++
> ++ BTW luser is spelt L-O-S-E-R
>
> No, it's not.
Umm lemme just check my dictionary - oh yeah you're right it doesn't have any
hyphens. You don't spell "cool" - "kewl" either (just in case you use that one too)
------------------------------
Date: Mon, 03 Aug 1998 08:45:49 -0500
From: Ricardo Astudillo <astudill@ix.netcom.com>
Subject: Newbie questions...help!
Message-Id: <35C5BF0C.1832C56F@ix.netcom.com>
Hello,
I'm probably looking in the wrong places, but I need to know what
exactly the following things mean;
1) What does it mean when there's an ! in front of $string ?
2) Somebody tell me exactly what this does:
($line = <FILE>);
and while you're at it,
$line =~ s/[\r\n]//g;
I would really appreciate it if you e-mailed me.
astudill@ix.netcom.com
Rich
------------------------------
Date: Mon, 03 Aug 1998 02:06:01 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Newbie questions...help!
Message-Id: <6q363d$d37$2@ligarius.ultra.net>
Ricardo Astudillo <astudill@ix.netcom.com> wrote:
-> Hello,
->
-> I'm probably looking in the wrong places, but I need to know what
-> exactly the following things mean;
Not asking in the wrong place, but wrong for asking. I will tell you where you
can find the answers to these and future questions.
-> 1) What does it mean when there's an ! in front of $string ?
check the `perlop' documentation. If you have perl installed on your system,
you can do this by entering: perldoc perlop
-> 2) Somebody tell me exactly what this does:
-> ($line = <FILE>);
look in the `perldata' documentation. perldoc perldata
-> and while you're at it,
-> $line =~ s/[\r\n]//g;
This is a regular expression and help on regex's can be found in the `perlre'
docs. perldoc perlre
-> I would really appreciate it if you e-mailed me.
If you really meant that, you would have used the word please somewhere in
your request. Or atleast a final thank you.
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: Sun, 02 Aug 1998 22:43:51 GMT
From: joetombus@my-dejanews.com
Subject: Re: Perl + FP Web Server + Microsoft Web Server
Message-Id: <6q2q37$23h$1@nnrp1.dejanews.com>
Finally I solved the problem within the lines of your solution. Thanks again.
$file = './file.gif';
print "Content-Type: image/gif\n\n";
open(PIC,"$file");
binmode PIC;
binmode STDOUT;
{local $/; print scalar <PIC>}
close(PIC);
In article <bQK5RFAMXyw1EwuC@connected.demon.co.uk>,
Jerry Pank <jerryp.usenet@connected.demon.co.uk> wrote:
> In <comp.lang.perl.misc>
> joetombus@my-dejanews.com, writes:
> >binmode did not help either. I tried! Thank you anyway for the input!
> >
> >> perldoc -f binmode
> >
> >In article <35C05746.C76DB388@daimi.aau.dk>,
> > thomas@daimi.aau.dk wrote:
> >> grumo@passosnet.net wrote:
> >> >
> >> > Sorry,
> >> >
> >> > It is possible to make Perl to work with above home servers, period.
> >> >
> >> > But, only the Content-Type: text/html seems to produce results in the
> >> > browser. For instance:
> >> >
> >> > $file = 'myfile.gif';
> >> > print "Content-Type: image/gif\n\n";
> >> > open(PIC,"$file");
> >> > print <PIC>;
> >> > close(PIC);
> >> >
> >> > produces no image! Strange?!
> >> >
> >> > Anyone, can give some input? I guess this is not a easy one.
> >>
> >
> >-----== Posted via Deja News, The Leader in Internet Discussion ==-----
> >http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
> As a book consuming learner, I had loads of problems doing this within
> Window$.
>
> The example I used (from Shishir Gundavaram's CGI Programming) would
> intermittently fail dependant on image content until `binmode STDOUT'
> was added. Live and learn :-(
>
> I think `local $/' could help but I'm willing to be warmed for that one.
>
> # works under windows
> sub image {
>
> my $picture = shift; # full filename
>
> binmode(STDOUT); # this is `the secret' for a POB
>
> local $/; # this may help ?
>
> open (IMAGE, "<".$picture) or die "$! $picture_path";
> binmode IMAGE;
> my $size = (stat($picture))[7]; # there are other ways
>
> print "content-type: image/gif\n";
> print "content-length: $size\n\n";
> print <IMAGE>;
> close IMAGE;
> }
> --
> Jerry Pank mailto:jerryp.usenet@connected.demon.co.uk
>
> That wouldn't be good enough.
> -- Larry Wall in <199710131621.JAA14907@wall.org>
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sun, 02 Aug 1998 23:09:09 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl + FP Web Server + Microsoft Web Server
Message-Id: <Pine.GSO.4.02.9808021608510.26301-100000@user2.teleport.com>
On Sun, 2 Aug 1998 joetombus@my-dejanews.com wrote:
> open(PIC,"$file");
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 2 Aug 1998 16:30:20 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl + FP Web Server + Microsoft Web Server
Message-Id: <MPG.102e9664d899b3299897ae@nntp.hpl.hp.com>
In article <6q2q37$23h$1@nnrp1.dejanews.com> on Sun, 02 Aug 1998 22:43:51
GMT, joetombus@my-dejanews.com <joetombus@my-dejanews.com> says...
> Finally I solved the problem within the lines of your solution. Thanks again.
> $file = './file.gif';
> print "Content-Type: image/gif\n\n";
> open(PIC,"$file");
> binmode PIC;
> binmode STDOUT;
> {local $/; print scalar <PIC>}
> close(PIC);
This look OK, except (which Tom Phoenix will tell you too), you have not
checked the result of 'open', and the quotes around $file are
superfluous, poor style, and a bad habit to get into.
The reason for my post is to question the need for 'scalar' in the
'print' statement. Either in scalar or in list context, the file is
defined to have only one record, which is printed either way. If you
remove the undefinition of $/, with the 'scalar' you print only the first
'line' (i.e., up to the first "\n" if any); without it you still print
the whole file.
Also, I wonder if the 'binmode STDOUT;' shouldn't appear ahead of the
first 'print' (though the server is prepending HTTP headers to STDOUT
ahead of your prints in any case).
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 2 Aug 1998 17:17:18 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: printf behaviour (I think bug)
Message-Id: <eho2q6.q2r.ln@localhost>
Larry Rosler (lr@hpl.hp.com) wrote:
: In article <6q2cep$j1k@orgland.ru> on 2 Aug 1998 18:51:05 GMT, Andrey A.
: Kolotev <ank@tx97.orgland.ru> says...
: > Somebody know about perl printf behaviour (I think bug) with float numbers
: > format?
: No bug. This is a frequently asked question, but I don't think it is in
: the FAQ.
perlfaq, part 4:
"Why am I getting long decimals (eg, 19.9499999999999)
instead of the numbers I should be getting (eg, 19.95)?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 2 Aug 1998 16:11:03 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: printf behaviour (I think bug)
Message-Id: <MPG.102e91e7b147712c9897ad@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <eho2q6.q2r.ln@localhost> on Sun, 2 Aug 1998 17:17:18 -0500,
Tad McClellan <tadmc@flash.net> says...
> Larry Rosler (lr@hpl.hp.com) wrote:
> : In article <6q2cep$j1k@orgland.ru> on 2 Aug 1998 18:51:05 GMT, Andrey A.
> : Kolotev <ank@tx97.orgland.ru> says...
> : > Somebody know about perl printf behaviour (I think bug) with float numbers
> : > format?
>
> : No bug. This is a frequently asked question, but I don't think it is in
> : the FAQ.
>
> perlfaq, part 4:
>
> "Why am I getting long decimals (eg, 19.9499999999999)
> instead of the numbers I should be getting (eg, 19.95)?"
Not exactly -- see its title. The FAQ is informative, but deals only by
allusion to the possibility that a properly formatted printf might round
down.
Also, this FAQ is not in the online version, which is easier for many of
us to consult from home on Sunday without logging onto the system where
the latest perl is installed. (When I looked at the online FAQ I
remembered that something was missing there, but was too lazy to log on
to confirm it, which I just did. Note the carefully hedged "I don't
*think* it is in the FAQ"! :-)
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 02 Aug 1998 22:42:02 +0000
From: Derek <dereks@fc.hp.com>
Subject: Re: Q:Parsing file paths
Message-Id: <35C4EB3A.9E47D79C@fc.hp.com>
Hi,
I've been experimenting with File::Basename, but it doesn't seem to really do
it. It splits pathnames up into components, but it doesn't convert relative
paths to absolute paths.
My present nonportable solution is actually just fine for my purposes (I only
use ***X), but the idea that there may be a "right" solution that is portable
has me curious.
Derek.
Tom Phoenix wrote:
> On Sun, 2 Aug 1998, Derek wrote:
>
> > I want to take a filename in a scalar and convert it to an absolute
> > pathname. It must know about the file system's naming conventions (i.e.
> > treat it differently depending on whether it begins with a /, etc.).
>
> > I was wondering if a module already exists that does this in a way
> > that is always appropriate for the OS in use.
>
> Does the File::Basename module do anything for you? Hope this helps!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 2 Aug 1998 21:33:21 -0300
From: "Humberto" <dellacorte@ibm.net>
Subject: rename($oldname,$newname) don't work in browser
Message-Id: <35c50657.0@news1.ibm.net>
I'm new with perl. Running PWS in win95, and perlS 5.003.
The .pl, running Ok. in DOS mode, but no with the browser.
any help?
Thanks
humberto
------------------------------
Date: Mon, 03 Aug 1998 01:52:44 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: rename($oldname,$newname) don't work in browser
Message-Id: <6q35ai$d37$1@ligarius.ultra.net>
[ posted and mailed ]
"Humberto" <dellacorte@ibm.net> wrote:
No offense meant, but your choice of subject line sucks. The rename function
is not even mentioned in the body.
-> I'm new with perl. Running PWS in win95, and perlS 5.003.
Although this is not the solution to your problem, you should consider
upgrading to the later release of perl (5.004 or 5.005).
-> The .pl, running Ok. in DOS mode, but no with the browser.
If you script is working from the command pronpt, you don't have a perl
problem. Check the documention for the http protocol, your browser and cgi.
If you still have a problem you may want to ask your question, with a more
appropriate subject line in:
news:comp.infosystems.www.authoring.cgi
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: 2 Aug 1998 23:41:10 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: seeing if a file exists.
Message-Id: <6q2tem$l1$1@nswpull.telstra.net>
In article <bbkCJQAFnYw1EwP9@find-it.uk.com>,
Alan Silver <alan@find-it.furryferret.uk.com> writes:
> More importantly, REMOTE_ADDR is set by the *browser*, not the server.
Offtopic, but.. Are you absolutely certain about this?
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Sun, 02 Aug 1998 16:43:41 -0700
From: public@moriah.com (Scott)
Subject: Test
Message-Id: <public-0208981643410001@d01a85e9.dip.cdsnet.net>
Test message...
------------------------------
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 3321
**************************************
