I have to test/optimize a script on a shared server. The script contains a
couple of mySQL queries etc.
Is there a way that I can see the query execution time (like in phymyAdmin) and
total script execution time, plus memory CPU usage? There are a lot of ways
doing it in PHP but nothing in
On Wed, 3 Aug 2005, Sara wrote:
I have to test/optimize a script on a shared server. The script
contains a couple of mySQL queries etc.
Is there a way that I can see the query execution time (like in
phymyAdmin) and total script execution time, plus memory CPU usage?
There are a lot of
The following does not work
#!/usr/bin/perl
use strict;
print qq|Content-type: text/html\n\n|;
print qq|HTMLHEADTITLESeneschals Report/TITLE/HEADBODY|;
print qq|1|;
print qq|/body/html|;
print qq|Content-type: text/html\n\n|;
print qq|HTMLHEADTITLESeneschals Report/TITLE/HEADBODY|;
print
On Wed, 3 Aug 2005, Luinrandir wrote:
The following does not work
Define does not work. It seems to work for me:
$ lynx -mime_header http://localhost/test.pl
HTTP/1.1 200 OK
Date: Thu, 04 Aug 2005 00:49:32 GMT
Server: Apache/1.3.33 (Darwin) mod_perl/1.29
Connection:
Yes the user cgi script is running have permissions to execute that
script...
Infact with the above mentioned methods I am able to execute the script
very well but my cgi script is waiting until it is getting finished,
which I
dont want.
I only want my cgi script to call
Hi list
I have my code as so:
for my $roomCode ( keys %{ $ref_hash-{$fileName} } ){
my $roomName = $ref_hash-{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
$finalHash{$fileName}[0] = $roomName;
my
Brent Clark wrote:
Hi list
I have my code as so:
for my $roomCode ( keys %{ $ref_hash-{$fileName} } ){
my $roomName = $ref_hash-{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
$finalHash{$fileName}[0] = $roomName;
my Data::Dumper
Brent Clark am Mittwoch, 3. August 2005 10.43:
Hi list
Hi
I have my code as so:
for my $roomCode ( keys %{ $ref_hash-{$fileName} } ){
my $roomName = $ref_hash-{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
I need to redefine localy one subroutine and have it correctlly after.
Who do I do it?
sub myPrint () {
print Teste 1\n;
}
sub test {
no strict refs;
no warnings;
my $str = ::myPrint;
#my $backup = $main::{myPrint};
my $backup = *$str;
*$str = sub() {
How many of the following do I have to do:
untaint the $key after it's pulled from the Apache Cookie.
untaint the $username/$password from the login form (DONE).
untaint the $username/$password from the Cache::FileCache object.
Because these variables are passed through a number of objects
sub myPrint () {
print Teste 1\n;
}
sub test() {
no strict refs;
no warnings;
my $subName = ::myPrint;
my $backup = \myPrint;
*$subName = sub() {
print Teste 2\n;
};
myPrint;
*$subName = $backup;
}
myPrint;
test;
myPrint;
On 8/3/05,
Hi Monks,
I'm currently involved in migrating a huge chunk of code (45,000 LOC)
from 'perl/5.6.0a' to 'perl/5.8.5'. A significant part of this code is
made up of calls to 'Tk' widgets / GUIs.
The issue is the following:
This code, which used to work without any problems with 'perl/5.6.0a',
has
marcos rebelo wrote:
I need to redefine localy one subroutine and have it correctlly after.
Who do I do it?
sub myPrint () {
print Teste 1\n;
}
sub test {
no strict refs;
no warnings;
my $str = ::myPrint;
#my $backup = $main::{myPrint};
my $backup =
Hello friends !
Does any one know how to set user-id in perl script? I
mean counter-part of setuid() in perl ??
Regards
-Prasad
PS: Please don't send me html/attachment/Fwd mails
Start your day with Yahoo! - make it
On 8/2/05, Ram [EMAIL PROTECTED] wrote:
I have a situation where a CGI script has to start an independent perl
script and exit without capturing the output or waiting for the exit code.
It doesnt make any practicle sense to me as this perl script takes good 6
hours to run and my CGI script
Jay Savage
[EMAIL PROTECTED]
l.com
On 8/3/05, John W. Krahn [EMAIL PROTECTED] wrote:
marcos rebelo wrote:
I need to redefine localy one subroutine and have it correctlly after.
How do I do it?
$ perl -e'
my $myPrint = sub { print Teste 1\n };
sub test { $myPrint = sub { print Teste 2\n } }
$myPrint-();
test;
Let's try this again :) You were most of the way there the first time,
and the shell script thing I suggested is unnecessary.
system(command /dev/null ); # works for me
Specifically:
sleep.pl:
#!/usr/bin/perl
$|++;
print STDERR time. start of sleep\n;
sleep(5);
print STDERR time.
Prasad J Pandit wrote:
Hello friends !
Hello,
Does any one know how to set user-id in perl script? I
mean counter-part of setuid() in perl ??
You mean that you don't want to use POSIX::setuid()? You might want to
lookup the $ and $ variables in:
perldoc perlvar
John
--
use Perl;
Brent Clark wrote:
Brent Clark wrote:
Hi list
I have my code as so:
for my $roomCode ( keys %{ $ref_hash-{$fileName} } ){
my $roomName = $ref_hash-{$fileName}{$roomCode};
if( $pCode eq 'p110'){
if ($p110rm01 eq $roomName ){
$finalHash{$fileName}[0] = $roomName;
Hi All~
my program below is not returning any errors but nothing is happening to the
.txt files like I hoped. Can someone pls take a look and let me know what
I'm doing wrong.
- Thank you!
# If there is a .pdf file and a matching .txt file, open the .txt file and s
% http://.*
Hi,
I want to run PERL script which will combine several JAVA applications.
Furthermore, I need this script to run in the HTML page.
Is that possible? Can I run this locally on my machine, without a server?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
I have written a small code which will just try to split a string based on the
Key.
-
$val=sample1a+2.8sample2a+2.8sample3a;
print String=$val\n;
print split Key: 2.8\n;
@arr=split(/2.8/,$val);
foreach $i (@arr)
{
print **Split value: $i\n;
}
print **\n;
print
prakash m wrote:
I have written a small code which will just try to split a string based on
the Key.
-
$val=sample1a+2.8sample2a+2.8sample3a;
print String=$val\n;
print split Key: 2.8\n;
@arr=split(/2.8/,$val);
foreach $i (@arr)
{
print **Split value: $i\n;
}
print
prakash m wrote:
I have written a small code which will just try to split a string
based on the Key. -
$val=sample1a+2.8sample2a+2.8sample3a;
print String=$val\n;
print split Key: 2.8\n;
@arr=split(/2.8/,$val);
foreach $i (@arr)
{
print **Split value: $i\n;
}
print
On Wed, 3 Aug 2005, Sonia wrote:
I want to run PERL script which will combine several JAVA applications.
This is possible.
Furthermore, I need this script to run in the HTML page.
This is not possible.
HTML is just a markup language. It tells an application such as a web
browser how to
Hello
I would appreciate it if you would steer me to one or more of those
groups you mentioned that offer pre-packaged version of Apache with
Perl, MySQL and PHP for windows Can these packages run on the same
machine that I have windows running? Do I access these packages from
Windows
On Wed, 3 Aug 2005, Tony Frasketi wrote:
I would appreciate it if you would steer me to one or more of those
groups you mentioned that offer pre-packaged version of Apache with
Perl, MySQL and PHP for windows
A quick Google search turns up several:
Thanks very much Chris for the clear explanation. Sounds like just what
I need - A way to completely build and check out a web site on my own
compter and then be able to migrate it to a hosting service when I'm
ready. Sure beats the local editing and back and forth trips from my
computer to
29 matches
Mail list logo