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	dpavlin	23	#!/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			}