;#
;#Twitterの自分・友人のステータスを取得する
;#

#--------------------------------------#
#モジュール
#--------------------------------------#
use strict;
use Net::Twitter;

#------------------------#
#        ログイン        #
#------------------------#
my $twit = Net::Twitter->new(
          username => "katsube"   #ユーザー名
        , password => "hogehoge"  #パスワード
      );

#------------------------#
#        情報取得        #
#------------------------#
#-- Twitterサーバから取得 --#
my $array_ref = $twit->friends_timeline();

#-- 取得した情報を表示する --#
foreach my $hash_ref ( @$array_ref ){
  #-- 発言 --#
  print '      ID：', $hash_ref->{'id'},         "\n";
  print '  文字列：', $hash_ref->{'text'},       "\n";
  print '生成時間：', $hash_ref->{'created_at'}, "\n";

  #-- 発言したユーザー情報 --#
  print '            ID：', $hash_ref->{'user'}{'id'},                "\n";
  print '名前(FullName)：', $hash_ref->{'user'}{'name'},              "\n";
  print '名前(Username)：', $hash_ref->{'user'}{'screen_name'},       "\n";
  print '     画像(URL)：', $hash_ref->{'user'}{'profile_image_url'}, "\n";
  print '           URL：', $hash_ref->{'user'}{'url'},               "\n";
  print '        説明文：', $hash_ref->{'user'}{'description'},       "\n";
  print '          場所：', $hash_ref->{'user'}{'location'},          "\n";
}

      ID：107283632
  文字列：今更ながらスチームボーイ見た。普通に面白いじゃん（ｗ
生成時間：Sat Jun 16 14:59:23 +0000 2007
            ID：6846192
名前(FullName)：Makito Katsube
名前(Username)：katsube
     画像(URL)：http://assets2.twitter.com/system/user/profile_image/6846192/normal/8641_2991091234.jpg?1181964549
           URL：
        説明文：
          場所：

      ID：107280932
  文字列：ねむいっす
生成時間：Sat Jun 16 14:56:13 +0000 2007
            ID：6853682
名前(FullName)：ねぼすけ
名前(Username)：Nebosuke
     画像(URL)：http://assets2.twitter.com/system/user/profile_image/6853682/normal/4.jpg?1182005467
           URL：http://www.ichikoro.com
        説明文：I'm sleeping not beautiful. But I wait your kiss(w
          場所：Tokyo

;#
;#Twitterの友達(friends)情報を取得する
;#

#--------------------------------------#
#モジュール
#--------------------------------------#
use strict;
use Net::Twitter;

#------------------------#
#        ログイン        #
#------------------------#
my $twit = Net::Twitter->new(
          username => "katsube"   #ユーザー名
        , password => "hogehoge"  #パスワード
      );

#------------------------#
#        情報取得        #
#------------------------#
#-- Twitterサーバから取得 --#
my $array_ref = $twit->friends();

#-- 取得した情報を表示する --#
foreach my $hash_ref ( @$array_ref ){
  #-- ステータス関連 --#
  print '      ID：', $hash_ref->{'status'}{'id'},         "\n";
  print '  文字列：', $hash_ref->{'status'}{'text'},       "\n";
  print '生成時間：', $hash_ref->{'status'}{'created_at'}, "\n";

  #-- プロフィール関連 --#
  print '            ID：', $hash_ref->{'id'},                "\n";
  print '名前(FullName)：', $hash_ref->{'name'},              "\n";
  print '名前(Username)：', $hash_ref->{'screen_name'},       "\n";
  print '     画像(URL)：', $hash_ref->{'profile_image_url'}, "\n";
  print '           URL：', $hash_ref->{'url'},               "\n";
  print '        説明文：', $hash_ref->{'description'},       "\n";
  print '          場所：', $hash_ref->{'location'},          "\n";
}

      ID：107280932
  文字列：ねむいっす
生成時間：Sat Jun 16 14:56:13 +0000 2007

            ID：6853682
