Labelling Radio Group Values

I have sucessfully created as Radio-group along the lines of @TiesArray = SSDArray($uniqueorgref); if (@TiesArray[0] ne "") { @TiesDesc = SSDDescArray($uniqueorgref); %TiesHash = @TiesDesc; $q = new CGI; print $q->start_form(-method=>"POST", -action=>"http://../cgi-bin/ViewQuote.pl";), $q->

Re: Map function, what does it do?

On 2011-01-11 11:44, Uri Guttman wrote: these are equivilent: my @out = grep /foo/, @in ; my @out = map { /foo/ ? $_ : () } @in ; Indeed equivalent. There is a difference though in what comes out of map and grep: perl -wle' my @in = 1 .. 4; print "@in"; ++$_ for

Re: Labelling Radio Group Values

Hi Stephen, a few comments on your code: On Tuesday 11 Jan 2011 17:44:32 Stephen Allen wrote: > I have sucessfully created as Radio-group along the lines of > > @TiesArray = SSDArray($uniqueorgref); Add: {{{ use strict; use warnings; }}} to the start of your script. Then declare all variable

Re: Labelling Radio Group Values

Stephen Allen wrote: I have sucessfully created as Radio-group along the lines of @TiesArray = SSDArray($uniqueorgref); if (@TiesArray[0] ne "") { You are testing a list against a scalar value, but fortunately your list has only one element. If you had warnings enabled then perl would have

Moving through tree's using LWP

Hi all. I posted previously on how to move in a tree by a node at a time by using HTML:TreeBuilder which is used with LWP. I wish to move by a single node and get the following info: tag of the current HTML element. Text of the HTML element. Attributes of the current HTML element. Of course, i

Re: Moving through tree's using LWP

Hi Sean, On Wednesday 12 Jan 2011 12:43:24 Sean Murphy wrote: > Hi all. > > I posted previously on how to move in a tree by a node at a time by using > HTML:TreeBuilder which is used with LWP. > > I wish to move by a single node and get the following info: > > tag of the current HTML element.

Re: Moving through tree's using LWP

At 12:52 +0200 12/01/2011, Shlomi Fish wrote: http://search.cpan.org/~jfearn/HTML- Tree-4.1/lib/HTML/Element.pm#$h-%3Etag%28%29_or_$h-%3Etag%28%27tagname%27%29 (sorry for the broken link). Links won't break in proper mailers if you enclose them in <>

Re: Moving through tree's using LWP

Hi All. I have read the page and the O'rielly book on PWL. I must be thick or something. but when I dump the content of the web page into the treeBuilder via a scaler. Then I try and print the tag. I get: HTML::Element=HASH(0x41b1074)->Tag ( ) Below is the code extract. I have included the H

Re: Moving through tree's using LWP

At 11:05 PM +1100 1/12/11, Sean Murphy wrote: Hi All. I have read the page and the O'rielly book on PWL. I must be thick or something. but when I dump the content of the web page into the treeBuilder via a scaler. Then I try and print the tag. I get: HTML::Element=HASH(0x41b1074)->Tag ( ) B

Re: Map function, what does it do?

> "R" == Ruud writes: R> On 2011-01-11 11:44, Uri Guttman wrote: >> these are equivilent: >> >> my @out = grep /foo/, @in ; >> my @out = map { /foo/ ? $_ : () } @in ; R> Indeed equivalent. There is a difference though R> in what comes out of map and grep: R> perl -wle' R

OT: Map function, what does it do?

On Jan 12, 2011 12:10 PM, "Uri Guttman" wrote: > > > "R" == Ruud > writes: > > R> On 2011-01-11 11:44, Uri Guttman wrote: > >> these are equivilent: > >> > >> my @out = grep /foo/, @in ; > >> my @out = map { /foo/ ? $_ : () } @in ; > > R> Indeed equivalent. There is a difference though

Re: OT: Map function, what does it do?

On 12/01/2011 17:51, shawn wilson wrote: On Jan 12, 2011 12:10 PM, "Uri Guttman" wrote: "R" == Ruud> writes: R> On 2011-01-11 11:44, Uri Guttman wrote: >> these are equivilent: >> >> my @out = grep /foo/, @in ; >> my @out = map { /foo/ ? $_ : () } @in ; R> Indeed equivale

Re: Labelling Radio Group Values

Hi Shlomi Thanks for your comments. In fact, the problem was enirely my own fault and did not exihibit in the code I published. More specifically the hash I created in %TiesHash did not use the correct Key - hence it didn't work. Get that right and the rest falls into place nicely. Stephen

Re: Labelling Radio Group Values

On 2011-01-12 10:44, Shlomi Fish wrote: Add: {{{ use strict; use warnings; }}} to the start of your script. That adds 3 ENTERs and LEAVEs for no good reason. The code is not in a tight loop, so that doesn't matter much, but there is more: perl -MData::Dumper -wle ' $x = 1; {{{ use

Re: Map function, what does it do?

On 2011-01-12 18:08, Uri Guttman wrote: Ruud writes: On 2011-01-11 11:44, Uri Guttman wrote: these are equivilent: my @out = grep /foo/, @in ; my @out = map { /foo/ ? $_ : () } @in ; Indeed equivalent. There is a difference though in what comes out of map and grep: perl -wle'

Re: Moving through tree's using LWP

On 12/01/2011 16:03, Jim Gibson wrote: At 11:05 PM +1100 1/12/11, Sean Murphy wrote: Hi All. I have read the page and the O'rielly book on PWL. I must be thick or something. but when I dump the content of the web page into the treeBuilder via a scaler. Then I try and print the tag. I get: HTML

Return value from function

Hi, On shell, successful command returns exit status of 0. As a best practice what status value shall a Perl function return. Going by the fact that Perl function returns the value of last command in it, I think function should return non-zero for a success. Cheers, Parag -- To unsubscribe, e

Re: Map function, what does it do?

> "R" == Ruud writes: R> On 2011-01-12 18:08, Uri Guttman wrote: >> Ruud writes: >>> On 2011-01-11 11:44, Uri Guttman wrote: these are equivilent: my @out = grep /foo/, @in ; my @out = map { /foo/ ? $_ : () } @in ; >>> >>> Indeed equivalent. There is

Re: Labelling Radio Group Values

> "R" == Ruud writes: R> On 2011-01-12 10:44, Shlomi Fish wrote: >> Add: >> >> {{{ >> use strict; >> use warnings; >> }}} >> >> to the start of your script. R> That adds 3 ENTERs and LEAVEs for no good reason. The code is not in a R> tight loop, so that doesn't matte

Re: Return value from function

> "PK" == Parag Kalra writes: PK> Hi, PK> On shell, successful command returns exit status of 0. PK> As a best practice what status value shall a Perl function return. a shell command is NOT a function call. comparing them is useless. PK> Going by the fact that Perl function return

doubt in substring

Hi All I have a string as; $str = "the cat sat on the mat" . How the following command works substr($str , 4, -4) on the string ? What should be the output? Thanks Sunita

Re: doubt in substring

the output will be cat sat on the all the characters in the string $str except four characters from the left and right will be displayed... Regards Ashwin Thayyullathil Surendran On Thu, Jan 13, 2011 at 9:57 AM, Sunita Rani Pradhan < sunita.prad...@altair.com> wrote: > Hi All > > > >

Re: Return value from function

From: "Parag Kalra" Hi, On shell, successful command returns exit status of 0. As a best practice what status value shall a Perl function return. Going by the fact that Perl function returns the value of last command in it, I think function should return non-zero for a success. Cheers, Parag

Re: Return value from function

> "OR" == Octavian Rasnita writes: OR> Perl doesn't use functions, but subroutines or methods, so they don't don't say that. subs and functions are just synonyms. it is how you use the sub that changes its meaning. OR> need to return something if you don't want them to return something.

Re: Return value from function

> subs in perl ALWAYS return something, either the value from return or > the last evaluated expression. What do you mean by this? sub nothing { my $something = 5; if ( $something == 5) {} } ... will return 'undef' and not 5 or anything else, right?

Re: Return value from function

Octavian Rasnita wrote: From: "Parag Kalra" On shell, successful command returns exit status of 0. As a best practice what status value shall a Perl function return. Going by the fact that Perl function returns the value of last command in it, I think function should return non-zero for a su

Re: doubt in substring

On Jan 12, 8:27 pm, sunita.prad...@altair.com ("Sunita Rani Pradhan") wrote: > Hi All > >             I have a string as; $str =  "the cat sat on the mat" . > > How the following command works substr($str , 4, -4)  on the string ? > What should be the output? > See: perldoc -f substr Check the do

Re: Return value from function

> "sw" == shawn wilson writes: >> subs in perl ALWAYS return something, either the value from return or >> the last evaluated expression. sw> What do you mean by this? sw> sub nothing { sw> my $something = 5; sw> if ( $something == 5) {} sw> } sw> ... will return 'undef' an

Re: Return value from function

On Jan 13, 2011 2:24 AM, "Uri Guttman" wrote: > > > "sw" == shawn wilson writes: > > >> subs in perl ALWAYS return something, either the value from return or > >> the last evaluated expression. > > sw> What do you mean by this? > > sw> sub nothing { > sw> my $something = 5; > sw> if ( $

Re: Return value from function

> "sw" == shawn wilson writes: sw> I dig what you're saying about always using return. However I sw> don't (have never used / seen) a case where a sub returns last sw> expression. An example maybe? the classic case which is used in the constant pragma is: sub FOO() { 'foo' }