win32 interval timers question

2015-05-14 Thread Stefan Parvu
Hi, Im porting some data recorders from UNIX/LInux to Win32 platform: https://github.com/kronometrix/recording/blob/master/bin/freebsd/cpurec Basically Im trying to replicate something like this in Win32, and I have no idea how I can do that: use Time::HiRes qw(time alarm setitimer ITIMER_REAL)

Re: naive LWP::Get question (perhaps JavaScript related?)

2012-06-09 Thread rocku
Hello, If you can use Firefox, there is a handy extension - HttpFox, which displays all requests which are sent to the server (including AJAX). This way you can forge the same request in your perl script and call it just like client side browser script does. Pozdrawiam, rocku rock...@gmail.com

RE: naive LWP::Get question (perhaps JavaScript related?)

2012-06-08 Thread Conor
* > > $res =~ s/^..*Start Date<\/B><\/TD> colSpan=2>//; > > ** ** > > $res =~ s/<\/TD><\/TR>..*//g; > > ** ** > > $res =~ s/^ +//; > > $res =~ s/ +

RE: naive LWP::Get question (perhaps JavaScript related?)

2012-06-08 Thread Ken Cornetet
$res =~ s/^..*Start Date<\/B><\/TD>//; $res =~ s/<\/TD><\/TR>..*//g; $res =~ s/^ +//; $res =~ s/ +$//; return $res; } From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.

naive LWP::Get question (perhaps JavaScript related?)

2012-06-08 Thread Greg Aiken
hello perl users, today i am struggling to better understand what the underlying issue is here. my employer uses a web based CMS system called 'salesforce.com'. using a web browser, i log into this site, i then use its web interface and eventually display a 'customer record' web page in my brow

RE: simple question about using activestates PPM repository

