4年の前期実験では、2週分を創造工学でのシステム作りの導入とするための、 基礎実験を行っている。クラスを3グループに分け、私の担当は初回にPHPによる、 Webプログラミングの説明。これにより簡単な掲示板やアンケートを作ってもらった。

2回目の今日は、1日実験でPerlと正規表現の実験を行った。 最初に、超単純英語によるBot作りをネタに、Perlの基本文法と、正規表現を体験してもらう。 理解度が速い人向けに、後半はメールデータを題材にしながら、 Jcode.pmを用いた文字コード変換、headerのmime_decodeを説明し、 このメールデータの中から、From,Toの部分を抽出するプログラムを作ってもらう。

• perl-regex.pdf

#!/usr/bin/perl
# 超基本英語によるBot
while( <> ) {
   $line = $_ ;
   if ( $line =~ /like/ ) {
      if ( $line =~ /^(.*)\s+like(|s)\s+(.*)\.$/ ) {
         print "$1 は $3 が好きです。\n" ;
      }
   }
}

#!/usr/bin/perl
# メールデータの文字コード変換
use Jcode ;
my $head = 1 ;
while( <> ) {
   $line = $_ ;
   if ( $head ) {
      print Jcode->new( $line )->mime_decode->utf8 ;
      if ( $line =~ /^$/ ) {
         $head = 0 ;
      }
   } else {
      print Jcode->new( $line )->utf8 ;
   }
}

Perlを初めて使ってもらうので、 暗黙変数$_とのマッチングや、 「式 if ( 条件 ) ;」といった Perl らしい節操のない書き方は、説明を避けた。

プログラミングに興味を持ってもらうためにも、 情報系の企業の方の知識で語ってもらう特別講演にて、 OBの中西さんに来てもらい話していただきました。

話の途中で、学生さんの実態を確認したくなって、途中で色々とアンケートっぽく 挙手形式で聞いてみた。 インターネット花盛りで情報系なんだし、インターネットビジネスの入口をどこまで体験しているか ということで、Google検索使ってる？GMail使ってる？Mixi使ってる？Twitter使ってる？ GREE使ってる？モバゲー使ってる？ 的に聞いてみた。 ただ、結果としては、予想外にネットを使っていないことが解った。 GMail当たりは使っている人も3割程度だったけど、Google検索・Gmail以外のGoogleサービス 使ってる？と聞いても、反応は薄かった。 Twitter,Mixi,GREE,モバゲーと聞いてみたけど、かぶっている利用者ばかりで、 2割を切っていたかなぁ… ヘビーに活用しているひとは使ってるけど、それ以外の人が多すぎるってことか。

ということで、4年の創造工学でアイデア出しとかしても、ネタに窮するのは、 やっぱり電子情報工学科といいながら学生さん自身がインターネットを深く活用していないというのが 根本だと感じたなぁ…
# ヘビーにネット依存されるのも困るんだけどね…2極化?

今日は寮の日直ということで、 その間にプログラミング応用と情報構造論の課題レポートの採点。

プログラミング応用のレポートは、がんばって書いている人もいるけど、 すでにテスト生点でそれなりの点数が取れた人は、 ちょっと手抜きの様子。 成績は、max(テスト生点,テスト*60%+レポート40%)という計算方法なので、 レポートの加点を入れても、成績が上がらない人がほとんど。 まあ、プログラムがそれなりに書ければ、こんなものかな…. レポートの説明で、変数表とか処理の説明してくれているけど、 どちらかというとイメージ図を交えたりといった説明が欲しかった。 といっても、簡単な課題だし説明を丁寧にといっても、 変数表ぐらいしか丁寧に書けないか….

自宅で試作していたLEDメッセンジャーのプログラムを職場の行き先表示板にしてみました。PICNICのカタカナ表示よりは便利になりました。 PICNIC版と同じように、携帯からメッセージを書き込めるようにしたし、 表示でもスクロール機能があるので、256byteまでのメッセージであれば、 分かりやすく表示できます。

創造工学演習の作業にて、画像を扱うグループで作業が止まっている。 プログラムの入り口となる知識が分かっていなさそうなので、 指定ディレクトリ内の画像をHTML的に表示したり、画像を選択するプログラムだけを書いて、 基本説明を行う。

同じく、データベースを使うグループが、SQLの勉強をしているのだが、 SQLの解説ページを見ているだけで、実際に手を動かせないでいる。 しかたがないので、SQLite3 を使って、ローカルなDBファイルにて "create table"でテーブルをつくり、 "insert into"で１件データを書き込み、 "select from"でデータを読み込むというだけの PHPプログラムを示して、SQLとPHPのイメージを結び付けてもらう。

4EIの実験時間を用いた創造工学演習向けの基礎講習会の2回目。 40人を2つに分けて実施するため、場所が狭かったり実験が困難だったり。 H8の割り込み講習会の参加グループの方が、実際の実験環境の準備が大変で、 割り込みやモータ制御の文献調査になってしまった。

PHP講習会の方は、簡単にアクセスカウンタのプログラムを説明し、 何らかのファイル操作を伴うプログラムを作成し、 レポートに「この知識を自分のテーマに使えそうか？」、 「PHPのプログラムの起動の際のユーザ権限」、 「ファイルロックなどの問題点」などを、各自選んでレポートとして記載し提出してもらう。

<?php
if ( ($fp = fopen( "count.txt" , "r" )) != FALSE ) {
   $count = fgets( $fp ) ;
   fclose( $fp ) ;
} else {
   $count = 0 ;
}
$count++ ;
print "counter = $count" ;
// このプログラムのディレクトリは、
// 誰からも書き込みできる許可を与えておく。
// 別途危険性は説明する。
if ( ($fp = fopen( "count.txt" , "w" )) != FALSE ) {
   fputs( $fp , "$count" ) ;
   fclose( $fp ) ;
}
?>

プログラムをちょっと修正したら、レポートを書きだすと思っていたけど、 予想に反して、くだらない機能追加なんだけど、全員が積極的に「修正」している。
# レポート作成に時間を取ってほしいんだけど….