On Thu, 29 Nov 2001 10:41:05 +, Simon Oliver
<[EMAIL PROTECTED]> wrote:
>I would 'cc' this directly to ActiveState but can't find a developer
>contact in the docs.
>From the PPM page on ASPN:
http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/
| For support please email ActiveSt
I'm not that great at Perl, nor can I figure out how to get the Debugger
to help me. The following must sort of kill itself after the 4th line,
because none of the "prints" trigger after the "readdir". Am running
this from a command line window under Win2K. The directory indicated in
1st line
Also, what does the parameter list look like for the
'Play' command? Specifically, what's the second
parameter supposed to represent?
--- "Morse, Richard E." <[EMAIL PROTECTED]> wrote:
> Ummm... have you tried to pass a "0" in to the
> function?
>
> Ricky
>
> > -Original Message-
> > F
Ummm... have you tried to pass a "0" in to the function?
Ricky
> -Original Message-
> From: Doug Claar [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, November 29, 2001 5:08 PM
> To: [EMAIL PROTECTED]
> Subject: [Fwd: Re: null pointer & OLE]
>
> Thanks for the suggestions! Still no jo
Thanks for the suggestions! Still no joy, though...
If I use undef, I get:
my $result=$control->Play(phEventClose, undef, phDialogSilent);
Win32::OLE(0.1401) error 0x8002000f: "Parameter not optional"
in METHOD/PROPERTYGET "Play"
Pack gives a different error:
my $nothing=pack "
Thanks to all those who responded
Rob
-Original Message-
From: Plane, Robert
Sent: Thursday, November 29, 2001 3:32 PM
To: '[EMAIL PROTECTED]'
Subject: Regular expression help
I need help creating a regular expression to do the following.
I have the following numbers:
1006326869812
> I have the following numbers:
> 1006326869812
> 563296853235993
> 35968322963568389
>
> and it needs to be broken up like this
>
> 1006-3268-69812
> 563296-8532-35993
> 35968322-9635-68389
>
> Notice the second group of numbers is always 4 places and the
> last group is always 5 pla
<[EMAIL PROTECTED]> wrote:
> I need help creating a regular expression to do the following.
>
> I have the following numbers:
>
> 1006326869812
> 563296853235993
> 35968322963568389
>
> and it needs to be broken up like this
>
> 1006-3268-69812
> 563296-8532-35993
> 35968322-9635-68389
>
> Notice
How about something like
s/(\d+)(\d{4})(\d{5})/$1-$2-$3/
?
--- [EMAIL PROTECTED] wrote:
> I need help creating a regular expression to do the
> following.
>
> I have the following numbers:
>
> 1006326869812
> 563296853235993
> 35968322963568389
>
> and it needs to be broken up like this
>
> 1
Here is a start:
if the needs to numeric and the format stated, then change the
s/^(\d+)(\d{4})(\d{5})$/$1-$2-$3/ to
if ( s/^(\d+)(\d{4})(\d{5})$/$1-$2-$3/ ) {
}else {
#error of sometype
}
#!perl -w
while ( ) {
chomp;
s/^(\d+)(\d{4})(\d
You don't even need a regex although you could use one...
# untested
my $num = 92739874598745;
$num =~ /^(\d*)(d{4})(\d{5})$/;
my ($n1, $n2, $n3) = ($1, $2, $3);
Or you could do this...
# untested
my $num = 92739874598745;
my $n1 = substr($num, 0, length($num) - 9);
my $n2 = substr($num, -9, 4
[EMAIL PROTECTED] wrote:
> I need help creating a regular expression to do the following.
>
> I have the following numbers:
>
> 1006326869812
> 563296853235993
> 35968322963568389
>
> and it needs to be broken up like this
>
> 1006-3268-69812
> 563296-8532-35993
> 35968322-9635-68389
>
> Not
for $number (1006326869812, 563296853235993 , 35968322963568389){
print "$1-$2-$3\n" if ($number =~ /(\d*)(\d{4})(\d{5})/);
}
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> [EMAIL PROTECTED]
> Sent: Thursday, November 29, 2001 3:32 PM
>
I need help creating a regular expression to do the following.
I have the following numbers:
1006326869812
563296853235993
35968322963568389
and it needs to be broken up like this
1006-3268-69812
563296-8532-35993
35968322-9635-68389
Notice the second group of numbers is always 4 places and t
I noticed that PPM3 choked when I tried to add a repository that had a
question mark in it. It loaded other urls fine but crashed at function
"new" when I added one with the same formatting as the other 2 repositories
that come listed. PPM3 does not list modules installed by PPM.
- Original
Back with the nimda virus, the attachment was a .exe but the MIME type was
set to audio/wave. This causes WMP or other media player to automatically
open the file effectively auto-executing the program.
- Original Message -
From: "Jeffrey" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent
:: Still getting buffer overflow. What is this newbie doing
wrong??
1) Your emails come with a dirt-brown color, instead of plain text. There
are quite a few otherwise very generous and helpful people on this list who
just plain refuse to answer letters that come with HTML formattin
You
can't just call the sub.. you have to give it a value or you haven't changed
anything. Did you read the explanation in the docset? Try this line
instead:
$temp
= $t->max_buffer_length(4194304); #$temp is a throwaway local var
for storing the results of this operation.
--
Still getting buffer overflow. What is this
newbie doing wrong??
my $len = 3001000;
.
.
.
.
$t = new Net::Telnet (Timeout => 200, Prompt
=> '/root\@hsvaps1/'); $len =
$t->max_buffer_length; $t->open("hsvaps1"); $t->login($username,
$passwd); # roll copy of
> -Original Message-
> Behalf Of Margaret Quinn
>
> Hi All,
>
> I have used the code below to query a database on my win98
> machine I can use
> both these methods and they work on my machine - with a
> comparable speed -
> but on some machines the first connect string method - runs ter
Put it
right after you open the telnet object...
-Original Message-From: Bryan Bateman
[mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29,
2001 1:40 PMTo: Chad TowerCc:
[EMAIL PROTECTED]Subject: Re: Help for
Net::Telnet
When and where do I apply it in the
code?
When and where do I apply it in the
code??? No code example.
- Original Message -
From:
Chad Tower
To: 'Bryan Bateman'
Cc: '[EMAIL PROTECTED]'
Sent: Thursday, November 29, 2001 1:22
PM
Subject: RE: Help for Net::Telnet
The
so
The
solution is right in the docs... look up max_buffer_length(). That will
solve your problem.
-Original Message-From: Bryan Bateman
[mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29,
2001 1:19 PMTo: Bryan Bateman;
[EMAIL PROTECTED]Subject: Re: Help for
Net::Tel
I will post here then.
@lines = $t->cmd("cat
/usr/unifi/log/pipe_log/*");
This statement creates a buffer overrun when cat'ed
files are over 1 meg in size.
Any ideas???
- Original Message -
From:
Bryan Bateman
To: [EMAIL PROTECTED]
Martin Ehrhard wrote:
> When using NET::SMTP I am having a hard time trying to send
> and email when
> the address I am sending it to is a scalar variable. If
> explicitly declare
> the address it works fine. Any ideas? Thanks!
>
>
> ##Doesn't work
> $emailadd = "jondoe\@russwhit
25 matches
Mail list logo