[9950] in Perl-Users-Digest
Perl-Users Digest, Issue: 3543 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 25 21:03:26 1998
Date: Tue, 25 Aug 98 18:00:26 -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 Tue, 25 Aug 1998 Volume: 8 Number: 3543
Today's topics:
Re: Decoding URL's (Alastair)
Re: did not produce a valid header <dan@fearsome.net>
Re: did not produce a valid header <simple@skymind.com>
Re: Dynamically creating graph images (Martien Verbruggen)
Re: Exporting Methods (Mark-Jason Dominus)
Re: glob not working through browser <rootbeer@teleport.com>
Re: Help!..re: secure sendmail question (Martien Verbruggen)
Re: Help: Downlaoding WWW::Search (also Libwww-perl) (Alastair)
Re: How to select from mutliple tables in Oracle-DBI <dfetter@shell4.ba.best.com>
Re: invalid header <rootbeer@teleport.com>
Re: invalid header (Alastair)
Re: Is Perl5.004 Year 2000 compilant? <jgoerzen+usenet@complete.org>
Re: Looking for Programmer/Job Opp. <jgoerzen+usenet@complete.org>
Re: Looking for Programmer/Job Opp. (FixingHole)
Re: Looking for Programmer/Job Opp. <jgoerzen+usenet@complete.org>
Re: Looking for Programmer/Job Opp. (Snowhare)
Re: mput and ftp <Savage.Ron.RS@bhp.com.au>
Newbie problem with pipes and blat (Tony Toews)
Oh ladies and lords of Perl, do not roast or toast me o <jcrowe@io.com>
Re: Oh ladies and lords of Perl, do not roast or toast <dgris@rand.dimensional.com>
Re: Oh ladies and lords of Perl, do not roast or toast (Mark-Jason Dominus)
Parser problem (HeadParser) swhite@accessonline.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 26 Aug 1998 00:33:12 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: Decoding URL's
Message-Id: <slrn6u6pk9.4h.alastair@calliope.demon.co.uk>
Eric Shipek <erics@wwwebcat.com> wrote:
>To all,
>
>I have a question about decoding form data into script variables. I'm
>used to using JavaScript and LiveWire and when I read about how to
>manipulate sting data in PERL, it looks like greek to me.
It really wasn't worth posting all that alien code here. If you want to use perl
(and I recommend it), then ;
a) Buy a good book - I recommend ;
Learning Perl (O'Reilly - 2nd Edition?)
Effective Perl Programming (Addison Wesley)
b) use the CGI module e.g.
http://stein.cshl.org/WWW/software/CGI/cgi_docs.html
HTH,
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: Tue, 25 Aug 1998 22:19:57 +0100
From: "Daniel Adams" <dan@fearsome.net>
Subject: Re: did not produce a valid header
Message-Id: <904088187.14256.0.nnrp-09.c2deb1c5@news.demon.co.uk>
Syntax error in your code maybe, so that it prints the header wrong? It
should look (very roughly) like:
print HTML "Content-type: text/html\n\n";
the \n\n at the end is VERY important.
Hope that helps - if not, I'll need a bit more infi.
Dan Adams
dan@fearsome.net
trex16@my-dejanews.com wrote in message <6rv8rf$2or$1@nnrp1.dejanews.com>...
>Anyone... I am trying to get a perl program to take input from a form and
>simply print these variables onto the browser. However, I keep getting an
>error that reads an invalid header. right now, the header that I am
>producing is: Content-type: text/html
>
>Anyone know what is wrong here?
>
>
>-----== Posted via Deja News, The Leader in Internet Discussion ==-----
>http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 25 Aug 1998 23:15:26 GMT
From: "Michael Collins" <simple@skymind.com>
Subject: Re: did not produce a valid header
Message-Id: <01bdd085$ade90800$7cc2d5d1@sam>
Try the following:
print "Content-Type: text/html\n\n";
There must be two newlines
trex16@my-dejanews.com wrote in article
<6rv8rf$2or$1@nnrp1.dejanews.com>...
> Anyone... I am trying to get a perl program to take input from a form and
> simply print these variables onto the browser. However, I keep getting an
> error that reads an invalid header. right now, the header that I am
> producing is: Content-type: text/html
>
> Anyone know what is wrong here?
>
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
------------------------------
Date: Wed, 26 Aug 1998 00:31:10 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Dynamically creating graph images
Message-Id: <iHIE1.4$jl.1145@nsw.nnrp.telstra.net>
[Removed comp.lang.javascript from Newsgroups]
In article <6run4f$bu$1@news-int.gatech.edu>,
Chris Sidi <sidi@angband.org> writes:
> In comp.lang.perl.misc Andrew MacInnes <a.g.macinnes@nospam.rl.ac.uk> wrote:
>>> I am using perl to fetch data from a database for a web project that I am
>>> working on. Now, I need to dynamically build a bar graph with this data.
>
> Looks like there's a javascript equivalent to GIFgraph now:
> http://developer.netscape.com/docs/technote/javascript/graph/
>
> I think the JS graphs look better than the GIFgraph ones, partly due to
> the font.
But GIFgraph does more than the JS stuff. :) And it normally runs on
the server side, not the client side, which has advantages and
disadvantages. But that's all not really important:
If fonts are your only problem: GIFgraph relies on the fonts that GD
knows about. GD can convert BDF fonts to its internal format. You
should be able to use those fonts in GIFgraph, although I haven't
tested it. I might give it a try one of these days.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 25 Aug 1998 19:13:31 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Exporting Methods
Message-Id: <6rvger$iil$1@monet.op.net>
In article <35E39FB9.110@comenius.ms.mff.cuni.cz>,
Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz> wrote:
>I didn't say it shouldn't be called new() !
>I only said that you should NOT export it into main
>(or whatever) namespace. THAT is a Bad Thing(tm).
I agree with that.
Exportation is always an evil, because it pollutes the namespace of
the caller. If you are exporting a function named `foo', you always
have to worry that the calling package might already have a `foo'
(which you will clobber) or that the calling package might want to
import the `foo' from some other package (which will clobber your foo
if it comes afterwards.) It should therefore be avoided whenever
feasible.
Methods never need exportation, because you say what package they are
in when you call them, as with:
Employee->new(...); # Call Employee::new
Exporting such a function serves no purpose, so you get the costs of
namespace pollution without any benefits.
>Export only what is strictly necessary and under a name that is
>unlikely to be used by any other module.
>
>Which is not the case of new().
Right on.
------------------------------
Date: Tue, 25 Aug 1998 23:03:09 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: glob not working through browser
Message-Id: <Pine.GSO.4.02A.9808251557130.4382-100000@user2.teleport.com>
On Tue, 25 Aug 1998, Todd B wrote:
> # this does NOT work. i tried all sorts of path/filename specs, all
> return nothing
> @g_aFilenameLog = glob("*.*");
Remember that (on most systems) glob() calls /bin/csh (or something
similar). That's a bad idea for security reasons, in general. But also,
did you realize that "*.*" is not the glob for all files? (I'm told that
the glob "*" works properly on DOS-based systems, returning all normal
files.) Also, did you know that csh has a limit on the amount of data csh
can return?
> # this DOES work:
> opendir DIR, "." || die "can't open dir: $!";
Precedence error! That code isn't doing what you want.
> @g_aFilenameLog = readdir DIR;
> closedir DIR;
>
> i wonder if it's something with IIS 4?
Often it is. :-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 26 Aug 1998 00:18:52 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Help!..re: secure sendmail question
Message-Id: <MvIE1.2$jl.1145@nsw.nnrp.telstra.net>
In article <35E22175.59C49172@nospam.ican.net>,
"Mr. mister" <leegala@nospam.ican.net> writes:
> Where do you see it posted four times asshole? Even if I did, it would
> have been by accident. So go fuck yourself.
Sorry. You only posted twice. They were duplicated by some bad server.
Anyway:
Posting that question twice doesn't make it a perl issue. try asking
it in one of the comp.infosystems.www.* groups.
And now for the extra advise:
Your question was offtopic. I informed you of that, and pointed you to
a place where you would have more success. If you can't deal with
that, then you should stay off Usenet.
Are you one of those people that asks at the post office when the next
train leaves? And when they say they don't know, you get upset,
because after all, mail often gets transported by trains?
You have an invalid return address.
You hide your real name.
You are unneccesarily rude and obnoxious.
None of the above will get you any friendly reponses on Usenet.
Plonk.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Wed, 26 Aug 1998 00:43:46 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: Help: Downlaoding WWW::Search (also Libwww-perl)
Message-Id: <slrn6u6q82.4h.alastair@calliope.demon.co.uk>
garten@my-dejanews.com <garten@my-dejanews.com> wrote:
>
>
>I need your help.. Trying to download the module set WWW::Search (and
>Libwww-perl which is needed by WWW::Search)..Need to know the Steps Involved..
>
>This is what I've done so far: downloaded WWW_Search_1.020.tar.gz to a
>Windows/95 platform then will upload to my UNIX 'WEB' subdirectory then I
>think I need to unzip it. Once this is done then I enter from the UNIX
>command line: perl Makefile.PL, make, make test and make install (you guys
>seem to take these commands for granted but what do they do??).
They build and install (make available) the perl modules in the package. Was
this successful or did you get error messages?
>For the Libwww-perl module set - I've had difficulty downloading; Netscape
>complains it needs a "plug in" to read unknown file type /x-gunzip.. How do I
>get around this problem??
What's different here (assuming you installed 'WWW::Search'?). Use FTP in binary
mode then.
>
>Can you download directly to UNIX??
Ofcourse. If you have permission. If you're downloading to a web server you
don't 'own', you might want to ask the webmaster for instructions.
>There must be an easier way..Your directions would be most helpful..
I'm a unix person and don't use Windows. I tend to take things for granted ;)
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: 26 Aug 1998 00:35:32 GMT
From: David Fetter <dfetter@shell4.ba.best.com>
Subject: Re: How to select from mutliple tables in Oracle-DBI
Message-Id: <6rvl8k$cab$1@nntp1.ba.best.com>
Gill Ge Wang <gwang@dallas.geoquest.slb.com> wrote:
> --------------416D8518A45E31AABB1FA5E8
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
> Hi, Experters:
> I am trying to select variables from mutliple tables in Oracle-DBI and
> failed. What I want is the following query:
> select table1.variable1, table2.variable2 from table1, table2 where
> table1.variable3=table2.variable3
> $sth = $dbh->prepare("select table1.variable1, table2.variable2 from
> table1, table2 where table1.variable3=table2.variable3") or die;
Does this fail? It shouldn't. Here's one I know works:
use DBI;
$ENV{'ORACLE_SID'} = 'appropriate_SID';
$ENV{'ORACLE_HOME'} = '/path/to/oracle';
$data_source = 'SID';
$user = "USER";
$password = "PASSWORD";
$query = <<"EOS";
SELECT d.foo, o.bar, h.baz
FROM disgruntled_emp d, oops_table o, heckwithit h
EOS
$dbh = DBI->connect("dbi:Oracle:$data_source", $user, $password)
|| die "Can't connect to $data_source: $DBI::errstr";
$sth = $dbh->prepare($sql)
|| die "Can't do statement: $DBI::errstr";
$sth->bind_columns(undef, \$d, \$o, \$h);
$sth->execute();
while($sth->fetch) {
# Do stuff with $d, $o, and $h.
}
warn $DBI::errstr if $DBI::err;
$sth->finish;
$dbh->disconnect;
Cheers,
David.
P.S. Please don't send HTML over the USENET. Thanks.
--
David Fetter 888 O'Farrell Street Apt E1205
shackle@ren.glaci.com San Francisco, CA 94109-7089 USA
http://www.best.com/~dfetter +1 415 567 2690 (voice)
print unpack ("u*",q+92G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R"@``+)
Quartz glyph jocks vend, fix, BMW.
------------------------------
Date: Tue, 25 Aug 1998 23:21:13 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: invalid header
Message-Id: <Pine.GSO.4.02A.9808251620340.4382-100000@user2.teleport.com>
On Tue, 25 Aug 1998 trex16@my-dejanews.com wrote:
> Subject: invalid header
>
> I am trying to display results of form inputs to the screen and keep
> getting this error message.
Well, it's not a Perl error message. Could it be coming from your server?
Maybe the docs, FAQs, and newsgroups about servers could help you. Good
luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 26 Aug 1998 00:28:22 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: invalid header
Message-Id: <slrn6u6pb7.4h.alastair@calliope.demon.co.uk>
trex16@my-dejanews.com <trex16@my-dejanews.com> wrote:
>I am trying to display results of form inputs to the screen and keep getting
>this error message. Currently I am using "Content-type: text/html" as my
>header and then printing html tags and text to the screen but it doesn't seem
>to be working. Does anyone know what could be wrong?
No. Not from what you tell us. However, if you're using Perl, this might help ;
http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: 25 Aug 1998 17:57:58 -0500
From: John Goerzen <jgoerzen+usenet@complete.org>
To: Jeff Gao <jeff_gao@bctel.net>
Subject: Re: Is Perl5.004 Year 2000 compilant?
Message-Id: <87soikk6tl.fsf@garfield.complete.org>
No, Perl is not Y2K compliant. Perl also has no known Y2K bugs. Like
the website says, Perl is just as Y2K compliant as a pencil. What
sort of silly question is this? Perl doesn't do date manipulation,
your code does and your OS does. You should be checking those.
Geez. Next thing you know, people will be checking their monitors,
mousepads, toilet seats, dishwashers, deadbolts, and Model T Fords for
Y2K compliant. (Those Model Ts are really old, must not be compliant,
eh?)
And -- why did you not read the documentation before posting here?
This question is blazed ALL OVER. It's on www.perl.com, in the FAQ,
ALL OVER.
Jeff Gao <jeff_gao@bctel.net> writes:
> Does anybody know that whether perl 5.004 is y2k compilant?
>
> Thanks
>
>
> --
> Jeff Gao
>
>
--
John Goerzen Linux, Unix consulting & programming jgoerzen@complete.org |
Developer, Debian GNU/Linux (Free powerful OS upgrade) www.debian.org |
----------------------------------------------------------------------------+
Visit the Air Capital Linux Users Group on the web at http://www.aclug.org
------------------------------
Date: 25 Aug 1998 18:03:19 -0500
From: John Goerzen <jgoerzen+usenet@complete.org>
To: fixinghole@aol.com (FixingHole)
Subject: Re: Looking for Programmer/Job Opp.
Message-Id: <87pvdok6ko.fsf@garfield.complete.org>
Uh, pardon me, but I would never want to work for somebody that
doesn't even understand what they want. Come on, preventing people to
"bust out of the frame"? Riiiiiight..... Care to tell us which
browser does this, and why any user would possibly want to go to a
website that they cannot exit from?
I don't know whether to laugh or cry at this.
fixinghole@aol.com (FixingHole) writes:
> Need estimate for the following script...
>
> Free subdomain script, in where the users page is loaded in the bottom frame,
> in the top frame, an advertisement is loaded and traked, easy new user sign up,
> and a cheat proof interface so that they cannot bust out of the frame...
>
> For signup record the following info...
> E-mail
> Site Title
> Site URL
> Subdomain (whatever.domain.com)
> and if they agreed to the TOS.
>
> Please send your estimates, by e-mail to FixingHole@aol.com
> Maxium amount I will pay over estimate is $40, so please be accurate
--
John Goerzen Linux, Unix consulting & programming jgoerzen@complete.org |
Developer, Debian GNU/Linux (Free powerful OS upgrade) www.debian.org |
----------------------------------------------------------------------------+
Visit the Air Capital Linux Users Group on the web at http://www.aclug.org
------------------------------
Date: 25 Aug 1998 23:19:30 GMT
From: fixinghole@aol.com (FixingHole)
Subject: Re: Looking for Programmer/Job Opp.
Message-Id: <1998082523193000.TAA23854@ladder01.news.aol.com>
In a message dated 98-08-25 19:03:24 EDT, you write:
<< Uh, pardon me, but I would never want to work for somebody that
doesn't even understand what they want. Come on, preventing people to
"bust out of the frame"? Riiiiiight..... Care to tell us which
browser does this, and why any user would possibly want to go to a
website that they cannot exit from?
I don't know whether to laugh or cry at this.
fixinghole@aol.com (FixingHole) writes:
> Need estimate for the following script...
>
> Free subdomain script, in where the users page is loaded in the bottom
frame,
> in the top frame, an advertisement is loaded and traked, easy new user sign
up,
> and a cheat proof interface so that they cannot bust out of the frame...
>
> For signup record the following info...
> E-mail
> Site Title
> Site URL
> Subdomain (whatever.domain.com)
> and if they agreed to the TOS.
>
> Please send your estimates, by e-mail to FixingHole@aol.com
> Maxium amount I will pay over estimate is $40, so please be accurate >>
Pardon me @$$HOLE... But I'd be so simple it's not even FUDGING funny, so don't
fudging mess with me... You just count the number of times the advertisment
gets loaded vs the script itself for that page, IF YOU SEE IT'S WAY OFF, YOU
KNOW SOMETHINGS FUDGING FISHY!!!
AND IF YOU WERE A REAL PROGRAMMER, YOU'D KNOW THAT... SO UH PARDON ME, BUT
WOULD I WANT TO HIRE SOMEONE TO DO THE SCRIPT THAT KNOWS LESS THAN ME???
---Note I edited this message for the newsgroup, the E-mail I recieved was more
graphic, fudging may sound kinda lame...
But I'm sorry, this guys a loser
And you people who say $50 an hour, I've got flat rate offers for $400 - $1000
SO :P
BTW, The majority of this script is sooo easy.
I've already gotten a book on PERL, and in the first week, programmed the
Majority of it myself, so go hump a tree...
P.S. I like the guy who said saying "Go to Matt's Script Arihive" is like
saying "Go Screw Yourself" He's the only decent one out of all of you idiots!
------------------------------
Date: 25 Aug 1998 19:48:00 -0500
From: John Goerzen <jgoerzen+usenet@complete.org>
To: fixinghole@aol.com (FixingHole)
Subject: Re: Looking for Programmer/Job Opp.
Message-Id: <87emu4k1q7.fsf@garfield.complete.org>
Well, let's see, somebody who cannot maintain composure when their
lack of intelligence is proven to be quite serious is perhaps fitting
in character of the request; however, it would still seem to be
illogical. Nonetheless, you avoided the specific issue: you wanted an
interface where they cannot "bust out of the frame". Sure, you can
count hits, but that does not prevent anyone from busting out of the
frame. Some web browsers cannot display two frames on-screen at once;
had you glanced at the HTML spec, you sould have realized this. Not
only that, but what of it if you get more hits on one than on the
other? That doesn't prove anything. They could be using Lynx, they
could be using a company proxy that blocks ads, or they could be
intentionally bypassing the ad (a behavior which you cannot block,
despite your request for somebody to do so).
Now then, let's address your comments at the bottom:
> Pardon me @$$HOLE... But I'd be so simple it's not even FUDGING funny, so don't
In your message to me, you said "I'd be so simply.." Glad to see that
you're fixing a little bit of bad grammar anyway. Wouldn't want to
see anybody making a fool of themselves in a public newsgroup, you
know...
[Don't]
> fudging mess with me... You just count the number of times the advertisment
Aww, poor baby, somebody pointed out a problem in his understanding of
HTML.
> gets loaded vs the script itself for that page, IF YOU SEE IT'S WAY OFF, YOU
> KNOW SOMETHINGS FUDGING FISHY!!!
Really? How? And why? What are you going to do about it? And I
hope you realize that any page with IMG, OBJECT, IFRAME, and
related tags could cause dozens of hits for the user part while only
one hit for the ad. And let's face it, a lot of webpages today use
IMG syntax. I bet that even your ad would.
> ---Note I edited this message for the newsgroup, the E-mail I recieved was more
> graphic, fudging may sound kinda lame...
This is an outright lie. I sent you the same message that was posted
to the newsgroup, and such public post is easily verifiable. I had no
graphic language in there, and would never resort to stooping to that
level. It was your message to me that had such language, which I have
been kind enough to not quote in light of your post here with grammar
fixed and words changed.
> BTW, The majority of this script is sooo easy.
> I've already gotten a book on PERL, and in the first week, programmed the
> Majority of it myself, so go hump a tree...
All right then, please enlighten us: how does one prevent users from
"busting out of the frame" in Perl, considering that all they need to
do to accomplish this is punch in a different URL in their browser
(perhaps after viewing the frameset source first), and that there is
no way to stop this?
Your posts are becoming more off-topic, I fear, so let's see some
actual Perl code for keeping users from busting out of a frame. Hehe.
John
fixinghole@aol.com (FixingHole) writes:
> In a message dated 98-08-25 19:03:24 EDT, you write:
>
> << Uh, pardon me, but I would never want to work for somebody that
> doesn't even understand what they want. Come on, preventing people to
> "bust out of the frame"? Riiiiiight..... Care to tell us which
> browser does this, and why any user would possibly want to go to a
> website that they cannot exit from?
>
> I don't know whether to laugh or cry at this.
>
> fixinghole@aol.com (FixingHole) writes:
>
> > Need estimate for the following script...
> >
> > Free subdomain script, in where the users page is loaded in the bottom
> frame,
> > in the top frame, an advertisement is loaded and traked, easy new user sign
> up,
> > and a cheat proof interface so that they cannot bust out of the frame...
> >
> > For signup record the following info...
> > E-mail
> > Site Title
> > Site URL
> > Subdomain (whatever.domain.com)
> > and if they agreed to the TOS.
> >
> > Please send your estimates, by e-mail to FixingHole@aol.com
> > Maxium amount I will pay over estimate is $40, so please be accurate >>
> Pardon me @$$HOLE... But I'd be so simple it's not even FUDGING funny, so don't
> fudging mess with me... You just count the number of times the advertisment
> gets loaded vs the script itself for that page, IF YOU SEE IT'S WAY OFF, YOU
> KNOW SOMETHINGS FUDGING FISHY!!!
>
> AND IF YOU WERE A REAL PROGRAMMER, YOU'D KNOW THAT... SO UH PARDON ME, BUT
> WOULD I WANT TO HIRE SOMEONE TO DO THE SCRIPT THAT KNOWS LESS THAN ME???
>
> ---Note I edited this message for the newsgroup, the E-mail I recieved was more
> graphic, fudging may sound kinda lame...
>
> But I'm sorry, this guys a loser
>
> And you people who say $50 an hour, I've got flat rate offers for $400 - $1000
> SO :P
>
> BTW, The majority of this script is sooo easy.
> I've already gotten a book on PERL, and in the first week, programmed the
> Majority of it myself, so go hump a tree...
>
> P.S. I like the guy who said saying "Go to Matt's Script Arihive" is like
> saying "Go Screw Yourself" He's the only decent one out of all of you idiots!
--
John Goerzen Linux, Unix consulting & programming jgoerzen@complete.org |
Developer, Debian GNU/Linux (Free powerful OS upgrade) www.debian.org |
----------------------------------------------------------------------------+
Visit the Air Capital Linux Users Group on the web at http://www.aclug.org
------------------------------
Date: 26 Aug 1998 00:56:04 GMT
From: snowhare@devilbunnies.org (Snowhare)
Subject: Re: Looking for Programmer/Job Opp.
Message-Id: <6rvmf4$sq2$1@supernews.com>
Nothing above this line is part of the signed message.
In article <No.unsoiliciteds-2608980506510001@cs11i11.ppp.infoweb.or.jp>,
Norman UNsoliciteds <No.unsoiliciteds@dead.end> wrote:
>In article <6rv0vd$7cp$1@xmission.xmission.com>,
>snowhare@xmission.xmission.com (Snowhare) wrote:
>
>
>> $50/hour is *seriously* low if your custom Perl programmer knows what they
>> are doing.
>
> The only people I give $50/hour to is a
>> 20 year personal friend and a sister who also works in the field.
>
>That's awfully nice of you - you pay everybody more except for your
>sister and your friend, I guess you don't have to worry about unions
>with them
You've got it 180 degrees backwards. They pay _me_ $50/hour from the
companies they work for/own. I charge everyone else double
that rate as my baseline for CGI work. When I said 'give' I meant
'give them rates for work by me.'
IOW: They get a 50%+ discount on my normal rates.
Benjamin Franz
Version: 2.6.2
iQCVAwUBNeNdCOjpikN3V52xAQFFagQAqykxgYUF5tJeH8IAlosD9HL/grwFh0JV
bATBTEEZJOdG9U/hSh9K7hqtEpoEr3w1Uq7iH8CKLMa3OZBTCAhOvT3LlYZLkT3r
hnHtRUpbTPbpikEWEW5FqyJzkKSe/ZxndbJI4vgg8loZoxJRmNKHVBKzwgkFIi15
is3Cl77BOuA=
=/HdN
-----END PGP SIGNATURE-----
------------------------------
Date: 26 Aug 1998 00:09:23 GMT
From: "Ron Savage" <Savage.Ron.RS@bhp.com.au>
Subject: Re: mput and ftp
Message-Id: <01bdd087$c85de140$8aeb1286@steelres-pcm657.resmel.bhp.com.au>
If you're desperate, try my ftp.pl. See my sig.
--
Ron Savage
Home (preferred): rpsavage@ozemail.com.au
Office: Savage.Ron.RS@bhp.com.au
http://www.ozemail.com.au/~rpsavage
[snip]
> is there any body who knows how I can copy a directory structure using
ftp
[snip]
------------------------------
Date: Tue, 25 Aug 1998 23:12:03 GMT
From: ttoews@telusplanet.net (Tony Toews)
Subject: Newbie problem with pipes and blat
Message-Id: <35e34302.63916396@news.calgary.telusplanet.net>
Folks
I'm a complete newbie to Perl, CGI and all that fun stuff.
I've got the following script which I shamelessly stole from Eureka
http://hjs.geol.uib.no/Perl/index6.html-ssi
Thanks to Sam Holden I discovered that the example was missing the
pipe character | on the open(MAIL ... line however that's now in
place. Trouble is the darned thing still doesn't work. The line at
the end which starts with "system("blat ..." is the identical line
with the open(MAIL ... line. And that line works. I use it to test
my script to see if its working. So what am I doing wrong?
I've also tested the print MAIL line by just printing to the output
device, aka my webserver and it works just fine. The problem almost
has to be on the open(|blat line but I don't have a clue.
************************
#!/perl -w
print "content-type: text/html\n\n";
print "<HTML><TITLE>Thanks!</TITLE><BODY>Thanks for entering your
information...</P>\n";
*****> open(MAIL,"|blat -t ttoewsts\@telusplanet.net -s
FormResponse");
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print MAIL "$name : $value\n";
}
#print MAIL "\n\cZ";
#print MAIL "\n";
#close(MAIL);
****>system("blat sendform.pl -t ttoewsts\@telusplanet.net -s
FormResponse");
print "You should be receiving a reply via the method of contact you
have selected within the next few business days.</P>\n";
print "</BODY><HTML>"
*********************
Thanks, Tony
----
Message posted to newsgroup and emailed.
Tony Toews, Independent Computer Consultant
The Year 2000 crisis: Will my parents or your grand parents still be receiving
their pension in January, 2000? See www.granite.ab.ca/year2000 for more info.
Microsoft Access Hints, Tips & Accounting Systems at www.granite.ab.ca/accsmstr.htm
------------------------------
Date: Tue, 25 Aug 1998 18:06:05 -0500
From: Jose Cuervo <jcrowe@io.com>
Subject: Oh ladies and lords of Perl, do not roast or toast me or fry me in a wok*
Message-Id: <35E3435D.41C6@io.com>
Apologies to Monty Python,
OK, I'm just getting my perl chops wet and I have a question that I
do not quite understand from my reading of the old Learning Perl and
Perl Programming. This involves getting command line parameters. I did
not exactly see this in the FAQ either. When one reads from the command
line using the <> filehandle, will one get the actual value of ARGV[0]?
e.g. will this bit of code
$a=<>
set $a to the contents of ARGV[0].....
TIA. Email OK, roasting fine too, I can stand the heat...
--
Joe Crowe
mailto:jcrowe@io.com
------------------------------
Date: Tue, 25 Aug 1998 23:40:13 GMT
From: Daniel Grisinger <dgris@rand.dimensional.com>
Subject: Re: Oh ladies and lords of Perl, do not roast or toast me or fry me in a wok*
Message-Id: <6rvh75$9mi$1@rand.dimensional.com>
[posted to comp.lang.perl.misc and mailed to the cited author]
In article <35E3435D.41C6@io.com>
Jose Cuervo <jcrowe@io.com> wrote:
> When one reads from the command
>line using the <> filehandle, will one get the actual value of ARGV[0]?
No.
>e.g. will this bit of code
>
>$a=<>
>
> set $a to the contents of ARGV[0].....
No, it will open the file named by ARGV[0] and read the first
line from that file. If there are no arguments it will
read STDIN.
> TIA. Email OK, roasting fine too, I can stand the heat...
What's to flame? You had a question, checked the docs, and
still had a question. Those are exactly the circumstances
where posting is a good idea :-).
dgris
--
Daniel Grisinger dgris@perrin.dimensional.com
"No kings, no presidents, just a rough consensus and
running code."
Dave Clark
------------------------------
Date: 25 Aug 1998 20:37:33 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Oh ladies and lords of Perl, do not roast or toast me or fry me in a wok*
Message-Id: <6rvlcd$iu1$1@monet.op.net>
In article <35E3435D.41C6@io.com>, Jose Cuervo <jcrowe@io.com> wrote:
> When one reads from the command
>line using the <> filehandle, will one get the actual value of ARGV[0]?
Oh, no, not at all. What <> does is interpret the command-line
arguments as filenames, and then get the data from the named files,
one line at a time.
If you run your program like this:
myprogram file1 file2 file3
Then $a = <> will set $a to the first line of the file `file1'. The
second time you do it, it gets the second line of `file1'. It keeps
returning lines from file1 until file1 runs out, and then it starts
returning lines from file2, and so on.
>will this bit of code
>$a=<>
> set $a to the contents of ARGV[0].....
No, for that you either use
$a = $ARGV[0];
or
$a = shift;
> TIA. Email OK, roasting fine too, I can stand the heat...
(Nervous laugh.) Who would dare roast the great Jose Cuervo?
------------------------------
Date: Tue, 25 Aug 1998 23:05:00 GMT
From: swhite@accessonline.com
Subject: Parser problem (HeadParser)
Message-Id: <35e342a2.25041028@news.sprint.ca>
Any ideas on how to make this script parse the test.html file for the
contents of its predefined metatags.
Thanks
Steve
--------- SCRIPT ---------
open(FH, "test.html") or die($!);
$doc = join("", <FH>);
close FH;
require HTML::HeadParser;
sub extract_meta
{
my($meta, $content) = @_;
require HTML::HeadParser;
my $p = HTML::HeadParser->new;
$p->parse(@_);
return $p->header("X-Meta-$meta");
}
print "Content-type: text/html\n\n";
print "<br><br><br><b>Title:</b>";
print extract_meta("title", $doc);
print "<br>";
print "<b>Originator:</b> ";
print extract_meta("originator", $doc);
print "<br>";
------------------------------
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 3543
**************************************
