triangulations/scripts/triangulation_bookkeeping.pl

29 lines
694 B
Perl
Raw Normal View History

2024-04-22 14:50:46 +00:00
#!/usr/local/bin/polymake --script
# Initialize table with triangulations
use application "topaz";
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect("dbi:Pg:dbname=researchdata_test", '', '', {AutoCommit => 0});
my $sth = $dbh->prepare("INSERT INTO triangulations VALUES (?, ?, ?, ?);");
my $path = shift;
$path =~ m,([^/]+)\.poly$,;
my $regdesc = $1;
my $q=load_data("$path");
my $vert = @{$q->F_VECTOR}[0];
$sth->execute($regdesc, "@{$q->F_VECTOR}", $vert, $path);
$dbh->commit;
# after this run INSERT INTO minimal_triangulations SELECT DISTINCT ON (signature) * FROM triangulations ORDER BY signature, vertices ; to get a table of minimal triangulations of each complex