simple question about using activestates PPM repository

2012-03-16 Thread Greg Aiken
here with the actual package.xml file, and/or if there is merely a simple fix i need to do with my ppm to cause it to 'see all of the latest active state packages available for perl 5.8.8 build 820 any help would be GREATLY appreciated, greg ___ Perl

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 states

RE: trying to create first simple perl 'filter' program on windows

2011-03-04 Thread Brian Raven
From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Glenn Linderman Sent: 04 March 2011 00:18 To: perl-win32-users@listserv.ActiveState.com Subject: Re: trying to create first simple perl 'filter' program on windows

trying to create first simple perl 'filter' program on windows

2011-03-03 Thread Greg Aiken
im wanting to write a simple perl 'filter' program in windows. I basically took the base code found here. http://www.techrepublic.com/blog/programming-and-development/simple-filters- in-perl-ruby-and-bourne-shell/3481 the sample here is simple, convert upper case single byte ascii chars

Re: trying to create first simple perl 'filter' program on windows

2011-03-03 Thread Glenn Linderman
On 3/3/2011 4:07 PM, Greg Aiken wrote: im wanting to write a simple perl 'filter' program in windows. I basically took the base code found here... http://www.techrepublic.com/blog/programming-and-development/simple-filters-in-perl-ruby-and-bourne-shell/3481 the sample here is simple, convert

RE: :Socket (client program sends simple text file containing CRLFnewlines)

2009-03-13 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: 12 March 2009 23:33 To: perl-win32-users@listserv.activestate.com Subject: IO::Socket (client program sends simple text file containing CRLFnewlines) I

Re: IO::Socket (client program sends simple text file containing CRLF newlines)

2009-03-13 Thread Jenda Krynicky
From: Greg Aiken gai...@visioninfosoft.com I have a simple 10 line ascii text file: line1CRLF line2CRLF . line10CRLF where CRLF is really two bytes (hex 0d)(hex0a). I use IO::Socket as basis for a client program. my program opens the above referenced file (for read), then reads

RE: :Socket (client program sends simple text file containing CRLFnewlines)

2009-03-13 Thread Andy_Bach
I did a little googling and found Net::Telnet (built on top of IO::Socket) saying: In the input stream, each sequence of carriage return and line feed (i.e. \015\012 or CR LF) is converted to \n. In the output stream, each occurrence of \n is converted to a sequence of CR LF. See binmode() to

IO::Socket (client program sends simple text file containing CRLF newlines)

2009-03-12 Thread Greg Aiken
I have a simple 10 line ascii text file: line1CRLF line2CRLF . line10CRLF where CRLF is really two bytes (hex 0d)(hex0a). I use IO::Socket as basis for a client program. my program opens the above referenced file (for read), then reads each line of the file, then sends each

Re: IO::Socket (client program sends simple text file containing CRLFnewlines)

2009-03-12 Thread Sisyphus
- Original Message - From: Greg Aiken gai...@visioninfosoft.com I use IO::Socket as basis for a client program. I think you mean that it's a *server* program . my program opens the above referenced file (for read), then reads each line of the file, then sends each record read

RE: a simple program

2007-08-09 Thread Steve Howard (PFE)
@listserv.ActiveState.com Subject: a simple program hi am learning c language . in the same time i am learning perl lanuage so i want one perl program to compile with debugging in cygwin . including each step is running debugging commands also i want. please

a simple program

2007-08-08 Thread prapulla rani
hi am learning c language . in the same time i am learning perl lanuage so i want one perl program to compile with debugging in cygwin . including each step is running debugging commands also i want. please send me reply as early as possible

thread pool queue blocking! Was: simple perl 5.8 thread pool creation

2006-12-15 Thread mailware
); $working--; } } Now u have a pool of threads, $t1 to $t10. $working tells u how many are available. The message queue lets u send work that will be picked up by the next available thread. At 06:15 PM 12/9/2006 -0800, [EMAIL PROTECTED] wrote: How can I implement simple

Re: simple perl 5.8 thread pool creation

2006-12-10 Thread Chris Wagner
up by the next available thread. At 06:15 PM 12/9/2006 -0800, [EMAIL PROTECTED] wrote: How can I implement simple thread-pooling using perl 5.8 threads? I would need some way of injecting code into the loaded threads, have the ability to reuse threads, and keep track of thread slots available

simple perl 5.8 thread pool creation was perl 5.8 threads and Thread::Pool

2006-12-09 Thread mailware
Hi all, Activestate only support v.0.1 of Thread-Pool, while the current module, 0.32 is not supported. The one provided in the activeperl repository (0.1) does not support perl 5.8 threads. How can I implement simple thread-pooling using perl 5.8 threads? I would need some way of injecting

Re: Logger::Simple Deep Recursion Error

