Re^3: help figuring out what a section of script does

Replies are listed 'Best First'.
Re^4: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 20, 2017 at 11:21 UTC
Sorry! I posted the wrong part from SQLDB Viewer. Is this better? `564D50340000070001004E0000000A0000000A0058000000850000000B00DD0000000B0000001400E80000001C0300001F0004040000AA0000003C00AE040000C80000003300760500008A00000000370008D000032680F00196000000789C4DC95D0AC2300C00E01C255798207B9E1`	[reply] [d/l]
Re^4: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 20, 2017 at 11:28 UTC
Every entry in the DB with this BLOB data starts with VMP4. So is it not really binary data?	[reply]
Re^5: help figuring out what a section of script does by poj (Abbot) on Mar 20, 2017 at 13:51 UTC
So is it not really binary data? I don't know, what was the name of the database and the table that the data was dumped from ? Was it `images` from `MapTiles.sqlitedb` ? poj	[reply] [d/l] [select]
Re^4: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 21, 2017 at 13:08 UTC
Yes, that is correct. I'm going to try SQL::Parser instead of the manual decoding and see how that goes	[reply]
Re^5: help figuring out what a section of script does by poj (Abbot) on Mar 21, 2017 at 14:18 UTC
Do you have a copy of the database or just a dump file ? If you have the database try this #!perl use strict; use DBI; my $database = 'MapTiles.sqlitedb'; my $tablename = 'images'; # open db my $dbh = open_db($database); my $imgfolder = 'maptiles-output'; if (! -d $imgfolder){ mkdir($imgfolder, 0755) or die "$!"; } # select data my $sql = 'SELECT * from '.$tablename; my $sth = $dbh->prepare($sql); $sth->execute(); # recreate files while (my ($zoom, $x, $y, $flags, $length, $data) = $sth->fetchrow_arr +ay){ my $filename = "$imgfolder/$x,$y\@$zoom.png"; print "creating $filename\n"; open OUT,'>:raw',$filename or die "$filename : $!"; print OUT $data; close OUT; } # open db sub open_db { my $dbfile = shift; my $dbh = DBI->connect( "dbi:SQLite:dbname=$dbfile", "", "", { RaiseError => 1 } ) or die $DBI::errstr; return $dbh; } [download] Update : dbname = $dbfile corrected poj	[reply] [d/l]
Re^4: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 23, 2017 at 19:18 UTC
I get an error on line 17 "no such table: image" so i looked at the DB, and there is a table name 'image'. It's structured thusly: CREATE TABLE image (a int, b int, c int, d int, tileset int, retrieved int, current bool, etag text, size int, data blob, UNIQUE(a, b, c, d) ON CONFLICT REPLACE); CREATE UNIQUE INDEX index_abcd on image (a, b, c, d); CREATE INDEX index_tileset on image (tileset); CREATE INDEX index_retrieved_tileset on image (retrieved, tileset); So we open up the table image, and dump the field data, right? #!perl use strict; use DBI; my $database = 'MapTiles.sqlitedb'; my $tablename = 'image'; # open db my $dbh = open_db($database); my $imgfolder = 'maptiles-output'; if (! -d $imgfolder){ mkdir($imgfolder, 0755) or die "$!"; } # select data my $sql = 'SELECT data from '.$tablename; my $sth = $dbh->prepare($sql); $sth->execute(); # recreate files while (my ($zoom, $x, $y, $flags, $length, $data) = $sth->fetchrow_arr +ay){ my $filename = "$imgfolder/$x,$y\@$zoom.png"; print "creating $filename\n"; open OUT,'>:raw',$filename or die "$filename : $!"; print OUT $data; close OUT; } # open db sub open_db { my $dbfile = shift; my $dbh = DBI->connect( "dbi:SQLite:dbname = $dbfile", "", "", { RaiseError => 1 } ) or die $DBI::errstr; return $dbh; } [download]	[reply] [d/l]
Re^5: help figuring out what a section of script does by AnomalousMonk (Archbishop) on Mar 23, 2017 at 20:04 UTC
This node is a properly formatted copy of an entirely unformatted (and now considered, and perhaps already reaped) previous node. It wasn't necessary to post a copy of the previous node in order to correct the formatting lapse. By editing the previous node to add `<code>` tags as appropriate, the lack of formatting could have been corrected. Please see the `Edit` and `edit` links in your posts, and also How do I change/delete my post?. (Actually, even this post isn't entirely properly formatted IMHO: the DB statements `CREATE TABLE image ...; ...; CREATE INDEX index_retrieved_tileset ...;` should also be `<code>`-wrapped. :) Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^5: help figuring out what a section of script does by poj (Abbot) on Mar 23, 2017 at 19:35 UTC
What do you get running this `#!/usr/bin/perl use strict; use DBI; my $dbfile = 'MapTiles.sqlitedb'; my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","",""); print join "\n",$dbh->tables;` [download] poj	[reply] [d/l]
Re^4: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 24, 2017 at 21:00 UTC
`"main"."edition" "main"."image" "main"."image" "main"."image" "main"."image" "main"."sqlite_master" "temp"."sqlite_temp_master" "main"."edition" "main"."image" "main"."version"` [download]	[reply] [d/l]
Re^5: help figuring out what a section of script does by poj (Abbot) on Mar 24, 2017 at 21:52 UTC
I don't know why you have duplicates, try this `#!/usr/bin/perl use strict; use DBI; my $dbfile = 'MapTiles.sqlitedb'; my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","",""); my $sth = $dbh->table_info('%', '%', '%'); while (my $r = $sth->fetchrow_hashref()) { print join " ",$_,$r->{$_},"\n" for keys %$r; print "\n"; }` [download] Which Operating System are you using ? poj	[reply] [d/l]
Re^6: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 24, 2017 at 22:14 UTC
Ubuntu Yakkity	[reply]
Re^6: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 24, 2017 at 22:21 UTC
Output of your second request TABLE_SCHEM main TABLE_TYPE INDEX TABLE_CAT sqlite_sql REMARKS TABLE_NAME edition TABLE_TYPE INDEX REMARKS sqlite_sql TABLE_CAT TABLE_NAME image TABLE_SCHEM main TABLE_SCHEM main TABLE_TYPE INDEX TABLE_CAT sqlite_sql CREATE UNIQUE INDEX index_abcd on image (a, b, c, d) REMARKS TABLE_NAME image TABLE_TYPE INDEX sqlite_sql CREATE INDEX index_tileset on image (tileset) TABLE_NAME image REMARKS TABLE_CAT TABLE_SCHEM main REMARKS sqlite_sql CREATE INDEX index_retrieved_tileset on image (retrieved, t +ileset) TABLE_NAME image TABLE_CAT TABLE_TYPE INDEX TABLE_SCHEM main REMARKS sqlite_sql TABLE_NAME sqlite_master TABLE_CAT TABLE_TYPE SYSTEM TABLE TABLE_SCHEM main TABLE_SCHEM temp TABLE_NAME sqlite_temp_master sqlite_sql REMARKS TABLE_CAT TABLE_TYPE SYSTEM TABLE TABLE_SCHEM main TABLE_CAT sqlite_sql CREATE TABLE edition (tileset int, edition int, unique (til +eset)) REMARKS TABLE_NAME edition TABLE_TYPE TABLE TABLE_SCHEM main TABLE_TYPE TABLE sqlite_sql CREATE TABLE image (a int, b int, c int, d int, tileset int +, retrieved int, current bool, etag text, size int, data blob, UNIQUE +(a, b, c, d) ON CONFLICT REPLACE) REMARKS TABLE_NAME image TABLE_CAT TABLE_SCHEM main TABLE_TYPE TABLE sqlite_sql CREATE TABLE version (version int, locale text) REMARKS TABLE_NAME version TABLE_CAT [download]	[reply] [d/l]
Re^7: help figuring out what a section of script does by poj (Abbot) on Mar 25, 2017 at 19:31 UTC
Re^8: help figuring out what a section of script does by michaelsingleton (Novice) on Mar 26, 2017 at 12:42 UTC


more useful options
	PerlMonks