随分、久しぶりのperl。で、以下のような感じかと思います。 ポイントは、接続する為の環境変数設定です #!/usr/local/bin/perl use utf8; use strict; use warnings; use DBI; #use DBD::Sybase; use Encode; use Time::Piece; use Time::Seconds; my $CONF…

以下の通りです #!python # -*- coding: utf-8 -*- def main(): states = {} coords = ((1,2),(3,4),(5,6),(7,8)) for coord in coords: state = State( coord[0],coord[1]) states[state] = "%d-%d" % coord print( states ) tmp_state = State(3, 4) print…