演習室のノートパソコンのDHCP設定

学内のネットワークでは、学生さんのPCを学内有線LANに 勝手に接続させないために、ネットワーク接続設定を自動化 するための DHCP サーバを動かさない方針となっている。
しかし、演習室のノートパソコンは、気軽に移動先の実験室 で使ったりという運用を行うことから、ネットワーク接続に 設定を変更したりする機会も多い。
ただ、利用後にネットワークの設定を正しく元に戻して あれば問題はないが、慌てて設定を行うと単純ミスで 間違った設定になってしまうことも多かった。
そこで、演習室内のネットワークにて、MACアドレスを 利用して、登録PCにだけ対応IPアドレスを割り振るDHCPを 稼働させた。
(( /etc/dhcp/dhcpd.conf )) : host ei-n01 { hardware ethernet XX:XX:XX:XX:XX:XX ; fixed-address 10.120.11.YYY ; }
(専攻科実験)WebService::Simple
RSSフィード活用のプログラム作成のテーマだけれど、 もう少し応用も体験してほしいので、Google Search と関係づけてもらいたい。 でも、調べてみると Google Search API は、ajax からの活用を中心に するようになったので、ちょいと変換が必要で、少し面倒…
ひとまずは、WebService::Simple が簡単っぽい。 でも、Debian/testing のサーバでも、perl-module の命名習慣から推測し、 libwebservice-simple-perl といったパッケージを探すけど、見つからない。 しかたがないので、CPAN からインストール
# perl -MCPAN -e shell cpan[*]> install WebService::Simple
同じモジュール、自室サーバと学科仮想サーバに入れたけど、 仮想サーバは底力あるから速っ!!
WebService::Simpleを必要最小限動かす
まずは、Google などの検索エンジンで、AND や ORを使った、 細かい条件付き検索のテクニックを以下URLに示す。
上記のような検索キーワードでの検索を行うのであれば、 以下に示すように WebService::Simple を呼び出せば良い。
#!/usr/bin/perl use WebService::Simple ; use Data::Dumper ; use Jcode ; my $google = WebService::Simple->new( base_url => "http://ajax.googleapis.com/ajax/services/search/web", response_parser => "JSON", params => { v => "1.0", rsz=> "large" } ); my $response = $google->get( { q => Jcode->new( "ねこ site:tsaitoh.net" )->utf8 , start => 0 } ); my $xml = $response->parse_response ; # print Dumper $xml->{responseData}->{results}->[0] ; foreach my $item ( @{$xml->{responseData}->{results}} ) { print $item->{title}."\n" ; print $item->{url}."\n" ; }