てｓｔ - hkkkkkkkkk @ ウィキ

このページは管理人のメモに使われています。
めっちゃてぬきですがよろしく
見た人 -

もなちゃと入室BOTのメモ
use IO::SOCKET;
socket(A,PF_INET,SOCK_STREAM,0);
connect(A,pack_sockaddr_in(9095,inet_aton('monachat.net')));
autoflush A 1;
print A"MojaChat\0"."<ENTER room=\"/MONA8094/1\"/>\0";
for(;;){}

がんばって短く数字当てゲームを作ってみた
$t=int rand 1000;
w:print"入力=>";$_=<>;
if(/^$t$/){print"当たりです=>$t\n";sleep 5;exit}
printf"入力の方が%sです。\n",$_>$t?"大きい":"小さい";
goto w;

Perlで色々便利なこと

print"Hello"x10でfor(1..10){print"Hello"}と同じ

0.5秒待つ
select undef,undef,undef,0.5;

qを使う
$hoge = q/H'K'K/;シングルクォートと同じ意味
$hoge = qq/H"K"K/;ダブルクォートと同じ意味
$hoge = qw/a b c/;('a','b','c')と同じ意味

__END__で止める
EX.
print"hoge";
__END__
ここは実行されない

プログラムを終わらせない
print"hoge";<>;

変数の展開をミスなく実行する
$hoge = "HKK";
print"${hoge}HKK${hoge}_HK";{}で囲む

正規表現の囲みを変える
$hoge=~/\d+/;と$hoge=~m|\d+|;は同じ意味

サブルーチンについて
sub hoge{print$_[0]}
hoge'HKK';
前で宣言されていれば()は必要ない
hoge('HKK');
sub hoge{print$_[0]}
後ろにある場合は必要

少し省略できるやつ
int(rand(100))などの括弧はint rand 100と省略可能