my $in=join (", ", (map { $_ = "'$_'" } @one));

 $sql="SELECT * FROM sistema WHERE codigo_inscripcion IN ($in) and mat
+ricula='$matricula'";
 $pdbh=$dbh->prepare($sql);
    $pdbh->execute();

# stuff here!
while (my $ref = $pdbh->fetchrow_hashref()) {

        if($ref->{'mon'} != ''){$mon="Mon$ref->{'mon'})}
        if($ref->{'tue'} != ''){$mar="Tue$ref->{'tue'}"}
        if($ref->{'wed'} != ''){$mie="Wed$ref->{'wed'}"}
        if($ref->{'thu'} != ''){$jue="Thu$ref->{'thu'}"}
        if($ref->{'fri'} != ''){$vie="Fri$ref->{'fri'}"}
        if($ref->{'sat'} != ''){$sab="Sat$ref->{'sat'}"}
        if($ref->{'sun'} != ''){$dom="Sun$ref->{'sun'}"}
}

$pdbh->finish();
exit;

if ($mon ne ''){
$lun=~ /([A-Za-z]*)([0-9]*)\/([0-9]*)/;

for($z=$2;$z<$3;$z++) { push (@soft, "$1$z"); } 
push (@soft, "$1$3");

print @soft;
exit;

[download]
Im trying with this... this is actually printing only 1 of
the selections how I want... but I think this code stinks!
If I select more than one row, it overwrites the value of
$mon and only shows me the last... I dunno how to do
this! Please HELP!

In reply to Re: Re: huge problem! by Anonymous Monk
in thread Inserting sequences without duplicates by husoft

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.