MySQL Dump

[wapboy]

How do I do a dump of a MySQL table from a PERL script?

Thanks
Paul

 

[PaulTEG]

How do you normally do it?

--Paul

Nancy Griffith - songstress extraordinaire,
and composer of the snipers anthem "From a distance ...

 

[wapboy]

I normally use phpMyAdmin, but the table is too large and this times out - so maybe doing it thru a Perl script might work

 

[philote]

You could also use mysqldump if you have shell access.

 

[waiterm]

You could also use Net::MySQL and drop the returned data from MySQL into and array or hash...comme ca:

use Net::MySQL;
  
  my $mysql = Net::MySQL->new(
      # hostname => 'mysql.example.jp',   # Default use UNIX socket
      database => 'your_database_name',
      user     => 'user',
      password => 'password'
  );

  # INSERT example
  $mysql->query(q{
      INSERT INTO tablename (first, next) VALUES ('Hello', 'World')
  });
  printf "Affected row: %d\n", $mysql->get_affected_rows_length;

  # SLECT example
  $mysql->query(q{SELECT * FROM tablename});
  my $record_set = $mysql->create_record_iterator;
  while (my $record = $record_set->each) {
      printf "First column: %s Next column: %s\n",
          $record->[0], $record->[1];
  }
  $mysql->close;

as demonstrated in the CPAN notation:

http://search.cpan.org/~oyama/Net-MySQL-0.08/MySQL.pm

I personally have never had any need to link perl up to MySQL as yet but if I did then this would be my most likely plan of attack!

Rob Waite

http://www.hostpipe.co.uk?src=TT