2006-10-27 Thread Sisyphus
- Original Message - From: Michael Papet [EMAIL PROTECTED] To: perl-win32-users@listserv.ActiveState.com Sent: Friday, October 27, 2006 3:57 AM Subject: Logger::Simple Deep Recursion Error Hi, I'm trying to use Logger::Simple in my program with an empty log file. When I go

Logger::Simple Deep Recursion Error

2006-10-26 Thread Michael Papet
Hi, I'm trying to use Logger::Simple in my program with an empty log file. When I go to nmake test I get the following error: Deep recursion on subroutine Logger::Simple::write at C:/Perl/site/lib/Logger/Simple.pm line 84 (#3) Relevent code from that file: push @{$$self{HISTORY

Re: OT: Basic Graphics (GD) Qs: Line Widths, Output Methods (Was: Simple APi for Raster Graphics)

2006-06-09 Thread Veli-Pekka Tätilä
Gregory S. Williamson wrote: /snip target=ownMessage type=heavy draw simple RGB raster graphics in WIndows using Perl. First are the drawing primitives and second a method to output the graphics. Perl and PPM for installation. Not sure if it fits all of your needs but I used GD with some

Simple API for Drawing Raster Graphics?

2006-06-08 Thread Veli-Pekka Tätilä
Hi, I'd like to draw simple RGB raster graphics in WIndows using Perl. I can see two components for the job which, depending on the module, might or might not be separate. First are the drawing primitives and second a method to output the graphics. Naturally I'd like to use ActiveState Perl

RE: Simple API for Drawing Raster Graphics?

2006-06-08 Thread Gregory S. Williamson
Hi, I'd like to draw simple RGB raster graphics in WIndows using Perl. I can see two components for the job which, depending on the module, might or might not be separate. First are the drawing primitives and second a method to output the graphics. Naturally I'd like to use ActiveState

Active Perl and custom (simple) modules - differences from linux?

