[11659] in Perl-Users-Digest
Perl-Users Digest, Issue: 5258 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 30 16:07:24 1999
Date: Tue, 30 Mar 99 13:00:21 -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 Tue, 30 Mar 1999 Volume: 8 Number: 5258
Today's topics:
Blank browser window <rob_aNO@SPAMunipharm.com>
Re: Can Anyone Help With a Layered Variable Substitutio <cantrela@agcs.com>
CGI Script (Solder182)
Re: changing to numeric month (John Stanley)
Re: changing to numeric month (Larry Rosler)
Re: changing to numeric month <uri@home.sysarch.com>
Confusion over 'use vars' (Daniel)
Re: Confusion over 'use vars' (Gregory Snow)
Downloading with perl CGI script (Christopher Parent)
Re: Downloading with perl CGI script (Bill Moseley)
Re: Downloading with perl CGI script (Christopher Parent)
foreach loop works, for loop not (David Efflandt)
Re: foreach loop works, for loop not <cantrela@agcs.com>
Re: FTP automation w/o module (I R A Aggie)
Re: Guestbook Blank Entry <droby@copyright.com>
how to find local system IP address in Perl <mtsprd@carol.net>
how to get rid off one key/value pair from an associate du_bing@my-dejanews.com
Re: how to get rid off one key/value pair from an assoc <Allan@due.net>
Re: how to get rid off one key/value pair from an assoc <jeromeo@atrieva.com>
Re: Including Perlscripts in SHTML (Server Side Include <jacks@cybersource.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 30 Mar 1999 11:04:10 -0800
From: "Rob Annandale" <rob_aNO@SPAMunipharm.com>
Subject: Blank browser window
Message-Id: <37011eb1$0$24936@fountain.mindlink.net>
Hello people,
I am experiencing a problem with the PERL script below.
#!/usr/local/bin/perl -w
$ENV{A_TERM} = 'vt100';
@args = ("runcbl", "-f", "thankyou.acu");
print "Content-type: text/html\n\n";
system(@args);
I receive a blank screen in my IE browser window when
'thankyou.acu' is supposed to be executed.
Haas anyone seen this problem before?
I have the following environment:
OS - SCO UNIX 5.04d
WEB SERVER - APACHE
_______________________________________
Robert Annandale
Please reply to this newsgroup.
Thanks!
------------------------------
Date: Tue, 30 Mar 1999 13:40:40 -0700
From: Andy Cantrell <cantrela@agcs.com>
To: nj2@soton.ac.uk
Subject: Re: Can Anyone Help With a Layered Variable Substitution Problem Please
Message-Id: <370136C8.36592BE7@agcs.com>
Neville Jennings wrote:
>
> Hi,
>
> I am trying to do the following in perl on a Unix platform;
> (simplified to the relevant details - I hope)
>
> perl program snippet
> $value_expireday = "3";
> while ($line = <INFILE>) {
> $out = "${line}" ;
> print $out ;
> };
>
( paraphrased here)
... If string "VALUE=$value_expireday" is read in, how can I get
... this to print out using the internally defined variable?
... i.e. the print statement above will show: VALUE=3
This may not win me any programming awards, but I've found it
to work with simple variables. Example code:
$line = 'VALUE=$value_expireday';
$value_expireday = 3 ;
$out = eval (qq"qq/$line/")
print $out ;
This can be thought of in terms of composit functions:
qq/$line/ -> This returns: VALUE=$value_expireday
qq"qq/$line/" -> This returns: qq/VALUE=$value_expireday/
The outer qq is generating a command. Looking
at what set of delimieters is left over may
help describe what is going on.
eval(qq"qq/$line/") -> Finally we are just executing the qq command
that resultes from the above line.
I haven't tried this with hash's or arrays or references to such
variables. However I'd guess that if you paid close attention to
escaping the proper symbols, things would work.
--
Andy Cantrell
AG Communication Systems
E-Mail: cantrela@agcs.com
Office (AZ) (602) 582-7495 (Voice mail)
Office (WI) (414) 249-0215
Modem (WI) (414) 249-0239
------------------------------
Date: 30 Mar 1999 20:46:09 GMT
From: solder182@aol.com (Solder182)
Subject: CGI Script
Message-Id: <19990330154609.05199.00000266@ng-ch1.aol.com>
I am looking for someone that will, in there free time, install a script for me
or teach me how to do it. Please contact me Later
Digital Explorer
ICQ-5989580
AIM-DigitalEx1
http://members.tripod.com/nzhero/
"Knowledge Is Power"
------------------------------
Date: 30 Mar 1999 18:31:50 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: changing to numeric month
Message-Id: <7dr5am$14e$1@news.NERO.NET>
In article <37021c27.10918169@news.bmc.com>,
Christian M. Aranda <christianarandaOUT@OUTyahoo.com> wrote:
>I wrote a small function which changes the written month (Jan Feb Mar,
>etc.) to it's corresponding number (1 2 3, etc.). Here is the
>function:
>
>I am looking to improve this code because there must be a better way
>to do this (perhaps a foreach, but I'm not sure how to go about it).
>Commence the shredding!! All suggestions are appreciated!
When you think "I want to look something up by what it contains", think
"associative array".
$gmonth = "Dec";
%months = qw(Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul 6 Aug 7 Sep 8 Oct 9
Nov 10 Dec 11);
print "month number is " . $months{$gmonth} . "\n";
------------------------------
Date: Tue, 30 Mar 1999 10:33:33 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: changing to numeric month
Message-Id: <MPG.116ab8da6dede0a49897ee@nntp.hpl.hp.com>
In article <37021c27.10918169@news.bmc.com> on Tue, 30 Mar 1999 18:50:01
GMT, Christian M. Aranda <christianarandaOUT@OUTyahoo.com> says...
> I wrote a small function which changes the written month (Jan Feb Mar,
> etc.) to it's corresponding number (1 2 3, etc.). Here is the
> function:
>
> $gmonth = "Dec";
> @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
>
> for ($x = 0; $x < @months; $x++) {
> if ($gmonth eq $months[$x]) {
> $monthnum = $x + 1;
> last;
> }
> }
>
> print "month number is $monthnum\n";
>
> I am looking to improve this code because there must be a better way
> to do this (perhaps a foreach, but I'm not sure how to go about it).
Here is my favorite among many ways of doing this:
$monthnum = 1 +
index('JanFebMarAprMayJunJulAugSepOctNovDec', $gmonth)/3;
This reports 0.666666666666667 if $gmonth doesn't match, so some error
chacking might be in order. But your code doesn't do any either.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 30 Mar 1999 15:51:42 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: changing to numeric month
Message-Id: <x7r9q6wvj5.fsf@home.sysarch.com>
>>>>> "JS" == John Stanley <stanley@skyking.OCE.ORST.EDU> writes:
JS> In article <37021c27.10918169@news.bmc.com>,
JS> Christian M. Aranda <christianarandaOUT@OUTyahoo.com> wrote:
>> I wrote a small function which changes the written month (Jan Feb Mar,
>> etc.) to it's corresponding number (1 2 3, etc.). Here is the
>> function:
>>
>> I am looking to improve this code because there must be a better way
>> to do this (perhaps a foreach, but I'm not sure how to go about it).
>> Commence the shredding!! All suggestions are appreciated!
JS> When you think "I want to look something up by what it contains", think
JS> "associative array".
JS> $gmonth = "Dec";
JS> %months = qw(Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul 6 Aug 7 Sep 8 Oct 9
JS> Nov 10 Dec 11);
JS> print "month number is " . $months{$gmonth} . "\n";
ugly init!
hash slices to the rescue!
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@month2num{ @months } = 0 .. $#months ;
print "month number is " . $months{$gmonth} . "\n";
hth,
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Tue, 30 Mar 1999 18:21:17 GMT
From: daniel.mendyke@digital.com (Daniel)
Subject: Confusion over 'use vars'
Message-Id: <7dr4v2$714$1@nntpd.lkg.dec.com>
I'm unclear on how to use 'use vars' to
define constants in a sperate file.
Doesn't this package override the limitations
of defining a varible with the keyword 'my'?
Or is my understanding of 'use vars' incorrect?
In my example I'm expecting a '1' to be
printed. But nothing happens and I'm
unsure why.
Daniel
---------------------------
# File one.pl
package TOne;
use vars '$one';
my $one = 1;
--------------------------
# File run_one.pl
use strict;
use vars '$one';
require "one.pl";
package main;
print $one;
------------------------------
Date: 30 Mar 1999 19:39:14 GMT
From: snow@biostat.washington.edu (Gregory Snow)
Subject: Re: Confusion over 'use vars'
Message-Id: <7dr992$ume$1@nntp6.u.washington.edu>
I'm not a guru, but I'll take a stab at explaining this (It should
help me to see how well I understand everthing and give the gurus a
chance to correct me).
In article <7dr4v2$714$1@nntpd.lkg.dec.com>,
Daniel <daniel.mendyke@digital.com> wrote:
>
>I'm unclear on how to use 'use vars' to
>define constants in a sperate file.
>Doesn't this package override the limitations
>of defining a varible with the keyword 'my'?
>
>Or is my understanding of 'use vars' incorrect?
Yes, and I think that your understanding of namespaces is incorrect.
I think perldoc perlmod would help (possibly review perldata also).
>
>In my example I'm expecting a '1' to be
>printed. But nothing happens and I'm
>unsure why.
>
>Daniel
>
>---------------------------
># File one.pl
>
>package TOne;
here you have defined a namespace 'TOne'.
>use vars '$one';
You have just declared a package global within the TOne namespace, as
long as you are in this namespace and it is not hidden, you can acces
this variable as $one. It's full name is $TOne::one
>my $one = 1;
You have just declared a lexical variable named $one, it's scope is
until the end of the file (nothing outside of this file can acces it),
it hides the package global of the same name (though you can still
access the package global using the full name $TOne::one). This is
your first mistake. Then you assign one to the lexical variable, NOT
the package Global.
>
The file ends, the lexical goes out of scope, the 1 dissapears into
nothingness and the memory is reclaimed to be used for something else.
>--------------------------
># File run_one.pl
>
>use strict;
Good Idea, are you also running with -w ?
>
>use vars '$one';
You just declared another package global in the 'main' namespace, it's
full name is $main::one but as long as you are in the main package and
you don't hide it, you can call it $one. This is not the same
variable as $TOne::one.
>require "one.pl";
proccess the other file (the lexical is created, assigned to, and goes
out of scope (ceases to exist) before going on to the next line.
Also, since you did not import anything (see 'use', 'import', and
permod) there are not any variables "shared" between main and TOne.
>package main;
switch to package main (all globals have 'main::' prepended), this is
useless here as this is the default and the require does not change that.
>print $one;
this prints the value of $main::one, NOT $TOne::one or the lexical in
'one.pl', since you never assigned anything to it, it does not print
anything.
Try getting rid of the my, don't declare a new package global in
run_one.pl (get rid of the 2nd use vars), and import the variable from
TOne (or switch namespaces, or use the full name of the variable) and
it should do what you want.
Hope this helps
--
-------------------------------------------------------------------------------
Gregory L. Snow | The trouble with doing something right the
(Greg) | first time is that nobody appreciates how
snow@biostat.washington.edu | difficult it was.
------------------------------
Date: Tue, 30 Mar 1999 18:38:44 GMT
From: parenc@rpi.edu (Christopher Parent)
Subject: Downloading with perl CGI script
Message-Id: <370119a2.138913506@usenet.rpi.edu>
I have 2 simple questions.
First. How can I send a file to a client through a CGI script?
Second. I want to delete the file as soon as it's downloaded. How can
I acknowledge the file has been downloaded, and then delete it?
Thanks
Chris
------------------------------
Date: Tue, 30 Mar 1999 10:55:28 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: Downloading with perl CGI script
Message-Id: <MPG.116abdffb8a37dd2989700@206.184.139.132>
In article <370119a2.138913506@usenet.rpi.edu>, parenc@rpi.edu says...
> First. How can I send a file to a client through a CGI script?
You use a Content-Type: header to indicate to the browser what the type
of data you are sending, just like when you are downloading HTML.
For example:
print "Content-Type: x-text/comma-separated-values\n",
"Content-Disposition: attachment; filename=File.csv\n\n";
If in a Win32 environment, you might want to read up on binmode.
> Second. I want to delete the file as soon as it's downloaded. How can
> I acknowledge the file has been downloaded, and then delete it?
You can't know this. Maybe there's a Java solution?
You might post to a CGI group for better information.
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: Tue, 30 Mar 1999 20:44:25 GMT
From: parenc@rpi.edu (Christopher Parent)
Subject: Re: Downloading with perl CGI script
Message-Id: <3701377c.146556213@usenet.rpi.edu>
On Tue, 30 Mar 1999 10:55:28 -0800, moseley@best.com (Bill Moseley)
wrote:
>For example:
>
> print "Content-Type: x-text/comma-separated-values\n",
> "Content-Disposition: attachment; filename=File.csv\n\n";
>
What's in the comma-separated-values?
It's in a unix environment, so can I forget the binmode?
Chris
------------------------------
Date: 30 Mar 1999 19:15:43 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: foreach loop works, for loop not
Message-Id: <slrn7g28kk.fb.efflandt@efflandt.xnet.com>
Someone was trying to use a perl script I have to test if a bunch of
webservers were online. The subroutine works. The part giving trouble
was trying to iterate through a bunch of IP URL's with a 'for' loop. I
haven't figured out why the script hangs after the first iteration. I
even tried a different intermediate variable in case the $i was being
affected by its use in string context, but that did not work either.
Using a list with a 'foreach' instead works fine.
Following is just a brief example.
Anyone know why this hangs after the first iteration? Subroutine is being
executed once, but then something hangs and the second $url never prints:
for ($i=1; $i<=3; $i++) {
$url = 'http://192.168.1.' . $i;
print "$url\n";
&wwwtest($url);
)
The following works fine even with a longer list than this:
@list = (
'http://192.168.1.1',
'http://192.168.1.2',
'http://192.168.1.3',
);
foreach $url (@list) {
print "$url\n";
&wwwtest($url);
}
What is tripping up the 'for' loop? Or is my thinking turned around and
the appended variable needs to be quoted?
--
David Efflandt efflandt@xnet.com
http://www.xnet.com/~efflandt/
------------------------------
Date: Tue, 30 Mar 1999 13:10:34 -0700
From: Andy Cantrell <cantrela@agcs.com>
To: efflandt@xnet.com
Subject: Re: foreach loop works, for loop not
Message-Id: <37012FBA.B9BBA656@agcs.com>
David Efflandt wrote:
>
. . .
> Anyone know why this hangs after the first iteration? Subroutine is
> being executed once, but then something hangs and the second $url
> never prints:
>
> for ($i=1; $i<=3; $i++) {
> $url = 'http://192.168.1.' . $i;
> print "$url\n";
> &wwwtest($url);
> )
Check out the diff between the following:
sub ww {++$i;};
for ($i=1;$i<=3;$i++) { print "loop1>$i<\n"; &ww();};
for (my($i)=1;$i<=3;$i++) { print "loop1>$i<\n"; &ww();};
--
Andy Cantrell
AG Communication Systems
E-Mail: cantrela@agcs.com
Office (AZ) (602) 582-7495 (Voice mail)
Office (WI) (414) 249-0215
Modem (WI) (414) 249-0239
------------------------------
Date: 30 Mar 1999 17:53:24 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: FTP automation w/o module
Message-Id: <slrn7g24fd.9l3.fl_aggie@stat.fsu.edu>
On Tue, 30 Mar 1999 18:02:52 GMT, Christian M. Aranda
<christianarandaOUT@OUTyahoo.com> wrote:
+ I have the need to automate an ftp action (put/get some files),
+ however I can not use a module because of sysadmin reasons (I know
+ we've all run into this).
You mean the sysadmin doesn't want the Net::FTP module available? Ok,
his machine, his choice...
+ My current thought is to put the module (Net::FTP) source code in my
+ script. I have never attempted to do this before, so I don't know if
+ it will even work. I assume it would, since it's just perl code,
+ right?
Well, in theory, yes. I believe what you seek is 'perldoc perlfaq8',
specifically:
"How do I install a CPAN module?"
"How do I keep my own module/library directory?"
These may be of interest...
"How do I add the directory my program lives in to the module/library
search path?"
"How do I add a directory to my include path at runtime?"
James
------------------------------
Date: Tue, 30 Mar 1999 18:47:15 GMT
From: Don Roby <droby@copyright.com>
Subject: Re: Guestbook Blank Entry
Message-Id: <7dr67g$v10$1@nnrp1.dejanews.com>
In article <7dqgc0$b0s$1@nnrp1.dejanews.com>,
solidice@my-dejanews.com wrote:
> When I post to my guestbook, I get a blank entry on the return page. Since
> the guestbook uses multicolored <TABLES> to display data, it is kinda
> anonying. I'm not really sure, which variable in the visitorbook.pl, I should
> delete to remove this. Any ideas, would be appreciated.
It must be the variable assigned on line 17.
If that doesn't work then I guess there must be a bug in my use of the
Net::Psychic module.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 30 Mar 1999 15:22:29 -0500
From: "Ken Bauman" <mtsprd@carol.net>
Subject: how to find local system IP address in Perl
Message-Id: <922825471.502.45@news.remarQ.com>
This is probably only marginally a Perl question. How can you find your own
machine's IP address in a Perl script?
The closest things I have found are hostname() from Sys:Hostname and
gethostby*() from Socket, But I think these assume some kind of server
(host) is running on the system.
Thanks,
Ken Bauman
------------------------------
Date: Tue, 30 Mar 1999 17:58:41 GMT
From: du_bing@my-dejanews.com
Subject: how to get rid off one key/value pair from an associate array?
Message-Id: <7dr3cb$s9o$1@nnrp1.dejanews.com>
Hi,
Let's assume there is an array:
%array = (1,one,0,zero,2,two);
What's the best way to get rid off 0/zero from %array to make %array look like
this:
%array = (1,one,2,two);
Any idea would be appreciated.
Bing
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 30 Mar 1999 14:26:19 -0500
From: "Allan M. Due" <Allan@due.net>
Subject: Re: how to get rid off one key/value pair from an associate array?
Message-Id: <7dr7s7$83$1@camel25.mindspring.com>
du_bing@my-dejanews.com wrote in message
<7dr3cb$s9o$1@nnrp1.dejanews.com>...
:Hi,
:Let's assume there is an array:
:%array = (1,one,0,zero,2,two);
:What's the best way to get rid off 0/zero from %array to make %array look
like
:this:
:%array = (1,one,2,two);
:Any idea would be appreciated.
The documentation has a ton of great ideas <g>, you might want to check out
the delete function designed to do just what you ask.
from perlfunc:
"delete EXPR
Deletes the specified key(s) and their associated values from a hash. ..."
HTH
AmD
And I don't know how others feel, but to me naming a hash "array" is kind
of like naming your cat "dog" <g>.
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
'Out, out brief candle!
Life's but a walking shadow,
a poor player, that struts and frets his hour upon the stage,
And then is heard no more; It is a tale, told by an idiot,
full of sound and fury, signifying nothing'
- MacBeth
------------------------------
Date: Tue, 30 Mar 1999 12:00:10 -0800
From: Jerome O'Neil <jeromeo@atrieva.com>
Subject: Re: how to get rid off one key/value pair from an associate array?
Message-Id: <37012D4A.D188D608@atrieva.com>
Allan M. Due wrote:
> And I don't know how others feel, but to me naming a hash "array" is kind
> of like naming your cat "dog" <g>.
We had a cat named Deeohjee. He preferred to write PASCAL, so we had
him put to sleep.
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: Tue, 30 Mar 1999 12:30:07 -0800
From: Jack Schlotthauer <jacks@cybersource.com>
Subject: Re: Including Perlscripts in SHTML (Server Side Includes)
Message-Id: <3701344F.84B2A3EC@cybersource.com>
Why not use the SSI <!--#exec cgi="/cgi-bin/counter.pl"-->. et. al.
Cheers
Lars Plessmann wrote:
> I've got a problem in including Perl Scripts into a SHTML file.
> On windows 95 it works correctly, but on my Linux and on other UNIX
> Systems it doesn't work :-(
> That's my SHTML file (I saved it as "haupt.shtml"):
> ----------
> <!doctype html public "-//w3c//dtd html 4.0 transitional//en">
> <html>
> <head>
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1">
> <title>Testpage</title>
> </head>
> <body background="/graphik/backgd.jpg">
>
> <table COLS=3 WIDTH="100%" >
> <tr>
> <td WIDTH="50">
> <center><img SRC="/graphik/logo.gif" height=180 width=64
> align=ABSCENTER></center>
> </td>
>
> <p><font face="Arial,Helvetica" size=3>
> Sehr geehrter Kunde,
> <p>
> Wir freuen uns, Sie als <!--#include virtual="/cgi-bin/counter.pl"-->.
> Besucher auf unserer Seite begrüßen zu dürfen!
> Sie können von dieser Seite aus, die aktuellen Hard- und
> Softwareangebote abfragen und sogar gleich online bestellen.
> <p>
>
> <font size=4><u>Unser Angebot der Woche</u></font>
> <table cols=2 cellpadding=15 width="100%">
> <tr>
> <td><font face="Arial,Helvetica" size=4>
> <blockquote><B>
> <!--#include virtual="/cgi-bin/angebot.pl"-->
> </B></blockquote>
> </td>
> <td width=300><center>
> <img SRC="/graphik/computer.gif">
> </td>
> </tr>
> </table>
>
> Einen auf Ihren Bedarf angepassten PC stellen wir Ihnen gerne in
> unserem Fachgeschäft zusammen.
> Lassen Sie sich von uns beraten und betreuen. Sie werden von unseren
> Leistungen positiv überrascht sein.
> <p><font face="Arial,Helvetica" size=4><u>Preisliste für
> Einzelteile (erfragen Sie unsere Bundlepreise)</u></font>
> <p>
> <form action="/cgi-bin/preise.pl" name="Liste" method=get>
> <select name="Produkt">
> <option>Gehäuse
> <option>Mainboards
> <option>Prozessoren
> <option>Speichermodule
> <option>Festplatten IDE
> <option>Festplatten SCSI
> <option>CD-ROM + Writer
> <option>Grafikkarten
> <option>Soundkarten + Boxen
> <option>Tastaturen, Mäuse
> <option>Scanner
> <option selected>Drucker
> <option>Monitore
> <option>Internet (DFÜ)
> </select> <input type=submit
> value="Produktinformationen anzeigen...">
> </form>
> Unsere Rechner werden vollständig konfiguriert und Ihnen nach
> einer Vorführung übergeben. Sie brauchen Ihren PC zu Hause nur
> an die Stromversorgung anschließen und es kann losgehen.
> Selbstverständlich bieten wir PC-Schulungen in angenehmer
> Atmosphäre und mit individueller Betreuung für jeden einzelnen
> Kursteilnehmer an. Erfragen Sie unsere Termine.<br>
> Ihre Zufriedenheit ist unser Erfolg.<p>
> <font size=1>Preisgültigkeit <!--#include
> virtual="/cgi-bin/update.pl"-->, Irrtümer und Preisänderungen
> durch Tagespreise bei Arbeitsspeicher und Prozessoren
> vorbehalten.</font>
> <p>
> <p><font face="Arial,Helvetica" size=4><u>Unsere
> Öffnungszeiten</u></font>
> <p>
> <table cols=2>
> <tr><td width=125><font face="Arial,Helvetica" size=3>Mo., Mi. und
> Fr..</td><td><font face="Arial,Helvetica" size=3>9.00 - 13.00 + 15.00 -
> 19.00 Uhr</td></tr>
> <tr><td width=125><font face="Arial,Helvetica" size=3>Di. u.
> Do.</td><td><font face="Arial,Helvetica" size=3>15.00 - 19.00
> Uhr</td></tr>
> <tr><td width=125><font face="Arial,Helvetica" size=3>Sa.</td><td><font
> face="Arial,Helvetica" size=3>9.00 - 13.00 Uhr</td></tr>
> </table>
> </p>
> Di. und. Do. vormittag nach Terminvereinbarung.
> </p><font size=4><center>
> <A HREF="kontakt.htm" onMouseOver="javascript:self.status='Kontakt mit
> uns...'; return true" onMouseOut="javascript:self.status='';return
> true">[Kontakt]</A>
> <A HREF="feedback.htm" onMouseOver="javascript:self.status='Weitere
> Fragen? Verbesserungsvorschldge? Sonstige Informationen...'; return
> true" onMouseOut="javascript:self.status='';return
> true">[Feedback]</A>
> <A HREF="nletter.htm" onMouseOver="javascript:self.status='Lassen Sie
> sich die aktuellen Angebote per Email zukommen...'; return true"
> onMouseOut="javascript:self.status='';return true">[Newsletter]</A><p>
>
> <hr><center>
> <br><font face="Arial"><font size=1>Letzte Änderung: <!--#include
> virtual="/cgi-bin/update2.pl"-->.</font></font></center>
>
> </body></html>
> ----------
> Why doesn't the #include tags work? Even the #exec tag does not work.
> I tried to save it as haupt.sht and haupt.shtm, but that didn't work,
> too.
>
> May anybody help me?
>
> - lars (larsplessmann@gmx.de)
--
x$0`/`0$x,8_8,x$0$x8_8,x$0`/`0$x
Jack Schlotthauer
1 (408) 260-6174
jacks@cybersource.com
Webmaster BarberShop
http://barbershop.cybersource.com
x$0`/`0$x,8_8,x$0$x8_8,x$0`/`0$x
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5258
**************************************
