$GPRMC,145602.100,A,35xx.xxxxxx,N,135xx.xxxxxx,E,0.756,262.36,300312,,,A*5E
$GPGGA,145602.200,35xx.xxxxxx,N,135xx.xxxxxx,E,1,,,126.783,M,,,,*2C
$GPRMC,145602.200,A,35xx.xxxxxx,N,135xx.xxxxxx,E,0.757,262.59,300312,,,A*56
5xx.xxxxxx,E,1,,,126.883,M,,,,*28
$GPRMC,145602.700,A,35xx.xxxxxx,N,135xx.xxxxxx,E,0.740,264.02,300312,,,A*53
$GPGGA,145602.800,35xx.xxxxxx,N,135xx.xxxxxx,E,1,,,126.905,M,,,,*2B
$GPRMC,145602.800,A,35xx.xxxxxx,N,135xx.xxxxxx,E,0.748,264.31,300312,,,A*57
$GPGGA,145602.900,35xx.xxxxxx,N,135xx.xxxxxx,E,1,,,126.930,M,,,,*25
$GPRMC,145602.900,A,35xx.xxxxxx,N,135xx.xxxxxx,E,0.752,264.60,300312,,,A*50
xx.xxxxxx,N,135xx.xxxxxx,E,1,,,126.990,M,,,,*25
$GPRMC,145603.300,A,35xx.xxxxxx,N,135xx.xxxxxx,E,0.719,265.51,300312,,,A*56
$GPGGA,145603.400,35xx.xxxxxx,N,135xx.xxxxxx,E,1,,,127.017,M,,,,*2E
AT+VERSION
Returns the software version of the module
AT+BAUDx
Sets the baud rate of the module
1: 1200
2: 2400
3: 4800
4: 9600 (Default)
5: 19200
6: 38400
7: 57600
8: 115200
9: 230400
AT+NAME
Sets the name of the module
Any name can be specified up to 20 characters
AT+PINxxxx
Sets the pairing password of the device
Any 4 digit number can be used, the default
pincode is 1234
AT+PN
Sets the parity of the module
sub new {
my ($class, %opts) = @_;
$opts{_ua} = LWP::UserAgent->new( max_redirect => 0 );
$opts{_ua}->env_proxy; ←★★ここ★★
$opts{_auth} = Net::Google::AuthSub->new( service => 'cl' );
$opts{_cookie_jar} = HTTP::Cookies->new;
$opts{no_event_modification} ||= 0;
my $self = bless \%opts, $class;
$self->_find_calendar_id if $opts{url};
return $self;
}
#!/usr/bin/perl -w
use encoding 'utf-8';
use Encode qw(from_to);
use DateTime;
use Net::Google::Calendar;
use strict 'vars';
# 設定
my $UserName = 'hoge.fuga@gmail.com'; # xxxx@gmail.com
my $Password = 'password';
my $ProxyURL = 'http://proxy.server:8080'; # proxy がいらない場合は '' にする
# stdin を全部読み込んでいったん utf-8 に変換
$_ = join( '', <> );
from_to( $_, 'jis', 'utf-8' );
@_ = split( /\s*\x0D*\x0A/, $_ );
# メールのパース
my $Summery;
my $Location;
my $Description = '';
my $DateStart;
my $DateEnd;
my $AllDay = 0;
while( $#_ >= 0 ){
$_ = shift( @_ );
if( $_ eq '[予定]' ){
$Summery = shift( @_ );
}elsif( $_ eq '[日時]' ){
$_ = shift( @_ );
if( m#(\d+)/(\d+)/(\d+)\s+(\d+):(\d+)[^\d]+(\d+):(\d+)# ){
# 時間指定あり
$DateStart = DateTime->new(
time_zone => 'local',
year => $1,
month => $2,
day => $3,
hour => $4,
minute => $5,
second => 0
);
$DateEnd = DateTime->new(
time_zone => 'local',
year => $1,
month => $2,
day => $3,
hour => $6,
minute => $7,
second => 0
);
}elsif( m#(\d+)/(\d+)/(\d+)# ){
# 時間指定なし
$DateStart = DateTime->new(
time_zone => 'local',
year => $1,
month => $2,
day => $3,
hour => 0,
minute => 0,
second => 0
);
$DateEnd = $DateStart->add( days => 1 );
$AllDay = 1;
}else{
# よくわからない時間指定，とりあえず脱出
exit( 0 );
}
}elsif( $_ eq '[場所]' ){
$Location = shift( @_ );
}elsif( $_ eq '[内容]' ){
while( $#_ >= 0 ){
$_ = shift( @_ );
last if( $_ =~ /^\[/ );
$Description .= "\n" if( $Description ne '' );
$Description .= $_;
}
}
}
# ログイン
my $Cal = Net::Google::Calendar->new();
if( $ProxyURL ){
# proxy 設定
$Cal->{_ua}->proxy( 'http', $ProxyURL );
$ENV{ 'HTTPS_PROXY' } = $ProxyURL;
}
$Cal->login( $UserName, $Password );
# イベントのエントリー
my $Entry = Net::Google::Calendar::Entry->new();
$Entry->title( $Summery );
$Entry->content( $Description ) if( $Description );
$Entry->status( 'confirmed' );
$Entry->location( $Location ) if( defined( $Location ));
$Entry->transparency( 'opaque' );
$Entry->visibility( 'private' );
$Entry->when( $DateStart, $DateEnd, $AllDay );
$Cal->add_entry( $Entry );