2006-06-08 Thread Mike Tonks
Hi, I have developed a set of scripts on linux that run fine, but I'm testing out on Windows XP with Apache and ActivePerl, and I've hit a (probably very simple) problem. Put simply, I have a file db.pm which defines a function thus: begin db.pm sub db { my $user=xxx; my $password

RE: Active Perl and custom (simple) modules - differences from linux?

2006-06-08 Thread Hicks, Robert
-Original Message- snip I have developed a set of scripts on linux that run fine, but I'm testing out on Windows XP with Apache and ActivePerl, and I've hit a (probably very simple) problem. Put simply, I have a file db.pm which defines a function thus: begin db.pm sub db { my $user

Re: Active Perl and custom (simple) modules - differences from linux?

2006-06-08 Thread
- Original Message - All this works fine on linux, but not on Windows. I get: [error] [client 127.0.0.1] Bareword db not allowed while strict subs in use at ... After a bit of searching around, I changed the line to: my $dbh=db(); This causes a different error: [error]

RE: Active Perl and custom (simple) modules - differences from li nux?

2006-06-08 Thread Peter Eisengrein
Title: RE: Active Perl and custom (simple) modules - differences from linux? This causes a different error: [error] [client 127.0.0.1] Bareword db not allowed while strict subs in use at ... [error] [client 127.0.0.1] Undefined subroutine main::db called at ... Can anyone see

RE: Remote Execution, Something Simple Needed

2006-03-07 Thread Anderson, Mark \(Service Delivery\)
] Sent: Wednesday, June 23, 2004 2:59 PM To: perl-win32-admin@listserv.ActiveState.com Cc: perl-win32-users@listserv.ActiveState.com Subject: Remote Execution, Something Simple Needed *** WARNING : This message originates from the Internet *** Hello I would like to start

RE: Remote Execution, Something Simple Needed

2006-03-07 Thread Anderson, Mark \(Service Delivery\)
: Wednesday, June 23, 2004 7:08 PM To: Anderson, Mark (Service Delivery); Daniel Wilson; perl-win32-admin@listserv.ActiveState.com Cc: perl-win32-users@listserv.ActiveState.com Subject: RE: Remote Execution, Something Simple Needed *** WARNING : This message originates from the Internet

RE: Remote Execution, Something Simple Needed

2006-03-07 Thread Anderson, Mark \(Service Delivery\)
: Remote Execution, Something Simple Needed *** WARNING : This message originates from the Internet *** You also will probably have to re-create any mapped drives, since they are not necessarily available for your process when you launch a process remotely. -Original Message

Re: Help with XML::Simple

2005-04-16 Thread Rhesa Rozendaal
James wrote: Hi All, I am trying to process a XML file and print some info but my script is not printing anything. Please help Here is my code You don't use use strict; or use warnings;. Shame on you, James! It would have told you what the problem was. use XML::Simple; use Data::Dumper; my

Help with XML::Simple

2005-04-15 Thread James
Hi All, I am trying to process a XML file and print some info but my script is not printing anything. Please help Here is my code use XML::Simple; use Data::Dumper; my $tempxml = C:/temp/bom.xml; my $bom = XMLin($tempxml); my $itm = $bom-{T_Stpo_Table}-{BOM_ITEM_API01}-{ITEM_NO}; my $comp

simple reg ex

2005-03-10 Thread lorid
I know this is perl not javascript, I thought I was good at deciphering reg ex but the 2nd line in this function has got me puzzled. Can anyone decipher: X = (!X ? 2 : X); function round(number,X) { // rounds number to X decimal places, defaults to 2 X = (!X ? 2 : X); return

RE: simple reg ex

2005-03-10 Thread Peter Guzis
PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of lorid Sent: Thursday, March 10, 2005 5:02 PM To: perl-win32-users Subject: simple reg ex I know this is perl not javascript, I thought I was good at deciphering reg ex but the 2nd line in this function has got me puzzled. Can anyone decipher: X = (!X

Re: simple reg ex

2005-03-10 Thread lorid
sorry , I sent question too soon, long day. forgot about the conditional reg ex (test_value ? if_true : if_false) lori ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe:

RE: simple reg ex

2005-03-10 Thread Charles K. Clarkson
lorid wrote: : sorry , I sent question too soon, long day. : : : forgot about the conditional reg ex It's not a regular expression. It's an operator. : (test_value ? if_true : if_false) Charles K. Clarkson -- Mobile Homes Specialist 254 968-8328

Re: simple if?

2005-03-05 Thread Roger Keane
Chris Wagner wrote: I figured I should try the benchmark against ur original question. use Benchmark qw(cmpthese); $now = time; my $t = bob; my $count = 500; cmpthese ($count, { 'OR' = sub { 1 if ($t eq joe or $t eq bar or $t eq foo or $t eq bob ); }, 'RE' =

Re: simple if?

2005-03-05 Thread Chris Wagner
That was a really good test. PS, I really like ur sig. ;) -- REMEMBER THE WORLD TRADE CENTER ---= WTC 911 =-- ...ne cede males 0100 ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe:

Re: simple if?

2005-03-03 Thread Hugh Loebner
first way was the best way. It all depends on what the comparison is. If it's simple, use or's, but if it gets long and complicated then it's worth it to use regex. Better to do one or two XOR's than load up the regex engine. But of course u won't notice any difference unless ur doing a few

RE: simple if?

2005-03-03 Thread Conrad, Bill (ThomasTech)
$Bill Luebkert wrote Paul Rogers wrote: What's the simplest/shortest way to write an IF statement given that I'm looking for the variable to be one of 5 possible choices? E.g., if ($x eq 'a' or $x eq 'b' or $x eq 'c or $x eq 'd' or $x eq 'e') { blah } I guess what I'm asking for

RE: simple if?

2005-03-03 Thread Chris Wagner
At 10:13 AM 3/3/05 -0500, Conrad, Bill (ThomasTech) wrote: I always thought that RE was faster. In light of this, which of the following is better if ( $test =~ /^Start of text/so ) { if ( substr ( $text , 0 , 13 ) eq 'Start of text' ) { In that case they'ld probably be about the

Re: simple if?

2005-03-03 Thread $Bill Luebkert
Conrad, Bill (ThomasTech) wrote: $Bill Luebkert wrote Paul Rogers wrote: What's the simplest/shortest way to write an IF statement given that I'm looking for the variable to be one of 5 possible choices? E.g., if ($x eq 'a' or $x eq 'b' or $x eq 'c or $x eq 'd' or $x eq 'e') { blah }

RE: simple if?

2005-03-03 Thread Conrad, Bill (ThomasTech)
$Bill Luebkert wrote What are you lazy ? :) Try benchmarking it yourself. use Benchmark qw(cmpthese); Its not a question of being Lazy. I asked the question because I wanted the opinion of those who know more then I do. I did not know of 'use Benchmark'. Thanks for the info. Bill

Re: simple if?

2005-03-03 Thread Chris Wagner
At 07:33 AM 3/3/05 -0800, $Bill Luebkert wrote: I tried 3 different lengths of $text and substr is the clear winner. Longest string: Rate RE substr RE 916926/s -- -70% substr 3076923/s 236% -- That's very interesting, I ran ur exact code (except for $x++) and I

Re: simple if?

2005-03-03 Thread $Bill Luebkert
Chris Wagner wrote: At 07:33 AM 3/3/05 -0800, $Bill Luebkert wrote: I tried 3 different lengths of $text and substr is the clear winner. Longest string: Rate RE substr RE 916926/s -- -70% substr 3076923/s 236% -- That's very interesting, I ran ur exact

Re: simple if?

2005-03-03 Thread Chris Wagner
Yeah I was suspecting u were on 64 bit. Maybe the regex engine just isn't optimized for 64 bit qwords. If it's just running 32 bit words then 50% of ur XOR capacity is wasted. But then u would think that u'ld beat me on pure clock speed. I seriously doubt that a Celeron is better in any way

Re: simple if?

2005-03-03 Thread Chris Wagner
I figured I should try the benchmark against ur original question. use Benchmark qw(cmpthese); $now = time; my $t = bob; my $count = 500; cmpthese ($count, { 'OR' = sub { 1 if ($t eq joe or $t eq bar or $t eq foo or $t eq bob ); }, 'RE' = sub {

simple if?

2005-03-02 Thread Paul Rogers
What's the simplest/shortest way to write an IF statement given that I'm looking for the variable to be one of 5 possible choices? E.g., if ($x eq 'a' or $x eq 'b' or $x eq 'c or $x eq 'd' or $x eq 'e') { blah } I guess what I'm asking for is if there is a way to simplify/shorten this

Re: simple if?

2005-03-02 Thread $Bill Luebkert
Paul Rogers wrote: What's the simplest/shortest way to write an IF statement given that I'm looking for the variable to be one of 5 possible choices? E.g., if ($x eq 'a' or $x eq 'b' or $x eq 'c or $x eq 'd' or $x eq 'e') { blah } I guess what I'm asking for is if there is a way

RE: simple if?

2005-03-02 Thread Fowler, Terry R
Paul: if ($x eq 'a' or $x eq 'b' or $x eq 'c or $x eq 'd' or $x eq 'e') { $Bill: if ($x =~ /^[abcde]$/) { Oh pooh. I almost got to answer a question but I hesitated to hit the Send button. I was going to suggest /[a-e]/; would that be wrong if I knew I was looking for abcde? Terry Fowler

Re: simple if?

2005-03-02 Thread Paul Rogers
- Original Message - From: $Bill Luebkert [EMAIL PROTECTED] if ($x =~ /^(word1|word2|word3|word4)$/) { Aha! Yes...this will do it for sure. Thanks :-) Paul --- ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To

Re: simple if?

2005-03-02 Thread $Bill Luebkert
Fowler, Terry R wrote: Paul: if ($x eq 'a' or $x eq 'b' or $x eq 'c or $x eq 'd' or $x eq 'e') { $Bill: if ($x =~ /^[abcde]$/) { Oh pooh. I almost got to answer a question but I hesitated to hit the Send button. I was going to suggest /[a-e]/; would that be wrong if I knew I was

Re: simple if?

2005-03-02 Thread Chris Wagner
I think ur first way was the best way. It all depends on what the comparison is. If it's simple, use or's, but if it gets long and complicated then it's worth it to use regex. Better to do one or two XOR's than load up the regex engine. But of course u won't notice any difference unless ur

Simple question

2005-02-19 Thread Alberto Fernandez
Hello, i am new in Perl and i have a doubt that i think is very easy to result. I have this portion code: my $string = cccabccc; my @array =$string =~ /ab|a/g; I execute this and array contains 1 element with value ab. I would like to know if there is some way for array contains all the matches

RE: Simple question

2005-02-19 Thread Jerry Kassebaum
my $string = cabccabccac; my @array =$string =~ /a/g; my @array2 =$string =~ /ab/g; @array = @array . @array2; print @array; ** Hello, i am new in Perl and i have a doubt that i think is very easy to result. I have this portion code: my $string = cccabccc; my @array =$string =~

Re: Simple question

2005-02-19 Thread Tom Pollard
On Sat, 19 Feb 2005, Alberto Fernandez wrote: Hello, i am new in Perl and i have a doubt that i think is very easy to result. I have this portion code: my $string = cccabccc; my @array =$string =~ /ab|a/g; I execute this and array contains 1 element with value ab. I would like to

How to use Perl to operate Windows's registry table ( simple script example is really appreciated) ?

2005-02-01 Thread honery
Hello , Could you please tell me how to use Perl to operate Windows's registry table, such as search,add key,modify value etc... And I would really appreciate that someone can kindly provide some simple sample scripts to make understanding easier. Any help will be appreciated. Thxs, Honery

R: How to use Perl to operate Windows's registry table ( simple scriptexample is really appreciated) ?

2005-02-01 Thread Lorenzo Falcidieno
PROTECTED] conto di honery Inviato: martedi 1 febbraio 2005 12.07 A: perl-win32-users@listserv.ActiveState.com Oggetto: How to use Perl to operate Windows's registry table ( simple scriptexample is really appreciated) ? Hello , Could you please tell me how to use Perl to operate Windows's registry

Re: How to use Perl to operate Windows's registry table ( simple script example is really appreciated) ?

2005-02-01 Thread John Serink
appreciate that someone can kindly provide some simple sample scripts to make understanding easier. Any help will be appreciated. Thxs, Honery. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http

Cann't login with Net::IMAP::Simple

2005-01-24 Thread h-taguchi
Hello, (B (BI downloaded Net::IMAP::Simple run sample script, (Bbut failed on login. (B$! has "Bad file descriptor". (BMy script is just copy of README, (BAany idea? (B (BMy purpose is to read mails in excange server. (BI tried with OLE and OutLook from; (Bhttp://www.outlo

RE: LWP::Simple could not retrieve issue

2005-01-18 Thread Randy Kobes
On Tue, 18 Jan 2005, Hsu, David wrote: I added the proxy setting in the script, but still the same problem. I saved the xml link as a local file and ran the script through IE. Parsed just fine. Still can't figure out why it won't get the xml from any site. Since this is a problem when run

RE: LWP::Simple could not retrieve issue

2005-01-18 Thread Hsu, David
PROTECTED] Sent: Monday, January 17, 2005 4:22 PM To: Hsu, David Cc: $Bill Luebkert; perl-win32-users@listserv.ActiveState.com Subject: RE: LWP::Simple could not retrieve issue On Mon, 17 Jan 2005, Hsu, David wrote: Bill, I tried your code, but get same problem. I'm behind a corporate firewall

RE: LWP::Simple could not retrieve issue

2005-01-17 Thread Hsu, David
Bill, I tried your code, but get same problem. I'm behind a corporate firewall, does LWP::Simple require any proxy settings? I've already set the proxy server on the systems variables. Thanks, David -Original Message- From: $Bill Luebkert [mailto:[EMAIL PROTECTED] Sent: Friday

RE: LWP::Simple could not retrieve issue

2005-01-17 Thread Randy Kobes
On Mon, 17 Jan 2005, Hsu, David wrote: Bill, I tried your code, but get same problem. I'm behind a corporate firewall, does LWP::Simple require any proxy settings? I've already set the proxy server on the systems variables. Perhaps you need to include some proxy settings in the script

Re: LWP::Simple could not retrieve issue

2005-01-17 Thread $Bill Luebkert
Randy Kobes wrote: On Mon, 17 Jan 2005, Hsu, David wrote: Bill, I tried your code, but get same problem. I'm behind a corporate firewall, does LWP::Simple require any proxy settings? I've already set the proxy server on the systems variables. I've never had to use a proxy, so I can't

LWP::Simple could not retrieve issue

2005-01-14 Thread Hsu, David
with the same problem. Following is the partial code. This is from rss2html.pl that was included with XML-RSS module. Any ideas? Thanks, David # INCLUDES use strict; #use CGI qw(:standard); use XML::RSS; use LWP::Simple; # Declare variables my $content; my $file; # MAIN # check for command-line

Re: LWP::Simple could not retrieve issue

2005-01-14 Thread $Bill Luebkert
rss feed sites, all with the same problem. Following is the partial code. This is from rss2html.pl that was included with XML-RSS module. Any ideas? Thanks, David # INCLUDES use strict; #use CGI qw(:standard); use XML::RSS; use LWP::Simple; # Declare variables my $content; my

RE:RE:Tk::Table custom keys scroll question -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: November 21, 2004 10:28 PM To: perl-win32-users@listserv.ActiveState.com Subject: RE:RE:Tk::Table cusom keys scrolll question _________ thanks ! may be you suggest how I can pack my widgets to get matrix of predefined number rows and cols ? thank in advance ! What are you actually trying to do? I may have given you some poor advice. Usually when someone wants to grid a bunch of Entry widgets - I start thinking spreadsheet. If that is indeed your purpose then don't heed my previous advice. Instead use Tk::TableMatrix !! ##################### use Tk::TableMatrix; use Tk; my $var = {}; foreach my $row (0..50){ foreach my $col (0..20){ $var-{$row,$col} = Row$row Col$col; } } my $mw=tkinit; my $tm = $mw-Scrolled('TableMatrix', -scrollbars='se', -bg='white', -rows=51, -cols=21, -variable=\$var)-pack(-expand=1, -fill='both'); MainLoop; __END__ perldoc Tk::TableMatrix ##################### If you still wish to just use a bunch of entries for whatever your purpose - then here is a simple example of 'grid'ding some entry widgets: ##################### use Tk; use Tk::Pane; use strict; my @entry; my $mw=tkinit; my $pane = $mw-Scrolled('Pane')-pack(-expand=1, -fill='both'); foreach my $row (0..50) { foreach my $col (0..20) { $entry[$row][$col] = $pane-Entry( -text=Row $row Col $col) -grid(-row=$row, -column=$col); } } MainLoop; __END__ perldoc Tk::grid ##################### There are other table-like widgets but TableMatrix is the most powerful and most efficient. It all depends on your purpose. Jack thank you ! My purpose is : I am looking for a possibility of migrating of some my old vb database applications to perl. 1)In vb there is Visual Data Manager (visdata app) Is there some analog of it in perl ? 2)I would like example of analog of databound DataGrid control /in perl/ for browsing tables 3)And I have some Clipper5 apps which extensively use custom browsing : Down key in last row appends a new row with some cells having values predicted from few above cells. How To achieve this in perl Tk?

2004-11-22 Thread assistent
', -scrollbars='se', -bg='white', -rows=51, -cols=21, -variable=\$var)-pack(-expand=1, -fill='both'); MainLoop; __END__ perldoc Tk::TableMatrix # If you still wish to just use a bunch of entries for whatever your purpose - then here is a simple example of 'grid'ding

RE: RFC Expunge issue with Net::IMAP::Simple .95

2004-11-04 Thread Thomas, Mark - BLS CTR
-Original Message- From: Ben Conrad [mailto:[EMAIL PROTECTED] Sent: Wednesday, November 03, 2004 7:16 PM To: 'Thomas, Mark - BLS CTR'; [EMAIL PROTECTED] Subject: RE: RFC Expunge issue with Net::IMAP::Simple .95 Mark, Your suggestion did work, however the cmd id is still

RFC Expunge issue with Net::IMAP::Simple .95

2004-11-03 Thread Ben Conrad
Folks, I'm just about done writing a script that deletes messages older than x days in IMAP mailboxes. When I do a $imap-expunge_mailbox( $box ) the server (via network sniff) spits out: 14 EXPUNGE Ben Net::IMAP::Simple 14 BAD EXPUNGE Invalid SyntaxIpswitch Imail server 7.04

RE: RFC Expunge issue with Net::IMAP::Simple .95

2004-11-03 Thread Thomas, Mark - BLS CTR
with Net::IMAP::Simple .95 Folks, I'm just about done writing a script that deletes messages older than x days in IMAP mailboxes. When I do a $imap-expunge_mailbox( $box ) the server (via network sniff) spits out: 14 EXPUNGE Ben Net::IMAP::Simple 14 BAD EXPUNGE Invalid

RE: RFC Expunge issue with Net::IMAP::Simple .95

2004-11-03 Thread Ben Conrad
: Wednesday, November 03, 2004 4:54 PM To: 'Ben Conrad'; [EMAIL PROTECTED] Subject: RE: RFC Expunge issue with Net::IMAP::Simple .95 The _process_command() routine processes its 'cmd' arguments in order, so you should be able to simply reverse it. So, instead of cmd = [EXPUNGE = $box], use cmd

simple regex question

2004-10-15 Thread bruce
hi.. a simple/basic/embarassingly simple one... i have: $foo = foo.txt i simply want to separate on the . ie $foo =~ /([^.]+).txt/ $ans = $1 this doesn't seem to get $ans = 'foo' any ideas as to what i've screwed up... thanks bruce ___ Perl

Re: simple regex question

2004-10-15 Thread O'K Web Design
Hi Bruce I would use split(/\./,$foo) Mike - Original Message - From: bruce [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: October 15, 2004 1:38 PM Subject: simple regex question hi.. a simple/basic/embarassingly simple one... i have: $foo = foo.txt i simply want

RE: simple regex question

2004-10-15 Thread Joseph Discenza
bruce wrote, on Friday, October 15, 2004 1:39 PM : a simple/basic/embarassingly simple one... : : i have: : : $foo = foo.txt : : i simply want to separate on the . : : ie : $foo =~ /([^.]+).txt/ : $ans = $1 : : this doesn't seem to get $ans = 'foo' Maybe you're going

RE: simple regex question

2004-10-15 Thread bruce
'ppreciate the responses!! it was a typo! f^*ng fingers!! -bruce -Original Message- From: Gardner, Sam [mailto:[EMAIL PROTECTED] Sent: Friday, October 15, 2004 10:54 AM To: '[EMAIL PROTECTED]'; [EMAIL PROTECTED] Subject: RE: simple regex question Well, just as a basic note, you

RE: simple regex question

2004-10-15 Thread Andy_Bach
A further debug/syntax nitpick: print foo='$foo'\n; $foo =~ /([^.]+).txt/; $ans = $1; print ans='$ans'\n; best as: my ($foo, $ans); print foo='$foo'\n; if ( $foo =~ /([^.]+)\.txt/ ) { $ans = $1; } else { $ans=match failed on: $foo; } print ans='$ans'\n; if you check your

RE: simple regex question

2004-10-15 Thread Gerber, Christopher J
bruce [EMAIL PROTECTED] $foo = foo.txt i simply want to separate on the . Try: use File::Basename; # my $foo = foo.txt; my $ans = fileparse($foo, ('.txt')); print $ans\n; If you REALLY want to use the regex, you could try one of the following: -- 1 -- $foo =

RE: Simple threading has large handle leak (need help)

2004-10-01 Thread Ben Conrad
After compiling and testing on 5.8.5 this handle leak and memory usage issue has been resolved. Ben -Original Message- From: Ben Conrad [mailto:[EMAIL PROTECTED] Sent: Monday, September 13, 2004 11:52 AM To: Perl-Win32-Users Subject: Simple threading has large handle leak (need help

Simple threading has large handle leak (need help)

2004-09-13 Thread Ben Conrad
Hello, - perl v5.8.3/v5.8.4 built for MSWin32-x86-multi-thread - WinXP SP1 + SP2 I'm using a very simple example from the 5.8 perlthrtut and seem to be running into a memory leak of some kind. When I run: # use threads; while (1) { $thr = threads-new(\sub1

Remote Execution, Something Simple Needed

2004-06-23 Thread Daniel Wilson
looking for something that is simple. Is there any recommendations? Dan Daniel Wilson Bayesian Edge Technology Solutions 17260 Gum Landing Road St. Inigoes Maryland 20684 (301)-872-0230 Phone (301)-872-0233 Fax www.bayesianedge.com ___ Perl-Win32-Users

RE: Remote Execution, Something Simple Needed

2004-06-23 Thread Anderson, Mark (Service Delivery)
] Sent: Wednesday, June 23, 2004 2:59 PM To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Subject: Remote Execution, Something Simple Needed *** WARNING : This message originates from the Internet *** Hello I would like to start (on demand from a perl script) a executable (exe) file

Re: Remote Execution, Something Simple Needed

2004-06-23 Thread Brian Gibson
113 Dundas Street, Edinburgh, EH3 5DE http://www.manufacturing.rbs.co.uk/GTrswi/ -Original Message- From: Daniel Wilson [SMTP:[EMAIL PROTECTED] Sent: Wednesday, June 23, 2004 2:59 PM To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Subject:Remote Execution, Something Simple

RE: Remote Execution, Something Simple Needed

2004-06-23 Thread Aaron.Tesch
Execution, Something Simple Needed A non-Perl alternative that is free, a program called psexec. http://www.sysinternals.com/ntw2k/freeware/psexec.shtml Anderson, Mark (Service Delivery) wrote: Win32::KillProcess http://www.perlmonks.org/index.pl?node_id=336024 Kind regards, Mark Anderson

RE: Remote Execution, Something Simple Needed

2004-06-23 Thread Steven Manross
:13 PM To: Brian Gibson; Anderson, Mark (Service Delivery); [EMAIL PROTECTED] Subject: RE: Remote Execution, Something Simple Needed MSTask Scheduler, formerly known as the AT scheduler. Can schedule applications to run on remote systems The AT command schedules commands and programs to run

RE: Win32::Daemon::Simple vs. SVCANY.EXE

2004-04-19 Thread Peter Guzis
[mailto:[EMAIL PROTECTED] Sent: Sunday, April 18, 2004 8:06 AM To: [EMAIL PROTECTED] Subject: Win32::Daemon::Simple vs. SVCANY.EXE I've written a script to read the Windows event logs and write the results to a MySQL database. I'm currently using Win32::Daemon::Simple to run it as a service

Win32::Daemon::Simple vs. SVCANY.EXE

2004-04-18 Thread Jim Lancaster
I've written a script to read the Windows event logs and write the results to a MySQL database. I'm currently using Win32::Daemon::Simple to run it as a service, polling the logs every 15 minutes. However, I'm wondering if this is the best method to use. It would appear to be simpler to put my

Re: Win32::Daemon::Simple -install question

2004-04-03 Thread Eric Amick
on/Simple.pm line 239. Installed successfully C:\Development\soap\welagent.exe Use of uninitialized value in concatenation (.) or string at /PerlApp/Win32/Daem on/Simple.pm line 240. === The 'use' statement I've got in my script is as follows: use Win32::Daemon::Simple

RE: Simple text editor under Windows

2004-03-03 Thread Thomas, Mark - BLS CTR
[EMAIL PROTECTED] wrote: Eclipse (I use 2.1) has an outline window that allows you to jump directly to subs. Hmm... Eclipse seems to be an umbrella name for a rather large project tree. Which specific component of Eclipse are you using--is it the Workbench? A quick glance at the docs shows no

RE: Simple text editor under Windows

2004-03-03 Thread John_Wunderlich
Thomas, Mark - BLS CTR [EMAIL PROTECTED] 03/03/2004 01:12 PM To: '[EMAIL PROTECTED]' [EMAIL PROTECTED], Thomas, Mark - BLS CTR [EMAIL PROTECTED] cc: [EMAIL PROTECTED] Subject: RE: Simple text editor under Windows [EMAIL PROTECTED] wrote: Eclipse (I use 2.1) has

RE: Simple text editor under Windows

2004-03-03 Thread Thomas, Mark - BLS CTR
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] wrote: The perl plug-ins are at: http://e-p-i-c.sourceforge.net/ Ah. Actually, that looks pretty good. I use Komodo now, and I like Komodo, but EPIC looks like it's getting pretty close in functionality. It seems to only lack a debugger :( As much as

RE: Simple text editor under Windows

2004-03-03 Thread Thomas, Mark - BLS CTR
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] wrote: I use the Perl Dev Kit, which includes PerlApp for executables, and the Graphical debugger. Both can be set up and called as tools from Eclipse. If you have Komodo, do you not already have the separate debugger? Well, it's not really

RE: Simple text editor under Windows

2004-03-03 Thread John_Wunderlich
]' [EMAIL PROTECTED] cc: [EMAIL PROTECTED] Subject: RE: Simple text editor under Windows [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] wrote: The perl plug-ins are at: http://e-p-i-c.sourceforge.net/ Ah. Actually, that looks pretty good. I use Komodo now, and I like Komodo, but EPIC

Simple text editor under Windows

2004-03-02 Thread Martin Leese
error messages say error at line 187, and if I try to count down that far then I get lost. So, what is a nice simple editor that will allow me to jump to line 187? Note the word simple; if Wordpad can be made to do this then that would be the preferred solution. I could use MS Word (Edit-Find-Go

Re: Simple text editor under Windows

2004-03-02 Thread pdalec
- Original Message Follows - I don't want to start a huge flame war with this question, so please exercise restraint. I have just started to use Perl under Windows NT. I have been using Wordpad to edit my perl scripts simply because it is there (and Notepad doesn't have search

Re: implement a simple Telnet like Daemon in perl

2004-02-03 Thread tanman
: Jeremy A [EMAIL PROTECTED] Date: Tuesday, February 3, 2004 4:25 am Subject: RE: implement a simple Telnet like Daemon in perl Hi all, I was not able to get any replies, as the mailing list was acting up, and i was not recieving any mail. now i am able too. So please reply again

implement a simple Telnet like Daemon (protocol) in perl

2004-02-03 Thread Jeremy A
Hi all, I have been struggling to understand the Telnet Protocol, but the RFC's are like greek, and there are no good books for covering Telnet, and my mind is too stupid to wrap around it. I would like to create a telnet like protocol, that is easy for my own use. How do you go about

Seemingly simple???

2003-12-10 Thread Maraglia, Dominicx
Hello, I have a small problem, which at first seems simple, but has proven to be a bit of a hair puller. A collegue and I are importing some windows formatted ascii files (onto our linux systems) and extracting certain string data. Simple enough. However, our problem is that some

RE: Seemingly simple???

2003-12-10 Thread Arms, Mike
Try the Linux command: dos2unix -- Mike Arms -Original Message- From: Maraglia, Dominicx [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 10, 2003 11:07 AM To: [EMAIL PROTECTED] Subject: Seemingly simple??? Hello, I have a small problem, which at first seems simple

RE: Seemingly simple???

2003-12-10 Thread Wagner, David --- Senior Programmer Analyst --- WGO
[EMAIL PROTECTED] wrote: Subject: Seemingly simple??? Hello, I have a small problem, which at first seems simple, but has proven to be a bit of a hair puller. A collegue and I are importing some windows formatted ascii files (onto our linux systems) and extracting certain string

RE: Seemingly simple???

2003-12-10 Thread Andy_Bach
Perl uses the line ending appropriate for the platform \r\n for dos \n for *nix and translates the print hey\n appropriately. You can do: $var =~ s/\r//; to remove the ^M but you probably want to look into setting the var $/ and use chomp. perldoc -f chomp chomp This safer version of

Getting this simple program to work

2003-11-22 Thread franbarnett
In 'Learning Perl' instruction for first program is given: #! /usr/bin/perl print "Hello, world!\n"; $ chmod a+x my_ program $ ./my_program On my windows XP I believe it goes as #!/usr/local/ActivePerl-5.8/bin/perl print "Hello, world!\n"; Is that correct, and what comes next? Fran

Re: Simple syntax question

2003-03-14 Thread Carl Jolley
On Thu, 13 Mar 2003, Mark A. Chalkley wrote: Ok, a dumb question here (I must be having a brain halt...): Given the following snippet of code to load data from a file into a hash, while( DATA ) { /(.*)\,(.*)/ ($hash{$1} = $2) }; what does the '' do? It's a logical AND operator so that

  1   2   >