#!/usr/bin/perl
#
# Test script that prints the charstat as a tab-separated file.
#
# $Id: anki_tabexport.pl,v 1.1 2009/01/09 12:58:17 magnus Exp $
#

use strict;
use lib '.';
use skritter;
$|=1;

my $USERNAME = 'myname';
my $PASSWORD = 'secret123';

my $s = skritter->new( 'username'=>$USERNAME, 'password'=>$PASSWORD);

my @charstat = split /\n/, $s->stat();
for my $line (@charstat)
{
	chomp $line;
	my @field = split /\t/, $line;

	# Mandarin default model, Anki
	# Tab separated
	# Expression, Meaning, Reading
	# i.e. <word/char>, <tab>, <description>, <tab>, <pinyin>
	print $field[0], "\t", $field[6], "\t", $field[1], "\n";
}