Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132use 5.010;use lib '/home/lacuna/server/lib';use Lacuna::DB;use Lacuna;use DateTime;use Text::CSV_XS;
my $public_root = '/home/lacuna/server/public';
my $out;my $csv = Text::CSV_XS->new({binary => 1});$csv->combine(qw(id name x y color zone));$out .= $csv->string."\n";#say $csv->string;my $stars = Lacuna->db->resultset('Lacuna::DB::Result::Map::Star');while (my $star = $stars->next) { if ($csv->combine( $star->id, $star->name, $star->x, $star->y, $star->color, $star->zone )) { $out .= $csv->string."\n"; #say $csv->string; } else { say "ERROR", $csv->error_input; }}
my $filename = 'server/stars.csv';my $path = $public_root.'/'.$filename;say "Writing $path";open my $fh, '>', $path or die "Can't write $path: $!";print $fh $out;close $fh;