RE: Win32::Setupsup -Can Mouse action be sent to a window as SendKeys sends some key strokes to a window

2001-10-18 Thread Abhra Debroy
Thank u Carl for the reply ! But what's the solution for the application those do not support OLE . Abhra > -Original Message- > From: Carl Jolley [SMTP:[EMAIL PROTECTED]] > Sent: Thursday, October 18, 2001 10:51 PM > To: Abhra Debroy > Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]; > [

Re: What is Auto-Vivification

2001-10-18 Thread Curtis Poe
--- Jeff 'japhy' Pinyan <[EMAIL PROTECTED]> wrote: > On Oct 18, Curtis Poe said: > > >> Friends -- Could you briefly explain the term "auto-vivification"? I have > >> seen this quite a few times in some of the responses. > > > >Auto-vivification is trying to access a hash entry that doesn't exit.

Re: Win32::Setupsup -Can Mouse action be sent to a window as SendKeys sends some key strokes to a window

2001-10-18 Thread Carl Jolley
On Thu, 18 Oct 2001, Abhra Debroy wrote: > Hi All > We can send some key strokes to a window by SendKeys function in > Win32::Setupsup. > How can we send mouse action to a window ? Is there any function available > in win32::Setupsup for the mouse action job. You can use Win32::OLE as a way to g

Moving Net::Ftp to another server

2001-10-18 Thread Epperson, Randall W
Greetings I have just installed gnu-make on a test AIX server in order to install and test Net::Ftp. This module installed fine and my program works using it. Now its time to move my program over to the production server. How can I take Net::Ftp along without reinstalling make and Net::Ftp agai

Perl Project - Suggestions

2001-10-18 Thread Paul Stewart
Hi there... Please cc reply to my email address. :) I have the following project to complete ASAP and am looking for guideance. I am a complete Perl novice but understand little "tidbits" about Perl... Any pieces of information would be most helpful or some software that helps get things rolling

output from system call

2001-10-18 Thread Gregory Nicholls
Hi, I've got a perl script that is front-ending a group of makefiles. The makefiles have 'echo' progress msgs in them. Now if I run the makes from the cmd line I (obviously) get the progress msgs on the terminal. I'd like to know how I can coerce perl into the same behaviour. I know I can

Very Urgent...

2001-10-18 Thread Mandar Tambe
Hello all Where can I get more information on How to test(QA) Website or client server application using Perl-win32::GuiTest. Thanks in advance. Mandar Tambe Prabodhan Exports Pvt. Ltd.(www.prabodhan.com - Join our QA Club!) Tel: 91-20-5462035,543 144

Re: Listing directory contents

