[7968] in Perl-Users-Digest
Perl-Users Digest, Issue: 1593 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 7 04:07:42 1998
Date: Wed, 7 Jan 98 01:00:36 -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 Wed, 7 Jan 1998 Volume: 8 Number: 1593
Today's topics:
ActiveState PerlScript on Win95 <r_keuchel@smaug.netwave.de>
Re: Advanced Perl Programming book <joseph@5sigma.com>
Re: Capturing STDERR on NT <seidel@bigfoot.com>
Re: Find two strings in a file <joseph@5sigma.com>
Re: form+mail : script (Martien Verbruggen)
Re: Help im stuck <dj@reitz-adams.org.REMOVEME>
Re: Help on C++ extension (Martien Verbruggen)
Re: I'm new and apparently I suck, help me please. (Martien Verbruggen)
Re: newbie question <joseph@5sigma.com>
Re: newbie question (M.J.T. Guy)
Re: newbie question: install perl on solaris 2.5.1 <selz@wise.wiwi.tu-dresden.de>
Re: ok what am I doing wrong? <joseph@5sigma.com>
Re: ok what am I doing wrong? <joseph@5sigma.com>
Perl OLE Server? <r_keuchel@smaug.netwave.de>
Re: PERL: How do I overwrite output? robm@transmeta.com
posting urlencoded data with one line (Chris Johnston)
Re: require not working (Martien Verbruggen)
Re: Review of CGI/Perl book <joseph@5sigma.com>
Re: sending email (Net::SMTP).. problem <spam@spam.spam>
Re: sending email (Net::SMTP).. problem <*@qz.to>
Re: Sinking STDOUT and STDERR <joseph@5sigma.com>
Re: sockets <joseph@5sigma.com>
Re: Storing A Text File Into A Variable -- How?? (Tony K. Olsen)
Re: strangest Q you've seen regarding storing entire bi <rjc@liddell.cstr.ed.ac.uk>
Re: Using perl to validate links (Martin Vorlaender)
Win32 and Manip.pm, can it work...? <michaelc@super.zippo.com>
Re: Would yo explain the Perl "pack" command to me? <joseph@5sigma.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 07 Jan 1998 08:27:08 -0800
From: Rainer Keuchel <r_keuchel@smaug.netwave.de>
Subject: ActiveState PerlScript on Win95
Message-Id: <wkg1n0jllv.fsf@smaug.netwave.de>
I cannot run the IE3.0 examples on a Win95 machine. What can be
wrong? I installed build 315. There does not seem to exist much
information on perlscript. Can it only run on NT?
--
Rainer Keuchel
------------------------------
Date: Wed, 07 Jan 1998 00:12:39 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Advanced Perl Programming book
Message-Id: <34B32AE7.FCD3088@5sigma.com>
It seems reasonably good (that's pretty high praise on
my meter).
Of course, I also have an intermediate to advanced Perl book
hitting the shelves. Hope you'll take a look at it too.
Buy both! :-)
-joseph
http://www.effectiveperl.com
Thomas Charron wrote:
>
> Definatly am enjoying it..
>
> Allen Choy wrote in message <349848E6.E0D54461@us.oracle.com>...
> >Hi.
> >
> >Does anyone have any opinions, good and bad, re: the Advanced Perl
> >Programming book?
> >I'm considering purchasing it, but don't know much about it.
------------------------------
Date: Tue, 6 Jan 1998 21:34:21 -0500
From: "David & kathleen Seidel" <seidel@bigfoot.com>
Subject: Re: Capturing STDERR on NT
Message-Id: <68upjp$9fd$1@news.monad.net>
If you use the 4DOS/4NT shell, you can use ">&>logfile", whether you're
using a batch file or running Perl directly.
Stephen Warren wrote in message <68rvm7$sco$1@news.eclipse.net>...
>>I am having a hard time capturing STDERR on NT 4.0. Has anyone found a
>way
>>to do this with Perl?
>
>Well, I've been told (and verified) that the following works for batch
>files:
>
>file.bat > logfile 2>&1
>
>Will send all stderr and stdout to logfile.
>
>However, I tried this out with "perl file.pl > logfile 2>&1" and the file
>gets created, but no output gets written there - it's as though the Perl
>startup routines always overwrite the stdout/stderr file descriptors or
>something (not that the output gets sent to the console either...)
>
>--
>-----------------------------------------------------------------
>Stephen Warren, Systems Engineer, Technology House Inc., New York
>mailto:swarren@techhouse.com http://www.techhouse.com/
>mailto:swarren@eclipse.net http://www.eclipse.net/~swarren/
> MIME, S/MIME and HTML mail are acceptable
>
>
>Todd O'Connor wrote in message ...
>>
>>I am having a hard time capturing STDERR on NT 4.0. Has anyone found a
>way
>>to do this with Perl? I have a test that produces a lot of output and
>want
>>to capture all STDOUT and STDERR to a logfile for reviewing. There is the
>>chance that STDERR could scroll off the screen and I wouldn't know it.
>>
>>
>>Thanks,
>>Todd
>>toconnor@adobe.com
>
------------------------------
Date: Tue, 06 Jan 1998 19:46:16 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Find two strings in a file
Message-Id: <34B2EC63.254C8B8A@5sigma.com>
while (<>) {
exit if ($s1 ||= /string 1/) & ($s2 ||= /string 2/);
}
print "not found\n";
No, that single & isn't a typo.
-joseph
http://www.effectiveperl.com
boggiano@venus.it wrote:
>
> Hi all,
> i must write a program for matching 2 strings (AND)
------------------------------
Date: 5 Jan 1998 23:52:35 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: form+mail : script
Message-Id: <68rro3$1b9$3@comdyn.comdyn.com.au>
In article <01bd19e7$b1f1de40$ec6b9ec2@clubinternet.club-internet.fr>,
<affix@usa.net> writes:
> hi,
> I need to find a simple PERL script that is used to send form mails,
> without any external pogram, (like blat!)
> This is for a NT server
> TQ
Look at the Net::SMTP module on CPAN.
http://www.perl.com/CPAN/modules/00modlist.long.html
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Inside every anarchy lurks an old boy
Commercial Dynamics Pty. Ltd. | network - Mitchell Kapor
NSW, Australia |
------------------------------
Date: Tue, 6 Jan 1998 22:57:58 -0000
From: "DJ Adams" <dj@reitz-adams.org.REMOVEME>
Subject: Re: Help im stuck
Message-Id: <68v9cu$edg$1@alpha.ftech.net>
>()Hello I am a first year student and studying perl.
Gosh, I used to think I was born too late, but perhaps it was too early.
What a life! ;-)
DJ Adams
Co-founder/owner SAP-R3-L
------------------------------
Date: 7 Jan 1998 05:52:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Help on C++ extension
Message-Id: <68v56f$atf$1@comdyn.comdyn.com.au>
In article <34B2E197.755D@internetmci.com>,
Chuyu Xiong <cxiong@internetMCI.com> writes:
> I just posted this to comp.lang.perl. I forgot comp.lang.perl.misc.
> So, here goes.
comp.lang.perl is long dead. If your news server is still carrying it,
please inform your news admin that it should be removed.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Very funny Scotty, now beam down my
Commercial Dynamics Pty. Ltd. | clothes.
NSW, Australia |
------------------------------
Date: 5 Jan 1998 23:43:20 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: I'm new and apparently I suck, help me please.
Message-Id: <68rr6o$1b9$2@comdyn.comdyn.com.au>
In article <34b33604.213883017@news.primenet.com>,
that1guy@primenet.com (S.B.) writes:
> Oh... the system is BSD/OD running Apache
>
Was it really necessary to include the whole text of the original
message again, just to make this statement?
> On 5 Jan 1998 12:33:00 -0700, that1guy@primenet.com (S.B.) wrote:
>>I get a server error and have checked the logs, the error is:
>>Premature end of script.
What does perl tell you if you run it from the command line with
perl -wc?
>>I am using cgi-lib.pl to parse the incoming data. Here's what I have.
You really should consider using CGI.pm. It's more robust, can do more
things, and above all: it is still supported and even comes with perl.
(I do suppose that you're running the latest possible version of perl?
If not, upgrade.)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm desperately trying to figure out
Commercial Dynamics Pty. Ltd. | why kamikaze pilots wore helmets - Dave
NSW, Australia | Edison
------------------------------
Date: Wed, 07 Jan 1998 00:23:49 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: newbie question
Message-Id: <34B32D85.7D6B6D72@5sigma.com>
Try using IO::File or FileHandle. Type 'perldoc IO::File' or look for
the corresponding HTML documetation.
-joseph
Bela Garzo wrote:
>
> Hi,
>
> Could anybody help how to fix this code?
> I really need to store filehandle in a hash.
------------------------------
Date: 7 Jan 1998 08:27:25 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: newbie question
Message-Id: <68ve9d$2gd$1@lyra.csx.cam.ac.uk>
In article <5lit86.h91.ln@localhost>, Tad McClellan <tadmc@metronet.com> wrote:
>Bela Garzo (gand@vtsoft.hu) wrote:
>
>: Could anybody help how to fix this code?
>: I really need to store filehandle in a hash.
>
>
>This is a Frequently Asked Question (part 5):
>
> "How can I make a filehandle local to a subroutine?
> How do I pass filehandles between subroutines?
> How do I make an array of filehandles?"
To be fair to Bela, that FAQ doesn't actually answer his problem.
The problem is with the line
while ( <$fd{'in'}> ) {
and the restriction that inside <> you must have either a bareword or
a simple scalar variable _only_. Otherwise it's parsed as a file glob.
So the fixes are either copy the filehandle to a simple scalar, or
use readline() in place of <>.
The above restriction does appear in the documentation, but it's hardly
very prominent or very explicit. From perlop:
If the string inside angle brackets is not a filehandle or a
scalar variable containing a filehandle name or reference,
then it is interpreted as a filename pattern to be globbed,
and either a list of filenames or the next filename in the
list is returned, depending on context.
There are other places in the documentation where the phrase
"scalar variable" encompasses things like $fd{'in'}.
And -w doesn't help in this case either. :-(
Mike Guy
------------------------------
Date: Wed, 07 Jan 1998 09:31:31 +0100
From: Achim Selz <selz@wise.wiwi.tu-dresden.de>
To: joseph@5sigma.com
Subject: Re: newbie question: install perl on solaris 2.5.1
Message-Id: <34B33D63.10F8F0AE@wise.wiwi.tu-dresden.de>
Joseph N. Hall schrieb:
>
> It hangs, there, right? It's not waiting for you to press
> enter???
>
> -joseph
>
I do press enter at the prompt for solaris_2, and then nothing else
happens - even after several minutes still nothing has happened :-(
Achim
------------------------------
Date: Wed, 07 Jan 1998 00:20:29 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: ok what am I doing wrong?
Message-Id: <34B32CBD.1BB6FF55@5sigma.com>
It looks very reasonable to me. In fact I just ran it and it
seems to be working (changing the directory name of course).
Care to tell us which version of Perl, what O/S, etc.?
-joseph
http://www.effectiveperl.com
Ted Fiedler wrote:
>
> ok why does this return 2 dirs and 1 file?? [...]y
------------------------------
Date: Wed, 07 Jan 1998 00:22:11 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: ok what am I doing wrong?
Message-Id: <34B32D22.6C716376@5sigma.com>
Could you please brush up on your Perl before your next posting.
-joseph
Cliff High wrote:
>
> It is not wise programming practice in any language to give the
> compiler/interpreter variable name ambiguity with which to cope. You create an
> array (list) variable by the name of @name. Which within accepted perl
> practice could yield single scalular values by instructing it to return those
> as in:
>
> $single_filename = $name(1);
> WHat we are doing is to instruct perl that we want the data from the array at
> that position which we wish to see as a scalular value ($) rather than a list
> (@).
>
> Only you already have $name assigned.
------------------------------
Date: 07 Jan 1998 08:33:18 -0800
From: Rainer Keuchel <r_keuchel@smaug.netwave.de>
Subject: Perl OLE Server?
Message-Id: <wken2kjlbl.fsf@smaug.netwave.de>
Is there anything like a Perl OLE Server? It would be nice to call
Perl from Developer Studio. Maybe I would try to write such a thing...
--
Rainer Keuchel
------------------------------
Date: Wed, 07 Jan 1998 02:31:36 -0600
From: robm@transmeta.com
Subject: Re: PERL: How do I overwrite output?
Message-Id: <884161263.1105395715@dejanews.com>
In article <Pine.BSI.3.96.980104184409.21690A-100000@bermuda.io.com>,
Chocolate <poohba@io.com> wrote:
>
> Is it possible to overwrite the output with the new output? Like if I
> wanted to do a count down can I have it so that it starts with 10 and then
> the 9 replaces the ten instead of going next to it or below it. Is this
> possible?
How about something like the following, assuming you are writing to an
ASCII terminal type device. I ran this on an Xterm and it did alright.
#!/usr/local/bin/perl -w
*back_space = \8; # 8 is the ASCII character for Back Space
$| = 1; # Turn autoflushing on.
$countdown = 10; # Set your countdown
printf("Countdown: %2d", $countdown);
sleep(1); # Wait for 10.
while($countdown >= 0) {
print chr($back_space) x 2; # Erase the old number
printf("%2d", --$countdown); # Update and print the new number
sleep(1); # Pause for a sec.
}
print "\rBlastoff! \n\n"; # Write over all old stuff.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Wed, 07 Jan 1998 06:22:28 GMT
From: erudite@cyberhighway.net (Chris Johnston)
Subject: posting urlencoded data with one line
Message-Id: <34b31d2e.962508@news.cyberhighway.net>
Hi, although this application is with C++ I thought you people would
know much more on this subject. Any way, in this app it involves
posting data through a single line, instead of going to the page and
typing it in myself.
For example, if there is a text area and a text box how can you get
that in a "http://www" type of format and posting it that way. This is
somewhat of a last resort so any replies will be greatly appreciated.
Thank you, Chris.
------------------------------
Date: 5 Jan 1998 23:39:18 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: require not working
Message-Id: <68rqv6$1b9$1@comdyn.comdyn.com.au>
In article <68r9qu$9ut@catapult.gatech.edu>,
gt2863a@acmey.gatech.edu (Mark) writes:
> Okay I am hitting a NT server and the script is "not working" in the
> fact that it simply returns "Document contains no data"
Ah, ok, so it is a CGI problem. The script does not return 'Document
contains no data'. Your browsers pops up a box with that text, but it
is not an error from the script. Most likely you are not outputting
the correct headers. You could also try checking your servers log
files to see if there are any messages in there.
Check out the helpful pages at
http://www.perl.com/CPAN/doc/FAQs/cgi/perl-cgi-faq.html
http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
They will tell you exactly how to test and run your CGI. If you are
satisfied that you have eliminated all HTTP/HTML/CGI related problems
from your program, and are still having problems, please ask again.
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: Tue, 06 Jan 1998 19:32:28 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Review of CGI/Perl book
Message-Id: <34B2E927.685F808F@5sigma.com>
We don't teach a lot of Perl 5 features in our introductory class,
per se, but it's nice to be able to dispense with all those
doggone parentheses. There are other niceties for newbies, too,
like 'and' and 'or'. A zillion minor things that make life easier
in addition to major (and more difficult) additions like references.
-joseph
Craig Patchett wrote:
> I should reiterate that by Perl 4 I am referring to the intersection of
> the features of Perl 4 and Perl 5, not necessarily Perl 4 as a standalone
> package (although as someone else points out, there are still plenty of
> Perl 4 installations around).
------------------------------
Date: Wed, 07 Jan 1998 02:28:17 +0000
From: catty <spam@spam.spam>
Subject: Re: sending email (Net::SMTP).. problem
Message-Id: <34B2E841.4D5F0C75@spam.spam>
Jacqui Caren wrote:
> So, catty - unless your can explain just what you mean, please
> take your flame bait and ...
>
> A happy new year to all - except catty and other spam artists :-)
Flamer was your friend Graham. Try re-reading the thread.
My code works well, and no one has filtered my mail just because
it did not go through a relay site, as Graham wishes it would.
It is just a silly, retrograde opinion of his.
Email spammers usually relay and falsify headers, but they
cannot prevent the last "received" line from being accurate.
That isn't what I filter by; I filter those that have obviously
false header lines or lack the usual to/from/subject.
It is more convenient for me to send directly.
I like seeing the results immediately.
As a last resort my code would relay through my ISP,
but that hasn't happened yet. My code is not suited
to a mailing list because I rarely even cc anybody.
I follow the RFC, it works, I'm happy with it.
And no, I don't wish to reveal my email address on usenet,
because I hate spam and spammers. Also I hate flamers.
Shove your smiley.
------------------------------
Date: 7 Jan 1998 04:56:16 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: sending email (Net::SMTP).. problem
Message-Id: <qz$9801062327@qz.little-neck.ny.us>
Graham Barr <gbarr@ti.com> wrote:
> Eli the Bearded wrote:
> > Graham, in this thread, has recommended that people *not* use his
> > own SMTP module to send him mail because it does not add headers
> > he wants to see when filtering. catty's comment is misplaced, but
> > it is easy to find Graham's advice disingenuous.
> You really do have a problem reading don't you. Or maybe you
> just do not understand what you read. I did not tell anyone
> "*not* use his own SMTP module ... because it does not add headers"
>
> What I did say is that sending mail directly to the MX host for
> that address is a common techneque used by spammers, and so is
> also used in spam filters. At no time did I say not to use
> Net::SMTP, why would I ??
I tend to overreact to what I consider "stupid" mail filtering, so I am
sorry about that.
Here's what happened:
Catty posts some code to send mail by directly connecting to a machine.
I didn't look carefully at the code but you recommended against it for
reasons that had nothing to do with the code itself. I then went off and
got your Net::SMTP stuff and tried it out and noted it does not add a
Received: header. Since it is the lack of that header which you use to
filter, I confused this to read that you were recommending against
using Net:SMTP.
In a way I think something is broken, though, either your filtering or
your module. I should be able to use a perl module to connect to your
mail server and send you a piece of mail that you are not going to off
hand discard as spam.
I've been having thoughts of replacing sendmail on my box with a perl
smtpd. Near as I can tell none of your code in Net:: or Mail:: adds a
Received header, you seem to be counting on some non-perl code to do
that. So if I want to remove sendmail from the loop on my system, I
either have to rewrite your code for sending mail, or expect you to
ignore my mail. Probably it is just rather skeletal code that just
needs a header processing package between the perl script equivilent
of "sendmail -oi -t" and Net::SMTP, but it still seems wrong.
Elijah
------
considers a lack of Received: a sign of sending mail with telnet not spam-sign
------------------------------
Date: Wed, 07 Jan 1998 01:01:07 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Sinking STDOUT and STDERR
Message-Id: <34B33642.8484BE55@5sigma.com>
Selecting (with the select operator) a filehandle and then setting
$| to a non-zero value puts that filehandle in AUTOFLUSH mode. Each
time Perl writes to that filehandle it flushes it.
There is no precise equivalent to flush in Perl.
-joseph
http://www.effectiveperl.com
Mark Hattarki wrote:
In c++,
>
> there is a flush command that you can send to a file class, is there
>
> something similar for perl?
------------------------------
Date: Wed, 07 Jan 1998 00:13:56 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: sockets
Message-Id: <34B32B34.5C277B3E@5sigma.com>
It's there now.
-joseph
http://www.effectiveperl.com
Joseph N. Hall wrote:
>
> I'm going to post this Item from Effective Perl Programming on my
> web site, as well as a few more beyond what's there already. Also
> I'm going to update the PDF to correspond to the shipping book (the
> version there now was a few days pre-final). Check it out Monday-ish.
> It's not super thorough, but it runs!
------------------------------
Date: Wed, 7 Jan 1998 07:32:09 -0000
From: tkolsen@btinternet.com (Tony K. Olsen)
Subject: Re: Storing A Text File Into A Variable -- How??
Message-Id: <MPG.f1d3fd0499da248989683@news.btinternet.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <ebohlmanEME3D9.MI0@netcom.com>, ebohlman@netcom.com says...
> Tony K. Olsen <tkolsen@btinternet.com> wrote:
> : while (<IP>) {
> : print;
> : }
>
> : this works fine and displays it to the screen. What I would like
> : is something along these lines:
>
> : while (<IP>) {
> : chop;
> : $var = $_;
> : }
>
> : Then I could generate a perl file using the $var like such to
> : display the comments already written to the file:
>
>
> : <TEXTAREA NAME="textdata" ROWS=15 COLS=69>
> : $var
> : </TEXTAREA>
>
> You don't need to store the text in a variable if I understand you right,
> all you need to do is something like:
>
> print OUTFILE qq(<TEXTAREA NAME="textdata" ROWS=15 COLS=69>\n);
> while (<IP>) {
> print OUTFILE $_;
> }
> print OUTFILE qq(</TEXTAREA>\n);
>
> This assumes that OUTFILE is a handle that's previously been opened for
> output. If this is a CGI script, just take out OUTFILE since you want
> the output to go to STDOUT.
>
> Note the use of qq() to allow a \n in a string that contains embedded
> double-quotes, and the absence of a chop() on the lines read in from the
> file.
>
>
>
>
Eric,
Thanks for the feedback. Much appreciated.
Will attempt to use this information but it was not what I was
after. I need to have the output from a text file I have read stored
into a $var that will be used in a perl program to write out an HTML page
that will be input to a form processing perl program so as to store the
modified information.
e.g. read from two files (1 a database, the other a comments
file). The database information is stored in variables and would like to
store the comments as well in a variable. Then I can pass the
variables to a subroutine that can create an HTML page with the
information from the database already filled in. The user can then
modify whatever they see on the screen and send the modified information
back to another perl program which would store the updated information.
Cheers.
--
___
(_B_)__
~(@ @)~
+-oOOo-(_)-oOOo-------------------------------------------------+
| "I played before the greatest fans in baseball, the Boston |
| fans, and I know what you're going to say about that: Old |
| Teddy Ballgame loved those fans, all right." --- Ted Williams |
+----------------+----------------------------------------------+
| Tony K. Olsen | URL: http://www.btinternet.com/~tkolsen |
| Cheltenham, UK | Email: mailto:tkolsen@btinternet.com |
+----------------+----------------------------------------------+
------------------------------
Date: 07 Jan 1998 04:09:53 +0000
From: Richard Caley <rjc@liddell.cstr.ed.ac.uk>
Subject: Re: strangest Q you've seen regarding storing entire binary file as a hex dump in a varaible.
Message-Id: <eyhwwgczzzi.fsf@liddell.cstr.ed.ac.uk>
In article <lc67nymo2o.fsf@duncan.cs.utk.edu>, Myles Barrett Williams (mbw) writes:
mbw> Presently there is no way to include an image bodily in an HTML
mbw> document.
However, you can have one script deliver both the HTML page and the
image (in two separate requests from the browser) easily enough.
Have a look at
http://www.cogsci.ed.ac.uk/~rjc/cookie/
which is actually meant to be a demonstration of the cookies, but does
deliver both the HTML and the image (and indeed a whole tree of other
links).
[ As it happens the image is not in the perl source, it was moe
convinient to read it in from a file, but it could be put into the
perl easily enough.
]
--
rjc@cstr.ed.ac.uk _O_
|<
------------------------------
Date: Wed, 07 Jan 1998 05:53:39 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: Using perl to validate links
Message-Id: <34b30a53.524144494f47414741@radiogaga.harz.de>
nikkim@senate.leg.state.mn.us wrote:
: Is it possible to use Perl to check if HTML links on a page are active?
: I would like to add this capability to our website so users will not get
: a standard error message when a link is no longer valid and I can redirect
: them elsewhere.
Have a look at Randal Schwartz' WebTechniques column #14, at
http://www.stonehenge.com/~merlyn/WebTechniques/col14.html
for a tool that verifies links.
If your website runs on Apache (or something sufficiently similar),
look into the possibilities of the 'ErrorDocument' directive.
cu,
Martin
P.S.: Thanks, Randal, for these columns. They make a de- and enlightening
reading.
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: 7 Jan 1998 07:03:59 GMT
From: "Michael Carey" <michaelc@super.zippo.com>
Subject: Win32 and Manip.pm, can it work...?
Message-Id: <01bd1b39$15aa2580$4ca1fcce@dasystem.dagroup>
I need DateManip (or something that can do what it does) to work on win32
perl... Is it possible? I put manip.pm in c:\perl\lib, put "use manip" at
the top of the program I was writing and I coudn't make it work...
I sure don't wanna write date manipulation routines myself... HELP...!!!
-mikey
------------------------------
Date: Wed, 07 Jan 1998 00:25:06 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Would yo explain the Perl "pack" command to me?
Message-Id: <34B32DD2.5D32CB57@5sigma.com>
What exactly would you like to know about it?
-joseph
David wrote:
>
> Hi,
>
> The subject line says it all. I don't no exactly what the pack command
> does.
> I don't konw when it might be used. I don't understand what the
> templates are telling the program.
> I read the man page, but still I don't get it.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 1593
**************************************
