Re: PAR failure

Hi Rob Thanks for responding On 15/11/2014 2:21 AM, sisyph...@optusnet.com.au wrote: > -Original Message- From: John > Sent: Thursday, November 13, 2014 1:25 PM > To: pw32-users > Subject: PAR failure > >> Attempt to reload Config.pm aborted. > > I've no

PAR failure

borted at C:/bin/Perl/Perl514/lib/Archive/Zip.pm line 14. Compilation failed in require at -e line 228. C:\bin\Perl\Perl514\site\bin/pp: Failed to extract a parl from 'PAR::StrippedPARL::Static' to file 'C:\DOCUME~1\John\LOC ALS~1\Temp\parlsmIWHrx.exe' at C:/bin/Pe

why does perl critic not like @_

IN v_internals_in_work " ."AND asset NOT IN v_completed_internals"); my $count_internals_not_in_work = shift @_; [/code] Critic complains with 'Always unpack @_ first', why? What is so wrong with this usage

Fwd: Re: Q: looking for some AutoIT functionality in Perl

Resending in case it might be useful, sorry it bounced last time. Original Message Subject: Re: Q: looking for some AutoIT functionality in Perl Date: Tue, 13 May 2014 13:43:06 +1000 From: John McMahon Reply-To: j...@jspect.fastmail.com.au To: perl-win32-users

help dbd-anydata / dbi-dbd-sqlengine issue

also have an older perl installation (v5.10) on my computer with DBI v1.616 and DBI-DBD-SqlEngine v0.03 that do not fail as reported here. Thanks John #[perl version]### I am currently using ActiveState ActivePerl V5.14. 12:26>perl -v This is perl 5, version

Re: active directory cookbook

> them? > > > Thanks! > > Rich You might try oreily website they normally host the sample/example code http://examples.oreilly.com/9780596521110/ John ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To

