Hi, I have a problem with my code. As I'm trying to extract the date before I insert the data into a table using sql code. I'm trying to extract data from a string to get the date, using the array function. The problem is that when it runs it only takes the first row of the file and going into an infinite loop inserting the 1st row. Any ideas why is doing this ? how can I get the date for each row inserted to the table ? 

 

$csv = Text::CSV->new();



while (<FILE>)
{
        if ($count ==0)
        {
        }
        else
        {
                $status = $csv->parse($_);
                @data = $csv->fields();
                $done=0;
                $retry=0;
                 while($done==0)
                 {



                 # convert timestamp to date                    
                  @timestamp = split (" ",$data[7]);
                  $day=$timestamp[2];
                  $month1=$timestamp[1];
                  $month = $mon2num{lc substr($month1,0,3)};
                  $year=$timestamp[5];
                  $date = "$day/$month/$year";



                          $query = " INSERT INTO DigitalB_Master (date
+,julianday,mac_address,enterprise_id,enterprise_name,group_id ,group_
+name,device_name ,device_type) ".
                                   " Values ('$date','$jd','$data[6]',
+'$data[0]','$data[1]','$data[2]','$data[3]','$data[4]', '$data[5]')" 
+.
                                   " ON DUPLICATE KEY UPDATE  ".
                                        "enterprise_id='$data[0]',".
                                        "enterprise_name='$data[1]',".
                                        "group_id='$data[2]',".
                                        "group_name='$data[3]',".
                                        "device_name='$data[4]',".
                                        "device_type='$data[5]';";



 print ($query."\n");


                     my $sth = $dbh->prepare($query);
                        $sth->execute();

[download]

In reply to Perl Array issue. by Pan20

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.