2001-10-18 Thread rich+ml
Mebbe something like this? sub ls { for (<$_[0]/*>) { print "$_\n"; ls($_) if -d; } } ls "."; On Tue, 16 Oct 2001, The Black Man wrote: > Date: Tue, 16 Oct 2001 08:10:31 -0700 (PDT) > From: The Black Man <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: Listing directory contents > > Hi a

RE: Anyone know to how use subroutines to add or multiply numbers :How would I modify my file:

2001-10-18 Thread Peter Scott
At 07:33 PM 10/18/01 -0400, AMORE,JUAN (HP-Roseville,ex1) wrote: >I don't get any output: >I'm using at the 1st line within the script >#!/usr/bin/perl -w >Which has included the below script. >To execute from command line I input "This scripts name" add 2 4 >Still get a syntax error:( > >Juan A

Re: Fraction to integer.

2001-10-18 Thread Juan Ramon
Joel R Stout wrote: > print " rand: $p \n"; > print "int: $q \n"; > print " ceil: $r \n"; > print " floor: $s \n"; > > if ( $p - $s >= .5 ){ > $t = $r > } else { > $t = $s > } > print "rounded: $t\n"; Another novice's 2 [euro] cents: $round = ($number>0)?floor($number+.5):ceil(

Re: What is Auto-Vivification

2001-10-18 Thread Kevin Meltzer
On top of what Jeff said, here is an article on autoviv: http://tlc.perlarchive.com/articles/perl/ug0002.shtml Cheers, Kevin On Thu, Oct 18, 2001 at 07:10:45PM -0400, [EMAIL PROTECTED] ([EMAIL PROTECTED]) said something similar to: > Friends -- Could you briefly explain the term "auto-vivific

RE: What is Auto-Vivification

2001-10-18 Thread RArul
Thanks Curtis. However, I am not seeing what you had mentioned in your response. When I tested this code, it did not create a key called 'key3'. #!/usr/bin/perl # Test Auto-vivification use strict; my(%hash); %hash = ( 'key1'=>'val1', 'key2'=>'val2'); #Please note that

Re: Special characters from perl to MySQL

2001-10-18 Thread Brett W. McCoy
On Thu, 18 Oct 2001, Matt Klicka wrote: > I'm trying to enter data into MySQL and can't seem to > be able to enter the question mark and the quote > characters. I've tried every way of quoting (and > backslashing) I can think of to no avail. With the > quote I get an error from MySQL saying the q

RE: Anyone know to how use subroutines to add or multiply numbers :How would I modify my file:

2001-10-18 Thread AMORE,JUAN (HP-Roseville,ex1)
I don't get any output: I'm using at the 1st line within the script #!/usr/bin/perl -w Which has included the below script. To execute from command line I input "This scripts name" add 2 4 Still get a syntax error:( Juan Amore HPCS ENGINEERING 1-748-8789 -Original Message- From: Peter

Re: What is Auto-Vivification

2001-10-18 Thread Jeff 'japhy' Pinyan
On Oct 18, Curtis Poe said: >> Friends -- Could you briefly explain the term "auto-vivification"? I have >> seen this quite a few times in some of the responses. > >Auto-vivification is trying to access a hash entry that doesn't exit. If that is >done, the hash >entry is typically created with

Re: What is Auto-Vivification

2001-10-18 Thread Curtis Poe
--- [EMAIL PROTECTED] wrote: > Friends -- Could you briefly explain the term "auto-vivification"? I have > seen this quite a few times in some of the responses. > > A simple example to prove the point would be greatly appreciated. > > Thanks, > Rex Rex, Auto-vivification is trying to access a

What is Auto-Vivification

2001-10-18 Thread RArul
Friends -- Could you briefly explain the term "auto-vivification"? I have seen this quite a few times in some of the responses. A simple example to prove the point would be greatly appreciated. Thanks, Rex -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PRO

Re: Special characters from perl to MySQL

2001-10-18 Thread Casey West
On Oct 18, 2001 at 04:03 -0700, Matt Klicka took the soap box and proclaimed: : I'm trying to enter data into MySQL and can't seem to : be able to enter the question mark and the quote : characters. I've tried every way of quoting (and : backslashing) I can think of to no avail. With the : quote I

Special characters from perl to MySQL

2001-10-18 Thread Matt Klicka
I'm trying to enter data into MySQL and can't seem to be able to enter the question mark and the quote characters. I've tried every way of quoting (and backslashing) I can think of to no avail. With the quote I get an error from MySQL saying the query was bad (i.e. the query ended at the quote) an

RE: Fraction to integer.

2001-10-18 Thread Stout, Joel R
int will go towards zero... #!/usr/bin/perl -w my ($p, $q, $r, $s, $t); use POSIX; use strict; $p = rand( 100 ); # random number between 0 and 100 $q = int( $p ); # goes towards zero $r = ceil( $p );# goes to next highest integer $s = floor( $p ); # goes to next lowest inte

Re: array of arrays

2001-10-18 Thread _brian_d_foy
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Michael Fowler) wrote: > $array[$i][$j][$k][$l][$m] eq $list[$l][$m] > However, this is the first time I've seen someone intentionally using such a > large-dimension array. What is this for? i've used many more dimensions than that ;) -- bri

Re: Fraction to integer.

2001-10-18 Thread _brian_d_foy
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Amit Joshi) wrote: > Is there a way in perl to directly convert a fractional number to > its nearest integer value ?? use the int() function. http://www.perldoc.com/perl5.6.1/pod/func/int.html -- brian d foy <[EMAIL PROTECTED]> - Perl ser

Re: array of arrays

2001-10-18 Thread Michael Fowler
On Thu, Oct 18, 2001 at 02:28:41PM -0600, Tyler Cruickshank wrote: > $array[$i][$j][$k] = [ @list ]; where, @list is a 2-D array ie. $list[][]. > > How do I access the individual elements of the array @list once Ive put it > into the array @array? $array[$i][$j][$k][$l][$m] eq $list[$l][$m] H

Re: Fraction to integer.

2001-10-18 Thread Michael Fowler
On Thu, Oct 18, 2001 at 08:57:40PM +, Amit Joshi wrote: > Is there a way in perl to directly convert a fractional number to > its nearest integer value ?? See perldoc -q round. Michael -- Administrator www.shoebox.net Programmer, System Administrator www.gallanttech.c

RE: Fraction to integer.

2001-10-18 Thread Bob Showalter
> -Original Message- > From: Amit Joshi [mailto:[EMAIL PROTECTED]] > Sent: Thursday, October 18, 2001 4:58 PM > To: [EMAIL PROTECTED] > Subject: Fraction to integer. > > > Hi, > > Is there a way in perl to directly convert a fractional number to > its nearest integer value ?? perldoc -

Fraction to integer.

2001-10-18 Thread Amit Joshi
Hi, Is there a way in perl to directly convert a fractional number to its nearest integer value ?? Thanks, Amit. _ Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp -- To unsubscribe, e-mail: [EMAIL PRO

array of arrays

2001-10-18 Thread Tyler Cruickshank
Hi. Im using a multidimensional array in the following way: $array[$i][$j][$k] = [ @list ]; where, @list is a 2-D array ie. $list[][]. How do I access the individual elements of the array @list once Ive put it into the array @array? Thanks. -ty -- To unsubscribe, e-mail: [EMAIL PROTECT

Re: Passing parameters to perl from C++

2001-10-18 Thread Lotto
If it would be easier, I would like to make the variables (made from keyname elements) into constants. Otherwise I could just set them to indexes for the value array. That way, instead of assigning the value array elements to the variables, I could just use the variables to reference the element

Re: Newbie using Spreadsheet::ParseExcel

2001-10-18 Thread Lotto
I had the -w option on (!/usr/bin/perl -w). When I took out the -w, the mystery message went away. I'm still a bit disturbed that I ever got it, but the program runs fine. Lotto. . P.S. Sorry about all of those reposts, it took forever for the posts to appear for me, and I thought I was doing

RE: return a hash key

2001-10-18 Thread Bob Showalter
> -Original Message- > From: AL H [mailto:[EMAIL PROTECTED]] > Sent: Thursday, October 18, 2001 1:51 PM > To: [EMAIL PROTECTED] > Subject: return a hash key > > > Let say I have a multikey hash: > $poeple{$first}{$Last}{$MI}{$CITY} > If I am passing values to this hash Is there a functio

Passing parameters to perl from C++

2001-10-18 Thread Lotto
I am not even sure if this is possible, though it seems like something Perl would be capable of. I have a C++ program with perl embedded in it. I want to pass two arrays to perl, one with keynames and the other with values in it. Once in the perl code, I want to make variables with name from th

Check for a process

2001-10-18 Thread Amar Patel
How do I replicate ps -awxx (berkly ps command )command on windows NT. Basically I am trying to monitor cretain java processes on an NT/2000 machines with certain option(s)in the command line. I would like to know is there a module or a command that I can execute and as the result, I would like to

Re: return a hash key

2001-10-18 Thread Michael Fowler
On Thu, Oct 18, 2001 at 05:50:33PM +, AL H wrote: > Let say I have a multikey hash: > $poeple{$first}{$Last}{$MI}{$CITY} > If I am passing values to this hash Is there a function or a way to retrieve > missing keys from it? > I know that if (! exists %poeple ->{$first}->{$Last}-{$MI}) will r

Re: Select all files in a dir for processing?

2001-10-18 Thread Jeff 'japhy' Pinyan
On Oct 18, Bill Akins said: >I need to read in every file in a dir into a new file. I can do it like >below if I know the file names, but how can I specify *.CSV? Actually there >will be only the data files I need to read in the dir so *.* would work as >well. Perhaps I should also mention thi

Re: 2 questions on perl.

2001-10-18 Thread Brett W. McCoy
On Thu, 18 Oct 2001, Amit Joshi wrote: > Q1: Do we have a standard way to generate random numbers in perl ? perldoc -f rand perldoc -q random > Q2: How do we run system commands from a perl program ? perldoc -f system perldoc -q system (perldoc -f gives you information on the usage of a speci

Re: Greetings

2001-10-18 Thread Brett W. McCoy
On Thu, 18 Oct 2001, Brian wrote: > Does any one have any good resources for processing SQL w/ Perl? > Just basic stuff, ie: > > select * from table_name; type of statements?? Check out the DBI module: http://dbi.symbolstone.org That'll get you started. -- Brett

Re: Elusive Syntax

2001-10-18 Thread Brett W. McCoy
On Thu, 18 Oct 2001, Scott Taylor wrote: > Anyone know how I can do this? I can't seem to get past a syntax error > near the 'while'. (it worked up to the point I tried to put it into a > table, and the table works fine by itself) You have your while loop embedded in a print statement. Can't

2 questions on perl.

2001-10-18 Thread Amit Joshi
Hi, I'm very new to perl. Have following two questions: Q1: Do we have a standard way to generate random numbers in perl ? Q2: How do we run system commands from a perl program ? Thanks and regards, Amit. _ Get your FREE downl

Greetings

2001-10-18 Thread Brian
Does any one have any good resources for processing SQL w/ Perl? Just basic stuff, ie: select * from table_name; type of statements?? Thanks Ya, Brian -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

return a hash key

2001-10-18 Thread AL H
Let say I have a multikey hash: $poeple{$first}{$Last}{$MI}{$CITY} If I am passing values to this hash Is there a function or a way to retrieve missing keys from it? I know that if (! exists %poeple ->{$first}->{$Last}-{$MI}) will return false or true. I want thes non valid keys temselves to be

Re: Elusive Syntax

2001-10-18 Thread Michael Fowler
On Thu, Oct 18, 2001 at 09:51:31AM -0700, Scott Taylor wrote: > use CGI qw/:standard *table start_ul/; > require DBI; > require HTTP::Date; > . > > print table({-border=>undef}, > caption('Contacts'), > Tr({-align=>CENTER,-valign=>TOP}, > [ > th(['First Name','Last Name','

Select all files in a dir for processing?

2001-10-18 Thread Bill Akins
Hello All, OK, I'm very new to Perl, so please don't flame me! I need to read in every file in a dir into a new file. I can do it like below if I know the file names, but how can I specify *.CSV? Actually there will be only the data files I need to read in the dir so *.* would work as well. P

RE: Elusive Syntax

2001-10-18 Thread Jeff 'japhy' Pinyan
On Oct 18, Brian Arnold said: >$table_data .= td([ >'$columns[0]', '$columns[1]', '$columns[2]', '$columns[3]', >'$columns[4]', '$columns[5]', '$columns[6]', '$columns[7]', >'$columns[8]', '$columns[9]', '$columns[10]','$columns[11]', >'$columns[12]','$columns[13]','$columns[1

Re: symbolic reference of hashes in subroutines

2001-10-18 Thread Michael Fowler
RaFaL has answered the question you asked, but it should be mentioned that you are not using symbolic references in your code. \%hash is a hard reference. On Thu, Oct 18, 2001 at 09:33:06AM -0400, Ross Howard wrote: > populate_hash (\%hash1, "HEY1", "value1"); > populate_hash (\%hash2, "HUMM",

Weekly list FAQ posting

2001-10-18 Thread casey
NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address)

RE: Elusive Syntax

2001-10-18 Thread Brian Arnold
I've not had luck calling a while loop (or any loop, for that matter) during the creation of a table - I did something like this - hope this helps. my $table_data = ""; while ( @columns = $cursor->fetchrow ) { $table_data .= td([ '$columns[0]', '$columns[1]', '$columns[2]', '$columns[3]',

Elusive Syntax

2001-10-18 Thread Scott Taylor
Anyone know how I can do this? I can't seem to get past a syntax error near the 'while'. (it worked up to the point I tried to put it into a table, and the table works fine by itself) use CGI qw/:standard *table start_ul/; require DBI; require HTTP::Date; . print table({-border=>undef},

Re: symbolic reference of hashes in subroutines

2001-10-18 Thread Ross Howard
That's definately alot easier to read and understand! Thanks R >From: RaFaL Pocztarski <[EMAIL PROTECTED]> >To: [EMAIL PROTECTED] >Subject: Re: symbolic reference of hashes in subroutines >Date: Thu, 18 Oct 2001 18:10:18 +0200 > >Ross Howard wrote: > > > Specifically, the line: > > ${%{

RE: Warnings with strict and POSIX

2001-10-18 Thread Bob Showalter
> -Original Message- > From: josh hoblitt [mailto:[EMAIL PROTECTED]] > Sent: Thursday, October 18, 2001 5:01 AM > To: [EMAIL PROTECTED] > Subject: Warnings with strict and POSIX > > > I'm not sure exactly whats going on here. It seems the combination of > strict and POSIX ":sys_wait_h"

Re: symbolic reference of hashes in subroutines

2001-10-18 Thread RaFaL Pocztarski
Ross Howard wrote: > Specifically, the line: > ${%{$hash}}{$key} = $value; > ^^^ > This is the part I am not 100% clear on. $hash is a hash reference, right? Then try: $hash->{$key} = $value; - RaFaL Pocztarski, [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL

RE: hash access issue

2001-10-18 Thread Brian Arnold
You could probably do something like sub checkanything { my $var2 = shift; foreach (keys %HoH) { return $HoH{$_}{$var2} if $HoH{$_}{$var2}; } } Then in your main body of code, just say something like if ($var1 eq "anything") { $return = &checkanything($var2); } I think that should do

RE: socket closed

2001-10-18 Thread Bob Showalter
> -Original Message- > From: Daniel Gardner [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, October 17, 2001 6:50 PM > To: [EMAIL PROTECTED] > Subject: socket closed > > > Hi, > > i have code that looks something like this: > > my $sock = IO::Socket::INET->new(%args); > my $sel

hash access issue

2001-10-18 Thread F.H
Hi there, Here is my dilema: %HoH = ( flintstones => { lead1 => "fred", pal1 => "barney", }, jetsons => { lead2 => "george", wife2 => "jane", "his boy"3 => "elroy",

Re: newbie cgi problem

2001-10-18 Thread Brett W. McCoy
On Thu, 18 Oct 2001, dan radom wrote: > I'm trying to print the contents of a file which is being passed from > a html form. I'm pretty close (I think). Here's what I have... > > #!/usr/local/bin/perl -w You should also have 'use strict' here. > use CGI qw(:all); > $s=CGI::param('host'); > $s

Re: Unable to display output

2001-10-18 Thread Dave Storrs
On Wed, 17 Oct 2001, nafiseh saberi wrote: > in perl , > if u want see in screen must write : > print "\n"; > before things you want to to print. > I mean that you must print one empty line and then > print things u wants > __ > Best regards .

Re: newbie cgi problem

2001-10-18 Thread dan radom
thanks too all who replied. i knew i was close. i can't believe i missed the extra " on line 7. duh. thanks everyone! dan * dan radom ([EMAIL PROTECTED]) wrote: > I'm trying to print the contents of a file which is being passed from a html form. >I'm pretty close (I think). Here's what I

Re: XMLParser and Perl

2001-10-18 Thread Dave Storrs
Go to http://search.cpan.org/ and type "XML" into the search box. There are a whole bunch of XML modules that will make your life much easier. In general, "go to CPAN and look for a module" is the answer to most problems in Perl...the number of modules is HUGE, and no matter what you need, there

RE: newbie cgi problem

2001-10-18 Thread Heely, Paul
Hi, > open(CONF, "/opt/disk4/REDBACK-BACKUP/$s") or die("configuration file not found")"; ^ Try getting rid of the extra " on line 7. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: newbie cgi problem

2001-10-18 Thread Richie Crews
try this.. foreach (@t) { print "$_"; }; On Thu, 2001-10-18 at 10:54, dan radom wrote: > I'm trying to print the contents of a file which is being passed from a html form. >I'm pretty close (I think). Here's what I have... > > html form... > > > Enter the hostname to view the configuraqtio

newbie cgi problem

2001-10-18 Thread dan radom
I'm trying to print the contents of a file which is being passed from a html form. I'm pretty close (I think). Here's what I have... html form... Enter the hostname to view the configuraqtion file perl script... #!/usr/local/bin/perl -w use CGI qw(:all); $s=CGI::param('host'); $s = qu

RE: Anyone know to how use subroutines to add or multiply numbers :How would I modify my file:

2001-10-18 Thread Dave Storrs
On Wed, 17 Oct 2001, AMORE,JUAN (HP-Roseville,ex1) wrote: > #!/usr/bin/perl -w > my $function = shift @ARGV; > > if( $function =~ /add/ ) { > $rtn = add( @ARGV ); > print "The sum is :$rtn"; > } > elsif( $function =~ /multiply/ ) { > $rtn = multiply( @ARGV ); > print "The product is

Tk::Button -underline not working?

2001-10-18 Thread Powell E. Barber
Hello, I'm trying to use the -underline option on a Button in a Tk::NoteBook to implement keyboard mapping. The character appears underlined, but the callback function is not called. Am I missing somthing? (I've tried anonymous callbacks as well). Code Begin... use Tk; require Tk::NoteBook;

Re: "BETWEEN" Comparison Operator

2001-10-18 Thread _brian_d_foy
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Mark Martin) wrote: > I can only seem to do this with 2 conditional statements(IF & ELSIF) and > the action repeated. What I want is a "Between" operator for the range -10 > to 10. > Any ideas, Perl 6 will have this. patience :) -- brian d f

Re: symbolic reference of hashes in subroutines

2001-10-18 Thread Ross Howard
I'm actually just using this as a simplistic example, and it's a very simple example, which as you pointed out has a simpler alternative. What I am trying to obtain is an explanation as to how hashes can be passed to a subroutine, populated and used within a subroutine, and used external to th

RE: "BETWEEN" Comparison Operator

2001-10-18 Thread Brian Arnold
The code if ( $variable > -10 and $variable < 10 ) { # do something } Will not catch -10 itself or 10, so this is really like saying from -9 to 9. If you want to include -10 and 10, use this if ( $variable >= -10 and $variable <= 10 ) { # do something } But yeah, it looks like

Re: Factory method

2001-10-18 Thread Nigel Wetters
Sorry, typo: http://www.perlfascist.com/factory.tar.gz I've already amended the example to include some comments made by people who found my site despite my best efforts! Still looking for sites that have any information about design patterns in perl. Anyone seen any? --Nigel Wetters _brian_

Re: symbolic reference of hashes in subroutines

2001-10-18 Thread Jos I. Boumans
i must be missing the point, but why are you using prototyped subroutines to populate a hash ref? what's wrong with: my $href = { foo => 'quux', bar => [ qw( bleh yuck) ], }; or $href->{'baz'} = { foo => 'bar' } ? regards, Jos - Original Message - From: "Ross Howard" <[EMAIL

RE: "BETWEEN" Comparison Operator

2001-10-18 Thread Heely, Paul
Hi, The following if checks for variable between -10 and 10. if ( $variable > -10 and $variable < 10 ) { # do something } The example you gave looks like it always executes though, so maybe I'm missing something. --Paul > -Original Message- > From: Mark Martin [mailto:[EMAIL

Re: "BETWEEN" Comparison Operator

2001-10-18 Thread walter valenti
If (($x>-10) && ($x<10)){ ##cod to execute } Bye > Hi, > very simple question here I think. Trying to get an IF to test whether a > numeric variable is in a certain range & if it is then execute an action : > > if ($variable <-10) { > > $sth1->execute($variable) o

symbolic reference of hashes in subroutines

2001-10-18 Thread Ross Howard
I figured this one out using the camel book and brute force methods. But if anyone could shed some light on symbolic references of the hash arrays I would appreciate it. Specifically, in the subroutine below populate_hash(), the line: ${%{$hash}}{$key} = $value; Seems kind of ugly sayi

Re: Factory method

2001-10-18 Thread _brian_d_foy
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] wrote: > http://www.perfascist.com/factory.tar.gz couldn't find this domain *shrug* > The List class is nothing but a placeholder for its subclasses. When it's > constructor method (sub new) is called, it creates an instance of one of its > s

"BETWEEN" Comparison Operator

2001-10-18 Thread Mark Martin
Hi, very simple question here I think. Trying to get an IF to test whether a numeric variable is in a certain range & if it is then execute an action : if ($variable <-10) { $sth1->execute($variable) or die "Can't execute SQL statement: $DBI::errstr\n"; }elsif ($variable

Re:Data structure for handling Binary Data

2001-10-18 Thread walter valenti
Hi, you can use two package: Socket, and Net::RawIP (needs libpcap); With Net::RawIP you can built packet (ip,udp,tcp) how you want and to analize the packet. Ex. use Net::RawIP qw(:pcap); use Socket; $a=new Net::RawIP; $|=1; $filtro='ip proto \\tcp and (dst host '.$host.' or src host '.$host.'

Re: I Want To Read (INPUT) A TCP (Port80) Session - Then Mail That Report

2001-10-18 Thread RaFaL Pocztarski
Bill Fink wrote: > Simple (Probably VERY Trivial To Ya'll ) > > I merely want to send TWO lines to a remote host (via the Telnet program, OR > if there is an easier way), with the information that's returned to be > collected to a file. > > (I'm creating reports from a web-server - and would like

I Want To Read (INPUT) A TCP (Port80) Session - Then Mail That Report

2001-10-18 Thread Bill Fink
Simple (Probably VERY Trivial To Ya'll ) I merely want to send TWO lines to a remote host (via the Telnet program, OR if there is an easier way), with the information that's returned to be collected to a file. (I'm creating reports from a web-server - and would like to send TWO LINES to THAT ser

Image/Photo ?

2001-10-18 Thread Paul Roettgen
Hi, I've built my own Programmlauncher (App which reads an rc-file and creates depending buttons), and now I want to place an Icon on the left side of the Buttons. I tried something like $icon1 = $mw->Photo(-file=>"my.xpm")->pack; but that didn't work (couldn't open file in mode 'r'). Could an

RE: Unix command in a Perl script

2001-10-18 Thread TOM TURPIN
I think I may have seen this one before myself. If I'm right, you'll need to correctly quote the quotation marks inside your variable which has the email addresses. You have to get the command to have the quotes if you print it out to standard output. For example: $alert_email_address =

Re: Little help on hashes

2001-10-18 Thread Jos I. Boumans
Hi, > > Hello all, > > I hope you can help, I have the following information > > > > > > Happy,[EMAIL PROTECTED], manager, $2 > > Bob, [EMAIL PROTECTED], manager, $35000 > > Jim, [EMAIL PROTECTED], manager, $5 > > Charles, [EMAIL PROTECTED], sales, $28000 > > Ann, [EMAIL PROTECTED], sale

Factory method

2001-10-18 Thread Nigel Wetters
I'm working through the design patterns book with some Java colleagues, trying to present Perl equivalents of their Java code - I call it pattern-oriented Perl ;) At the moment, we're discussing the Factory method, and I've put together some sample code here: http://www.perfascist.com/factory

Little help on hashes

2001-10-18 Thread Dominic_Talbot
> Hello all, > I hope you can help, I have the following information > > > Happy,[EMAIL PROTECTED], manager, $2 > Bob, [EMAIL PROTECTED], manager, $35000 > Jim, [EMAIL PROTECTED], manager, $5 > Charles, [EMAIL PROTECTED], sales, $28000 > Ann, [EMAIL PROTECTED], sales, $29000 > > How wou

Re:Dns and gethostbyaddr in Perl

2001-10-18 Thread Jorge Goncalvez
Hi, I parse a log file in Perl Tk and I have for exemple this line: LOG_INFO : cabs41.col.bsf.alcatel.fr: read request for /bootp/cygwin.bat: success I have 2 labels to display the informations: in one I put cabs41.col.bsf.alcatel.fr in another I put only cabs41 My code is open FILE, "< $_

Warnings with strict and POSIX

2001-10-18 Thread josh hoblitt
I'm not sure exactly whats going on here. It seems the combination of strict and POSIX ":sys_wait_h" is fine... but just POSIX seems to stop the strict bareword warnings. Any idea whats going on here? (exporter wierdness?) #!/usr/bin/perl -w use POSIX; #use POSIX ":sys_wait_h"; use strict; sy

Re: Win32::Setupsup Vs Win32::GUITest -Which one is more suitable f or GUI or Functional Tesing of an application

2001-10-18 Thread Jenda Krynicky
> I have an application( no code is available with me). I have to do > automated GUI or Functional testing of the application. I want to use > perl script for the job. There are two module available in perl > Win32::GUITest and Win32::Setupsup for the job. > > While Win32::GUITest support the l

Re: XMLParser and Perl

2001-10-18 Thread Trent A Stephens
I (a beginner in Perl) am looking for guidance on XML and Perl. I am having to read in an XML file, parse it for specific information (MIME type, attributes and values), write the attributes/values to a hash (I am assuming) and then use win32::OLE to persist the attribute/vlaues to the custom pro

Re: Passing Variables Between Modules...

2001-10-18 Thread Jos I. Boumans
Hi, > How do I get this to work? well, let's try... > package main; > use Simple.pm; if you define the package in the same file, you dont do 'use Simple': perl will then look in @INC for a 'Simple.pm' file, which you dont have. ALSO the syntax is 'use ModuleName' - so no '.pm' at the end! >