ホーム » 2016 » 5月

月別アーカイブ: 5月 2016

2016年5月
« 4月   6月 »
1234567
891011121314
15161718192021
22232425262728
293031  

最近の投稿(電子情報)

アーカイブ

カテゴリー

2016年5月29日(第477回)

収録でお送りしました。

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

担当:鷲田(MC、2EI)、木下(MIX、3EI)、水島(2C)、上野(F1)、牧野(F1)、越後(F5)、西(教員)

2016年5月22日(第476回)

収録でお送りしました。

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

担当:川﨑(3EI,MC)、増永(F1)、岡田(F2)、西村(F2)、佐々木(F4)、中村(教員)

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

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

有効期限の警告の場合

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

 https://kauthsv.fukui-nct.ac.jp/iumus/
1605201226_596x285.png

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

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

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

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

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

Google検索をPerlでやってみる

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

2016年5月15日(第475回)

  • キャンパスウォークについて
  • ジャズバー歴史 39杯目「機会の平等か、結果の平等か」 社会科 手嶋先生
  • 新入部員について
  • 5月病について

担当:川﨑(3EI、MC)、田嶋(3C)、西島(2EI、MC)、水島(2C)

2016年5月8日(第474回)

  • ゴールデンウィークの話
  • 母の日の話
  • ジャズバー歴史 38杯目「自由貿易と公平性」 社会科 手嶋先生

担当:小藤(MC、3B)、田嶋(3C、MIX)、川﨑(3EI)、鷲田(2EI)、西(教員)

2016年5月1日(第473回)

  • 体育祭の話
  • ゴールデンウィークの話
  • ジャズバー歴史 37杯目「特許と産業革命」 社会科 手嶋先生

担当:田嶋(3C)、田中(3B)、西島(2EI)、水島(2C)、中村(教員)