Finance::Bank::PSK 1.04

Finance::Bank::PSK is a Perl module to check your P.S.K. accounts from Perl.

SYNOPSIS

 # look for this script in the examples directory of the
 # tar ball.
 use Finance::Bank::PSK;
 
 use strict;
 use warnings;
 
 my $agent = Finance::Bank::PSK->new(
 account => 'xxx',
 user => 'xxx',
 pass => 'xxx',
 return_floats => 1,
 newline => '; ',
 );
 
 my $result = $agent->check_balance;
 my @entries = $agent->get_entries;
 
 foreach my $account (@{$result->{accounts}}) {
 printf("s: %s
", $_->[0], $account->{$_->[1]})
 for(( [ qw/ Kontonummer account / ],
 [ qw/ Bezeichnung name / ],
 [ qw/ Waehrung currency / ]
 ));
 printf("s: %.2f
", $_->[0], $account->{$_->[1]})
 for(( [ qw/ Saldo balance / ],
 [ qw/ Dispo final / ]
 ));
 print "
";
 }
 
 foreach my $fund (@{$result->{funds}}) {
 printf("s: %s
", $_->[0], $fund->{$_->[1]})
 for(( [ qw/ Depotnummer fund / ],
 [ qw/ Bezeichnung name / ],
 [ qw/ Waehrung currency / ]
 ));
 printf("s: %.2f
", 'Saldo', $fund->{balance});
 print "
";
 }

 if(scalar @entries) {
 printf("Buchungszeilen:

");
 foreach my $row (@entries) {
 $row->{text} =~ s/(.{50}).*/$1.../;

 printf("%7s %5s Ss %9.2f
",
 @{$row}{qw/nr value text ammount/}
 );
 }
 }

This module provides a basic interface to the online banking system of the P.S.K. at https://wwwtb.psk.at.

Please note, that you will need either Crypt::SSLeay or IO::Socket::SSL installed for working HTTPS support of LWP.


Product's homepage

Requirements:

· Perl