[10768] in Perl-Users-Digest
Perl-Users Digest, Issue: 4369 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 6 23:07:37 1998
Date: Sun, 6 Dec 98 20:00:20 -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 Sun, 6 Dec 1998 Volume: 8 Number: 4369
Today's topics:
begginer ist looking for perl for Win 95 (JC)
Re: begginer ist looking for perl for Win 95 (Frank Schoenmann)
Beginnner seeks advice: Data processing application (NJPin)
Re: big problem with Perl's time() limitations (Abigail)
Re: can't use Expect.pm (Bbirthisel)
Re: CGI Redirection (Frank Schoenmann)
converting times <clark.nicholas.n@bhp.com.au.nospam>
Re: File Upload / cgi-lib.pl imchat@ionet.net
Re: help, have to figure perl out in 4 days!! <camerond@mail.uca.edu>
Re: help, what's wrong with this very simple prog? (Juergen Heinzl)
Re: help, what's wrong with this very simple prog? (Martien Verbruggen)
Re: help, what's wrong with this very simple prog? (Tad McClellan)
Re: help, what's wrong with this very simple prog? <burt.adsit@gte.net>
Re: How can I make it impossible to use the browser's b (Martien Verbruggen)
Re: Is Tcl/Tk better than Perl ? (Martien Verbruggen)
Re: Newbie: Secure directories?? (Martien Verbruggen)
Re: Perl and Mac Characters (Andrew M. Langmead)
Perl in a RF print <jamie@powernetonline.com>
Re: Perl in a RF print (Tad McClellan)
Re: Perlshop Customization Questions lsmhqhc@hotmail.com
Re: Perlshop Customization Questions (Tad McClellan)
POSIX not found <j@j.com>
Re: question on inode number to file name (Mark-Jason Dominus)
Re: Question: Ms IIS WWW server releasing resources use imchat@ionet.net
Simple dB search results .. help .. <darrensweeney@eswap.co.uk>
SSI Problem kteicher@apk.net
Re: SSI Problem (Martien Verbruggen)
Re: using GDBM_File <tpot@acsys.anu.edu.au>
Re: Wanted: Win32 GetGroups function <perin@panix7.panix.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Dec 1998 23:16:51 GMT
From: Junco@t-online.de (JC)
Subject: begginer ist looking for perl for Win 95
Message-Id: <74cet3$s5$1@news01.btx.dtag.de>
Hallo: I'm a begginner who is looking for a Perl (5?) vor Win 95. Is it
there at all? I'll thank for any advice!
------------------------------
Date: 5 Dec 1998 23:33:59 GMT
From: Schoenmann@t-online.de (Frank Schoenmann)
Subject: Re: begginer ist looking for perl for Win 95
Message-Id: <74cft7$127$1@news01.btx.dtag.de>
On 5 Dec 1998 23:16:51 GMT, Junco@t-online.de (JC) wrote:
> Hallo: I'm a begginner who is looking for a Perl (5?) vor Win 95. Is it
> there at all? I'll thank for any advice!
Try www.activestate.com :)
--
bye, Frank!
/----------------------------------------------------
< E-Mail: fs@tower.de
< Fidonet: Frank Schoenmann @ 2:244/6312.21
< Homepage: http://www.tower.de/~f_schoenmann
\----------------------------------------------------
------------------------------
Date: 6 Dec 1998 21:14:23 GMT
From: njpin@aol.com (NJPin)
Subject: Beginnner seeks advice: Data processing application
Message-Id: <19981206161423.23177.00003206@ng96.aol.com>
I'd like some advice on writing a script that will read an ascii file, one line
at a time, and use that input in conjunction with user input to produce the
desired output in another file (comma-quote delimed file): here's the general
gist--
one line from the input file:
q1 single 1 20 20
I'll need to store those strings in variables (no problem) and ask for user
input like this:
How many codes? (enter n number of codes) eg. 2
Code 1 = (enter text for code 1) eg. HOT DOGS
Code 2 = HAMBURGERS
Then, the output file should read like this
if (c120'1') c(1001,1011)=$"HOT DOGS",$
if (c120'2') c(1001,1012)=$HAMBURGERS",$
and the program would continue for each line of the input file...that's where I
am unclear on how to get the input file read a line at a time...feel free to
email me or post here if you wish to discuss this in more detail...but all I am
looking for is a general direction here...thanks!
- Pinney
------------------------------
Date: 6 Dec 1998 22:01:52 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: big problem with Perl's time() limitations
Message-Id: <74eusg$2cc$1@client3.news.psi.net>
Ilya Zakharevich (ilya@math.ohio-state.edu) wrote on MCMXXI September
MCMXCIII in <URL:news:749pr3$a4u$1@mathserv.mps.ohio-state.edu>:
++ [A complimentary Cc of this posting was sent to Abigail
++ <abigail@fnx.com>],
++ who wrote in article <749n16$aq5$1@client3.news.psi.net>:
++ > ++ Btw, I think Solaris 7 allows you to have 64-bit time, so one may have
++ > ++ a sane time *today* on Unixish systems too, not only on mainframes.
++ >
++ > I don't think so.
++
++ I did not say that *Perl* on Solaris 7 will *by default* use 64-bit
++ time. I do not even know if Perl *anywhere* is ready for 64-bit time.
It has nothing to do with Perl. *Solaris 7* doesn't use 64 bit time;
not even on 64 bit hardware. The type is a 32 bit integer.
Abigail
------------------------------
Date: 6 Dec 1998 23:35:16 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: can't use Expect.pm
Message-Id: <19981206183516.07424.00002951@ng125.aol.com>
Hi Avshi:
>I downloaded the Expect module and installed it.
>after running anything with:
>use Expect;
>it required Tty.pm and Pty.pm (what are those?) so I downloaded and
>installed them too.
>I verified that all three 'Expect.pm', 'Tty.pm', and 'Pty.pm'
>so thats it, I'm out of ideas.
>is there a complete Expect module out there? (that is, something you
> unzip, install and run, and it *runs*).
You don't say anything about OS, but the combination of "unzip, install,
and run" plus "what are ?ty.pm" suggests Win32 as a possibility. Those
three modules do not currently run on Win32. There has been some
investigation of porting to the 5.005-based ActivePerl which supports
a larger subset of the required functions than previous Win32 versions.
There is still a lot of effort to get everything Expect.pm does under
Un*x to work. I don't know of anyone currently doing this.
Having said all that, the most recent release of Win32::SerialPort adds
many of the primative methods that would be required to manage the
"Tty" parts of porting Expect.pm to Win32 including "stty-like" special
characters (intr, erase, kill, etc.), echo, and I/O format matching (icrnl,
ocrnl, etc.), as well as a "lookfor" function with "expect-like" input and
output parameters. And it's all "100% pure but somewhat convoluted
perl" (nothing applied for ;-)
An example script would be easier to generate if you would describe
what you want to do.
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: 5 Dec 1998 23:34:01 GMT
From: Schoenmann@t-online.de (Frank Schoenmann)
Subject: Re: CGI Redirection
Message-Id: <74cft9$127$2@news01.btx.dtag.de>
On Sat, 05 Dec 1998 23:00:34 GMT, fairbairn_97@yahoo.com wrote:
> I was enquiring whether any body knows where I can get a CGI script that
> redirects URLs to another place automatically...
I think, this should work:
=== cut ===
#!/usr/bin/perl
print "Location: http://new.url.com/new-path/file.html\n\n";
=== cut ===
--
bye, Frank!
/----------------------------------------------------
< E-Mail: fs@tower.de
< Fidonet: Frank Schoenmann @ 2:244/6312.21
< Homepage: http://www.tower.de/~f_schoenmann
\----------------------------------------------------
------------------------------
Date: Mon, 7 Dec 1998 14:57:06 +1100
From: "Nicholas H. Clark" <clark.nicholas.n@bhp.com.au.nospam>
Subject: converting times
Message-Id: <74fjnq$aaa@gossamer.itmel.bhp.com.au>
I need some help wit perl.
I have these files that contain a time in the forms:
h:m:s.ms
m:s.ms
Excel cannot recognise or convert these times properly.
So how do you pattern match those times and replace them with a time in secs
only.
can you do the calculation in the pattern match like (i know this is wrong):
$blah =~ s/h:m:s:ms/h*360+m*60+s+ms/
or is it more complicated approach needed
thanks,
Nick
remove .nospam from my email add if you wish to mail me.
------------------------------
Date: Mon, 07 Dec 1998 03:41:44 GMT
From: imchat@ionet.net
Subject: Re: File Upload / cgi-lib.pl
Message-Id: <366b4e35.262747731@news.ionet.net>
You still need access to the perl libraries. Get a different
server. There are plenty that offer cgi-bin now free.
On Thu, 03 Dec 1998 22:56:23 +0100, Patrick Egloff
<patrick@horgen.org> wrote:
>Hy
>
>Because I'd like to create a file-upload-script using cgi-lib.pl a would
>need access to the perl directory. Unfortunately I don't have so on my
>rented server.
>
>Does anyone know how to place this file somewhere else on the server and
>refer to that location in the script? I tried it with ../../ but that
>didn't work.
>
>Or do you have a good hint how to make a script for file uploading via
>forms without having access to the system direcories?
>
>Thanks for your answers and best regards,
>Patrick
>
>
>Line in the script refering to the needed file:
>require "../../cgi-lib.pl";
>
>Error-Log:
>Can't locate ../../cgi-lib.pl in @INC (@INC contains:
>/usr/lib/perl5/i686-linux/5.00404 /usr/lib/perl5
>/usr/lib/perl5/site_perl/i686-linux /usr/lib/perl5/site_perl .) at
>/www/cgi-bin/upload/fup.pl line 7.
>[Thu Dec 3 16:24:12 1998] access to /www/cgi-bin/upload/fup.pl failed
>for 195.141.225.107, reason: Premature end of script headers
------------------------------
Date: Sun, 06 Dec 1998 14:13:34 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
To: D.W.E@worldnet.att.net
Subject: Re: help, have to figure perl out in 4 days!!
Message-Id: <366AE56E.635B099E@mail.uca.edu>
[cc'd to riiil]
"Learning Perl on Win32 Systems" (Schwartz, Olsen, Christensen) will
teach you that in much less than 4 days, tell you where to get Perl for
your Win98 machine, (hint: www.perl.com For getting up and running fast,
use the Gurusamy Sarathy (5.00402) port, ActiveState's port is just too
new, IMHO), and let you know just what quirks Win32 Perl has.
$29.95, and worth every penny.
Cameron
camerond@mail.uca.edu
Robert III Lockhart wrote:
>
> or atleast enough of the Perl language to make a program that takes a
> scrambled word and compares it with a word list and prints them both.
> It is not a hard concept, basically I can do it in my sleep in C but the
> OS class just went to Perl and I'm lost.
> I get the concept of using a sub * { thing to make a function, but how
> to start a perl file, and play around with several simple learning
> programs that play with file manipulation, I am having a hard time
> finding examples of code, and a version of perl that will run on a
> windows98 version, although I do have a drive that is not yet converted
> to FAT32 that I just tried to install perl from using a CD ROM version I
> got with a book entitled"Perl by Example", and some of the information
> in the Readme files, makes me think I just wasted my time..., not to
> mention 40 bucks.
> if anyone can give me some quick advice, or sample of code that would
> benefit me with this program, then thank you very much,
> Rob Lockhart
> D.W.E@worldnet.att.net
------------------------------
Date: Sun, 06 Dec 1998 21:56:31 GMT
From: juergen@monocerus.demon.co.uk (Juergen Heinzl)
Subject: Re: help, what's wrong with this very simple prog?
Message-Id: <slrn76lvc0.9n.juergen@monocerus.demon.co.uk>
In article <74emav$saq$1@nnrp1.dejanews.com>, sebasti@aol.com wrote:
[...]
>below. When I attempt to run from MS-DOS prompt, it continues to flag a
>syntax error line 13, near "}" I'm on Win-95 OS using Perl distribution
[...]
>open (INFILE,"CSES.DMP") or die "Can't open CSES.DMP file. Error code: $!\n"
... the ; is missing ...
>open (INFILE,"CSES.DMP") or die "Can't open CSES.DMP file. Error code: $!\n";
...
Bye, Juergen
--
\ Real name : J|rgen Heinzl \ no flames /
\ EMail Private : juergen@monocerus.demon.co.uk \ send money instead /
\ Phone Private : +44 181-332 0750 \ /
------------------------------
Date: Sun, 06 Dec 1998 22:34:32 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: help, what's wrong with this very simple prog?
Message-Id: <YDDa2.24$g04.269@nsw.nnrp.telstra.net>
In article <74emav$saq$1@nnrp1.dejanews.com>,
sebasti@aol.com writes:
> open (INFILE,"CSES.DMP") or die "Can't open CSES.DMP file. Error code: $!\n"
You need to terminate this with a semicolon.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In a world without fences, who needs
Commercial Dynamics Pty. Ltd. | Gates?
NSW, Australia |
------------------------------
Date: Sun, 6 Dec 1998 17:04:36 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: help, what's wrong with this very simple prog?
Message-Id: <4i2f47.1bi.ln@metronet.com>
sebasti@aol.com wrote:
: i'm brand new to this lang. I'm trying to write a simple prog to open an
: ascii file, read from it and write it to the screen. The code is listed
: below. When I attempt to run from MS-DOS prompt, it continues to flag a
: syntax error line 13, near "}" I'm on Win-95 OS using Perl distribution
: which I retrieved from the www.perl.com site. The Perl version is 5.004_02
: open (INFILE,"CSES.DMP") or die "Can't open CSES.DMP file. Error code: $!\n"
There is no semicolon at the end of that line...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 6 Dec 1998 23:35:20 GMT
From: Burt Adsit <burt.adsit@gte.net>
Subject: Re: help, what's wrong with this very simple prog?
Message-Id: <74f4bo$6hi$0@205.138.137.37>
open (INFILE,"CSES.DMP") or die "Can't open CSES.DMP file. Error code:
$!\n";
Notice the semicolon at the end of this line...
sebasti@aol.com wrote:
>
> hi,
>
> i'm brand new to this lang. I'm trying to write a simple prog to open an
> ascii file, read from it and write it to the screen. The code is listed
> below. When I attempt to run from MS-DOS prompt, it continues to flag a
> syntax error line 13, near "}" I'm on Win-95 OS using Perl distribution
> which I retrieved from the www.perl.com site. The Perl version is 5.004_02
>
> thanks in advance,
>
> JS...
>
> #
> # Filename: PROG1.PL
> # Description: This perl program opens the file CSES.DMP which it assumes
> # exists in the current directory. Reads from the file and
> # write's its output to STDOUT.
>
> # open the file
> open (INFILE,"CSES.DMP") or die "Can't open CSES.DMP file. Error code: $!\n"
>
> while ($inline = <INFILE>)
> {
> print $inline;
> }
> close INFILE;
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
--
Burt Adsit
Earthenware
http://www.featurefarm.com
lat n43.10' lon w86.2'
------------------------------
Date: Sun, 06 Dec 1998 21:25:06 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How can I make it impossible to use the browser's back button in a script??
Message-Id: <SCCa2.14$g04.116@nsw.nnrp.telstra.net>
In article <3668566a.14311871@news.iaehv.nl>,
Rafely@xxiname.com writes:
> Sorry if the subject was not so clear, but here is what I want to do.
> I have a database with members. When members log in, they will get a
> menu. Using the menu they can edit their account or configure the
> service they receive. Members can also delete their account. When
> someone delete their account, they will get a confirmation screen. But
> they can always use their back button to go back to the menu, and try
> to configure stuff! This could harm the database!! What I want to do
> is make it impossible to return to the menu when a member delete their
> account. How can I do that? Please let me know.
What you need to do is make sure that the script that processes
whatever comes from the form does not 'harm' your database. Under no
circumstance. There is _no_ way to stop people from submitting crap to
a CGI script (ask on one of the comp.infosystems.www.* groups). all
you can do is make sure that when you receive crap, that you do
something sensible anyway.
Check your input before doing dangerous things. This is not only so
for CGI scripts, but for anything that expects user input.
Any CGI or WWW specific questions should go to the groups mentioned
above.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In the fight between you and the world,
Commercial Dynamics Pty. Ltd. | back the world - Franz Kafka
NSW, Australia |
------------------------------
Date: Sun, 06 Dec 1998 22:05:54 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Is Tcl/Tk better than Perl ?
Message-Id: <6dDa2.18$g04.202@nsw.nnrp.telstra.net>
In article <74ca51$h7r$1@front3.grolier.fr>,
"Patrick Fichou" <fichou@clubintnet.fr> writes:
> Hi to you all,
>
> I woul *really* know what you think of Tcl/Tk ! I mean, do I have to learn
> Perl instead of Tcl ? Is Perl somewhat out of date ?
Yes, perl is terribly out of date. There hasn't been an official new
release since perl 5.005_02 in August 1998. Of course, you can always
get the development releases, but who has ever heard about a language
that doesn't get updated at least once a day?
Also see my notes below.
> Is it a correct choice I do if I choose Tcl ? ...and so on !
Some reasons for choosing Tcl:
- Tcl has a shorter name than perl, which makes it easier to type.
- The pronunciation of tcl (tickle) is much more fun than perl. You
are much more likely to impress a manager by carelessly using the
term 'tickle' and, when prompted, explaining that that is what all
tcl-hackers call Tcl.
- Tcl's version number (8.1) is a lot higher than perl's (5.005_02).
This clearly shows that Tcl is much more up to date than perl.
- Tcl comes with Tk, and runs on almost any platform.
Some reasons for choosing Perl:
- You can run perl programs by just using the short program name
(perl). Tcl's shell has a much longer name (tclsh)
- Perl always looks obscure and like line noise. You are much more
likely to impress a manager by showing him/her some perl code than
by showing tcl code.
- Perl's version number has more digits than Tcl's. This clearly shows
that perl is released more often, and that therefore it must be more
up to date than Tcl.
- Perl comes with Tk, and runs on almost any platform.
This somewhat exhaustive list will be of tremendous value to you when
you have to choose the development platform of your company for years
to come. I wouldn't worry too much about actual case studies or
statements of need. It is clear that the above blanket statements are
more than sufficient to make any decision.
If people insist that you use real world comparison strategies, you
can always check the entry in the perl faq part 1, with the title:
"How does Perl compare with other languages like Java, Python, REXX,
Scheme, or Tcl?"
HTH,
Martien
--
Martien Verbruggen | My friend has a baby. I'm writing down
Webmaster www.tradingpost.com.au | all the noises the baby makes so later
Commercial Dynamics Pty. Ltd. | I can ask him what he meant - Steven
NSW, Australia | Wright
------------------------------
Date: Sun, 06 Dec 1998 21:36:36 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Newbie: Secure directories??
Message-Id: <ENCa2.16$g04.116@nsw.nnrp.telstra.net>
In article <36692D7A.2547E515@bluegalaxy.hypermart.net>,
"Christian H. Knudsen" <webmaster@bluegalaxy.hypermart.net> writes:
> I have a directory with a 700 permission. I would like a script
> to be able to change the permission to 777 (for example),
> write some files in the dir and the chmod back to 700. The
> reason for this is that I would like the files in the dir to be
> hidden from any users, as it will contain secret info like
> passwords and user names.
>
> My problem is that the script (naturally) isn't able to chmod
> the dir to 777 because of the 700 permission!
Didn't you just post this a week ago as well? The answers to that one explained why you can't do what you want. In any case, it has nothing to with perl.
1) You can only change permissions if you are the owner.
2) If you are the owner, then there is absolutely no need to change
permissions.
3) If you could change permissions when not being the owner, that
would defeat the whole purpose of permissions, wouldn't it?
4) Suppose that what you want is possible, then why would you need to
protect your files with 700, when everyone else can just change those
permissions whenever they like?
> Any ideas?
Read up on unix file permissions.
Think about what you are trying to do.
Read followups to your post. Don't repost the same question when it
has already been answered. If you can find your old post anymore,
check www.dejanews.com. Your news service may expire articles,
dejanews will keep them.
Post questions to relevant groups.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Unix is user friendly. It's just
Commercial Dynamics Pty. Ltd. | selective about its friends.
NSW, Australia |
------------------------------
Date: Sun, 6 Dec 1998 20:04:25 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Perl and Mac Characters
Message-Id: <F3K7rD.9uI@world.std.com>
Steve Nite <sramchar@centernet.ca> writes:
>Whenever I try to use a mac to run a cgi script to produce an html
>document, the mac produces special characters that look like an
>apostrophy(') on the mac but a question mark(?) on a pc.
The macintosh is using a different character set than your windows
machine is using. They are probably the same for all the character in
the ASCII charater set, but the other characters differnt for other
encodings.
You would rpobably be better off using HTML's special encoding for
characters outside the range it specifies for unquoted HTML
elements. (letters, numbers, hyphens, and periods.)
See <URL:http://www.w3.org/TR/REC-html32.html#latin1> for details.
--
Andrew Langmead
------------------------------
Date: Sun, 6 Dec 1998 15:21:10 -0600
From: "jamie dolan" <jamie@powernetonline.com>
Subject: Perl in a RF print
Message-Id: <ABCa2.617$ww5.57556@homer.alpha.net>
HI,
I am stuck I am right in the middle of a project and I need to do this:
print RF "system "useradd -c \"$name\" -m -k /etc/skel -g 7001 -s
/usr/sbin/noshell -d /export/home/$login $login";\n";
The big problem is that perl does not want to print the " " or the ; it
wants to interpert these. All I want it to do is print them to the file
using RF.
Any ideas?
Thanks.
------------------------------
Date: Sun, 6 Dec 1998 16:58:29 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Perl in a RF print
Message-Id: <l62f47.1bi.ln@metronet.com>
jamie dolan (jamie@powernetonline.com) wrote:
: I am stuck I am right in the middle of a project and I need to do this:
: print RF "system "useradd -c \"$name\" -m -k /etc/skel -g 7001 -s
: /usr/sbin/noshell -d /export/home/$login $login";\n";
: The big problem is that perl does not want to print the " " or the ; it
: wants to interpert these. All I want it to do is print them to the file
: using RF.
: Any ideas?
Use alterate delimiters:
print RF qq(system "useradd -c "$name" -m -k /etc/skel -g 7001 -s );
print RF qq(/usr/sbin/noshell -d /export/home/$login $login";\n);
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 06 Dec 1998 21:50:40 GMT
From: lsmhqhc@hotmail.com
Subject: Re: Perlshop Customization Questions
Message-Id: <74eu7f$2li$1@nnrp1.dejanews.com>
> > 1. Flat shipping rate for orders under $200 and free shipping for orders
> > over $200.
> > 2. Adding a "Back to Homepage" button to the order confirmation page. It's a
> > dead end, the user can't do anything from there.
> [snip]
>
> I don't know for sure ... maybe ... but your computer could blow up if you
> do something wrong. Personally, I don't think it's worth the risk.
Well, that's nice to know ...
But first of all there is no risk, and for sure no blow-up. Rather a back-up
which one can use if the whole thing gets too screwed up.
I bascially know what to do, I am not exactly sure where tho and it will take
me days to figure everything out. That's why I asked if someone already did it
and I could use to code.
Cheers,
LSM
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 6 Dec 1998 17:01:24 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Perlshop Customization Questions
Message-Id: <4c2f47.1bi.ln@metronet.com>
ptimmins@netserv.unmc.edu wrote:
: In article <74d9t8$pvp$1@nnrp1.dejanews.com>,
: lsmhqhc@hotmail.com wrote:
: > I would like to know if and how I can make the following changes to Perlshop
: > (shopping cart):
: >
: > 1. Flat shipping rate for orders under $200 and free shipping for orders over
: > $200.
: >
: > 2. Adding a "Back to Homepage" button to the order confirmation page. It's a
: > dead end, the user can't do anything from there.
: [snip]
: I don't know for sure ... maybe ... but your computer could blow up if you
: do something wrong. Personally, I don't think it's worth the risk.
I think you are being a little over-alarmist there.
It could well start smoking and stinking, and erase important data,
and whatnot, but I doubt that there will be an actual explosion.
Go for it!
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 7 Dec 1998 01:08:24 +0100
From: "J.C." <j@j.com>
Subject: POSIX not found
Message-Id: <74f69k$rk6$1@talia.mad.ibernet.es>
I've installed PERL 5.004 but when I try use POSIX the POSIX.PM isn't found.
I work with WINDOWS 95, and I can't find the module.
Where can I find it?
------------------------------
Date: 6 Dec 1998 22:17:27 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: question on inode number to file name
Message-Id: <74fhc7$n15$1@monet.op.net>
In article <911950448.972918@elaine.drink.com>,
Alan Barclay <gorilla@elaine.drink.com> wrote:
>Also, an inode may have less than one filename.
>
>open(FILE,">file") or die "etc $!";
>unlink(file);
Or:
pipe(R,W) or die $!;
my ($dev, $ino) = stat R;
print "$dev,$ino\n";
>there is now a file with an inode, but without a filename.
Now there's an inode without a file, so clearly there's no filename.
------------------------------
Date: Mon, 07 Dec 1998 03:39:46 GMT
From: imchat@ionet.net
Subject: Re: Question: Ms IIS WWW server releasing resources used by Perl
Message-Id: <366b4cf7.262429794@news.ionet.net>
IIS is a big pig and NT aint all that great either. If I were
your admin, I would get off the NT box or at least get a real
webserver. The Cobalt answer is also a good one. You can purchase a
cobalt cube for $1200 that will out perform the NT machine with only
16 meg of ram. It runs Linux on a 155 mz MIPS chip. Get you a quarter
million hits a day off it!
On 4 Dec 1998 00:24:08 GMT, "David Fulton" <DFULTON@prodigy.net>
wrote:
>Myself and my network administrator are having on ongoing debate about the
>efficiency of using Perl as a CGI scripting language. His argument is this:
>
>My Perl script instances are slowly clogging up the NT server (and are not
>released) slowly bringing the server to its knees.
>
>My question is are there ways (within my simple Perl scripts) to complete a
>program ensuring that the WWW server can release resources, or is the
>network adminstrator fated to a) have to reboot the web-server every couple
>of weeks or b) persuade my boss to dump Perl as a programming language
>altogether?
>
>
>regards,
>
>Dave
------------------------------
Date: Sun, 6 Dec 1998 13:14:10 -0800
From: "Darren" <darrensweeney@eswap.co.uk>
Subject: Simple dB search results .. help ..
Message-Id: <74es35$58b@sjx-ixn6.ix.netcom.com>
Hi
I am trying to conduct a simple search on a MySQL dB from a form, and then
print the results.
The code I am using is as follows but does not work .... help ...
my $dbh;
$search = $form{'SEARCH'};
$dbh = DBI->connect("DBI:mysql:$dbname", $dbuser, $dbpasswd) or die print
"Content-type: text/html\n\n Error Mysql $!\n";
$searchit = "select * from test WHERE(name LIKE\"$search\")ORDER BY
name;";
@searchres = $dbh->do($searchit);
foreach $searchres ( @searchres ) {
print "Table: $searchres\n";
}
Thanks
Darren
------------------------------
Date: Sun, 06 Dec 1998 22:50:43 GMT
From: kteicher@apk.net
Subject: SSI Problem
Message-Id: <74f1o3$5ho$1@nnrp1.dejanews.com>
I have a new hosting company (NT this time instead of Unix). I got several
CGI applications running well. I am trying to add an additional one that
uses SSI and I am having troubles. I am pretty sure all the paths are ok,
but the SSI returns:
HTTP/1.1 200 OK Date: Sun, 06 Dec 1998 19:43:06 GMT Server:
Microsoft-IIS/4.0 Content-type: text/html
'D:\webs\WebSites\onlineorders.net\ads.shtml' script produced no output
I guess this means that the SSI is recognized, but that's it.
I have tried 3 different applications that use SSI and I get the same error
each time.
Any ideas would be appreciated.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 06 Dec 1998 23:13:02 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: SSI Problem
Message-Id: <2cEa2.38$g04.151@nsw.nnrp.telstra.net>
In article <74f1o3$5ho$1@nnrp1.dejanews.com>,
kteicher@apk.net writes:
> I have a new hosting company (NT this time instead of Unix). I got several
bad choice :)
> CGI applications running well. I am trying to add an additional one that
> uses SSI and I am having troubles. I am pretty sure all the paths are ok,
> but the SSI returns:
>
> HTTP/1.1 200 OK Date: Sun, 06 Dec 1998 19:43:06 GMT Server:
> Microsoft-IIS/4.0 Content-type: text/html
> 'D:\webs\WebSites\onlineorders.net\ads.shtml' script produced no output
This seems to be a server problem. Maybe something is wrong with the
server configuration. Any way, this is not a perl issue. SSI is not
part of perl. Please contact your ISP, or ask in one of the
comp.infosystems.www.* groups.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Unix is user friendly. It's just
Commercial Dynamics Pty. Ltd. | selective about its friends.
NSW, Australia |
------------------------------
Date: 07 Dec 1998 10:18:50 +1100
From: Tim Potter <tpot@acsys.anu.edu.au>
To: ajou2@hitel.net
Subject: Re: using GDBM_File
Message-Id: <6yd85whnad.fsf@acronym.anu.edu.au>
pds <ajou2@hitel.net> writes:
> I need using GDBM_File and try man gdbm, serch mane, cpan, etc... but I
> can't find perpect guide.
> I have write two source, and run on UNIX, follow source...
>
> source 1
> #!/bin/perl
> use GDBM_File;
> use Fcntl;
> tie %h,GDBM_File, "hashed",O_RDWR|O_CREAT,0640;
> $h{"apple"} = "orange";
> print "exists \n" if $h{"apple"};
> untie %h;
>
> source2
> #!/bin/perl -w
> use GDBM_File;
> use Fcntl;
> tie %h,GDBM_File,"hashed",O_RDWR,0644;
> print $h{apple};
> untie %h;
>
> When source1 run, named 'hashed' file is made in same directory and
> 'exists' is printed.
> But, when source1 run, NO change, NO print, NO error message.
> What can I do for solving this problem? I want make gdbm data, save gdbm
> data and
> print saved gdbm data.
I'm assuming you mean when source2 is run, no output occurs. Well it
works for me! I get the expected result "orange" printed to stdout.
You could try checking the result of the tie() statement and see if it
actually works, otherwise you have no way of knowing whether your gdbm
database has been tied to your hash.
tie(%h,GDBM_File,"hashed",O_RDWR,0644) or die("gdbm error: $!\n");
Tim.
------------------------------
Date: 06 Dec 1998 15:46:31 -0500
From: Lewis Perin <perin@panix7.panix.com>
Subject: Re: Wanted: Win32 GetGroups function
Message-Id: <pc7ogph5788.fsf@panix7.panix.com>
"Pete Keefe" <pkeefe@ix.netcom.com> writes:
> Neither Win32::NetAdmin or Win32::AdminMisc have a function for list the
> groups that have been setup in an NT domain or on a local machine. Can
> someone tell me if this is possible to do and if so point me in the right
> direction?
>
> Thanks
> Pete Keefe
> mailto:pkeefe@ix.netcom.com
To use a function in a Win32 DLL - whether the DLL is from Microsoft
or not - for which you can't find some readymade Perl interface you
need two things:
- Aldo Calpini's Win32::API package;
- the function's calling sequence, e.g. from reading its C header
file.
Cheers, Lew
------------------------------
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 4369
**************************************