Spreadsheet-WriteExcel write formula

) { $row = $ftop + $cnt; $formula = "=COUNTIF($cell1:$cell2,". xl_rowcol_to_cell($row,$col - 1) .")"; $proj_sht->write_formula($row,$col,$formula,$fmtNmbrCenter); $cnt++ } [\code] Produces cell formula like: =COUNTIF(D2:D136,C

Re: Win32::OLE

e "Access Options" dialog, click "Trust Center". 5. Click "Trust Center Settings...". 6. On the "Trust Center" dialog, click "Macro Settings". 7. Select "Enable all macros" (last option). Best regards, John On Wed, Jun 29, 2011 at 11:06

Win32::OLE

and Perl. I am at my wit's end. Any help would be appreciated. Can you think of any reason such a simple application of the Win32::OLE module would work on one machine and not on another? Thanks, John ___ Perl-Win32-Users mailin

Question about calling my own Access VBA function using Win32::OLE

n you tell me how I might accomplish this? Thanks, John ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: experiencing Out of memory errors

a 64-bit version of Apache that will with with the mod_perl below? On 1/27/2011 6:57 AM, Michiel Beijen wrote: > Hi John, > > ... etc. > > If you would want to switch to StrawberryPerl 5.12.x 64-bit, you can use > this pre-compiled mod_perl: > http://strawberryper

Re: experiencing Out of memory errors

On 1/26/2011 11:22 AM, Brian Raven wrote: > -Original Message- > From: perl-win32-users-boun...@listserv.activestate.com > [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of > John Deighan > Sent: 26 January 2011 15:18 > To: perl-win32-users@listse

experiencing Out of memory errors

We have an Apache/mod_perl application running under Windows Server 2003 that periodically experiences "Out of memory" errors (they appear in the Apache error logs) which forces Apache to restart. Our application does, in fact, use a lot of memory, and we believe that this is not due to a bug or me

perl/tk on win-xp tablet (panasonic toughbook)

problem does not exist in win32::gui. John -- Regards John McMahon li...@jspect.fastmail.fm ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

SOAP::Lite missing in 5.10.1?

I have installed ActivePerl 5.10.1. When I try to install SOAP::Lite using ppm (I start up ppm-shell and enter "install SOAP-Lite", it fails with the message: install failed: Can't find any package that provides Apache:: for SOAP-Lite I have no idea what the part about "Apache::" means

Problems with DBD-ODBC 1.17

This past weekend, we updated software on a production server, and in the process unintentionally updated the DBD-ODBC library from version 1.15 to version 1.17. That change caused our site to fail and we had to roll back to version 1.15. Here are 2 specific problems we found - both may have be

problem with FIRSTKEY in tied hash implementation

We needed to have hashes where values could be found in the hash, even if a key was used that had a different case than the original key used to put the value into the hash. So, I investigated tied hashes in Perl, and soon developed a library to do just that, which seemed to work fine, until re

Re: perl download a winzip file from URL

How about <http://search.cpan.org/dist/libwww-perl/bin/lwp-download> John David M. Funk wrote: > > Hello List, > > I have a perl script that connects to a website using LWP and pulls > down a csv & pdf file from the URL. Both of these a basically ascii > text files

alias problems

I'm trying to create a global variable in my main script, then when I load a Perl module, in it, I want to create an alias to that global in the loaded Perl module. But, when I call a function in that module, the variable is empty (though I know that the global in my script isn't empty). I want

missing ppm libraries

Several Perl libraries have gone missing from ActiveState's 5.8 PPM repository, and our software depends on them. Does anyone know why these libraries are no longer available there? They were there just 2 weeks ago. The libraies are: Date-Calc String-Trigram Devel-Size DBD-ODBC Also, DBI, but

Re: vague error message

tself (and on the first > time through). > Does anyone know what's going on? > Thank you, > Chris > Is it possible to create a sample script that is as small as possible and exhibits the behavior you observed? John ___ Perl-Win32

Re: Net::Ftp to MVS losing last byte?

be changing? Anything > else that I should look at? > > Thanks, > Mike > Are you transferring the files as binary or ASCII? Have turned on logging? If nothing in the code changed, and you have both 5.6 and 5.8 versions available try capturing the transfer in wireshark .

Re: In need of efficient JPEG / GIF module

Totally cryptic man. What specifically are you trying to do with > images ? > How about a small sample of code that illustrates the problem you are having, and are you sure it's the module(s) that you are using that are the cause of slowness? John

RE: control M's

For Windows, I'm fond of the text editor Ultra Edit. It is not expensive and I've been using it for years. (For Mac heads, I suggest BBEdit--I'd use it on Windows if they made a Win version) From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Chris Ro

Changing space to escaped space

I'm trying to change a space to an escaped space. I've tried something like this: $string = ".\\agmptestapp.exe -i .\\performance_in\\3Pages3Squares.pdf -o .\\performance_out\\ -1 -dic never -t ps3 -s irs -ppd AdobePDF 8.0 -timer > timer.txt"; $string =~ s, ,\ ,g; print "string after\n$string\n";

Truncating decimal number

I'm trying to truncate a number, 10.25233006477356, to 6 decimal points. E.g. 10.252330. I don't need to round the number, I just want it to drop everything after the 6th decimal point. This should be easy, but I'm drawing a blank. Thanks ___ Perl-Win32

ppm4 Error - install failed - file conflict

anyone solution? -- Regards John McMahon [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: What is not initialised here?

$_ Thank you Andy I had been thinking my statement above was equiv to do {$_ = shift @data;} until ($_ =~ /Amount); when it is really equiv to until ($_ =~ /Amount/) {$_ = shift @data;} and couldn't see the wood for the trees so to speak. John > #!perl -w > use strict; > my @data

What is not initialised here?

test data. Could someone please explain to me what is not initialised. -- Regards John McMahon [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com

How do I know where my Perl script is running?

Here's my situation: My script is executed by a larger system, from some abitrary directory. How can I tell from which directory my Perl script was executed? I guess I'm looking for something like pwd from UNIX. ___ Perl-Win32-Users mailing list Perl-

Re: File copy across drives?

FYI, in my experience with Windows, "No such file or directory", or "Permission denied" don't necessarily mean what they say. At 08:57 AM 5/10/2007, Dennis Daupert wrote: >Hello list, > >The copy command is failing, error says: > >Copy failed: No such file or directory at D:\Perl\get_files\get_fi

testing subscription - please ignore

-- Regards John McMahon [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Getting file name from a path

Often I need to extract the file name from a path. Typically I do something like following. Any better ways I could do this? #path test $current_file = "c:/somedir/test.ps"; @split_path = split("/",$current_file); $current_file = @split_path[-1]; print $current_file; However, I'm pretty sure I

RE: how to round a floating-point value to an integer value

I think the safest way to round is to add 0.5, then use the POSIX::floor function. The Perl docs warn against using int() for just about anything (I don't have the exact quote handy): use strict; use POSIX qw(floor); MAIN: { foreach my $x ( 0.0, 0.1, 0.2, 0.3, 0.4, 0.5,

perl as a windows service

nothing with regard to Perl. Is the entry refering to the PerlSrv program in the developers kit? Regards, John Norris ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Reading quickly from the end of a file

John Townsend wrote: > I'm looking for a way to read the end of a file quickly. I have scripts > that generate PostScript files (basically really large text files). I'd > like to verify that each PostScript file ends with "%EOF". Rather than > read the entire tex

Reading quickly from the end of a file

I'm looking for a way to read the end of a file quickly. I have scripts that generate PostScript files (basically really large text files). I'd like to verify that each PostScript file ends with "%EOF". Rather than read the entire text file into memeory then parsing each line, I'd like to read from

Re: DLL Exsiting or not in the windows registry..??

ne suggest me any module to search the registry..?? Reference > documentation would also help me..!! > > you suggestions are valuable, > Hoping for the best. > > Thanks and Regards, > Rajesh. > Go here <http://www.roth.net/books/handbo

Re: FW: lazy, lazy, lazy

A non perl solution but depending on the time to develop a solution might be worth the cost <http://www.tethyssolutions.com/automation-software.htm> John Eisengrein, Peter wrote: > Dan had emailed me directly asking how he might go about doing a packet > capture, to which I repl

Re: Crypt::SSLeay not found by Makefile.PL on Windows

This probably doesn't answer your question, but we use Crypt::SSLeay, which we get from the winnipeg reporitory at http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer58. Installed via ppm, of course. It downloads 2 DLL files, which need to be put somewhere in the system path. That mak

Re: readdir problem

At 10:18 AM 11/29/2006, Dan Jablonsky wrote: >Hi all, >I am trying to read only files in a directory; I need >to jump over the dot files and any subdirectories. >Seems like a simple thing, however with > >opendir(DIR, $dir) || die "can't opendir $dir: $!"; >foreach my $file (readdir DIR) >{ > n

Re: FW: Newbie: email from perl script

Turn on debug, or use wireshark to capture the conversation with the server $smtp = Net::SMTP->new('mailhost', Hello => 'my.mail.domain' Timeout => 30, Debug => 1,

Re: what?!?

At 01:52 PM 10/17/2006, $Bill Luebkert wrote: >John Deighan wrote: > > > Trust me - all code has bugs in it. > >That's not true. If you slap a million lines together, then you >have a better chance, but a good programmer in a proper environment >doesn't write b

Re: what?!?

At 11:35 AM 10/17/2006, $Bill Luebkert wrote: >John Deighan wrote: > > > > The problem comes when you have a function that computes an index, > > it's buggy and returns a negative number. > >The point is to debug your code properly. You can't expect buggy code

RE: what?!?

At 09:37 AM 10/17/2006, George Gallen wrote: >Referencing the last element of an array (-1) without having to get >the # of elements first, is VERY useful. Using other negative positions >might not have as many uses, but when you find one, You'll be glad >it's there. The problem comes when you hav

RE: what?!?

At 05:54 PM 10/16/2006, Barry Brevik wrote: > >Now, there's a great feature. If you index before the beginning of an > >array, it neither gives you a runtime error nor returns undef. What a > >If you are expecting the array index to begin at 0, then do some >bounds checking on your "complicated fu

what?!?

my @data = (1, 2, 3); my $index = -1; my $val = $data[$index]; print("val = '$val'\n"); Output: val = '3' Now, there's a great feature. If you index before the beginning of an array, it neither gives you a runtime error nor returns undef. What a great way to end up with a program that produces

ppm files on a CD

We normally install Perl and all the libraries we need by using ppm over the Internet. However, we now have a need for an installation mechanism that doesn't require access to the Internet. I'm pretty sure that (if I knew what I was doing), I could download the files that ppm normally accesses

RE: perl error

At 12:05 AM 7/24/2006, Chris Wagner wrote: It's better to not use strict or use no strict vars.  undef is a perfectly legitimate variable value. Bad advice - you should always "use strict". More importantly, the problem is not "use strict", but "use warnings". In this case, I assume that it's bei

Net-ssh-W32Perl

(yes/no)? [yes] yes johnathlonxpm: Permanently added '220.255.171.11' to the list of known hosts. mkdir "C:\: Invalid argument at F:/perl/site/lib/Net/SSH/Perl/Util/Hosts.pm line 51 Any idea how to get around this error? Its trying to make a directory to store the connection info...I

RE: Win32::SerialPort problem

I'm running 5.8.8-817 and it appears to be included in this one. > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of David Ressler > Sent: Thursday, June 01, 2006 9:28 AM > To: Perl List > Subject: Win32::SerialPort problem > > > I'm trying to use

RE: Network Timeouts

error and then die peacefully. Make sure your script is written NOT to die on not connecting. Perl does not support tcp connect timeouts in Win32. :) John > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Ng, Bill > Sent: Friday, M

RE: Problem with regex

At 09:47 AM 5/12/2006, Yekhande, Seema \(MLITS\) wrote: Holger, Actually $ is a special character in string in perl. So, if the $ is there in the input, you will have to always write it with the leading escape character. So, make your input will be like this, my $data = "Hello, i am a litte S

Re: Problem with regex

The code below worked for me, after using single quotes around the original string to prevent any interpolation (it's always a good practice to print out the original string to verify that it's what you thought it was), and, of course, $Data is not the same as $data. At 08:38 AM 5/12/2006, Ho

Re: Easy One

At 11:07 AM 5/3/2006, David Kaufman wrote: Hi Chris, Chris Wagner <[EMAIL PROTECTED]> wrote: > At 01:28 AM 5/3/2006 -0400, David Kaufman wrote: >> my ($b, $c) = ($1, $2) if $a =~ /^(\D+)(\d+)/; > > U can't combine a my and an if. Perl will go schizo. Sure "U" can :-) I use this type of constru

RE: Easy One

REGEX! > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Ng, Bill > Sent: Tuesday, May 02, 2006 3:55 AM > To: perl-win32-users@listserv.ActiveState.com > Subject: Easy One > > > Real simple, > > I have a string, "$a" for arguments sake, th

Missing PerlIsEx.dll

Twice now, I've installed the latest ActivePerl (from perl-win32-users@listserv.ActiveState.com), and both times, after the installation my Perl/bin folder does not contain PerlIsEx.dll (that's a lowercase 'L' followed by an uppercase 'i' as the 4th and 5th letters). Any ideas? I'm running Mi

RE: Opening an Excel workbook with links to other data sources

[Sorry for the top post, only got a few seconds to get this in...] For what it's worth, the Excel 2003 VBA Help offers this clue to the 'UpdateLinks': UpdateLinks Property Returns or sets an XlUpdateLink constant indicating a workbook's setting for updating embedded OLE links. Read/write. XlU

RE: Opening an Excel workbook with links to other data sources

[Sorry again, left out the most important part] Const xlUpdateLinksUserSetting = 1 Const xlUpdateLinksNever = 2 Const xlUpdateLinksAlways = 3 -Original Message- From: Jarvis, John Sent: Thursday, April 20, 2006 11:03 AM To: 'Lynn. Rickards'; Suresh Govindachar Cc: perl-w

Re: Iffor

At 12:44 AM 4/20/2006, Chris Wagner wrote: At 10:42 AM 4/20/2006 +1000, Sisyphus wrote: >On the subject of replacing brackets with modifiers (which I think was also >raised earlier on), I was surprised to find that using a modifier is about >25% faster than brackets: >'modifier' => 'for(@x) {$z1+

Re: running a perl app

Bruce,To determine the correct path for your perl interpretor, use:    which perl-- John T SheaThere are 2 kinds of people in the world,those who finish what they start ... On 4/18/06, Ng, Bill <[EMAIL PROTECTED]> wrote: First,You're writing to a Win32 (Read: Windows) m

RE: Non-blocking IO?

Win sockets on Win32? not really, the only choice you have is IO::Select. :) John -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Lyle Kopnicky Sent: Tuesday, April 18, 2006 12:22 AM To: Perl-Win32-Users@listserv.ActiveState.com Subject: Non-blocking IO

Win32 Perl Threads SLOW memory leak.

) the memory increases 400Kbytes. Over 24 hours, it increases by ~9.6Mbytesand just keeps going up. I'd like to make my production code a service but can't until I nail down this memory leak. Handles are stable. Any ideas? Cheers, John Code is below: use strict; use warnings; use IO::S

RE: :Select perl question

You can't. IO::Select with pipes and file handles is only supported on Unix. IO::Select on Win32 only works with Sockets. Cheers, John > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of [EMAIL PROTECTED] > Sent: Thursday, Ap

RE: ActivePerl 5.8.8.817 released-Win32 Threads Leaking handles

die, the handles drop right back down again as they should. Cheers, john > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Jan Dubois > Sent: Thursday, March 30, 2006 10:50 AM > To: activeperl@listserv.ActiveState.com;

RE: accurate timing in windows

econd, you need to use either the IO::Select module or the select( undef, undef, undef, timetosleep) function. Timetosleep can be any value down to 0.001. :) John > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Spencer_Lists > Sent: We

RE: Perl book sale at Suntec City (Singapore)

Where at Suntec? > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Foo Ji-Haw > Sent: Monday, March 27, 2006 10:01 AM > To: perl-win32-users@listserv.ActiveState.com > Subject: Perl book sale at Suntec City (Singapore) > > > Ok, I know this is re

RE: Implementing or Emulating TSRs in Win32 Console Apps

shing the 5.8.8-816 perl interpriter so mgith have to use 5.8.7-815. Cheers, john > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Veli-Pekka Tätilä > Sent: Friday, March 17, 2006 12:57 AM > To: perl-win32-users@listserv.Ac

FW: ActivePerl 5.8.8.816 released

reads. It does this with my handlesleak7.pl script and with my production code, the perl interpreter crashes and I get Dr. Watson come up asking me to email Mickeysoft. handlesleak7.pl is attached. Uninstalling 5.8.8-816 and putting back 5.8.7-815. Cheers, John > -Original Message

RE: ActivePerl 5.8.8.816 released

reads. It does this with my handlesleak7.pl script and with my production code, the perl interpreter crashes and I get Dr. Watson come up asking me to email Mickeysoft. handlesleak7.pl is attached. Uninstalling 5.8.8-816 and putting back 5.8.7-815. Cheers, John > -Original Message

RE: System resources used by Perl script

>From the Active per docs: Devel::DProf - a Perl code profiler * NAME * SYNOPSIS * DESCRIPTION * PROFILE FORMAT * AUTOLOAD * ENVIRONMENT * BUGS * SEE ALSO NAME Devel::DProf - a Perl code profiler SYNOPSIS perl -d:DProf test.pl DESCRIPTION The Devel::DP

RE: ActivePerl 5.8.8.816 released

Has the handles leak on Win32 when using shared variables with threads been fixed? :) John > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Jan Dubois > Sent: Tuesday, March 14, 2006 7:42 AM > To: activeperl@listserv.Active

RE: old messages?

Yup. > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Chris > Sent: Wednesday, March 08, 2006 6:55 AM > To: 'Chris Wagner'; perl-win32-users@listserv.ActiveState.com > Subject: RE: old messages? > > > Did anyone else also just receive a boat loa

RE: Change network interface parameters via Perl

You could just use netsh. > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Paul Sobey > Sent: Monday, February 28, 2005 7:18 PM > To: Perl-Win32-Admin > Cc: Perl-Win32-Users > Subject: RE: Change network interface parameters via Perl > > > Ass

RE: Battery info on a laptop

Use this as a hack template till you get your head around it: #!perl # Simple Perl Script to illustrate use of WMI to gather system information # and display it in the same format at the Windows Management Console use Win32::OLE qw(in with); use Win32::Registry; # Pick a host that you have the n

RE: Battery info on a laptop

Use the appropriate WMI classes with the Win32::OLE module. > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of andrew Black > Sent: Sunday, March 05, 2006 2:10 AM > To: perl-win32-users > Subject: Battery info on a laptop > > > Hi > Does anyone kn

Re: [aswin32] RE: Perl Bug (again)

At 04:50 PM 2/17/2006, Robert May wrote: my is a compile time directive that creates the lexically scoped $i, giving is scope from its definition until the end of the enclosing block. Assignment is a run time operation. In your example the modified assignment doesn't get executed, so the valu

RE: Perl Bug (again)

At 01:06 PM 2/17/2006, Joe Discenza wrote: Fascinating! You have one misconception right off: The "my" line is never executed (not even to make the new variables) if $L is false. OK, then, consider this program. Notice that there's a global $i which has the value 5. Now, when func() is called, if

Re: Perl Bug (again)

At 01:29 PM 2/17/2006, Chris Wagner wrote: At 12:46 PM 2/17/2006 -0500, John Deighan wrote: >OK, same caveat as before - apparent bugs in Perl are usually user >errors, but once again, I'm stumped. Here is my code. The problem I >have is in the second call to getCached(), specific

Perl Bug (again)

OK, same caveat as before - apparent bugs in Perl are usually user errors, but once again, I'm stumped. Here is my code. The problem I have is in the second call to getCached(), specifically, the line: my($nextID,$maxID) = @$L if $L; The parameter to getCached, $Customer, has a different value

Does a Perl module already exist for this?

suspect there’s a Perl module out there that does this for me. Any suggestions?   --- John Townsend AGM Print/PDF Port /Fargo QE Lead 5-7204, [EMAIL PROTECTED

Re: Perl bug?

At 03:09 PM 2/8/2006, Glenn Linderman wrote: Now that I understand the situation, I can offer the following as a way to safely do what I was trying to do in the first place - by creating an anonymous function and assigning it to a variable named $gettoken, then calling it with the syntax &$ge

Re: Perl bug?

At 12:10 PM 2/8/2006, Glenn Linderman wrote: On approximately 2/8/2006 6:40 AM, came the following characters from the keyboard of John Deighan: I realize that most things that look like bugs in Perl are in reality programmer bugs, but I can't figure out why the second call to the fun

Perl bug?

I realize that most things that look like bugs in Perl are in reality programmer bugs, but I can't figure out why the second call to the function "parse()" in the code below fails. According to my debugger (from ActiveState's Perl Development Kit), the function parse() gets a correct list of 3

RE Multi Dimensional Arrays

Amit wrote:   >Hello all, >  I am a newbee in perl. Just wanted some guidance so as to how to implement multidimensional arrays in perl. I have >to create an 2-d array with 26*26 of all the english alphabets so that for each row and column i can have a partiulcar >value like a to a =1 >b

RE: SQL Server "Invalid Cursor State"

At 10:46 AM 1/24/2006, Ray Albert wrote: Hello, I just successfully ran your code against my database. Is it possible you lost the database connection? I don't think so. It's very repeatable. However, I think this code used to work, so I got to thinking about the versions of Perl, SQL Server,

SQL Server "Invalid Cursor State"

Using the DBI with Microsoft SQL Server, I'm trying to get data back from a stored procedure call and getting an "Invalid Cursor State" error at the execute() call below (it never gets to the fetchrow_array call). Has anyone else run into this? Can anyone help? my $sth = $dbh->prepare("exec sp

threads and consoles

Hi All: Is there a way for a thread to have its own console separate from the calling process? Cheers, john ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Yet another regex question

At 10:19 AM 1/12/2006, =?koi8-r?Q?=E1=D2=D4=C5=CD=20=E1=D7=C5=D4=C9=D3=D1=CE?= wrote: If you want tab instead of space after each country code, try this: while () { if (/\d\s[A-Z]{3}\s/) { s/(\d\s[A-Z]{3})\s/$1\t/g; } print FILETO $_; } I don't see the point of the if statement. Why

RE: Info on reading COM ports

Win32::Serialport > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Rajesh Vattem > Sent: Saturday, January 07, 2006 2:54 PM > To: Perl-Win32-Users@listserv.ActiveState.com > Subject: Info on reading COM ports > > > > Hi, > I am looking for ways

RE: MS SMTP and MS FTP server information

Hi Steven: Ok cool, I got it going with this: use Win32::OLE qw (in); use strict; use warnings; my $IIS = Win32::OLE->GetObject("IIS://johnathlonxpm"); my $PathList = $IIS->GetDataPaths("AuthAnonymous",0); print("$PathList"); print("\n"); my $thislong = scalar(@$PathList); print("This long is

MS SMTP and MS FTP server information

find where Gates' hides it. Cheers, John ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to quit when Windows shut down?

You'll have to install the resource kit. You canget the tools at www.microsoft.com > -Original Message- > From: Octavian Rasnita [mailto:[EMAIL PROTECTED] > Sent: Tuesday, December 20, 2005 4:11 PM > To: John Serink; Ted Zeng; perl-win32-users@listserv.ActiveState.com &

RE: How to quit when Windows shut down?

s than 65 536) Use the -f switch. John > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Ted Zeng > Sent: Tuesday, December 20, 2005 6:53 AM > To: perl-win32-users@listserv.ActiveState.com > Subject: How to quit when Windo

RE: how to detect a disconnected socket?

Hi Foo: Partial reads means partial reads... If you sending whole lines at one end you;ll probably not get the whole lines all the time at the other. You have to be prepared for that. Cheers, John > -Original Message- > From: Foo Ji-Haw [mailto:[EMAIL PROTECTED] > Sen

RE: how to detect a disconnected socket?

rs at EOF, with sockets this occurs when the remote peer closes the connection, 3. There is a pending error on the socket. The next sysread call will return undef and the error will be in $!. So, what you are interested in is 2 or 3 or both. Code accordingly. Cheers, John > ---

Re: Finding the user's "home" directory?

On 12/7/05, Paul Hoffman <[EMAIL PROTECTED]> wrote: > Greetings. I'm assuming I'm just missing something obvious here, but > how do I find the current user's "home" directory (C:\Documents and > Settings\)? I didn't see it in the Win32 module, but I could > have missed it. > > --Paul Hoffman > I d

Re: Finding the user's "home" directory?

> On 12/7/05, Paul Hoffman <[EMAIL PROTECTED]> wrote: > > Greetings. I'm assuming I'm just missing something obvious here, but > > how do I find the current user's "home" directory (C:\Documents and > > Settings\)? I didn't see it in the Win32 module, but I could > > have missed it. > > > > --Paul

RE: Inet::Socket::INET's line read fails

Use sysread. You might want to use the IO:Select module to check if the call will block before calling... gives you a bit more control. Cheers, john > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Foo Ji-Haw > Sent: Tuesday, De

RE: Executing an external program from a perl scrip.

shou'd work. Alternatively, you could do it this way: $sys='C:\antiword\antiword.exe -t -w 1 document.doc > C:\Inetpub\wwwroot\somedir\document.txt"; That should work also. Cheers, john > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED

  1   2   3   4   5   >