> he says the program is not even being run because
> of the problem in the code abort the whole thing.
Then I suggest you execute the perl code at a
command prompt and see what you get.
Error log
[Sat Jun 2 23:54:00 2001] [error] [client 208.46.234.164] File does not exist:
/var/www/html/homepage.com/flams3.gif
[Sat Jun 2 23:54:00 2001] [error] [client 208.46.234.164] File does not exist:
/var/www/html/homepage.com/404error.html
[Sat Jun 2 23:54:00 2001] [error] [client 208.
I just used that and where the number should be it said
[an error occurred while processing this directive]
thanks for your effort
- Original Message -
From: Johnathan Thibodeau
To: Luinrandir Hernson
Cc: [EMAIL PROTECTED]
Sent: Saturday, June 02, 2001 11:35 PM
Subject:
On Sat, 2 Jun 2001, Luinrandir Hernson wrote:
> the command that calls this is
>
Maybe one of the techs at your provider got smart and dissables the SSI
exec command altogether. The less processes running, the better it is for
security and performance in general.
Try using
instead, altough yo
It does not work.
It does not add hits to previous totals and write the new totals to the file.
It does not print the code to the .htm page it was called from to appears as a blue
dash, a green number, and a blue dash
printf "-($count)-";
it does not eat green eggs and ham..errr hmm. its la
> it WAS working..
What does it do now?
Something is wrong with this code
it WAS working..
This code is suposed to work from any of my web pages
and count the number of hits to each web page.
the command that calls this is
Just substitute your homepage for the "homepage" throughout the program
#!/usr/bin/perl -w
#
##gets the nam
Hello,
I'll try to explain what I think is happening, hoping it may be helpful.
my @replies ;
# here we're creating an IO::Select object, good
my $sel = IO::Select->new();
# and adding the socket handle, good also
$sel->add($socket);
# we wait until there are available data to be read.
#
Hi,
I am having problems with the IO::Select classes.
I am trying to read a long string from a pop server.
Accordingly, I have something along the lines of
my @replies ;
my $sel = IO::Select->new();
$sel->add($socket);
while (@ready = $sel->can_read())
{
foreach (@ready)
{
p
> Is there any way of installing modules under
> Windows 2000 without having access to the
> command line.
Some modules monkey around during install.
You might be able to get non-privileged monkeying
around done somehow, by firing off the install
process as a cgi, for example. But that will stil
On Sat, 2 Jun 2001 18:51:20 -0500, Me said:
> > umm I don't know who sent me the \b for audible beep..
>
> Er, I think they suggested "\a"...
>
It's \a for alert, \b for backspace. EOS :-)
_
Do You Yahoo!?
Get your free @yahoo.co
> umm I don't know who sent me the \b for audible beep..
Er, I think they suggested "\a"...
umm I don't know who sent me the \b for audible beep.. but it means to
backspace.. hehe I didn't try it but.. i don't think i'll be using that to
get a audible beep.. thanks for the responces..
~kc~
- Original Message -
From: "~kc~" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Frid
Hi,
Is there any way of installing modules under Windows 2000 without having
access to the command line. The reason I ask is that the web space
provider is using Windows 2000 for their servers but I only have ftp access
to the space.
I have installed modules under Linux before (using a ssh c
Dave Palmer <[EMAIL PROTECTED]>:
> > open PINGRESULTS, ">/tmp/pingresults.$$" or die $!;
> > open PING, "-|" or exec "/usr/sbin/ping", "-sRv", "-I", "1",
> > $pnode, 64, 5);
> > while () { print PINGRESULTS; }
> > close PING;
> > close PINGRESULTS;
Alltho I haven't read thru the original prob
Aanhalen Dave Palmer <[EMAIL PROTECTED]>:
>
> Also... -T can be your friend, espcially with CGI
>
> ./dave
>
> >
> > Dave Palmer wrote:
> >
> > : Your working script is *definitely* the way you want to go...
> > its generally
> > : a no-no to ever give user 'nobody' (e.g. web server) access
David Gilden wrote:
> ($sec, $min, $hour, $wday, $month, $year) = (localtime)[0..5];
The slice is not needed;
($sec, $min, $hour, $wday, $month, $year) = localtime;
is fine. (Extra elements in a list assignment are ignored.)
> 3: $month++; # perl counts from -1 on occasion
I think y
On Sat, 2 Jun 2001, Mark Mogridge <[EMAIL PROTECTED]> wrote,
> Date: Sat, 02 Jun 2001 03:26:52 +0400
> From: Mark Mogridge <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED]
> Subject: Redirecting after creating cookies - I can't!
>
> Hi there!
>
> Redirecting after creating cookies - I can't!
>
> I can
On Sat, 2 Jun 2001 17:36:29 +0100, Nigel G Romeril said:
> Licensing and restriction are tied together, If I write a Perl program and
> license it to a client and he cannot easily copy or pass it on to a third
> party then I can continue to profit from my work. If the source is available
> he
At 09:37 AM 6/2/01 -0700, Randal L. Schwartz wrote:
>Yes, I think these "perl2exe" vendors are really doing the community a
>disservice. They're merely "installation bundlers", not true
>compilers (except in the sense of "compile" as "bringing together").
>The runtime of the program is not improv
On Sat, 2 Jun 2001 12:26:20 -0400, David Gilden said:
> Also I am creating unique files and was thinking of the following:
>
> $unique_file_name 'fourm'. (localtime) . '.html';
>
> is there a better way of doing this, I am saving each entry froma web based guest
>book as
> a separate .h
Licensing and restriction are tied together, If I write a Perl program and
license it to a client and he cannot easily copy or pass it on to a third
party then I can continue to profit from my work. If the source is available
he can pass it on to any third party who does not have to pay a licence
> "Nigel" == Nigel G Romeril <[EMAIL PROTECTED]> writes:
Nigel> I do not have any direct experience of this, but I read in
Nigel> magazine that these Perl to exe interpreters embed the perl
Nigel> into the exe as plain text. The original code can be recovered
Nigel> by opening the exe in an
Johnathan Thibodeau [[EMAIL PROTECTED]] quoth:
*>Does anybody know where I can find an old copy of the Msql-MySQL<=1.20
*>module? CPAN only has copies dating back to v1.2208.
BackPAN
ftp://onion.valueclick.com/perl/backup.pause/
ftp://onion.valueclick.com/perl/backup.pause/authors/id/J/JW/JWIE
In the following chunk,
($sec, $min, $hour, $wday, $month, $year) = (localtime)[0..5];
1: $year += 1900;
2: $wday = "0" . $wday if $wday < 10; # adds a leading zero , not needed
3: $month++; # perl counts from -1 on occasion
4: $month = "0" . $month if $month < 10; # same as above
# this
Does anybody know where I can find an old copy of the Msql-MySQL<=1.20
module? CPAN only has copies dating back to v1.2208.
I know I should probably upgrade MySQL instead, but hey, that would just
be more work :)
Johnathan Thibodeau
"But I _am_ using a pop client; I'm telnetting to port 110."
Hello
It seems like you got two issues mixed up slightly. One is the licensing issue
and the other is the restriction issue. Let me elaborate:
Licensing is an agreement between the program supplier and the user regarding
the use of the program, redistribution restrictions, the freedom to modif
Hello
It seems like you got two issues mixed up slightly. One is the licensing issue
and the other is the restriction issue. Let me elaborate:
Licensing is an agreement between the program supplier and the user regarding
the use of the program, redistribution restrictions, the freedom to modif
On Jun 2, Chas Owens said:
>On 02 Jun 2001 01:19:35 -0700, Paul Fontenot wrote:
>> It is a system logfile. That is the way syslog is dumping it into the log.
>
>Can you give an example of a line from each month?
The file has two spaces before the 10th of every month. That's more like
1/3 of the
Hi!!
I'm sorry for the question...
OS of my computer is Redhat6.0, all setting is default.
Below is my program(mylog.pl):
**
#! /usr/bin/perl
use Sys::Syslog;
openlog('MYPROG', 'cons,pid', 'user') || warn "openlog() failed.\n";
I do not have any direct experience of this, but I read in magazine that
these Perl to exe interpreters embed the perl into the exe as plain text.
The original code can be recovered by opening the exe in an editor and
copying and pasting it into a script file that can then be run normally.
-
On 1 Jun 2001, Chas Owens wrote:
> I want to add functionality to a script using a module, but not do not
> want to require the modules use. It looks like the following code
> works, but is it the best way to achieve my goal (yes, I know TMTOWTDI)?
[...]
> $xls = eval "use Spreadsheet::WriteExce
FYI:
The following AIX commands may be useful:
#lslpp -w /usr/bin/perl
#lslpp -l perl.rte
I would suggest obtaining perl for AIX at:
http://www.bull.de/pub/aix432_frame.html
downloading it and then doing
#smitty installp
after unpacking it.
HTH
~C~
__
Rob talked about
foreach $value(sort {$a <=> $b} (values(%hash)) {
print $value;
}
vs.
foreach $value(sort byNum (values(%hash)) {
print $value;
}
sub byNum {
$a <=> $b;
}
Am I correct in thinking that the anonymous subroutine is vaguely more
efficient?
--
iain.
The \ in /^\#/ is not nessessary (although it doesn't hurt since
"\#" == "#"). Let me write some pseudo code and you tell me if it is
what you meant.
for each key in the hash count
go to the next key unless the key contains a digit character
go to the next key if the contains p2 or P2
I have the following code
}
foreach $word (sort keys %count) {
next unless $word =~ /\d/;
next if $word =~ /p2/i;
next if $word =~ /^\#/
;
have i got the final line right to ignore any lines that begin with a #??
thanks,
Chris
- Original Message -
From: "Chas Owens" <[EMAIL PROTE
in unix you can just use "grep -v '^ *#' filename > filename.new"
the equivalent perl code would look like this
#!/usr/bin/perl
while (<>) { # read lines from stdin or files named on
# the command line
print unless (/^\s*#/); # print $_ (which
Can you give an example of a line from each month?
On 02 Jun 2001 01:19:35 -0700, Paul Fontenot wrote:
> It is a system logfile. That is the way syslog is dumping it into the log.
>
> -Original Message-
> From: Chas Owens [mailto:[EMAIL PROTECTED]]
> Sent: Saturday, June 02, 2001 12:59 A
Just because this is a beginners list:
{ local $/; $entire_file = ; }
works because (please correct me if I am wrong)
{ # blocks get their own variable scope this is done so that we
# can muck with $\ without affecting surrounding code
local $/; # this is easier to see if yo
It is a system logfile. That is the way syslog is dumping it into the log.
-Original Message-
From: Chas Owens [mailto:[EMAIL PROTECTED]]
Sent: Saturday, June 02, 2001 12:59 AM
To: Paul Fontenot
Cc: [EMAIL PROTECTED]
Subject: Re: spaces...
If your data is not supposed to have spaces in i
I need to write a regular expression to eliminate any lines in a text =
file that start with a #. how would I do this.
Many Thanks
If your data is not supposed to have spaces in it you could say:
$record = split / +/, $line;
" +" is regexp for "one or more spaces.
What you really need to do is understand why your field seperator
changes halfway through the month.
On 01 Jun 2001 23:19:24 -0700, Paul Fontenot wrote:
> I hav
42 matches
Mail list logo