2012-03-16 Thread Jan Dubois
-Win32-Users@listserv.activestate.com Subject: simple question about using activestates PPM repository im t rying to install a perl module from this activestate repository url page ( http://code.activestate.com/ppm/WebService-Dropbox/ <http://code.activestate.com/ppm/Test-TCP/> ) it

simple question about using activestates PPM repository

2012-03-16 Thread Greg Aiken
im t rying to install a perl module from this activestate repository url page ( http://code.activestate.com/ppm/WebService-Dropbox/ ) it states... ultra easy to install, merely type 'ppm install Test-TCP' expanding that instruction with the [+] at right

RE: Quick memory-recovery question--a point of information

2012-03-08 Thread Rothenmaier, Deane C.
:18 AM To: perl-win32-users@listserv.ActiveState.com Subject: RE: Quick memory-recovery question--a point of information From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Rothenmaier, Deane C. Sent: 08 March 2012 15:00

RE: Quick memory-recovery question--a point of information

2012-03-08 Thread Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Rothenmaier, Deane C. Sent: 08 March 2012 15:00 To: perl-win32-users@listserv.ActiveState.com Subject: Quick memory-recovery question--a point of information >

Quick memory-recovery question--a point of information

2012-03-08 Thread Rothenmaier, Deane C.
members of @chunk ... undef @chunk; } Now here's my question, am I gaining anything in terms of memory use by explicitly undef-ing the array, or can I expect more or less the same result if I just leave disposing of the array's memory to leaving the scope? The Camel tells me th

RE: Window 7 x64, @inc search question

2012-01-09 Thread Jan Dubois
newer Tk version, so things like native themed widget support, or plain native OS X support will not be possible. [...] > > Just as a slightly off topic question. Since my original question > > was answered with a top post, is this acceptable on this list? The > > guys on the Fe

RE: Window 7 x64, @inc search question

2012-01-09 Thread Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Styma, Robert E (Robert) Sent: 09 January 2012 14:02 To: Jan Dubois; perl-win32-users@listserv.ActiveState.com Subject: RE: Window 7 x64, @inc search question > W

RE: Window 7 x64, @inc search question

2012-01-09 Thread Styma, Robert E (Robert)
. Just as a slightly off topic question. Since my original question was answered with a top post, is this acceptable on this list? The guys on the Fedora lists get all bent out of shape if someone top posts. There are various references to incompatibilites between pm modules on 5.6 and 5.14 although

RE: Window 7 x64, @inc search question

2012-01-06 Thread Jan Dubois
...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Styma, Robert E (Robert) Sent: Friday, January 06, 2012 8:30 AM To: perl-win32-users@listserv.ActiveState.com Subject: Window 7 x64, @inc search question Robert E. Styma I have just joined this

Window 7 x64, @inc search question

2012-01-06 Thread Styma, Robert E (Robert)
Robert E. Styma I have just joined this mailing list. I am responsible for an assortment of perl programs which I have inherited and am testing and adjusting to get them running under a Windows 7 X64 environment. At the time the code was written we were using Perl 5.6.1. When I discovered problem

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

2011-06-09 Thread John Harrington
This question has to do with automating Access. I simply want to run my own function in Access and pass it parameters. Let's say I have written a public function called foo() in a module in my Access database. Foo() takes a couple of arguments, param1 and param2, the first a string, the s

RE: lame question "\\\\.\\pipe\\pipename" vs '\\.\pipe\pipename'

2010-10-20 Thread Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg Aiken Sent: 20 October 2010 18:10 To: perl-win32-users@listserv.activestate.com Subject: lame question ".\\pipe\\pipename" vs '\\.\pipe\pipename

RE: lame question "\\\\.\\pipe\\pipename" vs '\\.\pipe\pipename'

2010-10-20 Thread Jan Dubois
Sent: Wednesday, October 20, 2010 10:10 AM To: perl-win32-users@listserv.activestate.com Subject: lame question ".\\pipe\\pipename" vs '\\.\pipe\pipename' forgive my ignorance here, but I thought single quoted, or apostrophized [however you call this character] (‘) text st

RE: lame question "\\\\.\\pipe\\pipename" vs '\\.\pipe\pipename'

2010-10-20 Thread Steve Howard
#x27; From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg Aiken Sent: Wednesday, October 20, 2010 10:10 AM To: perl-win32-users@listserv.activestate.com Subject: lame question ".\\pipe\\pipename" vs &

Re: lame question "\\\\.\\pipe\\pipename" vs '\\.\pipe\pipename'

2010-10-20 Thread will trillich
Here's my take: print 'it\'s time \\ to go'; The backslash can quote the single-quote, and hence another backslash as well for completeness, within a single-quoted string. On Wed, Oct 20, 2010 at 12:09 PM, Greg Aiken wrote: > forgive my ignorance here, but I thought single quoted, or apostro

lame question "\\\\.\\pipe\\pipename" vs '\\.\pipe\pipename'

2010-10-20 Thread Greg Aiken
forgive my ignorance here, but I thought single quoted, or apostrophized [however you call this character] (') text strings were supposed to be interpreted by perl in an unaltered manner. sample code, indicating how to reference a named pipe in the Win32::Pipe module, shows something like this.

Re: HTML Parsing Question

2010-02-05 Thread Chris Wagner
Hi. The big issue is the ignore unknown tag setting. Also the module does not like a missing and . Also this isn't HTML. U might be better served by using XML::Simple. Printf is ur friend. use HTML::TreeBuilder; $html = ' . '; $tree = HTML::TreeBuilder->new(); $tree->ignore_u

RE: HTML Parsing Question

2010-02-04 Thread Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Paul Rousseau Sent: 04 February 2010 16:44 To: perl Win32-users Subject: HTML Parsing Question > Hello, > >I have an HTML file that contains the followin

HTML Parsing Question

2010-02-04 Thread Paul Rousseau
Hello, I have an HTML file that contains the following snippet:

RE: TK question

2009-09-20 Thread Jack
$frame->placeForget; print "File is: $file\n"; } else { $file = $mw->getOpenFile(); print "File is: $file\n"; } } __END__ I'm not necessarily sure you would want to do this in production - but it seems to work. Jack D. ___

Re: TK question

2009-09-20 Thread Justin Allegakoen
2009/9/19 Spencer Chase > > Greetings Perl-Win32-Users, > > I have been trying everything I can think of and nothing works. I have a TK > application that uses getopenfile. The problem is that you can select a file > in the browser window by either clicking the file and then clicking "open" or

