gergely/swe-glib
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add full UTF-8 support to Perl example

Browse Source
This commit is contained in:
gitolite tester 2014-11-01 01:31:25 +01:00
parent 5b7124aca5
commit fc1a6328f1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/basic.pl
View File

@ -1,11 +1,15 @@
#!/bin/env perl
package SweGlib; package SweGlib;
use utf8;
use strict; use strict;
use POSIX; use POSIX;
use Glib::Object::Introspection; use Glib::Object::Introspection;
use Data::Dumper; use Data::Dumper;
binmode STDOUT, ':encoding(UTF-8)';
Glib::Object::Introspection->setup(basename => 'SweGlib', version => '2.0', package => 'SweGlib'); Glib::Object::Introspection->setup(basename => 'SweGlib', version => '2.0', package => 'SweGlib');
package main; package main;
@ -51,4 +55,3 @@ foreach my $antiscion (@{$all_antiscia}) {
printf("%s is antiscion of %s on axis %s (±%.2f%%)\n", $planet1->get_planet_info()->get_name(), $planet2->get_planet_info()->get_name(), $antiscion->get_antiscion_axis_info()->get_name(), $antiscion->get_difference()); printf("%s is antiscion of %s on axis %s (±%.2f%%)\n", $planet1->get_planet_info()->get_name(), $planet2->get_planet_info()->get_name(), $antiscion->get_antiscion_axis_info()->get_name(), $antiscion->get_difference());
} }
} }