trunk/export/dump.pl

#!/usr/local/bin/perl -w

use DBI;
use File::Slurp;

use strict;

my $connect = "DBI:mysql:database=reblog";
my $sql=qq{
select
        id,title,content
from items
join items_userdata on items_userdata.item_id = items.id
where items_userdata.label = 'published'
};

my $dbh = DBI->connect("$connect","","") || die $DBI::errstr;

my $sth = $dbh->prepare("$sql") || die $dbh->errstr();
$sth->execute() || die $sth->errstr();

print "#",join("\t",@{ $sth->{NAME} }),"\n";
while (my $row = $sth->fetchrow_hashref() ) {

        my $c = $row->{content};
        $c =~ s!</*[^>]+>!!gs;

        write_file( 'data/' . $row->{id}, $c );

        warn "saved ", $row->{id}, $/;
}
1	#!/usr/local/bin/perl -w
2
3	use DBI;
4	use File::Slurp;
5
6	use strict;
7
8	my $connect = "DBI:mysql:database=reblog";
9	my $sql=qq{
10	select
11	id,title,content
12	from items
13	join items_userdata on items_userdata.item_id = items.id
14	where items_userdata.label = 'published'
15	};
16
17	my $dbh = DBI->connect("$connect","","") \|\| die $DBI::errstr;
18
19	my $sth = $dbh->prepare("$sql") \|\| die $dbh->errstr();
20	$sth->execute() \|\| die $sth->errstr();
21
22	print "#",join("\t",@{ $sth->{NAME} }),"\n";
23	while (my $row = $sth->fetchrow_hashref() ) {
24
25	my $c = $row->{content};
26	$c =~ s!</*[^>]+>!!gs;
27
28	write_file( 'data/' . $row->{id}, $c );
29
30	warn "saved ", $row->{id}, $/;
31	}