RE: Changing row color with subroutine - a shortcut...

[Peter Kappus]

Another neat trick I use to get subroutine arguments is the old "shift"
function without an argument.

Since, @_ is the default array in a subroutine you can just say

my $firstParm = shift; #shift off the first arg from @_


Therefore, 

print add(30,50);

sub addTwo{
my $firstNum = shift;
my $secondNum = shift;
return $firstNum + $secondNum;
}

will print "80".  neato eh?

another fun trick if you have, say, 3 arguments is to say

my ($name, $size, $color) = @_;

this will map the first three args in your args array two the variables
$name, $size, and $color.

I hope this is useful...

-PK

-Original Message-
From: zentara [mailto:[EMAIL PROTECTED]]
Sent: Friday, November 22, 2002 6:33 AM
To: [EMAIL PROTECTED]
Subject: Re: Changing row color with subroutine


On Fri, 22 Nov 2002 03:28:39 -0800, [EMAIL PROTECTED] (Poster) wrote:

>Hi, I am having a little trouble with a sub that is using the modulus
>operator.

Yeah, it fooled me too for a bit :-)
The problem is the way you pass the value to the
sub, @_ always is 1, the count of elements in @_.
Change @_ to @_[0]  or better yet $_[0]

>--here is the sub
>sub color_rows
>{
>my $num = @_;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Changing row color with subroutine - a shortcut...

[dirk van der Giesen]

I rememeber sometimes doing something like this when
using CGI.pm and DBI.pm


push(@rows,td({-colspan=>'6',-bgcolor=>'#FF'},[$th]));

#blank row

$th = ' ';

push(@rows,td({-colspan=>'6',-bgcolor=>'#FF'},[$th]));

push(@rows,td({-bgcolor=>'#FFCC99'},['',b('Verwijderen:'),b('Naam:'),b('Voornaam:'),b('Vertegenwoordiger:*'),b('Bekijk
CV:')]));
while (@data = $cursor->fetchrow) {
$count++;
if ($count % 2 == 0){
$bgcolor = "#FFCC99";
}else{
$bgcolor = "#FF";
}

etc..

and then i the end i printed the table

$innertable = table({-border=>'0',-width=>'100%',
-cellspacing=>'1', -cellpadding=>'2',
-bgcolor=>'#FF'},Tr(\@rows));


I always founded this a very nice feature of CGI.pm.

The only thing i never found out is how you could
manipulate tables in this same kind of way ? 


Thanks,

Dirk



--- Peter Kappus <[EMAIL PROTECTED]> wrote:
> Another neat trick I use to get subroutine arguments
> is the old "shift"
> function without an argument.
> 
> Since, @_ is the default array in a subroutine you
> can just say
> 
> my $firstParm = shift; #shift off the first arg from
> @_
> 
> 
> Therefore, 
> 
> print add(30,50);
> 
> sub addTwo{
>   my $firstNum = shift;
>   my $secondNum = shift;
>   return $firstNum + $secondNum;
> }
> 
> will print "80".  neato eh?
> 
> another fun trick if you have, say, 3 arguments is
> to say
> 
> my ($name, $size, $color) = @_;
> 
> this will map the first three args in your args
> array two the variables
> $name, $size, and $color.
> 
> I hope this is useful...
> 
> -PK
> 
> -Original Message-
> From: zentara [mailto:[EMAIL PROTECTED]]
> Sent: Friday, November 22, 2002 6:33 AM
> To: [EMAIL PROTECTED]
> Subject: Re: Changing row color with subroutine
> 
> 
> On Fri, 22 Nov 2002 03:28:39 -0800,
> [EMAIL PROTECTED] (Poster) wrote:
> 
> >Hi, I am having a little trouble with a sub that is
> using the modulus
> >operator.
> 
> Yeah, it fooled me too for a bit :-)
> The problem is the way you pass the value to the
> sub, @_ always is 1, the count of elements in @_.
> Change @_ to @_[0]  or better yet $_[0]
> 
> >--here is the sub
> >sub color_rows
> >{
> >my $num = @_;
> 
> 
> -- 
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> 


__
Do you Yahoo!?
Yahoo! Mail Plus – Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]