[12828] in Perl-Users-Digest
Perl-Users Digest, Issue: 238 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 23 17:07:20 1999
Date: Fri, 23 Jul 1999 14:06:53 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 23 Jul 1999 Volume: 9 Number: 238
Today's topics:
Re: CGI:New window opens w/ NN, not w/ IE <rgaushell@hotmail.com>
Re: CGI:New window opens w/ NN, not w/ IE (Abigail)
Re: FAQ 9.3: How do I remove HTML from a string? <cassell@mail.cor.epa.gov>
Re: file manipulation <rwatkins@springer-ny.com>
Re: finding script calling method <cassell@mail.cor.epa.gov>
Re: glob spawning problem (Anno Siegel)
Re: Has anyone seen this error before <mlopresti@bigfoot.com>
Re: Has anyone seen this error before (Abigail)
Re: Has anyone seen this error before <mlopresti@bigfoot.com>
Re: How to give Passwords on STDIN (Abigail)
Re: How to read a .xls file in UNIX (brian d foy)
Re: long explanations wearying (was Re: Top 10 response (Anno Siegel)
Re: Need help with simple CGI procedure.. (Tad McClellan)
Re: Opening files in IIS4.0 <cassell@mail.cor.epa.gov>
Re: output of print map ( { unless (/^#/) {} } ("#") ); (Anno Siegel)
Re: output of print map ( { unless (/^#/) {} } ("#") ); (Tad McClellan)
Re: Perl with MSQL <mlopresti@bigfoot.com>
Re: programming problem <cassell@mail.cor.epa.gov>
regex mathcing pozman@my-deja.com
Re: Submitting Photos <rwatkins@springer-ny.com>
Re: Telnet via CGI? (Charles DeRykus)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Jul 1999 12:55:00 -0700
From: Richard Gaushell <rgaushell@hotmail.com>
To: Rich Yavorsky <richardyavorsky@my-deja.com>
Subject: Re: CGI:New window opens w/ NN, not w/ IE
Message-Id: <3798C894.71D933E7@hotmail.com>
Rich Yavorsky wrote:
> This code opens $url in a new browser window. This works like a dream
> for NN browsers. For MSIE, however, $url is opened in the same window
> that it was called.
Sounds like an HTML problem, a Microsoft Problem, a Browser Problem or a
Operator Problem. Not a Perl Problem. Or perhaps I'm mistaken. Tell
us, how does browser redirection have anything to do with Perl?
Rich
---------------------------------------------------------------------
Rich Gaushell -- Yet Another Perl Programmer <rgaushell@hotmail.com>
"Give a person a script, they'll use it for a day,
Teach them how to program, they can run forever."
(unless they're on NT, in which case they must reboot every few days)
------------------------------
Date: 23 Jul 1999 16:00:15 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: CGI:New window opens w/ NN, not w/ IE
Message-Id: <slrn7phltn.2f3.abigail@alexandra.delanet.com>
Rich Yavorsky (richardyavorsky@my-deja.com) wrote on MMCLII September
MCMXCIII in <URL:news:3798C6F4.4C15F4C4@my-deja.com>:
\\ Hello.
\\
\\ Simply, I have a Perl CGI script that, when done executing after being
\\ called, ends with the following:
\\
\\ print "Status: 302 Moved Temporarily\n";
\\ print "Location: " . $url . "\n";
\\ print "Window-Target: NewWindow\n\n";
\\
\\ This code opens $url in a new browser window. This works like a dream
\\ for NN browsers. For MSIE, however, $url is opened in the same window
\\ that it was called.
That's a score for MSIE in its war against Netscape.
\\ 1) Why doesn't this work for MSIE, and
Could it because of the fact MSIE follows the HTTP/1.1 RFC, and Netscape
plays its tiring "NIH" game again?
\\ 2) What do I need to return to the MSIE-using client such that $url
\\ opens in a new window?
You wouldn't. You let the user decide whether they want a new window or not.
Document authors trying to open extra windows on a users screen should be
skinned alive, dipped in a barrel of salt, then fed to the sharks.
Now, what has this to do with Perl?
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: Fri, 23 Jul 1999 13:21:02 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: Tom and Gnat <perlfaq-suggestions@perl.com>
Subject: Re: FAQ 9.3: How do I remove HTML from a string?
Message-Id: <3798CEAE.3431C7EA@mail.cor.epa.gov>
[cc to perlfaq-suggestions]
Tom Christiansen wrote:
> [snip of header]
>
> How do I remove HTML from a string?
>
> The most correct way (albeit not the fastest) is to use HTML::Parse
Hmm. I thought HTML::Parse was deprecated in favor of HTML::Parser.
> [snip of some nice examples]
BTW, did you know that since you're killing all messages from
AOL, the author of Win32::SerialPort was unable to send you a
correction?
HAND,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 23 Jul 1999 16:35:55 -0400
From: Robert Watkins <rwatkins@springer-ny.com>
To: Dan Adams <dan@fearsome.net>
Subject: Re: file manipulation
Message-Id: <3798D22B.FC9180E4@springer-ny.com>
It's been a while since I've visited this NG, so I don't know the
details of your request (i.e. I don't know if I can help you or not).
Feel free to contact me at r-watkinsNO@SPAMworldnet.att.net and I'll see
what I can do.
-- Robert Watkins
Dan Adams wrote:
>
> Hi,
>
> Following a number of posts to this group, not a single person has been
> willing and able to help me out to the required extent with some code that I
> am stumbling over. Since no-one is willing to help me for free, can I induce
> anyone to help me by offering payment? I only need about 10 lines or so of
> code that I am stuck on, but no-one seems willing to help me fix the
> problem.
>
> Dan Adams
> dan@fearsome.net
------------------------------
Date: Fri, 23 Jul 1999 13:31:08 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: finding script calling method
Message-Id: <3798D10C.83EB9016@mail.cor.epa.gov>
Faisal Nasim wrote:
>
> : if there a way to find how the script was called?
> :
> : for example: <.img src="/cgi-bin/file.pl"> or if the user typed in
> : http://www.server.com/cgi-bin/file.pl
>
> You can check by HTTP_REFERER.
>
> but sorry, we deal in only Perl queries here... not CGI :)
This is the same guy who was spamming newsgroups about his
site on virtualave.net . I think you'll have to spell out
the difference between Perl and CGI, since his site has them
lumped together like they are two sides of the same coin.
Besides, whether or not HTTP_REFERER is available is really
a *server* issue, and that's another component of the process
which the poster may not understand to be 'separate and not
equal'.
Good luck trying to explain it to this guy,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 23 Jul 1999 20:41:40 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: glob spawning problem
Message-Id: <7nak24$1o1$1@lublin.zrz.tu-berlin.de>
Ewan Dunbar <northsky@ix.netcom.com> wrote in comp.lang.perl.misc:
>Every time I try to use glob, it says glob failed (child exited with status
>126). Am I missing something? What child process is glob spawning? And why
>won't it work for me?
Your question about the child process has been answered. As for
why it isn't working for you, how should we know? Post your code
and tell us what OS you're on. Sheesh.
Anno
------------------------------
Date: Fri, 23 Jul 1999 16:40:41 -0400
From: Matt <mlopresti@bigfoot.com>
Subject: Re: Has anyone seen this error before
Message-Id: <3798D349.359A7D8@bigfoot.com>
Thanks Larry :-)
Larry Rosler wrote:
> [Posted and a courtesy copy mailed. Order reversed so comment follows
> that commented on. Quoted .sig removed. Whew!]
>
> In article <37989229.77418673@bigfoot.com> on Fri, 23 Jul 1999 12:02:49
> -0400, Matt <mlopresti@bigfoot.com> says...
> > Mike Bristow wrote:
> > > On Fri, 23 Jul 1999 14:35:10 GMT, Jim Ray <jim.ray@west.boeing.com> wrote:
> > > >I am getting the following error:
> > > >Use of uninitialized value at z:\Inetpub\wwwroot\division\cgi-bin\myfile.pl
> > > >line 242, chunk 8
> > > >
> > > >Here is line 242:
> > > >
> > > >$Save[$count] = "$level;$arg1;$FileTitle;white;;$date;$FileType";
> > > >
> > > >I have access this array serveral times before this happens. Does anyone
> > > >know what this error is tryng to say? I have tried to research this, but
> > > >have no found a reference of it.
> > >
> > > One of $level;$arg1;$FileTitle;white;;$date;$FileType is undefined.
> > >
> > > man perldiag for more.
>
> > Do you want the double semicolon in there? Is it that white doesn't have a $ in
> > front of it?
>
> If 'white' had a $ in front of it, $white might be undefined. But the
> literal string 'white' is just that -- literal. And the double
> semicolons are none of our business either.
>
> However, as there half a dozen possible undefined values in that
> statement, how come 'perl -w' isn't kind enough to tell us which one(s)?
> It must know, for sure. (I know, I know, patches accepted. Sure!)
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
------------------------------
Date: 23 Jul 1999 15:47:39 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Has anyone seen this error before
Message-Id: <slrn7phl65.2f3.abigail@alexandra.delanet.com>
Jim Ray (jim.ray@west.boeing.com) wrote on MMCLII September MCMXCIII in
<URL:news:FFBv5u.DKL@news.boeing.com>:
.. I am getting the following error:
.. Use of uninitialized value at z:\Inetpub\wwwroot\division\cgi-bin\myfile.pl
.. line 242, chunk 8
..
.. Here is line 242:
..
.. $Save[$count] = "$level;$arg1;$FileTitle;white;;$date;$FileType";
..
.. I have access this array serveral times before this happens. Does anyone
.. know what this error is tryng to say? I have tried to research this, but
.. have no found a reference of it.
Really? What happened to your copy of 'perldiag'?
Anyway. The error message is saying that in line 242, you are using an
uninitialized variable.
Which of the 6 possible variables is uninitialize, I dunno.
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: Fri, 23 Jul 1999 16:45:59 -0400
From: Matt <mlopresti@bigfoot.com>
Subject: Re: Has anyone seen this error before
Message-Id: <3798D487.1EA7B319@bigfoot.com>
Now I get it, *banging my head on the desk*
Matt wrote:
> Thanks Larry :-)
>
> Larry Rosler wrote:
>
> > [Posted and a courtesy copy mailed. Order reversed so comment follows
> > that commented on. Quoted .sig removed. Whew!]
> >
> > In article <37989229.77418673@bigfoot.com> on Fri, 23 Jul 1999 12:02:49
> > -0400, Matt <mlopresti@bigfoot.com> says...
> > > Mike Bristow wrote:
> > > > On Fri, 23 Jul 1999 14:35:10 GMT, Jim Ray <jim.ray@west.boeing.com> wrote:
> > > > >I am getting the following error:
> > > > >Use of uninitialized value at z:\Inetpub\wwwroot\division\cgi-bin\myfile.pl
> > > > >line 242, chunk 8
> > > > >
> > > > >Here is line 242:
> > > > >
> > > > >$Save[$count] = "$level;$arg1;$FileTitle;white;;$date;$FileType";
> > > > >
> > > > >I have access this array serveral times before this happens. Does anyone
> > > > >know what this error is tryng to say? I have tried to research this, but
> > > > >have no found a reference of it.
> > > >
> > > > One of $level;$arg1;$FileTitle;white;;$date;$FileType is undefined.
> > > >
> > > > man perldiag for more.
> >
> > > Do you want the double semicolon in there? Is it that white doesn't have a $ in
> > > front of it?
> >
> > If 'white' had a $ in front of it, $white might be undefined. But the
> > literal string 'white' is just that -- literal. And the double
> > semicolons are none of our business either.
> >
> > However, as there half a dozen possible undefined values in that
> > statement, how come 'perl -w' isn't kind enough to tell us which one(s)?
> > It must know, for sure. (I know, I know, patches accepted. Sure!)
> >
> > --
> > (Just Another Larry) Rosler
> > Hewlett-Packard Laboratories
> > http://www.hpl.hp.com/personal/Larry_Rosler/
> > lr@hpl.hp.com
------------------------------
Date: 23 Jul 1999 15:43:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to give Passwords on STDIN
Message-Id: <slrn7phkup.2f3.abigail@alexandra.delanet.com>
Marc Haber (Marc.Haber-usenet@gmx.de) wrote on MMCLII September MCMXCIII
in <URL:news:7na8qp$h6r$1@news.rz.uni-karlsruhe.de>:
'' Tom Christiansen <tchrist@mox.perl.com> wrote:
'' > [courtesy cc of this posting mailed to cited author]
'' >In comp.lang.perl.misc,
'' > tapplega@utk.edu writes:
'' >:He may have a irritable cuss sysadmin who won't install any modules outside of
'' >:the standard distribution.
'' >
'' >Not relevant. He can always install his own modules.
''
'' What if his program run on a variety of systems and he doesn't want to
'' have to install Readkey.pm on all of them?
And that's different from installing his program on a variety of systems,
because of... ?
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== 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: Fri, 23 Jul 1999 17:03:06 -0400
From: brian@pm.org (brian d foy)
Subject: Re: How to read a .xls file in UNIX
Message-Id: <brian-ya02408000R2307991703060001@news.panix.com>
In article <7nagk7$m7s11@eccws1.dearborn.ford.com>, "Manmohan Singla" <msingla@ford.com> posted:
> I am having a Excel file transmitted to Web Server on a Unix machine
> everyday. All I have to do is pull the data from there and load into an
> oracle table.
i prefer to export to a DBF file from Excel then use the XBase
module (or it's DBD) from there.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 23 Jul 1999 20:07:20 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: long explanations wearying (was Re: Top 10 responses)
Message-Id: <7nai1o$1lf$1@lublin.zrz.tu-berlin.de>
Tad McClellan <tadmc@metronet.com> wrote in comp.lang.perl.misc:
[comp.lang.perl.newbie]
> Let us know when you have the RFD ready.
>
> I'm likely to support the creation of such a newsgroup,
> if it has a prohibition against crossposting to clpmisc
> (else the newbies will just post to both and nothing will
> be gained).
Newbies know how to crosspost?
Anno
------------------------------
Date: Fri, 23 Jul 1999 11:12:06 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Need help with simple CGI procedure..
Message-Id: <6o0an7.7ld.ln@magna.metronet.com>
Danny Stern (dstern@sternweb.net) wrote:
: I have a personal website that focuses on my hobbies, and I am looking to
: have a script that manages a list of players and who collects sports
: memorabilia of that player. I need to know how to do this:
: Have the script look for a html comment with the player's name,
^^^^^^^^
"look for" seems to suggest that pattern matching with a
regular expression would be appropriate.
'perlre.pod' documents Perl's regexen.
: then insert
: a comment at the end if the player's name is not already in one (if no one
: else has selected the player yet).
Perl FAQ, part 5:
"How do I change one line in a file/
delete a line in a file/
insert a line in the middle of a file/
append to the beginning of a file?"
: Then it would need to insert the form
: input
use CGI; # decodes URLs for you
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 23 Jul 1999 13:44:50 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: G&K F <zotje@hotmail.com>
Subject: Re: Opening files in IIS4.0
Message-Id: <3798D442.6CA5C41B@mail.cor.epa.gov>
[courtesy cc emailed to poster]
G&K F wrote:
>
> Hi,
>
> I am a newbie at perl and trying to figure out how I can read from a
> textfile and put it on a html page. I was working on a unix server and
> all was well, but when trying to put it on my company's IIS server, I
> can't seem to connect to the textfile, even if I put the file in the
> same directory. Does anyone know what I am doing wrong?
Well, your major problem is most likely not Perl at all, but IIS.
IIS likes to run with a very different environment than you.
So the default directory is probably quite different from what
you're expecting. So either have your program print out the
current directory so you can find where to stick your file, or
[better] use absolute rather than relative paths and save your-
self the headache.
> #!/usr/local/bin/perl
Win32 doesn't check the header, but Apache does. So if you
switch to Apache on win32, you'll have to have the right
path there. And always use the -w flag. Use the -T flag if
you have the possibility of 'tainted' data coming in from any
source.. like your testfile.txt file. And learn about the
'strict' pragma too. It's good for you. So I would have written
this more like:
#!/usr/local/bin/perl -wT
use strict;
> # Program to grab a stock quote from a file
> #
> open (INFO, "testfile.txt");
Always check the status of your open(), especially on a webpage
where you'll need a graceful way of covering when the file
can't be opened. Assuming you have an Error subroutine to
handle this:
my $test = 'testfile.txt'; #single quotes since no interpolation
open INFO, $test or &Error;
> @lines = <INFO>;
> close (INFO);
> $index = $#lines;
> $stock = $lines[$index];
> print $stock;
What's this line for? The Content-type is in the next line.
> print "Content-type: text/html\n\n";
> print "<HTML><HEAD><TITLE>Stock Ticker</TITLE></HEAD><BODY>\n";
> print "<h1>Today's stock value</h1><br><br>";
> print "index is \'$stock\'<HR>";
> print "</body></html>";
This would be cleaner in a here-doc.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 23 Jul 1999 20:27:34 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: output of print map ( { unless (/^#/) {} } ("#") );
Message-Id: <7naj7m$1mn$1@lublin.zrz.tu-berlin.de>
Michael Wang <mwang@tech.cicg.ml.com> wrote in comp.lang.perl.misc:
>>Michael Wang (mwang@tech.cicg.ml.com) wrote on MMCLI September MCMXCIII
>>in <URL:news:7n7ag7$5re$1@news.ml.com>:
>>== What should be the output of the following?
>>==
>>== (1) map ( { unless (/^#/) {} } ("#") );
>>== (2) print map ( { if (/^#/) {} } ("#") );
>>== (3) print map ( { if ( !/^#/) {} } ("#") );
>>==
>>== And why? Thanks.
>>==
>>== It is my opinion that neither of the 3 above should produce ANYTHING.
>>== but (1) produce "1" which I do not know why. How can I prevent it
>>== from produce this unwanted "1". Thanks again.
>>
>>What do you mean by "producing"? As given, the map is in void context,
>>anything "produced" will be thrown away. And it doesn't have side effects,
>>so what exactly is the problem?
>
>"producing" means when you run it, what goes to the screen.
Okay, for the sake of argument let's accept this definition.
>>Now, you might have something else there that captures the result of map,
>>a print, or an assignment. Now, map {} will evaluate the block for each
>>element of the list, in list context. It looks like the result of "unless
>>(/^#/) {}" is 1, if $_ eq '#'. Perhaps not quite the result you expect,
>>but you have to admit, "unless (/^#/) {}" is a pretty weird expression.
>>
>>Abigail
>
>unless (/^#/) {} is legal expression just to demonstrate the problem.
>Whether it looks weird or not is not my concern, and also it is very
>subjective. My concern is where is the problem.
How would this ever "produce" anything in your sense of the word?
Nothing in this code will ever output anything to the screen.
As for weird, the bit of code does nothing if a match occurs.
It does another nothing and then the same nothing as before if
a match doesn't occur. Qualifies as weird in my book.
>According to your logic, then replacing "unless (/^#/){}"
>with "if ( not /^#/ ) {}" or "if (/^#/){}" should also produce "1"
>but the latter two do not. Can you tell me why? Thanks.
None of these "produce" anything. I am still unclear what your
question is.
Anno
------------------------------
Date: Fri, 23 Jul 1999 10:38:01 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: output of print map ( { unless (/^#/) {} } ("#") );
Message-Id: <9ou9n7.7ld.ln@magna.metronet.com>
Michael Wang (mwang@tech.cicg.ml.com) wrote:
: >Michael Wang (mwang@tech.cicg.ml.com) wrote on MMCLI September MCMXCIII
: >in <URL:news:7n7ag7$5re$1@news.ml.com>:
: >== What should be the output of the following?
: >==
: >== (1) map ( { unless (/^#/) {} } ("#") );
: >== It is my opinion that neither of the 3 above should produce ANYTHING.
: >== but (1) produce "1" which I do not know why. How can I prevent it
: >== from produce this unwanted "1". Thanks again.
: >
: >What do you mean by "producing"? As given, the map is in void context,
: >anything "produced" will be thrown away. And it doesn't have side effects,
: >so what exactly is the problem?
:
: "producing" means when you run it, what goes to the screen.
Programmers call that "output".
Precise terminology is important when discussing technical topics.
(1) does not send anything ("produce") to the screen, because
it does not have any output statements.
If you have some code where (1) makes output, then we could
comment on it if you would show it to us.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 23 Jul 1999 16:37:44 -0400
From: Matt <mlopresti@bigfoot.com>
Subject: Re: Perl with MSQL
Message-Id: <3798D298.EA4435B@bigfoot.com>
This is alot of info to digest, I think I know what you are trying to do, and I
know how to do it. But without you giving a shot at doing it yourself, it will be
like my boss saying "Matt, I need you to
1.Upload an Access table in a way that MSQL will accep (maybe the wrong
nesgroup for this problem)
2. Get perl Connect to the MSQL table containing say a vacancy database.
3. read in the Job category selected the user selected in the HTML form.
4. Get perl to Query the Vacancy table records whose category colum (within
vacancy table) matches the selected one via HTML form.
5. Get perl to display all relevant records matching selected job category.
Output this to a HTML webpage in table format."
To which I respond "Sure, no problem, when do you want it done by?"
Now, unless you are my boss, I'm not going to do all the work. My suggestions
either:
A- buy a book and give it a shot
B- look on the net for examples, and give it a shot
or
C- Show me the money
"Paul Foran (Layout/Design)" wrote:
> Matt wrote:
>
> > Do you have examples that you tried?
>
> No I don't.
>
> > Or are you looking how to get started?
>
> Yes. I was recommended an ISP that Supports MSQL on Unix. therefore will be
> using Perl to Generate the scripts. I will Update my Database Tables with
> Access and somehow transfer them to my ISP in a format that MSQL will accept.
>
> >
> > What kind of support do you need. If you could narrow down your support
> > request that would be more helpful.
> >
> >
>
> I need to know how to do the following:
> 1.Upload an Access table in a way that MSQL will accep (maybe the wrong
> nesgroup for this problem)
> 2. Get perl Connect to the MSQL table containing say a vacancy database.
> 3. read in the Job category selected the user selected in the HTML form.
> 4. Get perl to Query the Vacancy table records whose category colum (within
> vacancy table) matches the selected one via HTML form.
> 5. Get perl to display all relevant records matching selected job category.
> Output this to a HTML webpage in table format.
------------------------------
Date: Fri, 23 Jul 1999 13:27:01 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: yu152178@my-deja.com
Subject: Re: programming problem
Message-Id: <3798D015.5464D04C@mail.cor.epa.gov>
[courtesy cc emailed to poster]
yu152178@my-deja.com wrote:
>
> I'm writing a perl script in win95 and need to access shell command.
> I try the following code copied from man page, but it doesn't work
>
> use Shell;
>
> $foo = echo("howdy", "<funny>", "world");
> print "$foo";
>
> the error message I got is 'Bad command or file name', can any one help
> me?
You've been on win32 boxes long enough that you ought to
recognize this error. It means that the MS-DOS shell was
passed a command [or filename] it couldn't figure out.
The code example in Shell.pm has a set of *unix* shell commands.
Do you need to use unix commands while in win95? If so, then
you need something besides Shell.pm, which only passes these
on to the system's shell to decipher. You might consider using
the Perl Power Tools [http://language.perl.com/ppt/ ] if you
need versions of these which work in win32 also. But these
will not fix the pipe/redirect problems of win32 shells.
For that, you'd need to install a much better shell, or move
to a different OS.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 23 Jul 1999 20:25:59 GMT
From: pozman@my-deja.com
Subject: regex mathcing
Message-Id: <7naj4d$uh7$1@nnrp1.deja.com>
If I have a string and want to know how many occurance there are of
another particular string within the first one, is there a regular
expression to do that.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 23 Jul 1999 16:33:24 -0400
From: Robert Watkins <rwatkins@springer-ny.com>
To: Trevor Milley <jac@rom.com>
Subject: Re: Submitting Photos
Message-Id: <3798D194.F5CAEF7A@springer-ny.com>
Have a look at the file upload feature that version 4 browsers support
in a standard HTML form:
<INPUT TYPE="File" NAME="photo" SIZE="20" ACCEPT="image/jpeg">
Using this, you will get a copy of the file uploaded and can do with it
as you will using, of course, Perl.
-- Robert Watkins
Trevor Milley wrote:
>
> I'm trying to develop a photo gallery on a website and I'm wondering
> if it is possible for people to give the path to their photo on their
> hard drive and for the script to copy that file to a database on the
> server. The only other option I can think of is getting the people to
> just email the photos in but I would prefer to have a script do it
> instead. If anyone can help it would be greatly appreciated.
>
> Trevor
------------------------------
Date: Fri, 23 Jul 1999 19:53:47 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: Telnet via CGI?
Message-Id: <FFC9xn.6Jp@news.boeing.com>
In article <7n6qdn$nl6$1@nnrp1.deja.com>, <johnwingfield@my-deja.com> wrote:
>I am trying to find a CGI script that will
>provide telnet access to a Unix machine. I need
>to communicate with this machine across the
>firewall of someone ele's network, but have full
>access to the web via a proxy. It should, in
>theory, be possible to write such a script, but I
>know of no-one who has.
>
Take a look at Net::Telnet (author: Jay Rodgers) on CPAN.
hth,
--
Charles DeRykus
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
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 V9 Issue 238
*************************************
