Your code makes no sense. You prepare a complete-yet-broken SQL statement and then try to use bind_params to interpolate variables into it. This will not work. Maybe you can adapt the following example of inserting data into a database to your needs:

my $sql = <<SQL
   INSERT INTO acct1(
       date,
       time,
       RAS_CLIENT,
       Called_Station_Id,
       Calling_Station_Id,
       Acct_Input_Octets,
       Acct_Output_Octets,
       Acct_Session_Time,
       Acct_Input_Packets,
       Acct_Output_Packets,
       Acct_Termination_Cause)
   VALUES (?,?,?,?,?,?,?,?,?,?,?)";
warn $sql;
my $sth = $dbh->prepare($sql);

while (<LOG>){
    chomp;
    my @values = split(',',$_);

    # what do you do if one value contains a comma?

    # remove quotes here

    $sth->execute(@values);
};
[download]

I suspect that you will have many, many problems as the logic of your program is very twisted. Consider writing on small sheets of paper the steps your program needs to perform, and only one small unit per sheet of paper. You reopen the connection to the database for every line from your logfile - that's not very efficient.

 Corion, Thanks again.. my first script looked just like that and it s
+aid there was an error near ?,?,?) However, I will surely try this on
+e out again.
Thanks again.
[download]

LOOP1: 
  1.0 Read one line of data from log file and store in 
      symbol $_
  2.0 Create an array of simple strings by splitting the 
      string stored in $_ wherever there is a comma.  Store 
      this array in @values.
      NOTE:  Each element of @values is a SINGLE string, 
             not an array.
  3.0 Connect to database
      NOTE:  This will connect you to the database
             everytime you read a line from your log
             file because it is inside the loop that
             reads your log file!
  LOOP2:
      3.1 Process each element of the array @values.  
      3.2 If this element is 'stop' then
          3.2.1 Create sql statement.  But you are
                using @values[0].  What does this mean?
                Each element of @values is a simple string.
                Did you only want that string, or did you
                expect that @values = ([array],[array]...)
                ???
          3.2.2 Preparing the sql statement.
          3.2.3 Bind parameters to $_->[i] ???
                But $_ is simply the single line of data that
                you read from your log file.  It's a single string!
                Why do you expect it to be an array?
          3.2.4 Execute db query
          3.2.5 Rollback if error
          3.2.6 Disconnect from database

... MISSING CODE....
      3.3 End of is current element of @values equal to 
          string 'stop'?
      3.4 Go back to LOOP2 to process more elements
          of the array @values (until all done)
  4.0 Go back to LOOP1 to read next line of LOG file
[download]

At this stage, your algorithm is so mangled that it is not really a 'perl' problem. Perl is doing exactly what you are telling it to do, and then get's lost when you want an array from something that is not an array.

Thanks... I will fix things up. 
Helped me a lot.
[download]

Perhaps try getting a simple example up and running and then take it from there.

This uses the test db that came with my download of MySQL. There is a table called foo with two fields id and name.

Note the use of placeholders that other monks have mentioned.

#!/usr/bin/perl

use strict;
use warnings;
use DBI();

my $server = 'local';

my %db = (
  local => {
    db => 'test',
    host => 'localhost',
    user => '',
    pwd => '',
  },
);

my $dbh;

$dbh = DBI->connect(
  "DBI:mysql:database=$db{$server}{db};host=$db{$server}{host}",
  $db{$server}{user},
  $db{$server}{pwd},
  {RaiseError => 1}
) or die "couldn't connect";

my @data = <DATA>;
chomp @data;

my $sth = $dbh->prepare(
  q{
    INSERT INTO foo (id, name) VALUES (?, ?)
  }
) or err_db();

for (@data){
  
  my ($id, $name) = split /,/;
  
  $sth->execute(
    $id,
    $name,
  ) or die "couldn't execute";

}

__DATA__
103,john
104,jack
105,jenny
[download]

One more thing - don't panic! :-)

   $sth->bind_param(1,$_->[0]);

I'm not sure what you expected to have in $_ at this point, but it's not an array ref. To my eyes the error message you recieved is exactly what I would expect. Did you have trouble understanding it?

-sam

  It had $sth->bind_param(1,@$->[0]); 
I have been trying to find out what the error is and hence following t
+ons of tricks available online and thats why I had changed it to $->[
+0] instead of @$->[0] <br/>

even then it gave me the same error.<br>

Thanks.
yes. maybe an understanding as to what causes this error also will be 
+helpful..  one link said that its may happen if there are two sub rou
+tines and they are unordered.. I didn't quite understand what that me
+ant.. Thats why I posted my whole code here.
[download]

Abandon complex explainations - this is a simple problem. You're trying to treat $_ as though it has an array-ref in it. It does not - it has a string instead.

-sam

I am trying to read each field from the file and strip it off of the q
+uotes and comma and storing them in the DB.

one article said that I should first bind the array element ( I mean e
+ach field in the file is an element of the array)to a position in the
+ table and then it will be executed as required.

Thanks.
[download]

You need to read data from comma-separated file (so-called CSV). The best way to do it is to use the Text::CSV module. Read its documentation. Then you need to load data to DB. Do it using the DBI placeholders. Read DBI documentation again! If you don't understand the code — re-read perlintro. It must help :)

If you think you will work with Perl later — buy the Camel book.

I think a good read of the various tutorials on this site, especially the extraordinarily useful one by gmax at DBI recipes would be in order.

jdtoronto

 Thank you..I will read it... (again)....Its just that so many docs suggest so many things that I am panicking now.

Try small steps first ... can you correctly parse the data and output sql?

#!/usr/bin/perl

use strict;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new();

my $sqlf = "insert into acct1 (
  date, time, RAS_CLIENT, Called_Station_Id,
  Calling_Station_Id, Acct_Input_Octets, Acct_Output_Octets,
  Acct_Session_Time, Acct_Input_Packets,   
  Acct_Output_Packets, Acct_Termination_Cause
) values( 
  %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s )";

while( <> ) {
  if( $csv->parse( $_ ) ) {
     my @vals = $csv->fields();
     printf( $sqlf, $vals[0],  $vals[1],   $vals[2],
                    $vals[28], $vals[29], $vals[34],
                    $vals[35], $vals[38], $vals[39],
                    $vals[40], $vals[41], $vals[42] );
  } else {
    print  "Error: " , $csv->error_input();
  }
}
[download]