ホーム » 2016 » 5月

月別アーカイブ: 5月 2016

2016年5月
日	月	火	水	木	金	土
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

2016年5月29日(第477回)

2016年5月29日

収録でお送りしました。

ラジオ放送の裏話
新入部員の自己紹介
新入部員への質問攻め
ジャズバー歴史　４１杯目「お米の経済史」　社会科　手嶋先生

担当：鷲田（ＭＣ、２ＥＩ）、木下（ＭＩＸ、３ＥＩ）、水島（２Ｃ）、上野（Ｆ１）、牧野（Ｆ１）、越後（Ｆ５）、西（教員）

2016年5月22日(第476回)

2016年5月22日

収録でお送りしました。

ジャズバー歴史　４０杯目「イメージとしての辺境、実態としての格差」　社会科　手嶋先生
新入生の自己紹介
新入生への質問攻め

担当：川﨑（３ＥＩ，ＭＣ）、増永（Ｆ１）、岡田（Ｆ２）、西村（Ｆ２）、佐々木（Ｆ４）、中村（教員）

情報処理センターのパスワードの失効対策

2016年5月20日

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

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

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

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

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

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

Google検索をPerlでやってみる

2016年5月19日

卒研でデータ検索のプログラムを作ってもらおうとしているが、 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: ###