http://www.perlmonks.org?node_id=11104766

ovedpo15 has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, small question if you may. I have an array of numbers and I want to create a string in the following format:
"job==<number> || job==<number> || ... || job==<number>"
My try:
my @arr = (12341,1245125,1525125,125125125); my $str; # should be: "job==12341 || job==1245125 || job==1525125 || j +ob==125125125" my $flag = 1; my $counter = 0; foreach my $num (@arr) { $flag = 0 if($counter == scalar(@arr) - 1); $str .= "\"" if($counter == 0); $str .= "job==".$num; $str .= " || " if($flag); $str .= "\"" if($counter == scalar(@arr) - 1); $counter++; } print $str."\n";
It is a bit messy and I belive there is a better way to achive it. Also, in my final string, notice it contains "" in it (i'll added checks - if its in the first iteration or last iteration, add ".
I'm sure that there is a better way to do this. Is it possible to see some suggestions?