Re: Database row sets: working with ref to array-of-refs to array

2009-04-01 Thread John W. Krahn
Chap Harrison wrote: On Apr 1, 2009, at 2:04 PM, Chas. Owens wrote: If I understand you correctly, you want a map[1] that feeds a join[2]: #!/usr/bin/perl use strict; use warnings; my @aref = ( [qw/a1 b1 c1/], [qw/a2 b2 c2/], [qw/a3 b3 c3/], ); print join(", ", map { "($_->[0]=

Re: Database row sets: working with ref to array-of-refs to array

2009-04-01 Thread Chas. Owens
On Thu, Apr 2, 2009 at 01:54, Chap Harrison wrote: snip > I was getting tangled up with the complexities of addressing the various > things inside the "table". snip Yeah, if I try to think about AoA[1]s as a table I inevitably screw it up. The fact that the row index comes before column index al

Re: Database row sets: working with ref to array-of-refs to array

2009-04-01 Thread Chap Harrison
On Apr 1, 2009, at 2:04 PM, Chas. Owens wrote: If I understand you correctly, you want a map[1] that feeds a join[2]: #!/usr/bin/perl use strict; use warnings; my @aref = ( [qw/a1 b1 c1/], [qw/a2 b2 c2/], [qw/a3 b3 c3/], ); print join(", ", map { "($_->[0]=$_->[2])"

Re: Calling subroutine every second using alarm fails

2009-04-01 Thread Chas. Owens
On Wed, Apr 1, 2009 at 20:28, wrote: > Away from PC so I cannot hookup > Is alarm perls internal function? snip The alarm function is part of Core Perl. -- Chas. Owens wonkden.net The most important skill a programmer can have is the ability to read. -- To unsubscribe, e-mail: beginners-unsu

Re: Calling subroutine every second using alarm fails

2009-04-01 Thread rich . japh
Away from PC so I cannot hookup Is alarm perls internal function? -Original Message- From: "Chas. Owens" Date: Wed, 1 Apr 2009 10:18:51 To: Kelly Jones Cc: Subject: Re: Calling subroutine every second using alarm fails On Wed, Apr 1, 2009 at 08:48, Kelly Jones wrote: > I want a scrip

Re: WIN32:OLE module

2009-04-01 Thread Jenda Krynicky
From: Irfan Sayed > > I have one perl script in which i am using win32:OLE perl module. Now > i need to convert script so that it can support solaris OS also. can > it be possible?? > if yes what is the equivalant module of win32:OLE on unix or any other option. I would guess you use the Win32:

Re: Database row sets: working with ref to array-of-refs to array

2009-04-01 Thread Chas. Owens
On Wed, Apr 1, 2009 at 14:23, Chap Harrison wrote: > Hi, > > Using the DBI module, I've retrieved a row set from a database.  I have an > $ary_ref with which to access the data. > > As I understand it, $ary_ref is: > a reference to ... > an array of references to ... > fixed-length arrays containi

Database row sets: working with ref to array-of-refs to array

2009-04-01 Thread Chap Harrison
Hi, Using the DBI module, I've retrieved a row set from a database. I have an $ary_ref with which to access the data. As I understand it, $ary_ref is: a reference to ... an array of references to ... fixed-length arrays containing the selected cells from each row. The SELECT statement that

How to login from one system (A) into remote system (B) and do a ping to the third system (C) with Perl and CGI !

2009-04-01 Thread Amit Saxena
Hello everybody, I need to write a Perl CGI script to login from one system (A) into remote system (B) and do a ping to the third system (C). As of now, I have successfully written the code in Perl CGI to Ping any host / IP using built it Perl Net::Ping module. However I am not sure how to login

Re: WIN32:OLE module

2009-04-01 Thread Irfan Sayed
thanks for the reply. eventhough i use the VM then ultimately the script will run on windows machine not on the solaris. isn't it please advice regards jaya From: Jeff Pang To: beginners@perl.org Sent: Wednesday, April 1, 2009 6:29:08 PM Subject: RE: WIN32:OLE

Re: Calling subroutine every second using alarm fails