名前(FullName)：ねぼすけ
名前(Username)：Nebosuke
     画像(URL)：http://assets2.twitter.com/system/user/profile_image/6853682/normal/4.jpg?1182005467
           URL：http://www.ichikoro.com
        説明文：I'm sleeping not beautiful. But I wait your kiss(w
          場所：Tokyo

;#
;#PerlからTwitterで発言する
;#

#--------------------------------------#
#モジュール
#--------------------------------------#
use strict;
use Net::Twitter;
use Jcode;

#------------------------#
#        ログイン        #
#------------------------#
my $twit = Net::Twitter->new(
          username=>"katsube"   #ユーザー名
        , password=>"hogehoge"  #パスワード
      );

#------------------------#
#         発 言          #
#------------------------#
#-- 発言するセリフの準備 --#
my $text = 'ふがふが';

#-- UTF8へ --#
Jcode::convert(\$text, 'utf8');

#-- Twitterへ送信 --#
my $result = $twit->update($text);

#!/usr/bin/perl

;#
;#イベイシブ攻撃用プログラム(CGI)
;#

#--------------------------------------#
#モジュール
#--------------------------------------#
use strict;

#--------------------------------------#
#定数
#--------------------------------------#
#IPアドレス保存用ファイル
use constant IP_DAT => 'ip.txt';

#検索エンジンロボット用データファイル
use constant SEO_DAT => 'seo.txt';

#--------------------------------------#
#             メイン処理               #
#--------------------------------------#
package main;
{
  my $db_ip  = '';
  my $db_seo = '';
  my $ip     = $ENV{'REMOTE_ADDR'};

  #------------------------#
  #        初期処理        #
  #------------------------#
  #-- 過去にアクセスのあったIPアドレスのリストを取得 --#
  $db_ip = getDataFile(IP_DAT);

  #-- 検索エンジンロボットのIPアドレスのリストを取得 --#
  $db_seo = getDataFile(SEO_DAT);


  #------------------------#
  #    正常なページ表示    #
  #------------------------#
  if( exists( $db_ip->{$ip} )           #このifが実行されれば
        or  exists( $db_seo->{$ip} ) ){ #リピーターと判定
    
    #-- リピーター or 検索エンジン --#
    $|=1;
    print "Content-type: text/html\n\n";
    print getHTML_Normal();
  }
  #------------------------#
  #    違法なページ表示    #
  #------------------------#
  else{
    #-- 初めての人には違法ページ --#
    $|=1;
    print "Content-type: text/html\n\n";
    print getHTML_Illegal();

    #-- IPアドレスのリストに追加 --#
    putDataFile(IP_DAT, $ip);
  }

  exit;
}


#-------------------------------------
#データファイルに情報保存
#-------------------------------------
sub putDataFile {
  my $file = shift || return(undef);
  my $ip   = shift;

  open(DAT, ">>$file") or die($!);
  flock(DAT, 2);
  print DAT "$ip\n";
  close(DAT);
}

#-------------------------------------
#データファイルから情報取得
#-------------------------------------
sub getDataFile {
  my $file = shift || return(undef);
  my %buff = ();

  open(DAT, $file) or die($!);
  while(<DAT>){
    chomp;
    $buff{$_} = 1;
  }
  close(DAT);

  return(\%buff);
}

#-------------------------------------
#健全なサイト用HTML
#-------------------------------------
sub getHTML_Normal{
  return(<<'END_OF_HTML');
<html>
<head><title>健全なサイトのHTMLを書く</title></head>
<body>
  <h1>ほげほげ</h1>
</body>
</html>
END_OF_HTML
}

#-------------------------------------
#違法なサイト用HTML
#-------------------------------------
sub getHTML_Illegal{
  return(<<'END_OF_HTML');
<html>
<head><title>違法なサイトのHTMLを書く</title></head>
<body>
  <h1>ふがふが</h1>
</body>
</html>
END_OF_HTML
}

#!/usr/bin/perl

;#
;#配列の結合
;#

#----------------------------------#
#配列の準備
#----------------------------------#
my @array_a = (1..5);     #1～5の値を入れる
my @array_b = (a..e);     #a～eの値を入れる
my @array_c = (A..E);     #A～Eの値を入れる

