[12004] in Perl-Users-Digest
Perl-Users Digest, Issue: 5604 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 8 11:07:23 1999
Date: Sat, 8 May 99 08:00:27 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 8 May 1999 Volume: 8 Number: 5604
Today's topics:
Re: **Free CGI Scripts!** <no@onehere.not>
A little light amusement <gellyfish@gellyfish.com>
Re: Adding nonexistent functions to symbol table (Bart Lateur)
Re: Adding nonexistent functions to symbol table (Larry Rosler)
Re: Can m//thing be a variable? (M.J.T. Guy)
Re: Detecting screen resolution... <mkshanx@ust.hk>
Re: Extracting an index from a MS Word 97 doc <gellyfish@gellyfish.com>
Re: Find all files regardless of extension <gellyfish@gellyfish.com>
Re: Find all files regardless of extension (Larry Rosler)
Re: Frequent Posters: new group for WWW applications of <gellyfish@gellyfish.com>
Re: getting autoincrement/serial field value in DBI <gellyfish@gellyfish.com>
gmtime <xyf@inetnebr.com>
Re: gmtime (Larry Rosler)
Re: HELP: Newbie in Need of Script <no@onehere.not>
Re: How to keep travelled path in hash ? (Michel Dalle)
Re: How to keep travelled path in hash ? (Benjamin Franz)
Re: How to keep travelled path in hash ? (Benjamin Franz)
Re: https help <no@onehere.not>
Re: local vs. my <gellyfish@gellyfish.com>
Re: local vs. my (Larry Rosler)
Re: Looking for Perl Program <no@onehere.not>
Re: Making executables from .pl files? (Sitaram Chamarty)
Re: MS Access database <gellyfish@gellyfish.com>
Re: Newsfeed and Local Weather (Sitaram Chamarty)
Re: NT - Attaching to a different domain <gellyfish@gellyfish.com>
Re: ODBC and Access memo fields <gellyfish@gellyfish.com>
Re: Perl install problems - bsdos <gellyfish@gellyfish.com>
Re: problems with SunOS 5.5 <gellyfish@gellyfish.com>
Re: read files in Perl <gellyfish@gellyfish.com>
Re: read files in Perl (Bob Trieger)
Re: Rejecting unwanted hits <gellyfish@gellyfish.com>
Re: Rejecting unwanted hits <writer@wi.net>
Re: Runninf external programs from Perl on NT <gellyfish@gellyfish.com>
Re: Running perl script via browser (Tad McClellan)
Re: Running perl script via browser <no@onehere.not>
Re: Scripting language with LFN support? (Paul Keinanen)
Re: Slice [N..end] of unnamed array? <rick.delaney@home.com>
Re: Superfluous message with 'system' <gellyfish@gellyfish.com>
Re: Telnet module and perl script to telnet to remote, <gellyfish@gellyfish.com>
Re: using $, (was Re: having problems) (Larry Rosler)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 08 May 1999 07:15:03 -0700
From: Nate <no@onehere.not>
Subject: Re: **Free CGI Scripts!**
Message-Id: <373446E7.5142@onehere.not>
David Cassell wrote:
>
> IlIIIIIIII wrote:
> >
> > get free CGI scripts at:
> > http://tofs.cjb.net
>
> One question:
>
> Doesn't ANYONE know the difference between CGI and Perl?
>
CGI's can also be written in other languages, such as "C" or whatever
the server you are using allows. That's why you see the first line
showing what language type the file is for. #!/usr/local/bin/perl
***************************************************************
Computer Problems? Free on-line solutions to your problems at:
http://www.nocrash.com/ * Database of solutions, free!
Drivers, DLL's, Programs, Free CGI Scripts, Programmer's Area
***************************************************************
------------------------------
Date: 8 May 1999 11:29:58 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: A little light amusement
Message-Id: <7h177m$1pt$1@gellyfish.btinternet.com>
Well I got a little bored after 'The Funky Phantom' finished so I
knocked this little thing together - I dont think I'll tell you
what it does but here you go for your amusement:
#!/usr/bin/perl -w
use strict;
use GD;
use vars qw($P @Q $col $row @colours );
my ($maxcol,
$maxrow,
$max_colours,
$max_iterations,
$max_size ) = (640,350,16,512,4);
my ($XMax,$XMin,$YMax,$YMin) = (1.2,-2.0,1.2,-1.2);
my $deltaP = ($XMax - $XMin) / $maxcol;
my $deltaQ = ($YMax - $YMin) / $maxrow;
$Q[0] = $YMax;
my $image = new GD::Image($maxcol,$maxrow);
for ( 0 .. $max_colours - 1)
{
$colours[$_] = $image->colorAllocate(int(rand(256)),
int(rand(256)),
int(rand(256)));
}
for( 1 .. $maxrow )
{
$Q[$_] = $Q[$_ -1] - $deltaQ;
}
$P = $XMin;
for $col ( 0 .. $maxcol -1 )
{
for $row ( 0 .. $maxrow - 1)
{
my ($X,$Y,$XSquare,$YSquare) = (0,0,0,0);
my $colour = 1;
while (( $colour < $max_iterations ) &&
(($XSquare + $YSquare ) < $max_size ))
{
$XSquare = $X * $X;
$YSquare = $Y * $Y;
$Y *= $X;
$Y += $Y + $Q[$row];
$X = $XSquare - $YSquare + $P;
$colour++;
}
$image->setPixel($col,$row,$colours[$colour % $max_colours]);
}
$P += $deltaP;
}
open(GIF,">image$$.gif") || die "Cannot open output - $!\n";
binmode(GIF);
print GIF $image->gif;
close(GIF);
__END__
Of course the more astute amongst you will be able to determine that
this is a piece of C code that I have crudely ported to Perl ;-}
Well we are on it - can anyone think of a way of allocating the colours
in a nicer way ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 08 May 1999 10:27:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Adding nonexistent functions to symbol table
Message-Id: <373810cb.10349627@news.skynet.be>
Ben wrote:
>I have the code for a function in a scalar is there anyway to put
>this code in the current symbol table so I can use it like a normal
>function? Please email me at neb@one.net.
$foo = sub { my($who)= @_; print "Well, hello there, $who!\n" };
*bar = $foo;
# since $foo is a CODE ref, affects only the CODE slot
bar('Bart');
Bart.
------------------------------
Date: Sat, 8 May 1999 07:23:17 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Adding nonexistent functions to symbol table
Message-Id: <MPG.119de8aecb27b5f9989a11@nntp.hpl.hp.com>
In article <373810cb.10349627@news.skynet.be> on Sat, 08 May 1999
10:27:13 GMT, Bart Lateur <bart.lateur@skynet.be> says...
> Ben wrote:
>
> >I have the code for a function in a scalar is there anyway to put
> >this code in the current symbol table so I can use it like a normal
> >function? Please email me at neb@one.net.
>
> $foo = sub { my($who)= @_; print "Well, hello there, $who!\n" };
> *bar = $foo;
> # since $foo is a CODE ref, affects only the CODE slot
> bar('Bart');
The answer by Andrew Allen quoted a similar snippet from perlref.
I used 'eval STRING' because of the statement 'I have the code for a
function in a scalar'. Your example has a coderef in a scalar, not
code.
'eval STRING' has lots of risks, of course, depending on where the code
came from. But as I showed, it can add a function to the current symbol
table without the programmer having to mess with typeglobs.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 May 1999 12:05:01 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Can m//thing be a variable?
Message-Id: <7h199d$5fv$1@pegasus.csx.cam.ac.uk>
Charles R. Thompson <design@raincloud-studios.com> wrote:
>Or... is there any way besides traditional conditional statements to
>achieve a 'toggle' between the various modifiers for matching? Can the i
>be a variable?
>
>example... toggling case sensitivity without having to use two different
>versions of the match.
>
>if ($case_sen){ m/$phrase/ }else{ m/$phrase/i };
Set the variable $case_sen to either '' or '(?i)'. Then just write
m/$case_sen$phrase/
See perlre for an explanation, under
(?imsx-imsx:pattern)
Mike Guy
------------------------------
Date: Sat, 8 May 1999 21:18:45 +0800
From: "Shashank Tripathi" <mkshanx@ust.hk>
Subject: Re: Detecting screen resolution...
Message-Id: <7h1djg$581@ustsu10.ust.hk>
> Not here they cant. I suppose we're talking browsers here right ?
Agreed. Anyway, try looking into a JavaScript relevant group. Look for the
"screen" object in the reference.
Shanx
------------------------------
Date: 8 May 1999 12:33:13 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Extracting an index from a MS Word 97 doc
Message-Id: <7h1au9$2ml$1@gellyfish.btinternet.com>
On Fri, 7 May 1999 16:32:31 -0700 gip wrote:
> Does anyone know how to automatically fetch an index from a Word '97
> document?
>
> What I'd like to do, using Perl, (or C/C++), is to automate the following
> process:
>
> 1) Open a Word document
> 2) Generate an index
> 3) Fetch the index and save it as a file
>
> The next steps I can handle:
>
> Import index as table into a MS Access db.
>
You can use Win32::OLE to perform steps 1 - 3 and
Win32::ODBC to perform the final step. To get the spin on automatng
Word you might want to look at the appropriate documentation on the
Microsoft Office pages on the MS web site.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 8 May 1999 13:23:26 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Find all files regardless of extension
Message-Id: <7h1dse$2rg$1@gellyfish.btinternet.com>
On Fri, 7 May 1999 16:28:19 +0100 Dave Evans wrote:
>
> Using opendir/readdir/closedir was the answer, but the only
> catch here is that readdir also returns the "." and ".." directory entries.
>
One usually would do something like:
@files = grep !/^\.{1,2}$/,readdir(DIR);
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 8 May 1999 07:06:18 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Find all files regardless of extension
Message-Id: <MPG.119de4b37453a514989a0f@nntp.hpl.hp.com>
In article <3734ea82.548920@news.skynet.be> on Sat, 08 May 1999 07:42:58
GMT, Bart Lateur <bart.lateur@skynet.be> says...
> Larry Rosler wrote:
>
> LR> Nah... You seem to have overlooked the fact that readdir() returns the
> LR> bare filenames with whatever case was used when they were written. So
> LR> 'FiLeNaMe.tXt' and 'fIlEnAmE.TxT' are the same friggin' file.
>
> Nah... You must have overlooked the fact that you don't need to specify
> the path including the drive letter. Your PoB test isn't reliable.
Nah... You must have overlooked the comment on the line of code in
question.
> LR> my $PoB = $dirpath =~ /^[a-z]:/i && '(?i)'; # or something :-)
The 'or something :-)' meant 'or any other method that works in your
environment to distinguish a PoB system from a Unix system'. In my
production code, I actually use this heuristic:
my $PoB = !$ENV{TZ};
because my empirical observation is that $ENV{TZ} is set by default in
Unix but not in DOS/Windows. I don't try to parse $^O because that
variable isn't available in the perl 5.002 that I have to use on some of
the (internal HP <blush>) webservers.
> And on MY PoB system (GNU DOS) readdir() returns all lower case.
How nice for you! As my test showed, not for the rest of us PoBs.
However, by definition, GNU's Not PoB, because it doesn't make B richer.
Hmmm, GNP? Sounds too much like an important economic indicator. :-(
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 May 1999 09:38:47 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Frequent Posters: new group for WWW applications of Perl?
Message-Id: <7h10n7$1g2$1@gellyfish.btinternet.com>
On Fri, 07 May 1999 11:25:38 GMT Bart Lateur wrote:
> Want to know how to get the images dimensions from a GIF file in
> Delphi? Ask in the Delphi newsgroup. Nobody minds (except if it's a FAQ
> ;-).
>
Yeah, but its only because the Delphi guys get really excited to get their
hands on a problem like that ...
;-}
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 8 May 1999 08:54:53 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: getting autoincrement/serial field value in DBI
Message-Id: <7h0u4t$1d9$1@gellyfish.btinternet.com>
On Sat, 08 May 1999 05:25:34 GMT aaron@soltec.net wrote:
> Hello
>
> I have two tables in a database
>
> table_a table_a_b
>
<snip>
>
> table_a_id is a serial field (it increments automatically)
>
> I need the number that is placed there so that I can enter it into table_a_b
>
> I'm using DBI. Is there a way I can find that out?
>
It really depends on the database you are using - with DBD::Informix
for instance you can access the sqlca record through the statement handle.
However this is probably different for each different database.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 08 May 1999 06:22:02 -0500
From: ktb <xyf@inetnebr.com>
Subject: gmtime
Message-Id: <37341E5A.D3FAB13@inetnebr.com>
I've been led to believe that it's possible to use gmtime to find the
number of seconds (since Jan. 1 1970) for an arbitrary date. In other
words I would like to use gmtime to find the number of seconds that will
have ticked by from 1/1/70 to 1/1/2000. I looked at the man page
"perlfunc" which has a section on "gmtime" but I can't see where it
lists what I would like to do. Anyone know how to do this?
Thanks,
kent
------------------------------
Date: Sat, 8 May 1999 07:29:24 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: gmtime
Message-Id: <MPG.119dea204deb5454989a12@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <37341E5A.D3FAB13@inetnebr.com> on Sat, 08 May 1999 06:22:02
-0500, ktb <xyf@inetnebr.com> says...
> I've been led to believe that it's possible to use gmtime to find the
> number of seconds (since Jan. 1 1970) for an arbitrary date. In other
> words I would like to use gmtime to find the number of seconds that will
> have ticked by from 1/1/70 to 1/1/2000. I looked at the man page
> "perlfunc" which has a section on "gmtime" but I can't see where it
> lists what I would like to do. Anyone know how to do this?
perldoc Time::local
The timegm function in that module (which is part of the standard perl
distribution) will do what you want. Just be careful to get the month
and year variables 'right', as documented the result of localtime() and
gmtime() also.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 08 May 1999 07:54:32 -0700
From: Nate <no@onehere.not>
Subject: Re: HELP: Newbie in Need of Script
Message-Id: <37345028.706F@onehere.not>
Nelson Kulz wrote:
>
> Hello. I know how to program, but I don't program very well in Perl.
> Does anyone have a script written in Perl5 that allows access to telnet
> (Not to the server it's hosted on, but to a remote host and port,
> specifiable by me)?
I was messing around with this, try it out and mess with it and your
telnet site, you may have to do some programming, but it's mostly copy
paste of "print" statements. You need to know what responses your telnet
site gives out.
Look at some of my other commented perl scripts and you will have enough
examples to get you in trouble!
#!/usr/local/bin/perl
use IO::Socket;
#####print "Content-Type: text/html\n\n";
print "\n-BEGIN-\n";
$host = "yourtelnetsite.com";
$document = "/";
$EOL = "\015\012";
$BLANK = $EOL x 2;
##telnet port is 23, nntp is 119, http is 80
$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "23",
);
unless ($remote) { die "cannot connect to $host" }
$remote->autoflush(1);
print $remote "help" . $BLANK;
while ( <$remote> ) { print }
close $remote;
print "\n-END-\n";
***************************************************************
Computer Problems? Free on-line solutions to your problems at:
http://www.nocrash.com/ * Database of solutions, free!
Drivers, DLL's, Programs, Free CGI Scripts, Programmer's Area
***************************************************************
------------------------------
Date: Sat, 08 May 1999 10:35:40 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: How to keep travelled path in hash ?
Message-Id: <7h140c$50v$1@xenon.inbe.net>
In article <9oKY2.10547$ny.815295@typhoon-sf.snfc21.pbi.net>, snowhare@long-lake.nihongo.org (Benjamin Franz) wrote:
>In article <7gvjl6$sab$1@xenon.inbe.net>,
>Michel Dalle <michel.dalle@usa.net> wrote:
[snip]
>>How do I know in the end that :
>> 578 people followed the path : post1->post2-post3->post1
>> 1034 people followed the path : post2
>> 2454 people followed the path : post1->post2->post1
>> etc.
>>and keep this in a structure that doesn't swallow my whole available memory ?
>>
>>I did a test with :
>> - 100 pages/pubs/...,
>> - each with between 1..20 predefined links to other pages/pubs,
>> - 10000 visits starting at any of the first 10 pages/pubs,
>> - each between 1 and 100 steps long.
>>and ended up with 86000+ nodes in my tree. :-(
>>
>>I still feel there has to be a more efficient way to keep track of this, but
>>I haven't figured it out (yet).
>>
>
>Ah. Well, I think you have a contradictory set of requirements in that in the
>worse case the size of the structure is directly proportional to the size of
>the log because you _could_ have a unique path for every visitor - which
>would mean your structure would have to have at least one entry per log
>entry to preserve *all* of the paths. You have to impose a 'cut off' depth
>to prevent the size explosion. Otherwise the structure grows without limit
>if you continue to process logs over time and aggregate the data. You can't
>retain *ALL* information from a log in a report or the report becomes as
>large as the log it is supposed to be summarizing. I could write something
>that could track an indefinite depth - but it would grow indefinitely large.
>
But still, it would be nice to be able to build a graph of the top N travelled
paths, no ?
968 page5
500 page68
.318 page51
..313 page30
...10 _EXIT_
990 page0
990 page56
.10 _EXIT_
968 page2
968 page62
.194 page88
..189 page77
...85 page45
....9 _EXIT_
968 page2
968 page62
.191 page31
..8 _EXIT_
968 page5
500 page68
.8 _EXIT_
979 page8
477 page52
.8 _EXIT_
etc.
Michel.
--
aWebVisit - extracts visitor information from WWW logfiles and shows
the top entry, transit, exit and 'hit&run' pages, the links followed
inside your website, the time spent per page, the visit duration etc.
For more details, see http://gallery.uunet.be/Michel.Dalle/awv.html
------------------------------
Date: Sat, 08 May 1999 14:25:43 GMT
From: snowhare@long-lake.nihongo.org (Benjamin Franz)
Subject: Re: How to keep travelled path in hash ?
Message-Id: <HPXY2.11021$ny.893951@typhoon-sf.snfc21.pbi.net>
In article <7h140c$50v$1@xenon.inbe.net>,
Michel Dalle <michel.dalle@usa.net> wrote:
>>
>But still, it would be nice to be able to build a graph of the top N travelled
>paths, no ?
#!/usr/bin/perl -w
use strict;
my $summary_paths = {};
my $detail_paths = {};
my $users = {};
my ($user,$user_path,$line);
while ($line = <STDIN>) {
chop $line;
my ($who,$when,$where) = split(/ /,$line,3);
# This user
$user = $users->{$who};
if (not defined $user) {
$users->{$who} = '';
}
$user_path = $users->{$who};
$user_path .= "$where ";
$users->{$who} = $user_path;
$detail_paths->{$user_path}++;
}
while (my ($user,$path) = each %$users) {
chop $path;
$summary_paths->{$path}++;
}
print "Paths:\n";
my @path_list = sort { $summary_paths->{$a} <=> $summary_paths->{$b}; } keys %$summary_paths;
foreach my $path (@path_list) {
my (@path_segments) = split(/ /,$path);
my $partial = shift @path_segments;
my $count = $detail_paths->{"$partial "};
print " $partial ($count)";
foreach my $segment (@path_segments) {
$count = $detail_paths->{"$partial "};
print " -> $segment ($count)";
}
print "\n";
}
It is *much* smaller if you don't insist on knowing the intermediate
node numbers in addition to the overall numbers.
--
Benjamin Franz
------------------------------
Date: Sat, 08 May 1999 14:34:11 GMT
From: snowhare@long-lake.nihongo.org (Benjamin Franz)
Subject: Re: How to keep travelled path in hash ?
Message-Id: <DXXY2.11022$ny.894654@typhoon-sf.snfc21.pbi.net>
In article <HPXY2.11021$ny.893951@typhoon-sf.snfc21.pbi.net>,
Benjamin Franz <snowhare@long-lake.nihongo.org> wrote:
>In article <7h140c$50v$1@xenon.inbe.net>,
>Michel Dalle <michel.dalle@usa.net> wrote:
>>>
>>But still, it would be nice to be able to build a graph of the top N travelled
>>paths, no ?
>
Oops. Posted buggy code. Here is the corrected version.
#!/usr/bin/perl -w
use strict;
my $summary_paths = {};
my $detail_paths = {};
my $users = {};
my ($user,$user_path,$line);
while ($line = <STDIN>) {
chop $line;
my ($who,$when,$where) = split(/ /,$line,3);
# This user
$user = $users->{$who};
if (not defined $user) {
$users->{$who} = '';
$user_path = $where;
} else {
$user_path = $users->{$who};
$user_path .= " $where";
}
$users->{$who} = $user_path;
$detail_paths->{$user_path}++;
}
while (my ($user,$path) = each %$users) {
$summary_paths->{$path}++;
}
print "Paths:\n";
my @path_list = sort { $summary_paths->{$a} <=> $summary_paths->{$b}; } keys %$summary_paths;
foreach my $path (@path_list) {
my (@path_segments) = split(/ /,$path);
my $partial = shift @path_segments;
my $count = $detail_paths->{$partial};
print " $partial ($count)";
foreach my $segment (@path_segments) {
$partial .= " $segment";
print " -> $segment ($detail_paths->{$partial})";
}
print "\n";
}
--
Benjamin Franz
------------------------------
Date: Sat, 08 May 1999 07:02:53 -0700
From: Nate <no@onehere.not>
Subject: Re: https help
Message-Id: <3734440D.2823@onehere.not>
I have a little script that reads in a http doc on the site, maybe you
could have a regular http page that internally (cgi script?) checks the
status of the server, anyway, if http works (its up) then most likely
the rest is too.
***************************************************************
Computer Problems? Free on-line solutions to your problems at:
http://www.nocrash.com/ * Database of solutions, free!
Drivers, DLL's, Programs, Free CGI Scripts, Programmer's Area
***************************************************************
mjz01@health.state.ny.us wrote:
>
> I need to check a server to see that it is up and running properly. The
> server is accessed using https:// connection where the user has to enter a
> valid user name and passwd to gain access. I would like to write a script
> that will go to this https site, enter the valid user id and passwd and
> verify that it gained access to the server (thereby stating that the server
> is up and running)
>
> Can someone point me in the right direction?
>
> Thank you in advance for your time
>
> Mike
>
> mjz01@health.state.ny.us
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 8 May 1999 11:38:40 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: local vs. my
Message-Id: <7h17o0$1q0$1@gellyfish.btinternet.com>
On Fri, 07 May 1999 16:29:57 -0700 Phil Voris wrote:
>
> my limits scope to the sub whereas
> local replaces the global version of something for the duration of the
> scope,
>
s/sub/containing block/ ;
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 8 May 1999 07:12:34 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: local vs. my
Message-Id: <MPG.119de626c3553b3d989a10@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <7h17o0$1q0$1@gellyfish.btinternet.com> on 8 May 1999
11:38:40 -0000, Jonathan Stowe <gellyfish@gellyfish.com> says...
> On Fri, 07 May 1999 16:29:57 -0700 Phil Voris wrote:
> >
> > my limits scope to the sub whereas
> > local replaces the global version of something for the duration of the
> > scope,
>
> s/sub/containing block/ ;
s/sub/containing block, if any/ ;
'my' works fine at the top level of the source file. Either 'my' or
"use vars ..." is required by "use strict 'vars';" for every variable.
Are you picking up 'airy semicolons' from Uri? :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 08 May 1999 07:25:32 -0700
From: Nate <no@onehere.not>
Subject: Re: Looking for Perl Program
Message-Id: <3734495C.7A94@onehere.not>
Arthur Merar wrote:
>
> Hello,
>
> I am looking for a Perl program or CGI program that will count the
> hits on my web page. I do not want to use any Server Side Includes.
> Just something that I can call from my HTML document to increment the
> hits and display some GIF images.......
With this script you can access it like a image or as a SSI.
It e-mails you EVERY DAY if you like, real nice feature... and will send
a short message to your text pager if you want. If not take that code
out.
I put as many comments as I could in it, so it should be easy to modify.
This and other example scripts and C source are in the "developers"
area. Filename "daylogger".
http://www.nocrash.com/
***************************************************************
Computer Problems? Free on-line solutions to your problems at:
http://www.nocrash.com/ * Database of solutions, free!
Drivers, DLL's, Programs, Free CGI Scripts, Programmer's Area
***************************************************************
------------------------------
Date: Sat, 08 May 1999 10:38:58 GMT
From: sitaram@diac.com (Sitaram Chamarty)
Subject: Re: Making executables from .pl files?
Message-Id: <slrn7j5ttk.7h6.sitaram@japh.unidata.com>
On 06 May 1999 19:39:12 -0700, Russ Allbery <rra@stanford.edu> wrote:
>Oh, in answer to your last statement, the only two pieces of software I
>use regularly for which I don't have source are Solaris and Purify. Both
And even Solaris source is available, I believe, for a price. It
is available to ".edu" folks, at any rate - so you should be able
to get it if you wanted to.
That leaves only Purify :-)
------------------------------
Date: 8 May 1999 09:14:41 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: MS Access database
Message-Id: <7h0va1$1fu$1@gellyfish.btinternet.com>
In comp.lang.perl.misc howard dierking <hdierking@email.msn.com> wrote:
> The problem that I'm having is
> that the client wants to run the site off of Linux/Apache -- and I don't
> know how Access works on this kind of scenario.
>
Access *doesnt* work in this kind of scenario - you will have to put the
data in some format that can be used on Linux : MySQL for instance.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 08 May 1999 10:39:01 GMT
From: sitaram@diac.com (Sitaram Chamarty)
Subject: Re: Newsfeed and Local Weather
Message-Id: <slrn7j640l.7jb.sitaram@japh.unidata.com>
On 02 May 1999 00:01:51 -0400, Uri Guttman <uri@sysarch.com> wrote:
>i actually use some commas and fully use periods. i don't know how i got
>into this habit of lower case but i like it now. i do caps for permanent
Like e.e.cummings? Oh well - considering how many people use
all-caps, I guess all-lowercase is better than that!
------------------------------
Date: 8 May 1999 12:09:08 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: NT - Attaching to a different domain
Message-Id: <7h19h4$1th$1@gellyfish.btinternet.com>
On Mon, 03 May 1999 16:24:50 GMT mirak63@yahoo.com wrote:
> Hello,
>
> I am able to use the "net use" command to attach to a server in a
> different domain using "net use t: \\SERVER\D$ /user:DOMAIN\USERNAME"
> This will allow me to connect to a server in a different domain as a
> user in that domain. Now for the question.
>
> Can I do this using Win32::
> I have tried using the NetResource hash but am not having much luck.
>
Yes : Win32::NetResource::AddConnection is what you are looking for
but I am on a Linux machine here so I cant give any more information.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 8 May 1999 13:27:36 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: ODBC and Access memo fields
Message-Id: <7h1e48$2rj$1@gellyfish.btinternet.com>
On Fri, 07 May 1999 19:13:59 GMT gregarine wrote:
> Thanks, I probably will just rewrite in Visual Basic
Ungrateful wretch - never darken our doorsteps again ;-}
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 8 May 1999 12:18:51 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl install problems - bsdos
Message-Id: <7h1a3b$1tk$1@gellyfish.btinternet.com>
On Tue, 04 May 1999 12:25:50 +1000 Ken Blinco wrote:
> Hi,
>
> O/S: BSD/OS 3.1
> Perl: perl5.005_03
>
> I'm trying to install this version of perl on an Intel box running bsdos. I am
> having no luck at the moment. The most common error message I get is:
>
> shlicc2 -o miniperl miniperlmain.o libperl.a
> pp.o: Undefined symbol _pow referenced from text segment
It looks like you need to specify your math library when you are asked
by configure to specify any extra libs : probably -lm.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 8 May 1999 13:12:43 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: problems with SunOS 5.5
Message-Id: <7h1d8b$2og$1@gellyfish.btinternet.com>
On 7 May 1999 14:29:25 GMT I R A Aggie wrote:
>
> Ummm...does this look like the CGI help desk??? ;)
>
He. There have been days of late when the answer to that might be yes.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 8 May 1999 08:48:24 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: read files in Perl
Message-Id: <7h0too$1cs$1@gellyfish.btinternet.com>
On Sat, 08 May 1999 00:20:43 -0700 Roberto wrote:
> Hi,
> how can I read a file from another url using Perl script?
> Thank you very much
>
Use one of of LWP::* modules available from CPAN
perl -MLWP::Simple -e'getprint("http://localhost")'
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 08 May 1999 10:47:40 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: read files in Perl
Message-Id: <7h13p8$64e$1@fir.prod.itd.earthlink.net>
[ courtesy cc sent by mail if address not munged ]
roberto@mysacramento.com wrote:
>Hi,
>how can I read a file from another url using Perl script?
perldoc LWP
perldoc Net::FTP
Good luck
------------------------------
Date: 8 May 1999 11:01:37 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Rejecting unwanted hits
Message-Id: <7h15ih$1po$1@gellyfish.btinternet.com>
On Fri, 07 May 1999 16:45:06 -0500 Ed Lake wrote:
> I'm looking for a way to reject hits on my web site that come from links
> on certain other web sites. Someone told me that it can be done by
> inserting some PERL code into the index.cgi file.
>
I'm sure that its entirely possible
> I'm totally new at this, and I'm wondering if this is the right place to
> start asking questions. I've never coded anything in PERL, and I've
> never modified my index.cgi file. Among other things I'm going to need
> to know is how to quickly recover if what I try to do doesn't work. Is
> there a FAQ file? Am I in the right ballpark here?
>
Yes there is a FAQ but unfortunately it isnt for this group :
<http://www.webthing.com/tutorials/cgifaq.html>
The group in question is :
comp.infosystems.www.authoring.cgi
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 08 May 1999 09:09:46 -0500
From: Ed Lake <writer@wi.net>
Subject: Re: Rejecting unwanted hits
Message-Id: <373445AA.12EEABCB@wi.net>
Jonathan Stowe wrote:
> On Fri, 07 May 1999 16:45:06 -0500 Ed Lake wrote:
> > I'm looking for a way to reject hits on my web site that come from links
> > on certain other web sites. Someone told me that it can be done by
> > inserting some PERL code into the index.cgi file.
> >
>
> I'm sure that its entirely possible
>
> > I'm totally new at this, and I'm wondering if this is the right place to
> > start asking questions. I've never coded anything in PERL, and I've
> > never modified my index.cgi file. Among other things I'm going to need
> > to know is how to quickly recover if what I try to do doesn't work. Is
> > there a FAQ file? Am I in the right ballpark here?
> >
>
> Yes there is a FAQ but unfortunately it isnt for this group :
>
> <http://www.webthing.com/tutorials/cgifaq.html>
>
> The group in question is :
>
> comp.infosystems.www.authoring.cgi
>
> /J\
> --
> Jonathan Stowe <jns@gellyfish.com>
> Some of your questions answered:
> <URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
> Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
Jonathan,
Great! Thanks! I also got an e-mail with lots of information to go through.
One question to make sure I'm still in the right ballpark: Is there some "best"
way to reject hits from links on other web sites? I just spent a couple weeks
trying to make some code work in a .nsconfig file, and as far as I can tell, it
was all wasted time because it doesn't appear that the .nsconfig file can work off
of the HTTP_referrer domain name. So, now I'm looking into modifying my index.cgi
file. Does anyone know if there a better way?
Basically, all I want to do is reject hits coming from links on two specific
sites, while letting everyone else in the world through.
Ed
------------------------------
Date: 8 May 1999 11:54:58 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Runninf external programs from Perl on NT
Message-Id: <7h18mi$1q3$1@gellyfish.btinternet.com>
On Mon, 03 May 1999 11:34:15 GMT adrianobarenco454@my-dejanews.com wrote:
>
> I am trying to run an external program from perl. I use the system command:
>
> ...
> system('progname');
> ...
>
> I would like the Perl program to to stop until execution of the external
> program is finished. I've read that this is what is supposed to happen.
> However, in my case, it seems that perl launches the program and goes
> straight to the next instruction.
>
> Is there a way around that?
>
> I am using the activestate port on a NT4 platform.
>
If the program that you are running is a Windows executable such as
'notepad.exe' then the chances are that it will execute asynchronously
as it does if you run from the command prompt - you might be able to
cause it to wait by using some Win32::Process (or whatever) module but
I'm not sure of the details.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Fri, 7 May 1999 12:41:12 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Running perl script via browser
Message-Id: <835vg7.au8.ln@magna.metronet.com>
peter (godzila@freemail.nl) wrote:
: I was wondering if someone can help me with the following:
: I have perl script test.pl, and want to run it via my web browser using
: CGI or so.
: Can one of you tell me how to make this script web enable or provide me
: some URL were to find how to do this.
Perl FAQ, part 3:
"Where can I learn about CGI or Web programming in Perl?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 08 May 1999 07:06:54 -0700
From: Nate <no@onehere.not>
Subject: Re: Running perl script via browser
Message-Id: <373444FE.C4@onehere.not>
peter wrote:
>
> I was wondering if someone can help me with the following:
> I have perl script test.pl, and want to run it via my web browser using
> CGI or so.
> Can one of you tell me how to make this script web enable or provide me
> some URL were to find how to do this.
Just a thought, there is a version of Perl for Windows, you didn't say
what you were running, but I assume you meant on a PC with Win.
***************************************************************
Computer Problems? Free on-line solutions to your problems at:
http://www.nocrash.com/ * Database of solutions, free!
Drivers, DLL's, Programs, Free CGI Scripts, Programmer's Area
***************************************************************
------------------------------
Date: Sat, 08 May 1999 09:25:11 GMT
From: keinanen@sci.fi (Paul Keinanen)
Subject: Re: Scripting language with LFN support?
Message-Id: <3783f3ab.2242686652@news.sci.fi>
On Sun, 18 Apr 1999 10:24:39 GMT, amacleod@altavista.net wrote:
: Is there a scripting language in NT (akin to shell, batch, perl etc.) that
: supports long file names?
As a related question, is there a scripting language for NT that would
also support batch files written in Unicode ?
While Unicode characters can be used on the command line and you can
have file names containing Latin, Greek and Cyrillic characters in the
same file name, the standard NT command script execution does not
accept command scripts written in Unicode (2 bytes/char).
------------------------------
Date: Sat, 08 May 1999 14:41:25 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Slice [N..end] of unnamed array?
Message-Id: <37344CAD.9A39EC17@home.com>
[posted & mailed]
Uri Guttman wrote:
>
> >>>>> "AQ" == Ala Qumsieh <aqumsieh@matrox.com> writes:
>
> AQ> @list = (split /:/)[$N .. tr/:/:/];
>
> that only works for a split on a single char. but otherwise it is
> cute. there may be a boundary condition if the string begins/ends in :
> but i haven't checked that out carefully.
Only if it ends in : since split drops trailing null fields.
perldoc -f split :-)
> and of course, if the list generation is not from a split on a single
> char, you are out of luck.
There is a very obvious extension to tr//.
@list = (split /:/)[ $N .. s/(:)/$1/g ];
This does the same as above but you can replace : with a pattern. It
has the same problem with trailing null fields but that's easy to fix.
@list = (split /$pat/)[ $N .. s/($pat)(?!\z)/$1/g ];
Of course these are pretty silly convolutions to avoid a temporary
variable.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 8 May 1999 09:07:03 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Superfluous message with 'system'
Message-Id: <7h0urn$1fq$1@gellyfish.btinternet.com>
On Fri, 07 May 1999 20:15:44 GMT Marco Jacques wrote:
> I have a superfluous message when I'm using the 'system' function under
> Windows98. The message says : 'Invalid switch', even if the command is
> executed correctly. Is there a bug in the Perl distribution that I am
> using (ActivePerl, version 5.004_02) ?
>
'Invalid switch' is not a Perl message. I think that you may be passing
a superfluous '/' to your command - but would need to see your code
ti be certain.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 8 May 1999 12:48:26 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Telnet module and perl script to telnet to remote, perform commands and log output
Message-Id: <7h1bqq$2nr$1@gellyfish.btinternet.com>
On Fri, 07 May 1999 22:17:11 GMT KaledBait wrote:
> Hi,
>
> I am attempting to write a perl script that will connect to a
> remote host via telnet, login, perform a couple of commands, log the
> output generated by those commands and then logoff.
>
> In a previous post a few weeks ago I noticed someone mention
> there is a telnet module that will allow you to perform commands on a
> remote host.
>
That module will be Net::Telnet which is available from all participating
branches of CPAN.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 8 May 1999 06:35:41 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: using $, (was Re: having problems)
Message-Id: <MPG.119ddd8021eae8e5989a0e@nntp.hpl.hp.com>
In article <3733e998.314775@news.skynet.be> on Sat, 08 May 1999 07:38:44
GMT, Bart Lateur <bart.lateur@skynet.be> says...
> Larry Rosler wrote:
>
> >What file? I think you missed the smiley. :-)
> >
> >NUL is the PoB name for /dev/null. If you are using Unix, use
> >'/dev/null' and there will be no file to write or remove.
>
> So you need OS dependant code.
Yes, until someone writes File::Bitbucket. Most filenames are OS
dependent.
> Doesn't use of '/dev/null' or equivalent change the execution speed?
Intentionally. It reduces system overhead and variance. In this
newsgroup, we should be more interested in the performance of perl than
in the performance of the file system.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
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 5604
**************************************
