How to match a specific element from an array? 2

[Cybertronic]

I'm using the following code for checkboxes in my HTML form:

my @color = param('color');
foreach my $color (@color) {
print "You picked $color.<br>\n";
}

At the moment I'm using this code to match an element from my array:

if ($color[0] eq "name of color")

The problem is, is there an alternative to $color[0]? If I use [0], that's only for the very first checkbox as it won't be ticked all the time (there's other checkboxes). I've tried using:

if ($color eq "name of color")

Sadly it doesn't work

Please help!

 

[Xaqte]

Welcome to tek-tips!

Here is one way to do it:

if ( grep { $_ eq 'name of color'} @color ) {
   print "You picked $_.<br>\n";
    }

X

 

[KevinADC]

I should work;

my $color = 'red';
my @color = param('color');
foreach my $colors (@color) {
   print "You picked $colors" if $color eq $colors;
}

 

[Cybertronic]

Xaqte, thanks for the welcome and for the help!

I've got it working now thanks!

Is it possible to get a value from an if statement that is true (like the one Xaqte posted) and stick it in another array which calculates the total?

Here's a better explanation:

if ( grep { $_ eq 'green'} @color ) {
   $greenprice=185.99;
    }

if ( grep { $_ eq 'red'} @color ) {
   $redprice=85.99;
    }

if ( grep { $_ eq 'yellow'} @color ) {
   $yellowprice=165.99;
    }

if ( grep { $_ eq 'blue'} @color ) {
   $blueprice=125.99;
    }

What I'm after is that if the user has ticked 2 of the checkboxes, it'll only add the selected values. How can I do this? Any ideas are welcome!

 

[Cybertronic]

KevinADC, thanks for your post, I was trying to fix my if statement, sorry!

Regarding my previous post, for the selected values, what I mean why add the selected values is that it adds the values together to calculate a total.

How can I edit my posts on these forums? :S

 

[Xaqte]

Cybertronic,

Those if statements should work, post back if they don't.

I don't know how new you are to perl, but be sure to always:

use strict;
use warnings;

If you are unsure of what I mean, just ask!

How can I edit my posts on these forums?

You can't. This is why I always make heavy use of the "Preview Post" button.

Thanks for the star!

X

 

[Cybertronic]

Xaqte, they are indeed working

I'm new to Perl unfortunately

Does the grep function block the out elements in the array in order to match the specific element?

Is it possible for you to help me with my previous post please?

You deserved the star!

 

[KevinADC]

your if statements will work but looks like too much work, you are going through the entire array in each if (grep) condition, one loop should be plenty. Use a hash to store the prices:

%prices = (
   green => 185.99, 
   red => 85.99,
   yellow => 165.99,
   blue => 125.99
);

for ( @color ) {
   print "The price is $prices{$_}\n";
}

 

[Cybertronic]

KevinADC,

I'm having a problem with the $_ parameter as it doesn't seem to be showing anything :S

Is there an alternative to this $_?

Please let me know

 

[KevinADC]

I assumed the values you are checking are the exact spelling and case as the hash keys:

red
blue
yellow
green

if they aren't then you have to change the hash keys to reflect the exact values of the values you have in @color, do this as a sanity check:

%prices = (
   green => 185.99,
   red => 85.99,
   yellow => 165.99,
   blue => 125.99
);

for ( @color ) {
   print "\$ = $_\n";
   print "The price is $prices{$_}\n";
}

 

[Cybertronic]

THanks KevinADC

It was my mistake, I change the values by mistake!

Is it possible to add the values (ones that have been selected) together as a total?

On a related subject:

if (@address_line_2{'address_line_2'} eq "")
{
  print "\n";	
}
else
{
  print "              @address_line_2\n";
  print "              <br/>\n";
}

Is there anything wrong with my if statement? It doesn't seem to work properly as it's not printing anything if I type something in the address line 2 field :S

 

[KevinADC]

is address_line_2 an array or a hash?

 

[Cybertronic]

Oops!

if ($address_line_2{'address_line_2'} eq "")
{
  print "\n";    
}
else
{
  print "              $address_line_2\n";
  print "              <br/>\n";
}

I typed @ instead of $, sorry!

 

[KevinADC]

You have $string_address_2 as a regular scalar variable and you use the same name for a hash table? That is OK as far as perl is concerned, but it is confusing to see code using the sane name for different types of data.

As far as adding goes you use + to add:

%prices = (
   green => 185.99,
   red => 85.99,
   yellow => 165.99,
   blue => 125.99
);
$total_price = 0;
for ( @color ) {
   print "\$ = $_\n";
   print "The price is $prices{$_}\n";
   $total_price+=$prices{$_}; 
}
print $total_prices;

 

[KevinADC]

print $total_prices;

should be:

print $total_price;

 

[Cybertronic]

Thank you so much KevinADC!

Could you please explain what the $_ parameter does?

 

[KevinADC]

$_ is just perls default scalar variable. If you don't explicitly assign a scalar variable perl assumes $_ for many things.

It's pretty much the same as:

foreach $line (@array) {
   print $line;
}

it can be written shorter as:

for (@array) {
   print $_;
}

or shorter yet:

for (@array) {
   print;
}

or even shorter:

print for @array;

they all do the same thing.

 

[Xaqte]

KevinADC,

That last post was great... very enlightening!

You deserve a star for that, at the least... looks like I've missed out on the fun !

 

[Cybertronic]

Thanks for the explanation KevinADC!