#----------------------------------#
#合体
#----------------------------------#
#-- 前に結合 --#
unshift(@array_a, @array_b);    #a,b,c,d,e,1,2,3,4,5

#-- 後ろ結合 --#
push(@array_a, @array_c);       #a,b,c,d,e,1,2,3,4,5,A,B,C,D,E

#----------------------------------#
#表示
#----------------------------------#
print "$_\n" foreach(@array_a);

#-- 準備 --#
@array_a = (1..5);   #1～5の値を入れる
@array_b = (a..e);   #a～eの値を入れる

#-- 合体 --#
@array = (@array_a, @array_b);

#!/usr/bin/perl

;#
;#配列のコピー
;#

use strict;

#----------------------------------#
#配列の準備
#----------------------------------#
my @array_from = (1..10);       #1～10の値を入れる
my @array_to   = ();            #空の配列

#----------------------------------#
#コピー
#----------------------------------#
#-- fromの内容をtoにコピー --#
@array_to = @array_from;

#----------------------------------#
#表示
#----------------------------------#
print "$_\n" foreach(@array_to);

#!/usr/bin/perl

;#
;#spliceの練習
;#

#-----------------------------#
#削除
#-----------------------------#
@array = (1..5);
splice(@array, 3);      #$array[3] ～ $array[$#array]を削除

  #○実行結果
  #  @array => (1,2);


#-----------------------------#
#削除(指定箇所)
#-----------------------------#
@array = (1..5);
splice(@array, 1, 3);   #$array[1] ～ $array[3]を削除

  #○実行結果
  #  @array => (1,5);


#-----------------------------#
#置換(削除あり)
#-----------------------------#
@array = (1..5);
@list  = (a..c);
splice(@array, 1, 3, @list);   #$array[1] ～ $array[3]を削除し、
                                #$array[1]の部分から@listを入れる

  #○実行結果
  #  @array => (1,a,b,c,5);


#-----------------------------#
#置換(削除なし)
#-----------------------------#
@array = (1..5);
@list  = (a..c);
splice(@array, 1, 0, @list); #$array[1]の部分から@listを入れる

  #○実行結果
  #  @array => (1,a,b,c,2,3,4,5);

push(@a,$x,$y)	        splice(@a,$#a+1,0,$x,$y)
pop(@a)                splice(@a,-1)
shift(@a)              splice(@a,0,1)
unshift(@a,$x,$y)      splice(@a,0,0,$x,$y)
$a[$x] = $y            splice(@a,$x,1,$y);

;#
;#配列へ値を追加する
;#

use strict;

#--------------------------#
#       配列を初期化       #
#--------------------------#
my @array = (1..5);

#--------------------------#
#       値を追加する       #
#--------------------------#
#-- 先頭に追加する --#
unshift(@array, 100);

#-- 末尾に追加する --#
push(@array, 500);


#--------------------------#
#      実行後の配列は？    #
#--------------------------#
print "$_\n" foreach(@array);

;#
;#配列から値を取り出す。
;#

use strict;

#--------------------------#
#       配列を初期化       #
#--------------------------#
my @array = (1..5);

#--------------------------#
#       値を取り出す       #
#--------------------------#
#-- 先頭から取り出す --#
print shift(@array), "\n";

#-- 末尾から取り出す --#
print pop(@array), "\n\n";


#--------------------------#
#      実行後の配列は？    #
#--------------------------#
print "$_\n" foreach(@array);

;#
;#配列を初期化する
;#

use strict;

#--------------------------#
#       まとめて初期化     #
#--------------------------#
my @array = (1..5);

#--------------------------#
#       個別に初期化       #
#--------------------------#
$array[0] = 1;
$array[1] = 2;
$array[2] = 3;
$array[3] = 4;
$array[4] = 5;


#--------------------------#
#          無名配列        #
#--------------------------#
my $array = [1..5];

#-- こんな感じでアクセスする --#
foreach( @$array ){
	print $_, "\n";
}

print $array->[0], "\n";
print $array->[1], "\n";
print $array->[2], "\n";
print $array->[3], "\n";
print $array->[4], "\n";