perl.exe application error

2004-10-21 Thread Jutu Subramanian, Srinivasan (Cognizant)
Hai everybody, I am getting the problem(perl.exe application error) while using the following perl script with fork. Can you please clarify? windows os/ perl ver-5.6 ERROR: The instruction at 0x023b1c53 referenced memory at 0x0002. The memory could not be read. Click on OK to terminate

Win32 Printing

2004-10-21 Thread Godish, John
I am using the Win32::Printer module and the output is always blank pages. Anyone else experienced this problem? Any fix? Any other options for Win32 printing? John Godish ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe:

How much trouble do you go to?

2004-10-21 Thread Beckett Richard-qswi266
Guys, I'm checking a variable with a pattern match... $id = * unless ($id =~ /\d{1,3}/); Now, this works everytime, and gives me the result I want, even if $id is undefined. However, if $id IS undefined, I also get this message: Use of uninitialized value in pattern match (m//) at... So, in

AW: How much trouble do you go to?

2004-10-21 Thread Dietmar Fiehn, Dr.
So, in a script that will be distributed to others, should I just turn warnings off You should turn off 'strict', too, to get even faster into trouble. Sorry, but don't even think about turning off. Handle this message or the interpreter is right to talk about. On the other hand this

RE: How much trouble do you go to?

2004-10-21 Thread Joseph Discenza
Beckett Richard-qswi266 wrote, on Thursday, October 21, 2004 8:01 AM : I'm checking a variable with a pattern match... : : $id = * unless ($id =~ /\d{1,3}/); : : Now, this works everytime, and gives me the result I want, : even if $id is undefined. : : However, if $id IS undefined, I

Re: How much trouble do you go to?

2004-10-21 Thread $Bill Luebkert
Beckett Richard-qswi266 wrote: Guys, I'm checking a variable with a pattern match... $id = * unless ($id =~ /\d{1,3}/); Now, this works everytime, and gives me the result I want, even if $id is undefined. However, if $id IS undefined, I also get this message: Use of uninitialized

Re: perl from net drive

2004-10-21 Thread Hon Shi
The networked drive containing the perl distribution can appear as any letter, but perl will always be in it's root: x:\perl, g:\perl, w:\perl The users path can be setup dynamically to take care of this. Pointing to LETTER:\perl\bin isn't a problem. However - there are more than a few hard

How to handle login errors using Net::SSH::Perl??

2004-10-21 Thread JAGADISH, ARCHANA (STSD)
Hi All, I am using Net::SSH::Perl. I would like to handle errors like 1. When sshd is not running on server 2. When user/passwd is wrong. Please help Thanks, Archana ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe:

RE: How much trouble do you go to?

2004-10-21 Thread Beckett Richard-qswi266
$id = * unless defined $id and $id =~ /\d{1,3}/; I usually don't do it that way, it's easier to catch it when you init $id in the first place. Good point $Bill. So, what I should do is: my $id = $botid || *; rather than: my $id = $botid; which could be undefined (depending on how stupid

RE: perl from net drive

2004-10-21 Thread Thomas, Mark - BLS CTR
However - there are more than a few hard references to drive letters (c:) in config.pm, which I understand is something read when perl spins up. If so, I'm dead. Is this correct? Config.pm is written at install time. You must have installed to the C: drive. Have you tried installing to a

RE: How much trouble do you go to?

2004-10-21 Thread Lovett, Alan J
Hi, One option is to always define your vars with 'undef', e.g. my $id = undef; # do something $id = * unless ($id =~ /\d{1,3}/); Alan -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Beckett Richard-qswi266 Sent: 21 October

Re: How much trouble do you go to?

2004-10-21 Thread Michael D Schleif
* Beckett Richard-qswi266 [EMAIL PROTECTED] [2004:10:21:14:10:26+0100] scribed: $id = * unless defined $id and $id =~ /\d{1,3}/; I usually don't do it that way, it's easier to catch it when you init $id in the first place. Good point $Bill. So, what I should do is: my $id =

Re: How much trouble do you go to?

2004-10-21 Thread $Bill Luebkert
Lovett, Alan J wrote: Hi, One option is to always define your vars with 'undef', e.g. my $id = undef; # do something $id = * unless ($id =~ /\d{1,3}/); That's the same as being undefined. You'll still get the error. -- ,-/- __ _ _ $Bill Luebkert

using perl system, exec, ``, and pipes...

2004-10-21 Thread bruce
hi... i'm trying to play with running some apps from within a perl script. i'm having some issues with figuring out how to capture the stdout that the app would generate within the perl script... a sample of code: my $fcmd = system function arg1 arg2; my $res = qx{$fcmd}; my $res = `$fcmd`; my

RE: using perl system, exec, ``, and pipes...

2004-10-21 Thread bruce
never mind! for anybody else needing to know... my $fcmd = system function arg1 arg2; my $res = qx{$fcmd 21}; works ok my $res = `$fcmd 21`; works ok my $res = system($fcmd); doesn't work... if ($res =~ /foo/) { it passes } else { it fails.. } the 21 essentially

Re: using perl system, exec, ``, and pipes...

2004-10-21 Thread $Bill Luebkert
bruce wrote: never mind! for anybody else needing to know... my $fcmd = system function arg1 arg2; Why do you have system in the command ? Should be : my $fcmd = some.exe.path.here arg1 arg2; my $res = qx{$fcmd 21}; works ok my $res = `$fcmd 21`; works ok my $res =

Mark's brain teasing JAPH

2004-10-21 Thread Allegakoen, Justin Devanandan
--8--- #$_=q;steal Porch Junk;;split//;$_=q=cd0153e71; #s/56s/45;39fs/=;y;\;s/;a28s/;;;s;$/;;;s((.))/; #q.$_[..$..$_[10].$_[2].q.x..q.($1)]./gee/print --8--- That's one convoluted JAPH! I like to pick through admirable JAPH's like this in an attempt to learn more

Re: Mark's brain teasing JAPH

2004-10-21 Thread Randy W. Sims
On 10/21/2004 10:55 PM, Allegakoen, Justin Devanandan wrote: --8--- #$_=q;steal Porch Junk;;split//;$_=q=cd0153e71; #s/56s/45;39fs/=;y;\;s/;a28s/;;;s;$/;;;s((.))/; #q.$_[..$..$_[10].$_[2].q.x..q.($1)]./gee/print --8--- Does the following help? $_='steal Porch Junk';