2009-04-01 Thread Chas. Owens
On Wed, Apr 1, 2009 at 08:48, Kelly Jones wrote: > I want a script that constantly accepts user input, but runs a > subroutine every second to do other work. My attempt: > > $|=1; $SIG{'ALRM'}= "\&alarm_sub"; &alarm_sub; > while (<>) {print "You typed: $_\n";} > sub alarm_sub {print "ALARM!\n"; al

Re: Calling subroutine every second using alarm fails

2009-04-01 Thread Kelly Jones
>> Original Message >> Subject: Calling subroutine every second using alarm fails >> From: Kelly Jones >> Date: Wed, April 01, 2009 5:48 am >> To: beginners@perl.org >> >> >> I want a script that constantly accepts user input, but runs a >> subroutine every second to do other wor

RE: WIN32:OLE module

2009-04-01 Thread Jeff Pang
> Hi All, > > I have one perl script in which i am using win32:OLE perl module. Now i need > to convert script so that it can support solaris OS also. can it be possible?? > if yes what is the equivalant module of win32:OLE on unix or any other option. > I don't think it's possible.. you may

RE: Calling subroutine every second using alarm fails

2009-04-01 Thread Jeff Pang
> Original Message > Subject: Calling subroutine every second using alarm fails > From: Kelly Jones > Date: Wed, April 01, 2009 5:48 am > To: beginners@perl.org > > > I want a script that constantly accepts user input, but runs a > subroutine every second to do other work.

Calling subroutine every second using alarm fails

2009-04-01 Thread Kelly Jones
I want a script that constantly accepts user input, but runs a subroutine every second to do other work. My attempt: $|=1; $SIG{'ALRM'}= "\&alarm_sub"; &alarm_sub; while (<>) {print "You typed: $_\n";} sub alarm_sub {print "ALARM!\n"; alarm 1; return;} fails miserably. What's the right way to do

Re: WIN32:OLE module

2009-04-01 Thread Irfan Sayed
Please please help/advice Jaya From: Irfan Sayed To: beginners@perl.org Sent: Wednesday, April 1, 2009 4:48:15 PM Subject: WIN32:OLE module Hi All, I have one perl script in which i am using win32:OLE perl module. Now i need to convert script so that it ca

Re: Converting an XML doc ( xls format ) to CSV

2009-04-01 Thread Jenda Krynicky
From: "Wagner, David --- Senior Programmer Analyst --- CFS" > I have two files which are xml based and double clickable into Excel. > I would like to get the data into a CSV, but when I try to read using > > use Spreadsheet::ParseExcel; > > I get no ouput and no errors. I think y

WIN32:OLE module

2009-04-01 Thread Irfan Sayed
Hi All, I have one perl script in which i am using win32:OLE perl module. Now i need to convert script so that it can support solaris OS also. can it be possible?? if yes what is the equivalant module of win32:OLE on unix or any other option. Please advice. Jaya

Radius Client modules

2009-04-01 Thread Chris Knipe
Hi, I've been looking at a few Radius modules to use in some applications. I need my perl scripts to send either a COA or Disconnect message to my NAS devices. Every radius client for perl I've looked at though, does not seem to support COA or Disconnects. Is there anything that anyone can rec

Re: AW: Pattern matching question

2009-04-01 Thread Richard Hobson
Firstly, apologies for the double posting of this question. On Wed, 01 Apr 2009 09:49 +0200, "Thomas Bätzler" wrote: > How about (untested): > > sub display_board { > foreach my $ref (@_){ > foreach my $piece ( @$ref ){ > print substr( $piece, -2); > } > } > } > > The Perl wa

Re: Printing directory sizes

2009-04-01 Thread Octavian Rasnita
- Original Message - On Tue Mar 31 2009 @ 11:08, Octavian Râşniţă wrote: Do you know if du has a parameter that lets us see the size of the files from chosen directories? I've seen that it shows the disk usage only. From man du: -a, --all write counts for all files

Converting an XML doc ( xls format ) to CSV

2009-04-01 Thread Wagner, David --- Senior Programmer Analyst --- CFS
I have two files which are xml based and double clickable into Excel. I would like to get the data into a CSV, but when I try to read using use Spreadsheet::ParseExcel; I get no ouput and no errors. I looked at XML::Simple and followed the example they had but it generates seve

AW: Pattern matching question

2009-04-01 Thread Thomas Bätzler
Richard Hobson wrote: > Please be patient with this beginner. I have a subrouting as follows, > that prints out an ASCII representation of chess board > > sub display_board { > foreach (0..7) { > my $ref = @_[$_]; > foreach (0..7) { > my $pi

Pattern matching question

2009-04-01 Thread Richard Hobson
Hi, Please be patient with this beginner. I have a subrouting as follows, that prints out an ASCII representation of chess board sub display_board { foreach (0..7) { my $ref = @_[$_]; foreach (0..7) { my $piece = $ref->[$_];