[16155] in Perl-Users-Digest
Perl-Users Digest, Issue: 3567 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 10 16:43:00 2000
Date: Mon, 10 Jul 2000 13:42:49 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <963261769-v9-i3567@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 10 Jul 2000 Volume: 9 Number: 3567
Today's topics:
Help with converting part of a page to CGI <tedstennisNOteSPAM@aladin.de.invalid>
Re: Help with converting part of a page to CGI <makarand_kulkarni@my-deja.com>
Re: Help with converting part of a page to CGI <fedya@banet.net>
Re: Help with converting part of a page to CGI <nnickee@nnickee.com>
Re: Help with converting part of a page to CGI <fedya@banet.net>
Re: Help with converting part of a page to CGI (Tad McClellan)
Re: Help with converting part of a page to CGI (Bart Lateur)
Help with database. genadi@my-deja.com
Re: Help with database. <gellyfish@gellyfish.com>
Help with Expect for ftp etc arran_isme@my-deja.com
Help with file concatination my_deja_v@my-deja.com
Re: Help with file concatination <care227@attglobal.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 06 Jul 2000 20:39:07 -0700
From: Tedstennis <tedstennisNOteSPAM@aladin.de.invalid>
Subject: Help with converting part of a page to CGI
Message-Id: <16273624.ec87992a@usw-ex0107-055.remarq.com>
Hi everybody!
I'm new to CGI, and am right now just at the beginning of
converting a bunch of my web-pages to CGI to make my life easier
(supposedly!). I think I know enough Perl to be able to do a lot
of what I want without badgering you with a bunch of questions,
but there's one thing I already know I don't have much of an idea
on.
Consider the following page, which is currently in HTML using a
bunch of <tt> tags and characters:
http://www.geocities.com/Colosseum/Goal/8588/players/davenport.ht
ml
I'd like to use CGI to update those parts of the pages which use
players' statistics; that is, the top of the page where I've got
a player's current, previous, and peak rankings, as well as the
player's record. I'd also like to use CGI to update the "totals
averages" section. I'm pretty certain I should be able to do
this by using a Perl array of the type
@davenport=("2","2","Davenport
Lindsay","2876.3","62","-10","2573.8","0","2876.3","1","18 June
2000");
and putting the correct scalar in with current rank, average of
players' opponents' ratings, and so on. [Apologies if I should
be using curly brackets/braces for the array -- I can't remember
offhand which one to use, but I know I can look that up to make
sure I get it right.] I should also be able to use the same
arrays for the tables which rank the top 100 players as well as
the alphabetical rankings, which is part of the reason why I'm
seriously considering the switch to CGI.
The problem comes with the part in the middle (the part from the
line with the underlined text through to the dashed line). I
need to update that on a more or less weekly basis -- that is,
when one year from last year's Stanford tournament comes along, I
have to get rid of the matches Davenport played at Stanford, and
if she plays Stanford again this year, I have to add the new
matches. For a bunch of reasons, I'd *really* like to be able to
do that in an HTML document -- I can do it off-line, uploading is
*much* easier since I can use my browser's upload function, I
don't have to worry about editing the Perl scripts, and it'll be
much easier to get all the columns to line up properly.
The problem comes with merging the CGI script for the top and
bottom of the page with the HTML document. Would either of the
following methods work:
1) If I save the list of Davenport's tournaments and matches in a
file called /matches/davenport.html (rest of URL deleted), can I
use
open (FHANDLE) http://[domain name]/matches/davenport/html;
while (FHANDLE){
print;
}
to print out the contents of the HTML page? I have this fear
that if I try this, what will actually show up on the screen is
the HTML source, and not the actual document. Also, would the
fact that the HTML document has the <doctype> tag and (more
importantly) its own <html> and <body> tags cause a problem? I
suppose I could redo the matches as <table> commands and figure
out some Perl script that will print only that portion of the
document which is between the <table> and </table> tags, although
right now I'm such a newcomer to Perl that I'm still going to
have to learn that code.
2) Could I instead use HTML's <image src> tag to make the html
page be the image which appears in a one-celled table? I'm
thinking of Perl script that would go something like this:
print "<table><tr><td>"
print "<image src=\"http://[domain name
deleted]/matches/davenport.html\">"
print "</td></tr></table>"
In the various HTML tutorials I looked up I saw a <background>
tag, but the tutorial implied that this only works on IE, and I'd
like to have my pages conform across multiple browsers.
If neither of the above methods work, do you have any other
suggestions?
--Ted "I have always challenged the 'psychoses.' Why don't
fedya@banet.net you have a right to say you are Jesus? And why isn't
the proper response to that 'congratulations?'"
Thomas Szasz, "Reason" Magazine, July 2000
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Fri, 07 Jul 2000 14:28:25 -0700
From: Makarand Kulkarni <makarand_kulkarni@my-deja.com>
To: Tedstennis <tedstennisNOteSPAM@aladin.de.invalid>
Subject: Re: Help with converting part of a page to CGI
Message-Id: <39664B79.FF015FE@my-deja.com>
> do you have any other
> suggestions?
I suggest you look at HTML::Mason
--
------------------------------
Date: Sat, 08 Jul 2000 09:59:22 -0400
From: Ted <fedya@banet.net>
Subject: Re: Help with converting part of a page to CGI
Message-Id: <396733BA.20673CF@banet.net>
Makarand Kulkarni wrote:
> > do you have any other
> > suggestions?
> I suggest you look at HTML::Mason
Thanks, but what exactly *is* HTML::Mason, anyway? :-) The Mason FAQ
that I found implies that it runs on mod_perl (whatever that is). My
pages are most likely going to be going up on Tripod, which apparently
only allows you to use Perl for your CGI scripts (what can you expect
with free hosting? I'm not looking for much, anyway.) Do you know if
HTML::Mason can be used on Tripod?
Seriously, as I think I mentioned in my original post, I'm really a
newbie to Perl. I looked at the Perl FAQ at perl.com, but that was
rather over my head. I think what I could use is a tutorial that
answers even simple questions like, "What is the point of a hash,
anyway?" (At least I understand the difference between a scalar and an
array. I was able to program my TI 99/4A in BASIC back in the mid-80s,
so I think I *should* be bright enough to be able to learn Perl. Part
of the problem is that I haven't been able to find a good on-line
tutorial anyplace. Everything is either *way* too advanced, or only
gives a little bit of very basic information and then stops. Are there
good tutorials out there for people like me?)
I don't think I want to do anything terribly complicated with my
web-pages. At least, there's not a whole lot that I want to do using
Perl. All I really want is to create some web-pages that use the same
variables over and over (eg. Davenport's current number of victories or
her current ranking), and put the values of those variables in a
different place. It'll also make things much easier for me when I go to
create the pages of ranking tables, where you can find, for instance,
the Top 20 players under my ranking system. If, as an example, I can
have a couple of lines that go something like:
@rank1=@hingis;
@rank2=@davenport;
etc., I can set up my ranking tables with lines like:
print "$rank1[1] <br>";
print "$rank2[1] <br>";
and so on, never having to edit the rankings pages again. (Currently,
I'm using cut and paste from my spreadsheet to do this.) I've got a
page which prints everybody's ranking in alphabetical order, and this
may be more complicated, but other than these ranking pages and the
pages with the players' matches, there's not a whole lot I want to do
with Perl at this point. To repeat from my original post, right now,
since I have to wait for players' rankings to become finalized, I can't
update most players' pages until the weekend. If I use a Perl script
which keeps that part of the page constant, I can update the tables with
the matches and tournaments separately, and can do that over the course
of the week as players lose in a given tournament.
As I was thinking about it last night, I had an idea of what to do. If
I were to use the text editor of my HTML pages to type out:
<table border="0">
<tr><td>
and so on, the result should be that my web-page prints out the source
code instead of an actual HTML table when one types in the URL. If I
were to use a Perl script to get this, would the resulting Perl program
print out an HTML table? Also, if it does, would I have to print a \
before each of the " marks in the table border? (As I said, I'm really
looking for a simple way of doing this. I can imagine the experienced
programmers on this NG cringing right about now....)
--
--Ted I have always challenged the "psychoses." Why
don't
fedya@banet.net you have a right to say you are Jesus? And why
isn't
the proper response to that congratulations?"
Thomas Szasz, "Reason" Magazine, July 2000
------------------------------
Date: Sat, 08 Jul 2000 12:51:49 -0500
From: Nnickee <nnickee@nnickee.com>
Subject: Re: Help with converting part of a page to CGI
Message-Id: <0B0AFB6536459829.7327F208F48AAC9C.D8DACC0F487634BD@lp.airnews.net>
[ posted and cc'd ]
On Sat, 08 Jul 2000 09:59:22 -0400, someone claiming to be Ted
<fedya@banet.net> said:
>Seriously, as I think I mentioned in my original post, I'm really a
>newbie to Perl. I looked at the Perl FAQ at perl.com, but that was
>rather over my head. I think what I could use is a tutorial that
>answers even simple questions like, "What is the point of a hash,
>anyway?"
Did you check out any of the tutorials listed at
http://www.perl.com/reference/query.cgi?tutorials ?
> (At least I understand the difference between a scalar and an
>array. I was able to program my TI 99/4A in BASIC back in the mid-80s,
>so I think I *should* be bright enough to be able to learn Perl.
You've done more than I had before I started learning Perl, and I'm
managing to learn it :) Once you get the basic concepts down, Perl is
incredibly user friendly.
>Part
>of the problem is that I haven't been able to find a good on-line
>tutorial anyplace. Everything is either *way* too advanced, or only
>gives a little bit of very basic information and then stops. Are there
>good tutorials out there for people like me?)
I'd really recommend a book - "Learning Perl", for instance. Start at
the beginning and work your way through it. It sounds like you're
doing what I did, which is to just jump in with both feet without
having any idea just how deep the water is. I started out modifying
other people's scripts that I downloaded, which was seriously
frustrating, to say the least. I didn't have any understanding of
Perl at the time, so I had no way of knowing if the code I was
studying and trying to modify was good code, great code, or seriously
flawed code. It's now taking me longer to go back and unlearn the bad
habits than it would have taken me to learn the proper ways of writing
Perl code from scratch.
>I don't think I want to do anything terribly complicated with my
>web-pages. At least, there's not a whole lot that I want to do using
>Perl. All I really want is to create some web-pages that use the same
>variables over and over (eg. Davenport's current number of victories or
>her current ranking), and put the values of those variables in a
>different place.
Absolutely possible, and very easy once you know what you're doing.
You could store your values in a db or in a flat text file.
<snip>
>As I was thinking about it last night, I had an idea of what to do. If
>I were to use the text editor of my HTML pages to type out:
><table border="0">
><tr><td>
>and so on, the result should be that my web-page prints out the source
>code instead of an actual HTML table when one types in the URL. If I
>were to use a Perl script to get this, would the resulting Perl program
>print out an HTML table?
If you code your script to print < ... > then the resulting
.html will print out the source, exactly the same as when you typed
< ... > into your text editor. If you want your script to write
a marked up html page, then you have it print <table border=0> etc.
>Also, if it does, would I have to print a \
>before each of the " marks in the table border? (As I said, I'm really
>looking for a simple way of doing this. I can imagine the experienced
>programmers on this NG cringing right about now....)
Use a HERE document.
Compare:
print "<html>\n";
print "<head><title>Nifty Title</title></head>\n";
print "<body bgcolor=\"#ffffff\" text=\"#000000\" link=\"#0000ff\"
vlink=\"#800080\" alink=\"#ff0000\">\n";
print "<p>blah blah blah\n";
print "</body>\n";
print "</html>\n";
with:
print <<"END_HERE";
<html>
<head><title>Nifty Title</title></head>
<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#800080"
alink="#ff0000">
<p>blah blah blah
</body>
</html>
END_HERE
In a HERE document, you:
don't surround your print lines with "
don't start your print lines with print
don't need \n's
don't end them with ;
and best of all, you don't need to backwhack "s inside the lines
HTH a bit, and keep at it. You'll be glad you did :)
Nnickee
------------------------------
Date: Sun, 09 Jul 2000 21:52:45 -0400
From: Ted <fedya@banet.net>
Subject: Re: Help with converting part of a page to CGI
Message-Id: <39692C6D.BABB3C3E@banet.net>
Nnickee wrote:
> [ posted and cc'd ]
>
> On Sat, 08 Jul 2000 09:59:22 -0400, someone claiming to be Ted
> <fedya@banet.net> said:
>
> >Seriously, as I think I mentioned in my original post, I'm really a
> >newbie to Perl. I looked at the Perl FAQ at perl.com, but that was
> >rather over my head. I think what I could use is a tutorial that
> >answers even simple questions like, "What is the point of a hash,
> >anyway?"
>
> Did you check out any of the tutorials listed at
> http://www.perl.com/reference/query.cgi?tutorials ?
Thanks for the advice. I hadn't seen that particular part of perl.com -- I
only saw the perlfaq, which is rather advanced. "Robert's Perl Tutorial"
looks as though it's going to be rather helpful....
> >As I was thinking about it last night, I had an idea of what to do. If
> >I were to use the text editor of my HTML pages to type out:
>
> ><table border="0">
> ><tr><td>
>
> >and so on, the result should be that my web-page prints out the source
> >code instead of an actual HTML table when one types in the URL. If I
> >were to use a Perl script to get this, would the resulting Perl program
> >print out an HTML table?
>
> If you code your script to print < ... > then the resulting
> .html will print out the source, exactly the same as when you typed
> < ... > into your text editor. If you want your script to write
> a marked up html page, then you have it print <table border=0> etc.
I think you're mis-understanding what I want to do. If you go back to my
original post on the subject (posted from Remarq and under the name
Tedstennis), you can see what I want to do, but I'll repost the basic gist
of it:
I've got a bunch of pages like the following:
http://www.geocities.com/Colosseum/Goal/8588/players/davenport.html
which I would like to use a Perl script to help create *in part*. The parts
with the statistics (ie. everything above the line full of underlining and
below the line of dashes) I want in a Perl script so that I don't have to
modify it. The part in between I want in a separate file since I have to
update that every week and upload a whole host of them (currently 56 but if
I can learn Perl I'll probably increase that number substantially). I'm
currently using Netscape composer to upload the entire folder of players'
pages via ftp, which is why I was asking how I could do it with an HTML
file. Perhaps I should ask a slightly different question:
If I can find an FTP utility that can easily send an entire folder of text
files to the same place at one time (no, I don't know how to make the MS-DOS
ftp thing do it!), could I simply write the HTML code for the middle part of
the page in a text file, and use more or less the following code to insert
the text file into the script:
open (FHANDLE) /tables/davenport.txt;
while (FHANDLE);
print;
?
Also, would I need to use a HERE document to do it?
Note that because I'm using Tripod, I can't really upload the scripts via
ftp -- they won't let you, and besides, I don't want to worry about
chmodding the damn things! Tripod does offer a downloadable FTP utility,
but doesn't have much detailed information on its site about what the thing
can do.
--Ted I have always challenged the "psychoses." Why don't
fedya@banet.net you have a right to say you are Jesus? And why isn't
the proper response to that congratulations?"
Thomas Szasz, "Reason" Magazine, July 2000
------------------------------
Date: Sun, 9 Jul 2000 21:54:19 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Help with converting part of a page to CGI
Message-Id: <slrn8mib6b.sio.tadmc@magna.metronet.com>
On Sun, 09 Jul 2000 21:52:45 -0400, Ted <fedya@banet.net> wrote:
>
>
>Nnickee wrote:
>
>> [ posted and cc'd ]
>>
>> On Sat, 08 Jul 2000 09:59:22 -0400, someone claiming to be Ted
>> <fedya@banet.net> said:
>>
[ snip ]
>you can see what I want to do, but I'll repost the basic gist
>of it:
>
>I've got a bunch of pages like the following:
>
>http://www.geocities.com/Colosseum/Goal/8588/players/davenport.html
>
>which I would like to use a Perl script to help create *in part*.
>could I simply write the HTML code for the middle part of
>the page in a text file, and use more or less the following code to insert
>the text file into the script:
Yes (provided the code below is converted from whatever language
it is in into Perl).
>open (FHANDLE) /tables/davenport.txt;
^
^ the end of open()'s argument list
You should always check the return value from open() too:
open(FHANDLE, '/tables/davenport.txt') ||
die could not open '/tables/davenport.txt' $!";
>while (FHANDLE);
while (<FHANDLE>);
>print;
>
>?
That will work. Whatever perl writes to STDOUT is what the
browser gets. You can orchestrate input from as many different
sources as you want in your (Perl) CGI program.
>Also, would I need to use a HERE document to do it?
^^^^
You _never_ *need* here-docs.
They are merely another form of quoting.
Anywhere you can use other forms of quoting ( '', "", q//, qq//, ...)
you can instead use a here-doc.
Anywhere you can use a here-doc, you can instead use another form
of quoting.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 10 Jul 2000 11:53:34 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Help with converting part of a page to CGI
Message-Id: <3969b75c.158019@news.skynet.be>
Tedstennis wrote:
>I'm new to CGI, and am right now just at the beginning of
>converting a bunch of my web-pages to CGI to make my life easier
>(supposedly!).
Perhaps what you want is a template mechanism.
A relatively simple one, and possibly good enough for your use
(sophisticated enough for most of your needs, and hopefully also fast
enough, as it is in plain Perl), is HTML::Template. See CPAN:
<http://search.cpan.org/search?dist=HTML-Template>
--
Bart.
------------------------------
Date: Fri, 07 Jul 2000 21:22:10 GMT
From: genadi@my-deja.com
Subject: Help with database.
Message-Id: <8k5hll$7dl$1@nnrp1.deja.com>
Hi!
If anybody knows how to write japanese or any extended ASCII characters
into a database.
I'm using "use DBI ':sql_types';" and when I insert into database
japanese characters I get ?????? instead of letters.
Is there special module or database I can use?
Thanks.
Genadi.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 8 Jul 2000 13:38:32 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Help with database.
Message-Id: <8k77c8$f2f$1@orpheus.gellyfish.com>
On Fri, 07 Jul 2000 21:22:10 GMT genadi@my-deja.com wrote:
> Hi!
> If anybody knows how to write japanese or any extended ASCII characters
> into a database.
> I'm using "use DBI ':sql_types';" and when I insert into database
> japanese characters I get ?????? instead of letters.
> Is there special module or database I can use?
It might be that it is your display that is outputing the '?'s - what does
it like if you save it to a file and look at it in something like 'od' ?
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Mon, 03 Jul 2000 20:11:21 GMT
From: arran_isme@my-deja.com
Subject: Help with Expect for ftp etc
Message-Id: <8jqs1a$4bt$1@nnrp2.deja.com>
Hi all,
Now I would normally use NET::FTP to script my
ftp jobs but I am currently testing some software
that requires a special client. Im trying to use
Expect.pm to do this but am running into some
problems. Ive searched the newsgroups and re-read
thru the expect.pm perldoc a few times to no
avail.
The problem seems to occur when I send the
password (and Im wondering if its because echo is
removed or something).
my script basically is thus:
$ftp = Expect->spawn("ftpclient ftphost");
$ftp->debug(1);
$ftp->expect(4,"User name");
print $ftp ("my_username\n");
$ftp->expect(4,"Password:");
$ftp->manual_stty();
print $ftp ("mypassword\n");
$ftp->expect(10,"logged in."); <--- crap out here
print $ftp ("put testfile");
print $ftp ("quit");
$ftp->expect(10,"bye");
the prompts are correct for the ftpclient and
with the debugging level set I see it all
connect, provide the username and provide the
password. At this point however it seems that
the expect starts reading in the password rather
than any response from the client.
from the docs the expect_stty (which I think is
supposed to be exp_stty) hasnt helped either.
Setting spawn id(3) to tty mode 'raw'
spawn id(3) is not a tty.
<====occurs after printing the log
Beginning expect from spawn id(3).
Accumulator: ' '
Expect timeout time: 10 seconds.
expect: Pty=spawn id(3), time=962590937,
loop_time=10
expect: handle spawn id(3) ready.
mypassword
Returning from expect unsuccessfully. Error:
1:TIMEOUT.
Accumulator: ' mypassword\r\n'
does anyone have any suggestions or can point me
to or provide an example of an expect script that
does something similar?
I got the script working up to the password part
in about 30 mins, but have been sitting their for
the last few hours not making any progress.
prefer email response if possible.
thanks
Arran
arranp@datamail.co.nz
my opions my own.. yadda yadda yadda
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 10 Jul 2000 15:07:43 GMT
From: my_deja_v@my-deja.com
Subject: Help with file concatination
Message-Id: <8kcori$o0j$1@nnrp1.deja.com>
I have a flat file which I read into an array and then using some logic
I want to concatinate some files.
I can't find anything comparable in Perl to the unix cat command.
These files are father big and I don't want to read them and then write
them...
Thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 10 Jul 2000 11:25:01 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Help with file concatination
Message-Id: <3969EACD.E2801EC9@attglobal.net>
my_deja_v@my-deja.com wrote:
>
> I have a flat file which I read into an array and then using some logic
> I want to concatinate some files.
>
> I can't find anything comparable in Perl to the unix cat command.
> These files are father big and I don't want to read them and then write
> them...
>
Father big? heh.
open SOMEFILE, "</path/to/file" or die "Can't read file: $!";
open OTHERFILE, ">>/path/to/file" or die "Can't append to file: $!";
while (<SOMEFILE>)
{
print OTHERFILE $_;
}
Just like shell redirection... > writes, >> appends.
Joining two strings uses either the join() function or the dot (.)
operator. Or some ohter fancy ways, but for now, "." is the easiest.
Read the perlop documentation for ways of using . and = (assignment)
to concat strings.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 3567
**************************************
