toshinari.netCGI改造スレ　in ゴミ箱

Check Tweet

15 ：以下、名無しに変わりましてゴミがお送りします [sage]：2007/02/10(土) 02:03:58.48 ID:Wv5Aj1ko

名無しランダムを考えてみる
&name;
$in{'MESSAGE'} =~ s//$name/g;

sub name {
my(@random);
@random = ("発毛の途中ですがハゲです","発展の途中ですが先進国です","VIP皇帝","金ヅル","妄想の激しい事務員＠奈良県","統合失調症ですが名無しです","仲間外れ","名無し所属タレント","単細胞","コンニャク","仕切り屋","番組の途中ですがおっさんです","無限の可能性を秘めた若者");
$name = $random[int(rand($#random+1))];
}

こらじゃ駄目だった