TK question

2009-09-18 Thread Spencer Chase
Greetings Perl-Win32-Users, I have been trying everything I can think of and nothing works. I have a TK application that uses getopenfile. The problem is that you can select a file in the browser window by either clicking the file and then clicking "open" or you can double click the file and no

Re: ppm file question

2009-07-16 Thread Serguei Trouchelle
Greg Aiken wrote: > > > > > > > Does this mean that all of the following packages are fully included > within the main ‘XML-Validate’ software package? > a. XML::Validate > b. XML::Validate::Base > c. XML::Validate::LibXML > d. XML::Validate::MSXML > e. XML::Valida

ppm file question

2009-07-15 Thread Greg Aiken
Ive seen, what I assume is, a ppm version 4 'ppm' file. I understand clearly what '___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: MinGW - additional question from relative newbie

2009-07-13 Thread Jan Dubois
On Mon, 13 Jul 2009, Greg Aiken wrote: > > The problem is that my main computer is not direct connected to the > internet, so I cant issue a 'ppm install MinGW' command. > > Does anyone know of a step by step manual installation/configuration > sequence that one may follow to manually install Min

MinGW - additional question from relative newbie

2009-07-13 Thread Greg Aiken
With all of this recent discussion about MinGW, I thought I would ask a question. To start off by stating that I'm a relative Perl newbie here. I have no previous experience with C++, nor of using MinGW. But from what I've read, if one has ActivePerl 'properly installed, co

perl-tk fonts question

2009-06-09 Thread me
Hi All! I have a perl-tk application without explicit font settings(all by default) Is there a way to change all fonts sizes ... say increase by two ? ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://lis

Re: question about recursion

2009-05-22 Thread Chris Wagner
Hey. Yeah deep recursion is something I don't really want to deal with. :) I've only used recursion once and that was to walk a data structure. For this kind of problem, which is a convergence problem, I would use a loop. I'm assuming that there is a variance value that is computed and compared t

Re: question about recursion

2009-05-22 Thread Angelos Karageorgiou
memoize is your friend! There is a whole chapter devoted to it in "Higher order Perl" and yes Perl's recursion sucks especially when using dynamically allocated large data structures! Gaurav Vaidya wrote: Hi Greg, 2009/5/22 Greg Aiken : the sub-routines then look to the value of $main::wev

Re: question about recursion

2009-05-22 Thread Gaurav Vaidya
Hi Greg, 2009/5/22 Greg Aiken : > the sub-routines then look to the value of $main::weve_found_answer to > determine if it should stop recursively calling itself because the answer > has already been found – or continue to recursively call itself again. > [..] > so I ask…  ‘is there a better way o

RE: question about recursion

2009-05-22 Thread Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg Aiken Sent: 21 May 2009 22:02 To: perl-win32-users@listserv.ActiveState.com Subject: question about recursion > given: > > a. that its generally conside

Re: FW: question about recursion (pseudo-code if helpful)

2009-05-21 Thread Aaron Hawryluk
rl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg > Aiken > Sent: Thursday, May 21, 2009 2:02 PM > To: perl-win32-users@listserv.ActiveState.com > Subject: question about recursion > > > > given: > > a. that its generally considered to be ‘bad form’ to use global va

FW: question about recursion (pseudo-code if helpful)

2009-05-21 Thread Greg Aiken
); return; end } _ From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg Aiken Sent: Thursday, May 21, 2009 2:02 PM To: perl-win32-users@listserv.ActiveState.com Subject: question

question about recursion

2009-05-21 Thread Greg Aiken
given: a. that its generally considered to be 'bad form' to use global variables inside of sub-routines. b. that I need to write a recursive sub-routine to solve a mathematical problem. the sub-routine will recursively call itself until the 'answer' is derived. when the innermost call finishe

