[12721] in Perl-Users-Digest
Perl-Users Digest, Issue: 130 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 13 20:07:32 1999
Date: Tue, 13 Jul 1999 16:57:46 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 13 Jul 1999 Volume: 9 Number: 130
Today's topics:
perl and databases - how? looking for good references <diane@dmswebsupport.com>
Re: perl and databases - how? looking for good referenc inlandpac@my-deja.com
Perl based "yah**" style directory <phil.stubbington@nospam.ambitus.com>
Re: Perl based "yah**" style directory (Matthew Bafford)
Perl fetching URLS <tstanley@alaska.net>
Re: Perl fetching URLS <sjs@yorku.ca>
Re: Perl fetching URLS (Abigail)
Re: Perl fetching URLS <swiftkid@bigfoot.com>
PERL in C++ <dennis.janssen@capgemini.nl>
Perl missing sh-like "|" functionality? Psudo example i (Michael Wang)
Re: Perl missing sh-like "|" functionality? Psudo examp <d-edwards@uchicago.edu>
Perl Script as NT service and -M $file jgrinwal@my-deja.com
Re: Perl Script as NT service and -M $file (Larry Rosler)
perl's edge -- a beginner's question <fmd@wam.umd.edu>
Re: perl's edge -- a beginner's question (Abigail)
Re: perl's edge -- a beginner's question (Tad McClellan)
Print an array into a table <leejk@cat.com>
Re: Print an array into a table (Larry Rosler)
Re: Print an array into a table (Tad McClellan)
Problem with MacPerl locating modules (Guy Cavet)
Re: Problem with MacPerl locating modules (Rory C-L)
Problems with Headers using SSI exec on IIS/4.0 server <mcculley@jersey.net>
Re: Problems with Headers using SSI exec on IIS/4.0 ser <ehpoole@ingress.com>
Re: Problems with Headers using SSI exec on IIS/4.0 ser (Abigail)
Re: Professional programmers seeking opportunities on-l <martin@adoma.se>
Re: Professional programmers seeking opportunities on-l <kurumi@spam.us.and.go.to.Leavenworth.mil>
Putting info in files <edflyer@edflyer.virtualave.net>
Re: Q: Get free disk space? (muvol)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 13 Jul 1999 13:08:41 -0400
From: "Diane Strahl" <diane@dmswebsupport.com>
Subject: perl and databases - how? looking for good references
Message-Id: <1kKi3.250$Vx2.24636@news.sgi.net>
I have been working with perl for about a year. "Learning Perl" and
"CGI/Perl Cookbook" are pretty much my bibles. I have written cgis that
create and search and grab info from databases that are in the form of
tab-delimited text files. To retrieve info from the database, I open the
text file, copy it to an array, use a foreach to read each line, split it
using the delimiter, check a particluar field against what I'm looking for,
etc. An example is a database of members of an organization, with each
record containing the name, address and occupation of a member. I might use
it for a search engine where the user can find all members of a particular
occupation in a particular city.
As the databases grow, this method has become somewhat slow. I know I need
to move to some other sort of database system. I have been looking for
information about how to do this for some time, but I keep getting bogged
down. I keep finding references that talk about how to use SQL or other
databases with perl, but I don't know which type of database I should be
using. And the jargon is often above what I have learned from the two books
I mentioned above. I guess what I'm asking for are some good "Databases and
Perl 101" types of references. I would sure appreciate some
recommendations - thanks!
Diane
------------------------------
Date: Tue, 13 Jul 1999 18:11:15 GMT
From: inlandpac@my-deja.com
Subject: Re: perl and databases - how? looking for good references
Message-Id: <7mfvfl$q65$1@nnrp1.deja.com>
One place to start which provides introductory info on accessing
databases through SQL in Perl is at the Web Developer's Virtual Library.
Go Here:
http://www.wdvl.com/Authoring/DB/
There are literally tons of tutorials and references for Perl here.
Most are by Solena Sol.
Chad.
In article <1kKi3.250$Vx2.24636@news.sgi.net>,
"Diane Strahl" <diane@dmswebsupport.com> wrote:
> I have been working with perl for about a year. "Learning Perl" and
> "CGI/Perl Cookbook" are pretty much my bibles. I have written cgis
that
> create and search and grab info from databases that are in the form of
> tab-delimited text files. To retrieve info from the database, I open
the
> text file, copy it to an array, use a foreach to read each line,
split it
> using the delimiter, check a particluar field against what I'm
looking for,
> etc. An example is a database of members of an organization, with each
> record containing the name, address and occupation of a member. I
might use
> it for a search engine where the user can find all members of a
particular
> occupation in a particular city.
>
> As the databases grow, this method has become somewhat slow. I know I
need
> to move to some other sort of database system. I have been looking for
> information about how to do this for some time, but I keep getting
bogged
> down. I keep finding references that talk about how to use SQL or
other
> databases with perl, but I don't know which type of database I should
be
> using. And the jargon is often above what I have learned from the two
books
> I mentioned above. I guess what I'm asking for are some
good "Databases and
> Perl 101" types of references. I would sure appreciate some
> recommendations - thanks!
>
> Diane
>
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 13 Jul 1999 15:40:09 GMT
From: "Phil Stubbington" <phil.stubbington@nospam.ambitus.com>
Subject: Perl based "yah**" style directory
Message-Id: <t5Ji3.1131$vc.2640@nnrp3.clara.net>
Hi,
I'm looking for an open source equivalent to yahoo, written in Perl. Could
someone point me in the right direction if one exists.
Apologies if this is not the correct newsgroup.......
regards,
phil
------------------------------
Date: Tue, 13 Jul 1999 18:38:37 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: Perl based "yah**" style directory
Message-Id: <slrn7on0eb.4rl.*@dragons.duesouth.net>
On Tue, 13 Jul 1999 15:40:09 GMT, Phil Stubbington"
<phil.stubbington@nospam.ambitus.com> poured coffee onto a keyboard,
producing the following in comp.lang.perl.misc:
: Hi,
:
: I'm looking for an open source equivalent to yahoo, written in Perl. Could
: someone point me in the right direction if one exists.
Yahoo is a pretty big site.
Which part, exactly, are you looking for?
: Apologies if this is not the correct newsgroup.......
No, it really isn't. comp.sources.wanted, or something like that, might
be more appropriate. You'll have to read the charter to be sure,
though.
: regards,
HTH,
: phil
--Matthew
------------------------------
Date: Mon, 12 Jul 1999 17:24:14 -0800
From: Tom Stanley <tstanley@alaska.net>
Subject: Perl fetching URLS
Message-Id: <378A953E.6C4FBD18@alaska.net>
Hello. This is probably a fairly simple question, but I was just
wondering what a good way to fetch URLS from the net would be. I'm sure
there are various modules that come with Perl5. I was actually
debaiting using lynx through Perl like so:
@lines = system('lynx','http://www.site.com/...');
foreach (@lines) {
print;
}
would that work? Anyways, I'm not sure if my server even has lynx on
it.
I may or may not remember to check this newsgroup again, so it would be
greatly appreciated if you could e-mail replies to admin@wolfy007.net.
Thank you.
Krypt Q. KeepR, 1024
------------------------------
Date: Mon, 12 Jul 1999 20:18:10 -0400
From: Steven Smolinski <sjs@yorku.ca>
Subject: Re: Perl fetching URLS
Message-Id: <931825128.1241840698@newshub.ccs.yorku.ca>
On Mon, 12 Jul 1999, Tom Stanley wrote:
>Hello. This is probably a fairly simple question, but I was just
>wondering what a good way to fetch URLS from the net would be.
Net::LWP
Read some netiquette.
Steve
------------------------------
Date: 13 Jul 1999 01:35:17 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl fetching URLS
Message-Id: <slrn7olngc.h7.abigail@alexandra.delanet.com>
Tom Stanley (tstanley@alaska.net) wrote on MMCXLII September MCMXCIII in
<URL:news:378A953E.6C4FBD18@alaska.net>:
^^ Hello. This is probably a fairly simple question, but I was just
^^ wondering what a good way to fetch URLS from the net would be. I'm sure
^^ there are various modules that come with Perl5. I was actually
^^ debaiting using lynx through Perl like so:
^^
^^ @lines = system('lynx','http://www.site.com/...');
^^
^^ foreach (@lines) {
^^ print;
^^ }
^^
^^ would that work? Anyways, I'm not sure if my server even has lynx on
^^ it.
Well, what happened when you tried?
^^ I may or may not remember to check this newsgroup again, so it would be
^^ greatly appreciated if you could e-mail replies to admin@wolfy007.net.
No. If you post here, the least thing you could do is take the trouble
of skimming the group for replies.
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 13 Jul 1999 13:16:53 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: Perl fetching URLS
Message-Id: <7mfvv3$2a01@news.cyber.net.pk>
: @lines = system('lynx','http://www.site.com/...');
@lines = `lynx --source http://www.site.com/`;
# that -source too...
:
: foreach (@lines) {
: print;
: }
or better, print @lines;
:
: would that work? Anyways, I'm not sure if my server even has lynx on
: it.
You can always use LWP.
use LWP::Simple;
$content = get 'http://www.site.com/';
------------------------------
Date: Tue, 13 Jul 1999 11:21:40 +0200
From: "Dennis Janssen" <dennis.janssen@capgemini.nl>
Subject: PERL in C++
Message-Id: <931857682.225165@promethium>
Can anyone give me a pointer to an URL where i can download a package with
perl.h
perl.lib
perl.dll
I want to be able to call perl from a c/c++-program.
Thanx,
dennis
------------------------------
Date: 13 Jul 1999 12:44:45 GMT
From: mwang@tech.cicg.ml.com (Michael Wang)
Subject: Perl missing sh-like "|" functionality? Psudo example included ...
Message-Id: <7mfcbt$ckp$1@news.ml.com>
Dear Perl expert:
I have this problem. I want to generate a stream of data
depending different conditions, and then I use a common block
of code to process the data.
In shell, it is easy, I first use if-elif-else-fi to get the
stream of data to the standard out, and then PIPE the data to
the block of code for processing. As shown below.
How do I do this in Perl? I don't want to store everything @list variable
since I the list may be too large, and this will use a huge amount of
memory. And I do not wamt to repeat the common block of code for each
of the condition. I have some psudo Perl code to illustrate the problem.
Any help is greated appreciated. Thanks.
Michael Wang
http://www.mindspring.com/~mwang
if some_condition
then
cat file
elif some_other_condition
then
for i in $(< /some/file)
do
echo $i
done
else
awk '{print $7}' some_file
fi | while read a b
do
# process each element
done
if ( $opt_d eq "all" ) {
(keys %::beeper_byname)
} else {
open(README, "ypcat -k beeper.byname |") or die "cannot fork: $!\n";
while ( <README> ) {
if ( /(\w+)\s+\w+/ ) {
echo $1
}
}
close(README)
} | while read $j {
# do something about $j
}
--
Michael Wang
http://www.mindspring.com/~mwang
------------------------------
Date: Tue, 13 Jul 1999 20:50:05 GMT
From: Darrin Edwards <d-edwards@uchicago.edu>
Subject: Re: Perl missing sh-like "|" functionality? Psudo example included ...
Message-Id: <tg4sj8jmv6.fsf@noise.bsd.uchicago.edu>
mwang@tech.cicg.ml.com (Michael Wang) writes:
[snip]
> I have this problem. I want to generate a stream of data
> depending different conditions, and then I use a common block
> of code to process the data.
[snip]
> How do I do this in Perl? I don't want to store everything @list variable
> since I the list may be too large, and this will use a huge amount of
> memory. And I do not wamt to repeat the common block of code for each
> of the condition. I have some psudo Perl code to illustrate the problem.
[snip first bit of pseudo-code]
> if ( $opt_d eq "all" ) {
> (keys %::beeper_byname)
> } else {
> open(README, "ypcat -k beeper.byname |") or die "cannot fork: $!\n";
> while ( <README> ) {
> if ( /(\w+)\s+\w+/ ) {
> echo $1
> }
> }
> close(README)
> } | while read $j {
> # do something about $j
> }
I came up with two ways, both of which look rather contrived to me.
The first uses the standard syntax "foreach VAR (LIST) BLOCK":
~>perl -e '
my %Homer = qw(bart ay_caramba marge hmrmm lisa da_aad);
my $opt_d = $ARGV[0];
foreach my $item (do {if ($opt_d eq "all") {keys %Homer}
else {open (HOMER, "<evil.homer") or
die "No Homer, $!";
grep {/(\w+)\s+\w+/ && defined($_ = $1)}
<HOMER>;}}) {
print "An item is $item\n";}' "all"
An item is lisa
An item is bart
An item is marge
The second creates "readers", the appropriate one of which is selected for
reading:
~>perl -e '
my %Homer = qw(bart ay_caramba marge hmrmm lisa da_aad);
my $opt_d = $ARGV[0];
open (HOMER, "<evil.homer") or die "No Homer, $!";
if ($opt_d eq "all") {
$reader = sub {each %Homer;};
} else {
$reader = sub {
my $match;
while (defined(my $line = <HOMER>)) {
if ($line =~ /(\w+)\s+\w+/) {
$match = $1;
last;
}
} $match;};
}
while (defined($_ = &{$reader})) {
print "This item was $_, what next?\n";
}' "all"
This item was lisa, what next?
This item was bart, what next?
This item was marge, what next?
The second version might be _slightly_ easier to generalize, but
you have to be careful about the syntax (I wrote those &{$reader}
subs assuming they would always be called in scalar context). Again,
no promises, and what I've written here looks contrived & ugly to me,
but maybe someone else has something closer to what you had in mind
if this "ain't it".
HTH,
Darrin
------------------------------
Date: Tue, 13 Jul 1999 18:32:25 GMT
From: jgrinwal@my-deja.com
Subject: Perl Script as NT service and -M $file
Message-Id: <7mg0no$qoh$1@nnrp1.deja.com>
Had a script running as NT service with srvany calling a cycling .bat
file (the .bat file made the "perl <perl_script>" call). Made a change
recently to eliminate the .bat file, by putting in a while loop and a
sleep line.
Checked the log files after about 5 days of the service being up, and
noticed that when the script prints out a file's age in days (-M
$file), the age was not changing.
My srcipt needs to perform an action (delete it) based on the file's
age. How--without going back to the .bat file--can I get this to
change? Do I have to create a separate calling script?
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 13 Jul 1999 12:13:11 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl Script as NT service and -M $file
Message-Id: <MPG.11f52fa33c1aad77989cbb@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7mg0no$qoh$1@nnrp1.deja.com> on Tue, 13 Jul 1999 18:32:25
GMT, jgrinwal@my-deja.com <jgrinwal@my-deja.com> says...
> Had a script running as NT service with srvany calling a cycling .bat
> file (the .bat file made the "perl <perl_script>" call). Made a change
> recently to eliminate the .bat file, by putting in a while loop and a
> sleep line.
>
> Checked the log files after about 5 days of the service being up, and
> noticed that when the script prints out a file's age in days (-M
> $file), the age was not changing.
>
> My srcipt needs to perform an action (delete it) based on the file's
> age. How--without going back to the .bat file--can I get this to
> change? Do I have to create a separate calling script?
As documented, the time returned by -M (et al) is relative to $^T, the
time the script began. That is why it is not changing. To get the
current time, use time(), and compare that with the value stat'ted from
the file, or do the arithmetic required on $^T.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 13 Jul 1999 08:21:14 -0400
From: Fernando Morais Dasilva <fmd@wam.umd.edu>
Subject: perl's edge -- a beginner's question
Message-Id: <Pine.GSO.4.10.9907130815290.7967-100000@sun09pg2.wam.umd.edu>
i'm just getting started on learning perl. i wanted an example of
something that perl can do easier that c, c++ would take a lot more
effort.
an example of what i mean is, recently i was introduced to haskell
language in school, which is a functional language and it was amazing to
see how you could write a quicksort funtion in just 2 lines of code. c++
would take several lines more.
thanks
fernando
------------------------------
Date: 13 Jul 1999 08:45:37 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl's edge -- a beginner's question
Message-Id: <slrn7omgn7.h7.abigail@alexandra.delanet.com>
Fernando Morais Dasilva (fmd@wam.umd.edu) wrote on MMCXLII September
MCMXCIII in <URL:news:Pine.GSO.4.10.9907130815290.7967-100000@sun09pg2.wam.umd.edu>:
%%
%% i'm just getting started on learning perl. i wanted an example of
%% something that perl can do easier that c, c++ would take a lot more
%% effort.
About everything. Pattern matching for instance. Building complex
datastructures. Systems programming.
%% an example of what i mean is, recently i was introduced to haskell
%% language in school, which is a functional language and it was amazing to
%% see how you could write a quicksort funtion in just 2 lines of code. c++
%% would take several lines more.
And in Perl it's 1.5 line shorter:
@sorted = sort @unsorted;
Cool, isn't?
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 13 Jul 1999 07:25:56 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: perl's edge -- a beginner's question
Message-Id: <4o7fm7.03h.ln@magna.metronet.com>
Fernando Morais Dasilva (fmd@wam.umd.edu) wrote:
: i'm just getting started on learning perl. i wanted an example of
: something that perl can do easier that c, c++ would take a lot more
: effort.
Go write a dos2unix line-ending convertor in C or C++.
( I have never heard of the c and c++ languages that
you refer to...)
Then compare it to Perl:
perl -p -i -e 's/\r//g' filenames...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 13 Jul 1999 11:49:28 -0400
From: "Keith Lee" <leejk@cat.com>
Subject: Print an array into a table
Message-Id: <7mfn61$an8$1@ns1.cat.com>
I have an array which is contains a list of names. I want to print out the
list in a table on a web page. Now I have something like:
foreach $name(@names) {
print qq!<tr><td>$names</td></tr>|;
}
This works, but prints out the list in a table with 1 column. I want to
print out the list in a table 3 columns wide, and have the number of rows
equal to whatever it takes. Is there some way to keep track of every third
value in the array?
Thanks,
Keith
------------------------------
Date: Tue, 13 Jul 1999 09:26:49 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Print an array into a table
Message-Id: <MPG.11f508a1f575a9b8989cb6@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <7mfn61$an8$1@ns1.cat.com> on Tue, 13 Jul 1999 11:49:28 -
0400, Keith Lee <leejk@cat.com> says...
> I have an array which is contains a list of names. I want to print out the
> list in a table on a web page. Now I have something like:
>
> foreach $name(@names) {
> print qq!<tr><td>$names</td></tr>|;
> }
>
> This works, but prints out the list in a table with 1 column. I want to
> print out the list in a table 3 columns wide, and have the number of rows
> equal to whatever it takes. Is there some way to keep track of every third
> value in the array?
Increment a counter in the loop, and use the modulus operator (%) to do
interesting things based on the value of the counter.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 13 Jul 1999 12:34:28 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Print an array into a table
Message-Id: <kqpfm7.ikh.ln@magna.metronet.com>
Keith Lee (leejk@cat.com) wrote:
[snip code]
: This works, but prints out the list in a table with 1 column. I want to
: print out the list in a table 3 columns wide, and have the number of rows
: equal to whatever it takes. Is there some way to keep track of every third
: value in the array?
The modulus operator (%) can help with that.
------------------------------
#!/usr/bin/perl -w
use strict;
my @names = qw(Fred Wilma Barney Betty Clinton Gore Bush Quayle Satan Gates);
for my $i ( 0..$#names ) {
my $remainder = $i % 3;
print "<tr>\n" if $remainder == 0; # start of row
print " <td>$names[$i]</td>\n"; # table cell
print "</tr>\n\n" if $remainder == 2; # end of row
}
print "</tr>\n" unless $#names % 3 == 2;
------------------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 12 Jul 1999 18:18:51 -0700
From: gcavet@pmgm.Stanford.EDU (Guy Cavet)
Subject: Problem with MacPerl locating modules
Message-Id: <7me45r$ddv@pmgm.Stanford.EDU>
A basic problem with MacPerl - I couldn't find a MacPerl-specific newsgroup but
please feel free to redirect me if there's a more appropriate forum for this.
I installed MacPerl and it runs just fine, except for loading modules that came
along with it. For example, trying to run One Liner results in the following:
# Can't find loadable object for module Mac::Memory in @INC (Macintosh HD:\
Applications:MacPerl:lib Dev:Pseudo)
File 'Macintosh HD:Applications:MacPerl:lib:Mac:AppleEvents.pm'; line 773
<etc. etc>
Of course I have checked that the Memory module is indeed in
Macintosh HD:Applications:MacPerl:lib:Mac and,
as you can see, Macintosh HD:Applications:MacPerl:lib is in @INC.
Also, Perl finds the AppleEvents module just fine and it's in the same
directory as the Memory module. I suppose this could mean that there's
something wrong with the Memory module files, but they're just as I downloaded
them...
If it is relevant, I'm running Version 5.2.0r4 Patchlevel 5.004 on a 540c.
Any help/advice appreciated.
Guy
------------------------------
Date: 13 Jul 1999 10:48:03 GMT
From: campbell-lange@easynet.co.uk (Rory C-L)
Subject: Re: Problem with MacPerl locating modules
Message-Id: <campbell-lange-1307991147480001@campbell-lange.easynet.co.uk>
In article <7me45r$ddv@pmgm.Stanford.EDU>, gcavet@pmgm.Stanford.EDU (Guy
Cavet) wrote:
> I installed MacPerl and it runs just fine, except for loading modules
that came
> along with it.
My problem is that I can't find any non-standard modules, even though I've
included the site-perl path in the libarary paths to search prefs.
Embarassingly, I can't get any of Chris Nandor's modules to work, even
after using his installme programme.
--
Rory Campbell-Lange
The Campbell-Lange Workshop
------------------------------
Date: Mon, 12 Jul 1999 21:23:38 GMT
From: Frank McCulley <mcculley@jersey.net>
Subject: Problems with Headers using SSI exec on IIS/4.0 server
Message-Id: <378A5D09.13D60BF4@jersey.net>
We are using IIS/4.0 and we are trying to utilize the SSI command exec
cgi and it works fine with one major exception. That is each time it
send back the information it includes a header that says HTTP/1.0 200
OK Date: Mon, 12 Jul 1999 12:27:53 GMT Server: Microsoft-IIS/4.0. We
tried setting the registry key
"HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlIS" to 0, but that did not
work. Any help would be greatly appreciated. Please send email to
mcculley@jersey.net
------------------------------
Date: Mon, 12 Jul 1999 20:09:16 -0400
From: "Ethan H. Poole" <ehpoole@ingress.com>
Subject: Re: Problems with Headers using SSI exec on IIS/4.0 server
Message-Id: <378A83AC.79A1580A@ingress.com>
Frank McCulley wrote:
>
> We are using IIS/4.0 and we are trying to utilize the SSI command exec
> cgi and it works fine with one major exception. That is each time it
> send back the information it includes a header that says HTTP/1.0 200
> OK Date: Mon, 12 Jul 1999 12:27:53 GMT Server: Microsoft-IIS/4.0. We
> tried setting the registry key
> "HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlIS" to 0, but that did not
> work. Any help would be greatly appreciated. Please send email to
> mcculley@jersey.net
Use "perl.exe %s %s" instead of "perlis.dll" and your problem will be
solved.
--
Ethan H. Poole **** BUSINESS ****
ehpoole@ingress.com ==Interact2Day, Inc.==
(personal) http://www.interact2day.com/
------------------------------
Date: 13 Jul 1999 00:11:13 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Problems with Headers using SSI exec on IIS/4.0 server
Message-Id: <slrn7oliio.h7.abigail@alexandra.delanet.com>
Frank McCulley (mcculley@jersey.net) wrote on MMCXLI September MCMXCIII
in <URL:news:378A5D09.13D60BF4@jersey.net>:
"" We are using IIS/4.0 and we are trying to utilize the SSI command exec
"" cgi and it works fine with one major exception. That is each time it
"" send back the information it includes a header that says HTTP/1.0 200
"" OK Date: Mon, 12 Jul 1999 12:27:53 GMT Server: Microsoft-IIS/4.0. We
"" tried setting the registry key
"" "HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlIS" to 0, but that did not
"" work. Any help would be greatly appreciated.
I'd suggest getting one of those big magnet, at least 1 Tesla. Put
the magnet as close to your harddisk as possible. That should solve
a lot of problems.
"" Please send email to
"" mcculley@jersey.net
Why? Do you want private tutoring? That'll cost money....
Now, what was your Perl question?
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 13 Jul 1999 14:22:21 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: Professional programmers seeking opportunities on-line
Message-Id: <378B3D8D.4A089DD1@adoma.se>
Tomasz Marcinek wrote:
[cut...]
>
> Our SKILLS cover the following areas:
>
> * Client-Server Database Applications
> * WEB-Based Applications
> * System Applications
> * Software Components, Libraries and Plug-ins
> * Drivers for Hardware
> * User’s Interface Development
> * Database Migration & Upgrades
> * Data Visualization
> * Other
[cut....]
You can add "Spam" and "ability to post in wrong newsgroup" to your
skills.
Or is that what you mean with "Other"??
Martin Quensel
------------------------------
Date: Tue, 13 Jul 1999 16:53:27 -0500
From: kurumi <kurumi@spam.us.and.go.to.Leavenworth.mil>
Subject: Re: Professional programmers seeking opportunities on-line
Message-Id: <378BB557.14D4AF91@foad.org>
Tomasz Marcinek wrote:
>
> Dear Sirs/Madams,
>
> We are young entrepreneurs who have just started a software development company
> named CODERS.
[snip]
> We are familiar with most PROFESSIONAL TOOLS including:
[long list of buzzwords excluding Perl]
> If this proposal sounds interesting to you, please contact us via e-mail: sales@coders.pl
> or visit our WEB site: http://www.coders.pl
You post here 5 times, you reside in .pl, and yet you're Perl-free.
Oh well. If you're interested in work, please visit
our contract postings at news://news.announce.newusers. Submit
your quotes to news://news.admin.net-abuse.sightings.
Thank you.
--
kurumi http://www.kurumi.com
print pack("h*", "e4f63416c60264279656e6463702f66602142696761696c6");
------------------------------
Date: Tue, 13 Jul 1999 11:33:19 -0400
From: "EdFlyer" <edflyer@edflyer.virtualave.net>
Subject: Putting info in files
Message-Id: <7mfn4l$lm$1@news01.li.net>
I am making a message board and I want to be able to have people to make
message board areas, but I don't know how to add the area in the <select>
part of the form using cgi. I know it can be done I just don't know how.
From,
EdFlyer
edflyer@edflyer.virtualave.net
http://only.at/edflyer
------------------------------
Date: Tue, 13 Jul 1999 15:10:20 -0500
From: muvol.remove-this@aol.com (muvol)
Subject: Re: Q: Get free disk space?
Message-Id: <muvol.remove-this-1307991510380001@136.205.71.108>
In article <7lo1an$asd2@news.cyber.net.pk>, "Faisal Nasim"
<swiftkid@bigfoot.com> wrote:
> > > Filesys::DiskSpace
> > >
> > >(which appears to be unix-centric) so that others can use it. Perhaps
> >
> > It's Unix centric mainly cause that's what I use, and have received
> > details on. If anyone has Mac or other OS information, I'll gladly
> > add it to the module.
>
>
> How about this short little funny proggy:
>
> print &FreeSpaceDos ( "c:" );
>
> sub FreeSpaceDos
> {
> return if $^O ne 'MSWin32';
> my $path = shift;
> `dir /w $path` =~ /([\d,]+?) bytes free$/;
> my $space = $1;
> $space =~ tr/,//d;
> $space;
> }
Thank you. This does work nicely on my WinNT machine. If I can figure
out a MacOS method, I will look into adding them to Filesys::DiskSpace
Thanks,
Mike
---
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 130
*************************************
