File: dump

package info (click to toggle)
libdbix-fulltextsearch-perl 0.73-12
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster, forky, sid, trixie
  • size: 500 kB
  • sloc: perl: 1,617; makefile: 7
file content (16 lines) | stat: -rwxr-xr-x 357 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl -w

use DBI;
my $dbh = DBI->connect('dbi:mysql:test') or die $DBI::errstr;

my $TABLE = shift;
$TABLE = 'ctx_test_1_data' unless defined $TABLE;

my $sth = $dbh->prepare("select word,idx from $TABLE order by word");
$sth->execute;

while (my @data = $sth->fetchrow_array) {
	$data[1] = join ' ', unpack 'S*', $data[1];
	print "@data\n";
	}