Re: IO::Socket question (client receive - when # of bytes to be receivedis NOT known in advance)

2009-04-24 Thread Chris Wagner
If ur just trying to pull data from websites I would highly recommend LWP or WWW-Mechanize. No need to reinvent any wheels. If this is just a demonstration and ur trying to do something else, what u need here is nonblocking read. As u accumulate more of the response u can inspect it to see when

RE: :Socket question (client receive - when # of bytes to be receivedis NOT known in advance)

2009-04-22 Thread Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Greg Aiken Sent: 22 April 2009 00:36 To: perl-win32-users@listserv.activestate.com Subject: IO::Socket question (client receive - when # of bytes to be receivedis NOT

RE: :Socket question (client receive - when # of bytes to be received is NOT known in advance)

2009-04-21 Thread Justin Allegakoen
@listserv.activestate.com Subject: IO::Socket question (client receive - when # of bytes to be received is NOT known in advance) method 1 (below) does work to receive a response from a server. but requires I know in advance the number of bytes to receive. I am wondering if something like method

IO::Socket question (client receive - when # of bytes to be received is NOT known in advance)

2009-04-21 Thread Greg Aiken
method 1 (below) does work to receive a response from a server. but requires I know in advance the number of bytes to receive. I am wondering if something like method 2 may be used in the case of where one does NOT know in advance how many bytes the server will be sending. ive attempted to tr

RE: A Perl::Tk question

2009-02-24 Thread Alex.Ignacz
-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Jack Sent: Monday, February 23, 2009 3:47 PM To: perl-win32-users@listserv.activestate.com Subject: RE: A Perl::Tk question Sorry for the top post - it's just how my reader works. There are two op

RE: A Perl::Tk question

2009-02-23 Thread Yaar, Kfir
o:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of alex.ign...@atcoitek.com Sent: Monday, February 23, 2009 10:59 PM To: perl-win32-users@listserv.ActiveState.com Subject: A Perl::Tk question Hi there, I need to know the name of the object that called me from inside my callback routine

RE: A Perl::Tk question

2009-02-23 Thread Jack
e.com] On Behalf Of alex.ign...@atcoitek.com Sent: February-23-09 1:59 PM To: perl-win32-users@listserv.activestate.com Subject: A Perl::Tk question Hi there, I need to know the name of the object that called me from inside my callback routine. For instance I have 3 buttons, they all call the same su

A Perl::Tk question

2009-02-23 Thread Alex.Ignacz
Hi there, I need to know the name of the object that called me from inside my callback routine. For instance I have 3 buttons, they all call the same subroutine, if button number 3 was pressed, I want to be able to determine that at run time. Even if it's just by reading the button text. How do I

RE: question on TK

2008-10-15 Thread Jack
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Daniel Burgaud Sent: October-14-08 11:15 PM To: Perl-Win32-Users Subject: question on TK >Hello, >I am using TK and have multiple "MainWindow->new()" windows. > >My

question on TK

2008-10-14 Thread Daniel Burgaud
Hello, I am using TK and have multiple "MainWindow->new()" windows. My 1st problem is: How do I "disable" or "make invisible" (or any other means to prevent user from doing anything on these "disabled" windows? 2nd problem is: How do I close a window without closing the whole application? Dan

Re: Win32::TieRegistry question

2008-09-26 Thread anthony . okusanya
From: Michael Ellery <[EMAIL PROTECTED]> To: 'perl-win32-users' Date: 09/26/2008 01:23 PM Subject: Win32::TieRegistry question Win32-ers, Does anyone know off-hand what TieRegistry should do with a statment like this: $Registry->{'LMachine/Software/Bar'} = {&#x

Win32::TieRegistry question

2008-09-26 Thread Michael Ellery
Win32-ers, Does anyone know off-hand what TieRegistry should do with a statment like this: $Registry->{'LMachine/Software/Bar'} = {'SubKey/' => { '/SomeValue' => 1 }}; ..specifically, with respect to the type of the SomeValue entry? I had thought that it would create a DWORD value since the val

Re: Newbie Question

2008-04-02 Thread Foo JH
I'm sorry to fumble around the old question: wouldn't sending a filename as a parameter be a more scalable solution, as opposed to squeezing in stuff through command line? If this function is to happen regularly (or concurrently for the matter), you can create a temporary file a

RE: Newbie Question

2008-04-01 Thread Stuart Arnold
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Karl Anderson Sent: Tuesday, April 01, 2008 11:46 PM To: Perl-Win32-Users@listserv.ActiveState.com Subject: Re: Newbie Question Thank you, Passing it as a file would be best, however it is selected text so I believe it is a long string

Re: Newbie Question

2008-04-01 Thread Lim Ee Wah
Hi, Does SciTE allow you send the $(CurrentSelection) into STDIN pipe of your script? Example: system "echo $(CurrentSelection) | perl yourscript" Thanks. Ee Wah http://www.kopi-putih.blogspot.com On 4/2/08, Karl Anderson <[EMAIL PROTECTED]> wrote: > > > Thank you, > Passing it as a file would

Re: Newbie Question

2008-04-01 Thread Karl Anderson
Thank you, Passing it as a file would be best, however it is selected text so I believe it is a long string. k Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___

Re: Newbie Question

2008-04-01 Thread Foo JH
You're trying to put in 900 arguments into the command line? Aren't you better off passing the filename into the command line? Karl Anderson wrote: > Thank you in advance > > I am attempting to write a perl script to manipulate about 900 words > of text in scite. > I am passing the text to perl

Newbie Question

2008-04-01 Thread Karl Anderson
Thank you in advance I am attempting to write a perl script to manipulate about 900 words of text in scite. I am passing the text to perl via "$(CurrentSelection)". My problem is how do I get such a large commandline argument into the script? k ___ Pe

Re: Embperl question

2008-02-14 Thread Randy Kobes
On Thu, 14 Feb 2008, �~_опов �~S �~S wrote: running perl version: This is perl, v5.8.8 built for MSWin32-x86-multi-thread is there possibility to install Embperl with Apache 2.x,mod_perl 2.x?? Unfortunately, Embperl hasn't been ported yet to work with mod_perl 2 on Win32 ActivePerl. -- best r

Embperl question

2008-02-14 Thread Попов Г Г
running perl version: This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 50 registered patches, see perl -V for more detail) Copyright 1987-2006, Larry Wall Binary build 820 [274739] provided by ActiveState http://www.ActiveState.com Built Jan 23 2007 15:5

RE: Question: DLL and Intra Process Communication methods

2008-02-07 Thread Jan Dubois
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Daniel Burgaud Sent: February 7, 2008 4:14 PM To: Perl-Win32-Users Subject: Question: DLL and Intra Process Communication methods Hi, I have a 3rd party application that does not have any TCP or any similar communication features to

Question: DLL and Intra Process Communication methods

2008-02-07 Thread Daniel Burgaud
Hi, I have a 3rd party application that does not have any TCP or any similar communication features to communicate with other applications. It can however use DLL calls and with that, I was able to "fetch" webpages using wininet.dll. Right now, I want this application to communicate with my Perl

RE: Reading from STDIN, tricky question ...

2007-10-16 Thread Suresh Govindachar
Walter asked: > How to find out, if the data from STDIN comes from a pipe or > from the keyboard? > > My script is called in two modes: > echo "[TEXT]" | smtp_send.pl ... > or > smtp_send.pl -message "[TEXT]" > > Inside the script, I read with: > while( $zeile = <>

Reading from STDIN, tricky question ...

2007-10-16 Thread Walter . Laub
How to find out, if the data from STDIN comes from a pipe or from the keyboard? My script is called in two modes: echo "[TEXT]" | smtp_send.pl ... or smtp_send.pl -message "[TEXT]" Inside the script, I read with: while( $zeile = <> ) { } I need to check, if data comes from a pipe

Fwd: Re: TK question

2007-09-07 Thread Don VanSyckel
Thanks, I try the ProgressBar. Don -- Forwarded Message -- Subject: Re: TK question Date: Friday 07 September 2007 12:36 From: Spencer Chase <[EMAIL PROTECTED]> To: perl-win32-users@listserv.ActiveState.com Greetings Don, you can use Tk::ProgressBar; if you can cou

Re: TK question

2007-09-07 Thread Spencer Chase
Greetings Don, you can use Tk::ProgressBar; if you can count the total number of files. then advance the bar as you increment a counter of files done. that way, you can let TK do all the hard stuff. Friday, September 7, 2007, 7:44:30 AM, you wrote: DV> I have a small app for windows that uses TK

TK question

2007-09-07 Thread Don VanSyckel
I have a small app for windows that uses TK to display a menu. Mostly copied out of the book. Each button calls a subroutine. One of the buttons copies some large files. This all works fine. I need to add something to let the user know the copy process is in progress. My first thought is

Re: hash table question

2007-08-10 Thread Lim Ee Wah
It counts the number of occurances of all lines in a file until a directive BREAK. a v b a a BREAK - Then, $seen{a} = 3; $seen{v} = 1; $seen{b} = 1; On 8/11/07, Todd Beverly <[EMAIL PROTECTED]> wrote: > > Mark Funk wrote: > > What exactly does the following Perl code do? > > > > %hash=

Re: hash table question

2007-08-10 Thread Todd Beverly
Mark Funk wrote: > What exactly does the following Perl code do? > > %hash=(); > > open(PREVFILE, $prevfile) or die("Unable to open previous file"); > > while() { > chomp; > last if /BREAK/; > $seen{$_}++; > } > close(PREVFILE); > > At the end of the loop, The %seen hash keys will hav

RE: win32::ole (excel) question

2007-08-10 Thread dkazatsky
cc Subject RE: w

RE: win32::ole (excel) question

2007-08-10 Thread Jan Dubois
x27;t appear to do so. Cheers, -Jan From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: August 10, 2007 10:30 AM To: perl-win32-users@listserv.ActiveState.com Subject: win32::ole (excel) question Hi all, Weird situation with creating new worksheets

win32::ole (excel) question

2007-08-10 Thread dkazatsky
Hi all, Weird situation with creating new worksheets and keeping the title in the tab. I f I create just one everything is fine - when I add a second worksheet to the workbook the title goes away from the original worksheet. Code excerpt: This is where the object is instanciated and the first

RE: hash table question

2007-08-08 Thread Suresh Govindachar`
Mark Funk asked: > What exactly does the following Perl code do? > > %hash=(); > > open(PREVFILE, $prevfile) or die("Unable to open previous file"); > > while() { > chomp; > last if /BREAK/; > $seen{$_}++; > } > close(PREVFILE); Exactly, the code does not

RE: hash table question

2007-08-08 Thread Wagner, David --- Senior Programmer Analyst --- WGO
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mark Funk Sent: Wednesday, August 08, 2007 14:59 To: perl-win32-users@listserv.ActiveState.com Subject: hash table question What exactly

hash table question

2007-08-08 Thread Mark Funk
What exactly does the following Perl code do? %hash=(); open(PREVFILE, $prevfile) or die("Unable to open previous file"); while() { chomp; last if /BREAK/; $seen{$_}++; } close(PREVFILE); TIA, David M. Funk President/CEO Tivoli Certified Enterprise Consultant Specializing in Netwo

Newbie question about [out] parameters

2007-05-19 Thread James Hill
Hey Folks, I have a newbie question for Win32::OLE. How do I use [out] parameters within PERL?? What's the correct syntax for calling a COM method that contains [out] parameters so the invoked object can store its data?? Thanks, James James H.

Re: Perl Report Format Question

2007-05-08 Thread Andy_Bach
> Why don't I Get IP addresses in the IP Address column of the report below. The data is there if I do a print after the split of the value in %GAA_Up foreach $GS_IPAddr (keys(%GAA_Up)) { open (UP, ">>$GS_Report") || die "Could not open file $GS_Report : $!\n"; ($GS_Locat

Re: Perl Report Format Question

2007-05-08 Thread Bill Luebkert
Dax Games wrote: > Why don't I Get IP addresses in the IP Address column of the report > below. The data is there if I do a print after the split of the value > in %GAA_Up. I get: PS: I see no need for using format for this report - (s)printf should suffice. Always supply a runnable test case

Perl Report Format Question

2007-05-08 Thread Dax Games
Why don't I Get IP addresses in the IP Address column of the report below. The data is there if I do a print after the split of the value in %GAA_Up. I get: == REACHABLE HOSTS REPORT =

Re: Perl Net::LDAP question

2006-12-08 Thread Mark Leighton
Hadn't seen a reply to the post yet, but if you are still looking for the answer: ... foreach $entry ($mesg->all_entries) { print "dn: " . $entry->dn() . ""; foreach $attr ($entry->attributes()) { foreach $val ($entry->get_value($attr)) { printf("%s: %s", $attr, $val);

Perl Net::LDAP question

2006-12-01 Thread Mark Funk
Folks, I am trying to do an LDAP lookup to see if a user belongs to a certain group. I connect ok and LDAP only sends me the first member of the attribute group. Is there a way to list all members of an attribute group? Code snippet: use NET::LDAP; $ldap = Net::LDAP->new( 'tcpauthprd' ) or die

Re: Win32::FileOp Question, and Odd Error behavior

2006-10-04 Thread $Bill Luebkert
Dennis Daupert wrote: > Ah, OK, thanks for that info. So 1 or 0 does not mean > 'success' or 'failure,' but rather number of copies. You should never get a 0 - just >0 or undef. No need to CC me - I get 3 copies. I CC you so you get an immediate reply (as the poster) esp. when AS is slow during

Re: Win32::FileOp Question, and Odd Error behavior

2006-10-04 Thread Dennis Daupert
$Bill Luebkert> >> [2006-10-04 04:53:12] return: > I would take the above to mean an error occurred. Yeah, given the fact that's the only indicator of an error, I've modified the code to use the value of $return: if ( !$return ) { $logger->info("File was not copied"); } > The fact tha

Re: Win32::FileOp Question, and Odd Error behavior

2006-10-04 Thread $Bill Luebkert
Dennis Daupert wrote: > Still having the same error capture problems tho. > When I un-share the remote directory, run the > script, here's what get's written to my log (I'm > particularly unnerved by the msg "The operation > completed successfully"): > > [2006-10-04 04:53:08] Try to copy file tes

Re: Win32::FileOp Question, and Odd Error behavior

2006-10-04 Thread Dennis Daupert
Todd Beverly> >It looks like there is another command (CopyEx) , >which will take the FOF options. Todd, thanks BIG! That was very helpful. I substituted CopyEx for Copy, and he takes the constants. When I share the remote directory and run my script, he copies the file over nicely, and gives

Re: Win32::FileOp Question, and Odd Error behavior

2006-10-04 Thread Todd Beverly
Dennis Daupert wrote: > > > I'm using Win32::FileOp to copy a file to a remote machine. > I've shared a directory on the remote machine, and this copy > command works nicely when the network is up and everybody > plays together: > > eval { > $return = Copy ($copy_from => $copy_to ); > }; > > T

Win32::FileOp Question, and Odd Error behavior

2006-10-04 Thread Dennis Daupert
I'm using Win32::FileOp to copy a file to a remote machine. I've shared a directory on the remote machine, and this copy command works nicely when the network is up and everybody plays together: eval { $return = Copy ($copy_from => $copy_to ); }; To simulate network down for error handli

net perl question

2006-09-07 Thread Juan Eduardo Solares
HI, I'm new in Perl word, right now am try to telnet a group of host, in the first instants is all right(login,password,command.logs etc), but the i have to introduce a "mml" command, in that case the promt change, and the script doesn't work any more , I'm try to get "last prompt" but may be somet

RES: Regular expression question

2006-08-01 Thread Fabricio Soares Martins - Site CBN - SGR
Title: Regular expression question hi wagner,   try this:   #/perl -w   $file = 'c:\temp\zips\foo\foo2\foo3\ok.txt'; @pa = split (/\\/, $file);$file = $pa[$#pa];    for $i (0..($#pa-1)) {  $dir .= "$pa[$i]\\"; }   print "directory: $dir\n";print &

RE: Regular expression question

2006-08-01 Thread Joe Discenza
Title: Regular expression question Cai, Lucy (L.) wrote, on Monday, July 31, 2006 8:21 PM : My $file = "c:\temp\zips\ok.txt"; : How can I split the $file to get the only path: : My $dir = "c:\temp\zips"; : My $file = "ok.txt"; May I suggest you use File:Ba

RE: Regular expression question

2006-08-01 Thread Wagner, David --- Senior Programmer Analyst --- WGO
Title: Regular expression question From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Cai, Lucy (L.)Sent: Monday, July 31, 2006 17:21To: Cai, Lucy (L.); perl-win32-users@listserv.ActiveState.com; perl-unix-users@listserv.ActiveState.com; [EMAIL PROTECTED]; [EMAIL PROTECTED

Regular expression question

2006-08-01 Thread Cai, Lucy (L.)
Title: Regular expression question I have a file such as: My $file = "c:\temp\zips\ok.txt"; How can I split the $file to get the only path: My $dir = "c:\temp\zips"; My $file = "ok.txt"; Thanks in advance! Lucy __

Regular expression question

2006-08-01 Thread Cai, Lucy (L.)
Title: Regular expression question I have a file such as: My $file = "c:\temp\zips\ok.txt"; How can I split the $file to get the only path: My $dir = "c:\temp\zips"; My $file = "ok.txt"; Thanks in advance! Lucy __

RE: Win32::Security deleteAces method question

2006-07-24 Thread Giuoco, Aaron
quickly. AG From: [EMAIL PROTECTED] on behalf of Giuoco, Aaron Sent: Sat 7/22/2006 4:35 PM To: Timothy Johnson; perl-win32-users@listserv.ActiveState.com Subject: RE: Win32::Security deleteAces method question Well, at this point I just have to assume that the m

RE: Win32::Security deleteAces method question

2006-07-22 Thread Giuoco, Aaron
L PROTECTED] Sent: Tue 7/18/2006 3:30 PM To: Giuoco, Aaron; perl-win32-users@listserv.ActiveState.com Subject: RE: Win32::Security deleteAces method question Sorry, I guess I misunderstood. I've been really busy lately, but I might have a chance to look closer tonight. Maybe a second set o

RE: Win32::Security deleteAces method question

2006-07-18 Thread Timothy Johnson
hnson; perl-win32-users@listserv.ActiveState.com Subject: RE: Win32::Security deleteAces method question Yes, I know that. I am using File::Find to recursively traverse the directory tree. My script is touching every file and folder, it's just not deleting the ACEs for any of the files/

RE: Win32::Security deleteAces method question

2006-07-18 Thread Giuoco, Aaron
ECTED] Sent: Tue 7/18/2006 2:23 PM To: Giuoco, Aaron; perl-win32-users@listserv.ActiveState.com Subject: RE: Win32::Security deleteAces method question ACLs don't automatically update when their parent is updated unless certain APIs are used (see http://support.microsoft.com/default.aspx?sci

RE: Win32::Security deleteAces method question

2006-07-18 Thread Timothy Johnson
1 AM To: perl-win32-users@listserv.ActiveState.com Subject: RE: Win32::Security deleteAces method question Well, I still don't know what I am doing wrong. I have stripped my anon sub down to the basics and it's still not deleting the ACEs. Here is my modified anon sub: My test folder

RE: Win32::Security deleteAces method question

2006-07-18 Thread Giuoco, Aaron
why this is not working? AG From: [EMAIL PROTECTED] on behalf of Giuoco, Aaron Sent: Thu 7/13/2006 12:21 PM To: perl-win32-users@listserv.ActiveState.com Subject: Win32::Security deleteAces method question I am having some problems using the deleteAces method for the Win3

Win32::Security deleteAces method question

2006-07-13 Thread Giuoco, Aaron
I am having some problems using the deleteAces method for the Win32::Security module. My entire script works properly up until the point where it actually deletes the ACE. According to the documentation, the deleteAces method is supposed to take an anonymous subroutine that will return 1 for t

RE: Second Question-best way to enumerate Process

2006-06-08 Thread Martin, Greg (RTIS)
ne 08, 2006 8:39 AMTo: perl-win32-users@listserv.ActiveState.comSubject: Second Question-best way to enumerate Process There are several methods to enumerating processes.  Not only the entire system process, but those running in the user's own memory space.  Using WMI, Lanman, Perflib, etc.

  1   2   3   4   5   6   7   8   9   10   >