I'm working on a cgi script that basically, upon running it, runs a
separate script in the background, and displays a message saying
"Script is running. Should be done soon." on the web browser and...
that's it. The browser can be closed, and the script will continue to
run in the background. He
Bryan Harris wrote:
The problem is, the output of motuds is not getting written out to the file
immediately. Somehow it's getting cached somewhere, and only gets written
out once in a while. If I type that command on the command line, the tail
command works properly. So something with the exec
>> The problem is, the output of motuds is not getting written out to the file
>> immediately. Somehow it's getting cached somewhere, and only gets written
>> out once in a while. If I type that command on the command line, the tail
>> command works properly. So something with the exec process
On Thu, 20 Nov 2003 13:37:33 -0800, Nick Ellson wrote:
> My problem is how to do a search that will stop at a username, reach
> forward in the file to find the next occurance of TYPE and then STATUS,
> make the replacements, and then continue searching the file for the rest
> of the usernames.
Eas
On Monday, Nov 17, 2003, at 00:27 US/Pacific, Rajesh Dorairajan wrote:
Forgive me for not making myself clear in the first place.
forgive me for having to defer a response,
But this is a really interesting problem and
still requires a bit of thinking.
What I'm trying to do is create a Test framewo
Robert Brown writes:
> drieux writes:
> > the alternative of course is the simpler problem of
> > permissions, and that the web-server can not actually
> > read the file. Do you have a piece of test code that
> > merely opens and reads it?
I have a very simple utility -- actually a debug
Can I improve the performance of script by using constant?
Which is the better one?
use constant const => 1e-12
or
my $const = 1e-12
Thanks.
just another perl beginner
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Rajesh Dorairajan wrote:
Yes. I am able to open the archive using Winzip. However,
my $zip = Archive::Zip->new();
my $status = $zip->read( $archive );
return ( -1 ) if $status != AZ_OK;
fails with the message below. Is there another module that can extract the
archive?
That
drieux writes:
>
> On Friday, Nov 21, 2003, at 10:40 US/Pacific, Robert Brown wrote:
> [..]
> >
> > # open the username/password database or create it
> > dbmopen(%passwd, $passwd_db, 0600)
> > || die "cannot open $passwd_db: $!";
> >
> > And here is what gets logged in /var/log/httpd/e
On Friday, Nov 21, 2003, at 02:21 US/Pacific, but however wrote:
Hi,
I compiled a simple program with perl. But I ran into some problems.
sh: campusUnderAttack.out: bad number
I try to execute a program and input the result to antother file
"campusunderAttack.out"
like this:
#!/usr/bin/perl
#
#
On Friday, Nov 21, 2003, at 10:40 US/Pacific, Robert Brown wrote:
[..]
# open the username/password database or create it
dbmopen(%passwd, $passwd_db, 0600)
|| die "cannot open $passwd_db: $!";
And here is what gets logged in /var/log/httpd/error_log:
[Fri Nov 21 12:12:59 2003] [error] [client 1
> From: Eric Walker [mailto:[EMAIL PROTECTED]
> Sent: Friday, November 21, 2003 1:34 PM
> Subject: search
>
>
> I am trying to search a string for a "[]". I want to count the amount
> of "[]" in the string.
>
> Any IDeas
perldoc -q count
gives you:
How can I count the number of occurren
I am trying to search a string for a "[]". I want to count the amount
of "[]" in the string.
Any IDeas
I got it thanks. I see my mistake..
wow this list is nice..
Thanks again
newbie
On Fri, 2003-11-21 at 14:10, Eric Walker wrote:
OK hash should look like this.
M ->anonhash
a -> value;
b-> value;
c-> value;
does that he
OK hash should look like this.
M ->anonhash
a -> value;
b-> value;
c-> value;
does that help?
On Fri, 2003-11-21 at 14:04, Bob Showalter wrote:
Eric Walker wrote:
> Hey all I know I have been told but I can't seem to access this hash.
> Can
Eric Walker wrote:
> Hey all I know I have been told but I can't seem to access this hash.
> Can anyone look and see why I can't print out any values. The print
> item statement works and prints out the first level of the hash.
> I send in a pointer to $data and $rule.
>
> sub COMMENTSYNC{
> my($
It looks to me like you're trying to dereference the wrong hash.
Try this...
sub COMMENTSYNC {
my($rule,$data) = @_;
my($crule,$temp,@map,$count);
foreach my $item ( keys %{$data} ) {
print ${$item}{'rule_desc'} . "\n";
}
}
If the $data is a reference to a hash of hashes, then when t
Hey all I know I have been told but I can't seem to access this hash.
Can anyone look and see why I can't print out any values. The print
item statement works and prints out the first level of the hash.
I send in a pointer to $data and $rule.
sub COMMENTSYNC{
my($rule,$data) = @_;
my($crule,$temp
Nick Ellson wrote:
> I have a search and replace task and was hoping to get some advice. I
> have a large text file of remote access users from Cisco's ACS
> dumpfile that I need to batch alter 2000 of 3000 users. And example
> user record (they are not all the same size)
they are not all the sam
On Fri, 2003-11-21 at 14:05, John Manko wrote:
> Hi,
> What would be that best library/module for parsing a mail file.
> I want to be able to extract the values for header tags as well as
> the body(including 'recieved by').
John,
Here's a script I wrote to parse mbox files for a spammers
>
> Hi,
> What would be that best library/module for parsing a mail file. I
want to be able to extract the values for header tags as well as the
body(including 'recieved by').
>
I have successfully used:
MIME::Parser
Mail::Box
What is best is *very* subjective, for me it turned out to
Hi,
What would be that best library/module for parsing a mail file. I want to be able
to extract the values for header tags as well as the body(including 'recieved by').
Thanks,
John
From: "Paul Harwood" <[EMAIL PROTECTED]>
> Thanks!
>
> I got it to work using:
>
> $server {$thread}->{$logfile}->{$delay} = [EMAIL PROTECTED];
>
> But I guess it's better to use an array reference?
You are using an array reference.
The difference is that
$server {$thread}->{$logfile
Thanks!
I got it to work using:
$server {$thread}->{$logfile}->{$delay} = [EMAIL PROTECTED];
But I guess it's better to use an array reference?
-Original Message-
From: Jenda Krynicky [mailto:[EMAIL PROTECTED]
Posted At: Friday, November 21, 2003 3:37 AM
Posted To: Perl
Conversation:
I have had to relocate my business and its network to another state.
As a result, I had to change my internet connection. The new
arrangement required that I use l2tp tunnelling, so I had to upgrade
the fireware to redhat 9 to accomodate this (it was RH 6.1!). The
upgrade seemed like a good idea,
I would interest in this answer also.
I have a similar script, however I had to include this line in the beginning to get it
to dial.
(`rasphone -d`);
Not sure why?
Ned Cunningham
POS Systems Development
Monro Muffler Brake
200 Holleder Parkway
Rochester, NY 14615
(585) 647-6400 ext. 310
[EM
At 07:12 PM 11/20/2003, liuxu wrote:
I want to send mail using perl,the following is my code.
There are not any error or warning when the program run.
But i can not receive the mail. Please help me ! thanks!
use Net::SMTP;
$smtp = Net::SMTP->new('192.168.1.169') or die "Can not connect to the mail
At 06:47 PM 11/20/2003, Clint wrote:
Ah that's what's up! The findmodules script is only finding those modules
installed with the new version of Perl (5.8.1) that came on FC1!
How can I modify the findmodules script to find modules that are available
for use, even if I brought them in via CPAN u
Sendmail is a nice Perl module that lets you do this.
http://www.tneoh.zoneit.com/perl/SendMail/
Rajesh
-Original Message-
From: Paul Kraus [mailto:[EMAIL PROTECTED]
Sent: Friday, November 21, 2003 8:36 AM
To: 'liuxu'; [EMAIL PROTECTED]
Subject: RE: how to send mail using Perl
Check ou
Yes. I am able to open the archive using Winzip. However,
my $zip = Archive::Zip->new();
my $status = $zip->read( $archive );
return ( -1 ) if $status != AZ_OK;
fails with the message below. Is there another module that can extract the
archive?
Thanks
Rajesh
-Origin
Lets not forget http://safari.oreilly.com
This site would have saved me 1000's if I had known about it sooner :)
Paul
-Original Message-
From: Eric Greene [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 20, 2003 4:20 PM
To: [EMAIL PROTECTED]
Subject: best beginning perl book is?
t
Check out MIME::Lite.
-Original Message-
From: liuxu [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 20, 2003 10:13 PM
To: [EMAIL PROTECTED]
Subject: how to send mail using Perl
I want to send mail using perl,the following is my code.
There are not any error or warning when the progr
Rajesh Dorairajan wrote:
Hello,
I've an archive (.exe) generated by Installshield that contains the
distribution. I need to extract it to a temporary location and execute the
setup.exe from the Bundle. I tried Archive::Zip, but it bombed with the
message
"format error: can't find EOCD signature
> -Original Message-
> From: liuxu [mailto:[EMAIL PROTECTED]
> Sent: Thursday, November 20, 2003 10:13 PM
> To: [EMAIL PROTECTED]
> Subject: how to send mail using Perl
>
>
> I want to send mail using perl,the following is my code.
> There are not any error or warning when the program run.
Hi Eric,
I was a novice too when I read "Learning Perl" by Randal L. Schwartz & Tom
Phoenix, the O'reilly Lama book.
I thought this book was very well written. The authors did a great job of
intoducing topics in the proper sequence, as to accomodate beginners.
I highly recomend it for anyone lea
From: "Paul Harwood" <[EMAIL PROTECTED]>
> I wrote the following code:
>
> $thread = "TEFD0";
> $logfile = "V_DEBUG12121.txt";
> $delay = "10232";
> @servers = qw (SERVER1 SERVER2 SERVER3 SERVER4);
> $server {$thread}->{$logfile}->{$delay} = @servers;
The first problem is here. You are evaluating
Hi,
I compiled a simple program with perl. But I ran into some problems.
sh: campusUnderAttack.out: bad number
I try to execute a program and input the result to antother file
"campusunderAttack.out"
like this:
#!/usr/bin/perl
#
# Run campus scenario and plot result
#
#run 'campus network under
http://www.manning.com/Johnson/index.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I want to send mail using perl,the following is my code.
There are not any error or warning when the program run.
But i can not receive the mail. Please help me ! thanks!
use Net::SMTP;
$smtp = Net::SMTP->new('192.168.1.169') or die "Can not connect to the mail
server : $! \n";
$smtp->mail('[EMAIL
I wrote the following code:
$thread = "TEFD0";
$logfile = "V_DEBUG12121.txt";
$delay = "10232";
@servers = qw (SERVER1 SERVER2 SERVER3 SERVER4);
$server {$thread}->{$logfile}->{$delay} = @servers;
print @$server {$thread}->{$logfile}->{$delay};
My expectation is that it would simply print out
I have a search and replace task and was hoping to get some advice. I
have a large text file of remote access users from Cisco's ACS
dumpfile that I need to batch alter 2000 of 3000 users. And example
user record (they are not all the same size)
#---
> > Since I anticipate using this module in multiple programs,
> > I'd like to keep the parameter list as generic
> > as possible (in terms of order and requirements).
>
> That is a worthy cause, but remember that the arguments
> that will be passed in need to be passed in a specific order:
>
>
Hello,
I've an archive (.exe) generated by Installshield that contains the
distribution. I need to extract it to a temporary location and execute the
setup.exe from the Bundle. I tried Archive::Zip, but it bombed with the
message
"format error: can't find EOCD signature
Archive::Zip::A
Okay, this was such a pain in the buttocks that I decided to post the
"final" code. (I'll tweak it a bit later, but this is functional) My
apologies to someone, I found the pack(),unpack() part on the Internet,
and I'm not sure who the original author is.
###
Bryan Harris wrote:
I have an odd problem...
I have a perl script that execs another program:
$cmd = "motuds t1.dat t2.dat t3.dat > out1";
exec $cmd;
Motuds takes awhile to run, though, and I often want to see how it's doing:
% tail -f out1
The problem is, the output of motuds is not getting wr
Okay, I made it one step further. I had to convert the variable to a
VT_R8 variable. Now I can't seem to find any documentation on how this
relates to the date. I guess from here on out it's a Microsoft, not a
Perl question, but I'll post the code I have so far, because I know
others have run
46 matches
Mail list logo
