Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: How to match elements of array

by chrestomanci (Priest)
on Dec 03, 2010 at 13:19 UTC ( [id://875175]=note: print w/replies, xml ) Need Help??


in reply to How to match elements of array

We had a question about Putting 4 items into a DB table last week. Was that you?

There where a number of useful comments back then, about how it could be done. It would be an idea to read them, even if you where not the supplicant back then.

Replies are listed 'Best First'.
Re^2: How to match elements of array
by Anonymous Monk on Dec 03, 2010 at 18:29 UTC
    Well, I guess I understand what this person is looking for as far as this posting goes, I toke the test code by someone here and added some:
    #!/usr/bin/perl use strict; #use warnings; my @pics; my $test_do_insert = 0; #change value to 0 to change variables to test + a case where it should not insert my $image_name_1 = ""; $image_name_1 = "test_image1.jpg" if (!$test_do_insert); # this is +one of the images already in the database $pics[0] = 'test_image1.jpg'; # this is one of the images comi +ng from this form #$pics[0] = 'test1.jpg'; print "\n14-image_name_1=$image_name_1 - pics[0]=$pics[0]\n"; my $image_name_2 = ""; $image_name_2 = "test_image2.jpg" if (!$test_do_insert); # this is + one of the images already in the database $pics[1] = "test_image2.jpg"; # this is one of the images comi +ng from this form #$pics[1] = "test2.jpg"; print "\n20-image_name_2=$image_name_2 - pics[1]=$pics[1]\n"; my $image_name_3 = ""; #$image_name_3 = "test_image3.jpg" if (!$test_do_insert); #$pics[2] = "test3.jpg"; print "\n26-image_name_3=$image_name_3 - pics[2]=$pics[2]\n"; my $image_name_4 = ""; #$image_name_4 = "test_image4.jpg" if (!$test_do_insert); #$pics[3] = "test4.jpg"; print "\n32-image_name_4=$image_name_4 - pics[3]=$pics[3]\n\n\n"; if (@pics) { my $flag_pic = 0; # while (my $row = $sth->fetchrow_hashref()) { $flag_pic += &check_empty($image_name_1, $pics[0]); print "\n39-".$flag_pic."\n"; $flag_pic += &check_empty($image_name_2, $pics[1]); print "\n41-".$flag_pic."\n"; $flag_pic += &check_empty($image_name_3, $pics[2]); print "\n43-".$flag_pic."\n"; $flag_pic += &check_empty($image_name_4, $pics[3]); print "\n45-".$flag_pic."\n"; # } print "\n47**$flag_pic**\n"; # End check if ( $flag_pic == 0 ) { print "\n50 - YES doing insert\n"; } else { print "\n53 - NOT doing insert\n"; } } sub check_empty() { my $img = shift; my $pic = shift; print "\n60-image_name=^$img^ - pics=^$pic^\n"; if ( $img ne "" && $pic ne "" ) { print "\n63-image_name=$img - pics=$pic\n"; if ( $img=~/$pic/ ) # if they match dont do the sql insert { print "\n66-image_name=$img - pics=$pic\n"; return 1; } else { print "\n72-image_name=$img - pics=$pic\n"; return 0; } print "\n75-image_name=$img - pics=$pic\n"; } }

    And thats the idea about what this person was looking for!
    Enjoy!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://875175]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-05-28 17:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found