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
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, 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.
###
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
> > 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:
>
>
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)
#---
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 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
http://www.manning.com/Johnson/index.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
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
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 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
> -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.
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
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
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
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
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
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
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
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
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,
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:
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
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
>
> 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
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
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
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
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
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($
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
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
I am trying to search a string for a "[]". I want to count the amount
of "[]" in the string.
Any IDeas
> 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
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
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
#
#
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
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
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]
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
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
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
>> 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
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
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
46 matches
Mail list logo
