短期留学生の Joi さんが来校中。 自国でのプログラミングでは、色々と経験がありそうだったので、 当初予定していた実験課題は簡単に終わってしまう。

そこで、少しづつ説明を加えながら、レベルアップしてもらった。

当初は、組み込み系の開発経験が無いとのことだったので、 Arduino で太陽電池の観測システムを作ろうというのが、 ことの始まり。

でも、Arduino + Processing(PC)での観測は、簡単に完成。

そこで、Raspberry-Piを出してきて、継続的に観測するシステムに 予定変更。Raspberry-Pi と Arduino を接続して動かす実験を 体験してもらい、それを記録させる。

さすがに記録させてグラフ表示まで作ろうとすると時間が 足りないので、この部分は Raspberry-Pi に munin をインストールし、 サクっと動かしてもらう。

といっても、Arduino と接続する処理で、シリアルポートの 読み書き権限やら、munin から呼び出される時の、読み書き権限に ついては、分かりにくいので私がサポートした。

総合情報処理センターでは、2015年4月にシステムの更新を 行いましたが、稼働からほぼ400日を経過し、学生アカウント では、パスワードの有効期限から変更の警告が届いていたり、 アカウントロックとなったと表示される場合があります。

有効期限の警告の場合

通常ユーザが教育システムのパスワードを変更する場合は、 下記のURLにアクセスしてください。

 https://kauthsv.fukui-nct.ac.jp/iumus/

このページは、学内からしかアクセスできません。

アカウントロックされている場合

総合情報処理センターにパスワードロックの解除を依頼して ください。解除後に伝えられるパスワードは暫定パスワード ですので、上記「有効期限の警告の場合」と同様に、 パスワードの変更を行ってください。

年度初めにパスワード変更を…

本校では、パスワード有効期限が400日となっていますので、 ほぼ1年間(+猶予期間一ヶ月)となります。つきましては、 年度始めにには、必ずパスワード変更をするようにお願いします。

卒研でデータ検索のプログラムを作ってもらおうとしているが、 Google Search API などは、1日100回制限もあるので、 少しマナーが悪いけど、LWPでアクセス。 UserAgent が libwww-perl だと検索を拒否されるので、一工夫。

#!/usr/bin/perl
use LWP::Simple ;
use Jcode ;
########################
# LWP でアクセス       #
########################
# ユーザエージェントを libwww-perl から変更しないとGoogleに拒否される。
my $ua = LWP::UserAgent->new(
   agent => 'Mozilla/5.0 (Windows NT 6.1; WOW64;
      Trident/7.0; NP06; rv:11.0) like Gecko' ) ;
# 問い合わせ文字
my $query = '猫 OR ネコ' ;
# 問い合わせ文字をURLエンコード
$query =~ s/([^ 0-9a-zA-Z])/'%'.unpack('H2',$1)/eg ;
$query =~ s/ /+/g ;
print $query."\n" ;
# 問い合わせのURLを作る
my $query_url = 'http://www.google.co.jp/search'
.'?hl=ja&q='.$query.'&lr=' ;
print $query_url."\n" ;
# 問い合わせを実行
my $response = $ua->get( $query_url ) ;
# 問い合わせ失敗時の処理
die $response->status_line
   unless( $response->is_success ) ;
my $content = $response->content ;
################################
# 検索から必要な情報を抜き出す #
################################
# 参考: http://dqn.sakusakutto.jp/2010/06/perlhtml.html
use HTML::TreeBuilder ;
my $tree = HTML::TreeBuilder->new ;
$tree->parse( $content ) ;
my @items = $tree->look_down( 'class' , 'st' ) ;
foreach my $item ( @items ) {
   print "-------------\n" ;
   print $item->as_text."\n" ;
}
### Local Variables: ###
### mode: perl ###
### End: ###