Octavian Rasnita wrote at Thu, 11 Jul 2002 17:49:57 +0200:
> I try to print the \n character as \015\012 but I don't know why it works and why
>\013\010 doesn't
> work.
>
> Isn't CR character ascii 13 and LF character ascii 10?
>
> What is wrong here?
In fact CR is ASCII 13 and LF is ASCII 10
> why aren't you using:
>
> use CGI::Carp 'fatalsToBrowser';
This is VERY limited, and doesn't even catch some signals... The best solution is to
build a custom SIG handler that makes reference to the caller function as it is dieing
(can be used very nicely with warnings as well).
Shawn
[sn
my $title;
open (FH, HTML_HOME . $directory . $content) or die "Cannot open file : $!";
while (){
chomp;
$title=m/(.*)<\/title>/i?$1:$content;
}
print $title;
But, I don't see how this will work to well if this file has more than one line
(unless the title tag is on the last line of the file
Octavian Rasnita wrote:
> Hi all,
>
> I want to calculate how much time a Perl script runs.
> Can you tell me how to calculate using fractions of a second?
if you are doing this in unix, have you tried the timex command?
--
---
Just Your Friendly Neighborhood
_SPIDEY_
on Thu, 11 Jul 2002 11:26:05 GMT, Octavian Rasnita wrote:
> I want to calculate how much time a Perl script runs.
> Can you tell me how to calculate using fractions of a second?
>
> The script may run in less than a second, but Perl always tell me 1
> second, or 2 seconds, etc.
Use the Time::H
Max Clark wrote:
> I am trying to write a cgi program to "tail -f" a log file. I have a perl
> script that will open and print the log file, however it closes as soon as
> it reads whatever is in the file at that particular time. How do I mimic
> "tail -f" functionality?
try the qx// operator:
Shane,
Um, first of all, you probably shouldn't be modifying your cgi script dynamically,
Lots of room
for error. What you should be doing instead is perhaps updating a text file that the
cgi script
will open and use as its "Insert content here" content.
Next, how is the template.cgi be
Yes, we didn't even think about that until after someone else on this list mentioned
it. We fixed it.
John Pitchko
Data Services
Saskatchewan Government Insurance
>>> "Shawn" <[EMAIL PROTECTED]> 07/12/02 04:07am >>>
my $title;
open (FH, HTML_HOME . $directory . $content) or die "Cannot open fil
On 12 Jul 2002 12:16:39 -, [EMAIL PROTECTED] (Felix
Geerinckx) wrote:
>on Thu, 11 Jul 2002 11:26:05 GMT, Octavian Rasnita wrote:
>
>> I want to calculate how much time a Perl script runs.
>> Can you tell me how to calculate using fractions of a second?
>Use the Time::HiRes module. See
>
>
On Fri, 12 Jul 2002 08:24:55 -0400, [EMAIL PROTECTED] (Fliptop)
wrote:
>Max Clark wrote:
>
>> I am trying to write a cgi program to "tail -f" a log file. I have a perl
>> script that will open and print the log file, however it closes as soon as
>> it reads whatever is in the file at that particu
- Original Message -
From: "Max Clark" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, July 11, 2002 6:43 PM
Subject: "tail -f" with cgi
> Hi,
Hello Max,
>
> I am trying to write a cgi program to "tail -f" a log file. I have a perl
> script that will open and print the l
> -Original Message-
> From: Octavian Rasnita [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, July 11, 2002 11:50 AM
> To: [EMAIL PROTECTED]
> Subject: May be off topic
>
>
> Hi all,
>
> I try to print the \n character as \015\012
Actually "\n" is just "\012". "\015\012" are "\r\n".
> b
> -Original Message-
> From: Max Clark [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, July 11, 2002 7:44 PM
> To: '[EMAIL PROTECTED]'
> Subject: "tail -f" with cgi
>
>
> Hi,
>
> I am trying to write a cgi program to "tail -f" a log file. I
> have a perl
> script that will open and print
Alright, what's a "tail -f"?
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Friday, July 12, 2002 11:09 AM
To: 'Max Clark'; '[EMAIL PROTECTED]'
Subject: RE: "tail -f" with cgi
> -Original Message-
> From: Max Clark [mailto:[EMAIL PROTECTED]]
> Sent: Thur
- Original Message -
From: "Bob Showalter" <[EMAIL PROTECTED]>
To: "'Max Clark'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Friday, July 12, 2002 11:08 AM
Subject: RE: "tail -f" with cgi
> > -Original Message-
> > From: Max Clark [mailto:[EMAIL PROTECTED]]
> > Sent: Thursda
> -Original Message-
> From: Shawn [mailto:[EMAIL PROTECTED]]
> Sent: Friday, July 12, 2002 12:29 PM
> To: Bob Showalter; 'Max Clark'; [EMAIL PROTECTED]
> Subject: Re: "tail -f" with cgi
>
>
>
> - Original Message -
> From: "Bob Showalter" <[EMAIL PROTECTED]>
> To: "'Max Clark'
I found the file::tail module on cpan...
#!/usr/bin/perl -w
use File::Tail;
my $log = "/usr/local/apache2/logs/access_log";
$file=File::Tail->new
(
name=>$log,
interval=>2,
maxinterval=>10
);
while (defined($line=$file->read)) {
print "$line";
}
It does exact
on Fri, 12 Jul 2002 15:35:06 GMT, Zentara wrote:
> On 12 Jul 2002 12:16:39 -, [EMAIL PROTECTED] (Felix
> Geerinckx) wrote:
>
>>on Thu, 11 Jul 2002 11:26:05 GMT, Octavian Rasnita wrote:
>>
>>> I want to calculate how much time a Perl script runs.
>>> Can you tell me how to calculate using fra
Hello,
Is there a way of varying the key fields in a where statement? I don't
mean putting
a variable in as the VALUE of the key. I know you can using a "?".
What I want to do
is allow the user to see all of a particular set of records (primary key
being client) if the date is equal to the curre
Maureen E Fischer wrote:
> Hello,
> Is there a way of varying the key fields in a where statement? I don't
i would suggest posting your questions on a more appropriate mailing list.
http://www.perl.com/pub/a/language/info/mailing-lists.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
20 matches
Mail list logo
