Re: Copying a named hash to an anonymous hash

2009-06-12 Thread Chas. Owens
On Fri, Jun 12, 2009 at 22:22, Chap Harrison wrote: > I've created a complex, nested  data structure that is, at its outermost > level, a hash:  %qa.  It collects QA statistics for a school. > > Now I want to be able to process multiple schools in one run, so I've > created another hash, %sch_qa, w

Re: Request for code feedback

2009-06-12 Thread Chas. Owens
On Sat, Jun 13, 2009 at 00:54, David Christensen wrote: > Steve Bertrand wrote: >> If anyone has the time to review and report, I would much appreciate > it. >> http://ipv6canada.com/extra_billing.txt > > 1.  I don't see a header comment block. header comment blocks are wastes of space, that is wh

Re: Request for code feedback

2009-06-12 Thread Chas. Owens
On Fri, Jun 12, 2009 at 20:24, Steve Bertrand wrote: > Hi all, > > I'm still in the process of updating/replacing some accounting > applications, and thought I'd ask for a peer review. snip My version of your code is available at http://codepad.org/jrP45bUp It has not been tested because I don't h

RE: Request for code feedback

2009-06-12 Thread David Christensen
Steve Bertrand wrote: > If anyone has the time to review and report, I would much appreciate it. > http://ipv6canada.com/extra_billing.txt 1. I don't see a header comment block. 2. I don't see comment section boundaries. 3. I don't see author information. 4. I don't see a copyright notice.

Re: Please, I need help!!!

2009-06-12 Thread John W. Krahn
Phillip wrote: Hallo @ all, Hello, i am new in this domain(perlscript) and i have a question.i have a array,i sort it,i get the last element of the array but i want to get the next element after this one.how can i do this? for example: $arr1=("6,3,8,1") --->>my last element is 1 and mark

Copying a named hash to an anonymous hash

2009-06-12 Thread Chap Harrison
I've created a complex, nested data structure that is, at its outermost level, a hash: %qa. It collects QA statistics for a school. Now I want to be able to process multiple schools in one run, so I've created another hash, %sch_qa, whose key is School Name and whose value is a ref to *a

Re: pass int* to perl

2009-06-12 Thread sisyphus
On Fri, Jun 12, 2009 at 10:49 PM, Patrick Dupre wrote: > > To pass an integer, I use to make a newSViv. > How do I do to pass a int* ? > > Perhaps not exactly what you're after ... hope it helps: ## use warnings; use Inline C => Config => BUILD_NOISY =

Request for code feedback

2009-06-12 Thread Steve Bertrand
Hi all, I'm still in the process of updating/replacing some accounting applications, and thought I'd ask for a peer review. I understand that everyone has a life et-al, but if there is a chance that anyone could take a look at this particular piece of code I wrote and provide some in-context feed

Re: Please, I need help!!!

2009-06-12 Thread Jenda Krynicky
From: Jim Gibson > On 6/11/09 Thu Jun 11, 2009 11:00 AM, "Phillip" > scribbled: > > > Hallo @ all, > > > > i am new in this domain(perlscript) and i have a question.i have a > > array,i sort it,i get the last element of the array but i want to get > > the next element after this one.how can i

Re: Please, I need help!!!

2009-06-12 Thread Jim Gibson
On 6/11/09 Thu Jun 11, 2009 11:00 AM, "Phillip" scribbled: > Hallo @ all, > > i am new in this domain(perlscript) and i have a question.i have a > array,i sort it,i get the last element of the array but i want to get > the next element after this one.how can i do this? There is a language cal

Please, I need help!!!

2009-06-12 Thread Phillip
Hallo @ all, i am new in this domain(perlscript) and i have a question.i have a array,i sort it,i get the last element of the array but i want to get the next element after this one.how can i do this? for example: $arr1=("6,3,8,1") --->>my last element is 1 and mark that is the last element

YAPC::NA

2009-06-12 Thread Uri Guttman
hi all, it is a late announcement here but you should all know that YAPC::NA is in pittsburgh at CMU. it runs from june 22-25, 2009. it is the only pure perl conference in NA and it is a blast and a great place to meet other perl hackers. there will be talks for all skill levels and 2 extra days

YAPC::NA

2009-06-12 Thread Uri Guttman
hi all, it is a late announcement here but you should all know that YAPC::NA is in pittsburgh at CMU. it runs from june 22-25, 2009. it is the only pure perl conference in NA and it is a blast and a great place to meet other perl hackers. there will be talks for all skill levels and 2 extra days

Re: How to read RegEx match in to a variable?

2009-06-12 Thread John W. Krahn
Sam Munzani wrote: Team, I am a totally newbee to perl scripting. I have learned enough to understand somebody's simple scripts and written some basic ones. Below is what I am trying to achieve. I am writing a wrapper script to trigger when a syslog message arrives to syslog-ng. It fires up

How to read RegEx match in to a variable?

2009-06-12 Thread Sam Munzani
Team, I am a totally newbee to perl scripting. I have learned enough to understand somebody's simple scripts and written some basic ones. Below is what I am trying to achieve. I am writing a wrapper script to trigger when a syslog message arrives to syslog-ng. It fires up my parser.pl script

pass int* to perl

2009-06-12 Thread Patrick Dupre
Hello, I need to call perl from c. To pass an integer, I use to make a newSViv. How do I do to pass a int* ? Should I just cast the int* to int ans passed as an SV ? in perl I need to get the value by $$var. Thank. -- --- =

Re: complex split (when delimiter appears in one of the fields)

2009-06-12 Thread John W. Krahn
Michael Alipio wrote: Hi, Hello, I have a string that looks like this: my $string = "1, 3, 0. 0. 0. 0, 22, Zak',adfk $&! mac., "; Basically, there are seven fields. after the bird, everything up to the last comma is the 5th field. 6th field is blank. Now my problem is splitting it and ext

AW: complex split (when delimiter appears in one of the fields)

2009-06-12 Thread Thomas Bätzler
Michael Alipio asked: > I have a string that looks like this: > > my $string = "1, 3, 0. 0. 0. 0, 22, Zak',adfk $&! mac., "; > > > Basically, there are seven fields. after the bird, everything up to the > last comma is the 5th field. 6th field is blank. > > Now my problem is splitting it and ex