12/10/07 00:48:39.00
どうぞー
2:デフォルトの名無しさん
12/10/07 00:50:26.06
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
京都大学霊長類研究所
3:デフォルトの名無しさん
12/10/07 01:10:26.82
>>1
おつ！
ありがとうございます
4:デフォルトの名無しさん
12/10/07 01:46:15.82
マジレス？
じゃあ遠慮なく
>>1
板荒らすために立てたんじゃないならさっさと削除依頼しろクズ
本スレでさえ閑古鳥が鳴いてるのに次スレ立てるから荒らし予備軍の温床になってんだよ
今日の糞スレ乱立を見ればわかるだろ
5:デフォルトの名無しさん
12/10/07 01:55:03.21
■関連スレ
在日韓国人プログラミング
ｽﾚﾘﾝｸ(tech板)
チョッパリは謝罪しる！
ｽﾚﾘﾝｸ(tech板)
おちんちんを入れてください
ｽﾚﾘﾝｸ(tech板)
ほむらたんをあいしてる
ｽﾚﾘﾝｸ(tech板)
我らＰＧにしてＰＧにあらず
ｽﾚﾘﾝｸ(tech板)
おちんちんを入れる
ｽﾚﾘﾝｸ(tech板)
6:デフォルトの名無しさん
12/10/07 01:56:03.28
■関連スレその２
カチャカチャＰＧの叫び
ｽﾚﾘﾝｸ(tech板)
プログラマー＝キチガイ
ｽﾚﾘﾝｸ(tech板)
チンパンジーの舞
ｽﾚﾘﾝｸ(tech板)
今、ム板に必要なのはIDより板の設定変更
ｽﾚﾘﾝｸ(tech板)
こんにちはみなさん。
ｽﾚﾘﾝｸ(tech板)
7:デフォルトの名無しさん
12/10/07 02:35:42.93
>>1
基地害乙
8:デフォルトの名無しさん
12/10/07 10:56:38.94
初心者なので CGI と Perl の区別がつかないこともあると思いますが、
どうぞ質問してください。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
回答者が現れるまで待ちましょう。
[プログラミング自体の経験が無いひとはまずココを読む]
とほほのperl入門: URLﾘﾝｸ(www.tohoho-web.com)
[厳選・オンラインドキュメント]
perldoc.jp: URLﾘﾝｸ(perldoc.jp)
Perl メモ: URLﾘﾝｸ(www.din.or.jp)
Perl のページ: URLﾘﾝｸ(homepage1.nifty.com)
Perl の小技: URLﾘﾝｸ(homepage3.nifty.com)
9:デフォルトの名無しさん
12/10/07 11:01:39.61
# [Perl 日本語処理の基礎の基礎]
# まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。
10:デフォルトの名無しさん
12/10/07 11:07:51.43
上記の記述は１行で書くこともできます。
use encoding 'cp932'; # [Perl 日本語処理]
初心者にはこれが一番あってると思います。
徐々に経験を積んで、難しい記述にチャレンジしていきましょう。
11:デフォルトの名無しさん
12/10/07 14:00:31.86
そもそもプログラム初心者にPerl選択などありえない
12:デフォルトの名無しさん
12/10/07 17:42:36.30
初めてのPerl第6版と赤らくだ本は分量的にも内容的にもほぼ同じだしな
13:デフォルトの名無しさん
12/10/07 19:28:07.17
ここは本スレではありません。
こちらへどうぞ。
Perlについての質問箱 56箱目
ｽﾚﾘﾝｸ(tech板)
14:デフォルトの名無しさん
12/10/07 21:24:43.64
↑ながらく機能していない上にCGIの質問をすると怒られます。
Perlの質問をするとPHPの回答が返ってきます。
それでも構わないなら、どうぞ。
15:デフォルトの名無しさん
12/10/07 21:30:12.99
やっぱりPHPの方がいいんですかね。
16:デフォルトの名無しさん
12/10/07 21:56:55.72
プログラム初心者じゃなくてPerl初心者な。PHPは卒業な。
17:デフォルトの名無しさん
12/10/07 22:29:39.78
■関連スレ
おちんちんランド開園
ｽﾚﾘﾝｸ(tech板)
ム板を荒らしている連中の正体
ｽﾚﾘﾝｸ(tech板)
おちんちんを舐めよう
ｽﾚﾘﾝｸ(tech板)
ム板住民に言いたい1000のこと
ｽﾚﾘﾝｸ(tech板)
低級言語のすばらしさ
ｽﾚﾘﾝｸ(tech板)
ｽﾚﾘﾝｸ(tech板)
ム板の住民構成
ｽﾚﾘﾝｸ(tech板)
18:デフォルトの名無しさん
12/10/07 23:09:44.68
PHPでいう、in_arrayは
Perlではなんて関数ですか？
19:デフォルトの名無しさん
12/10/07 23:44:10.62
grepでいいんじゃないか？UNIXの文化な
20:デフォルトの名無しさん
12/10/07 23:45:55.55
>>19
ありがとうございます。
それからもうひとつ、
array_uniqueに相当する関数はどれでしょうか？
21:デフォルトの名無しさん
12/10/08 00:16:19.24
ハッシュのキーにして、最後にキーを取り出す
22:デフォルトの名無しさん
12/10/08 00:29:08.71
my %uniq = map { $_ => 1 } @array;
my @array_uniq = keys %uniq;
23:デフォルトの名無しさん
12/10/08 00:37:42.34
長いな。
24:デフォルトの名無しさん
12/10/08 01:25:04.19
初心者に変なもん奨めるんじゃないぞ
25:デフォルトの名無しさん
12/10/08 01:37:02.22
%u = map {$_,1} @a;
@u = keys %u;
#ﾁﾁﾞﾒﾃﾐﾀ
26:デフォルトの名無しさん
12/10/08 10:06:15.64
my @array_unique = keys %{{map {$_,1} @array}};
perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};
27:デフォルトの名無しさん
12/10/08 11:07:41.23
ひと頃List::Utilが湧いたのはPHPとの比較が原因か
28:デフォルトの名無しさん
12/10/08 13:27:23.56
>>26
なんかバッドノウハウ臭が強いな。
29:デフォルトの名無しさん
12/10/08 14:21:09.99
んなこたあない。
30:デフォルトの名無しさん
12/10/08 14:24:32.17
ここでList::Utilを持ち出し、直後からスレが荒れるのが定番。
31:デフォルトの名無しさん
12/10/08 14:31:44.97
あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
get_num();
my $num=200
while(1)
{
if(new_num() >=$num)
{
okと表示
}
}
okがうまく表示されません
毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください
32:31
12/10/08 14:33:07.32
new_num()で取得した値は $numより大きいです
大きいのになぜか比較されずにスルーで何も表示されずループです
33:デフォルトの名無しさん
12/10/08 14:39:56.54
>あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
↑これは get_num() のことですか？new_num() のことですか？
get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？
>毎回get_numでサイトにアクセスして
↑ get_num() は while の中にありませんが、この外にループがあるんですか？
34:デフォルトの名無しさん
12/10/08 14:43:57.35
use strict; 落ちか
腕を上げたようだな、モダンPerl。
35:Perl忍者 ◆M5ZWRnXOj6
12/10/08 14:44:44.21
>>31
$|=1;
それかprint "ok\n";
改行いれとけ
36:デフォルトの名無しさん
12/10/08 14:46:12.89
改行入れてもループは終わらんだろｗ
37:デフォルトの名無しさん
12/10/08 15:14:18.81
>>31
マジレスすると
お前みたいな低脳には無理
38:デフォルトの名無しさん
12/10/08 15:34:01.73
荒らしの連立てしたスレを伸ばそうとしてる>>31は荒らし
消えろやゴミが
39:デフォルトの名無しさん
12/10/08 15:43:26.69
>>37=>>38
40:デフォルトの名無しさん
12/10/08 16:04:33.60
>>37=>>38=>>39
41:デフォルトの名無しさん
12/10/08 16:16:12.31
>>31=>>39
42:デフォルトの名無しさん
12/10/08 17:19:35.10
$|=1;
my $num=200; ←ｾﾐｺﾛﾝ忘れるな
while(1){
if(get_num() >= $num){ ← get_num()、な
print "ok\n"; ← うるせぇやつがいるから改行、な
last; ← これなけりゃ無限ループだわな
}
sleep(60); ← Web にアクセスするなら忘れるんじゃねぇぞ
}
43:デフォルトの名無しさん
12/10/08 18:01:11.94
なんで>>31みたいなカスがプログラミングなんかに手を出したのか疑問。
44:デフォルトの名無しさん
12/10/08 18:06:38.78
>>43
そんなのが疑問になるのは
お前が馬鹿だからじゃないだろうか。
45:デフォルトの名無しさん
12/10/08 18:11:25.50
>>43=>>44=>>37=>>38
46:デフォルトの名無しさん
12/10/08 18:20:57.42
>>43=>>44=>>37=>>38=>>31=>>45
47:デフォルトの名無しさん
12/10/08 18:46:17.85
文字列 $str の末尾の「.cpp」を「.o」に置換し新たな文字列 $new_str を生成したいのですが
s/// だと元文字列を書き換えてしまいます
コピーしてから置換でも良いのですが、書き換えずに置換する関数や演算子はないでしょうか？
48:デフォルトの名無しさん
12/10/08 19:10:50.54
>>47
寝言は寝て言えキチガイ
49:デフォルトの名無しさん
12/10/08 19:13:40.44
>>44=>>48
50:デフォルトの名無しさん
12/10/08 19:24:24.71
>>47のような害虫はム板から駆除しなければならない。
51:デフォルトの名無しさん
12/10/08 19:35:47.99
>>47
s/// に /r を指定するとよろし
52:デフォルトの名無しさん
12/10/08 19:47:46.05
>>47
演算子一覧くらい検索すればいくらでも出てくるだろ
それすら検索できないって本物の精神異常？
53:デフォルトの名無しさん
12/10/08 19:56:47.23
>>47はプログラミングに向いてない。
54:デフォルトの名無しさん
12/10/08 20:15:10.88
煽り叩きに加えて今度はイコール厨まで参戦ですか
ほんとスレの空気を悪くすることに関しては息ぴったりですねお前ら
55:デフォルトの名無しさん
12/10/08 20:23:58.30
このスレは>>31>>47叩き基地害イコール厨等まともじゃない奴らの隔離スレだからな。
56:デフォルトの名無しさん
12/10/08 20:35:31.31
>>51
ありがとうございました
手元の資料に無かったので調べたら割と最近の仕様みたいですね
57:デフォルトの名無しさん
12/10/08 20:43:06.24
>>56
いいから二度と来るなよ
58:デフォルトの名無しさん
12/10/08 20:48:41.51
>>57
さっさと初心者を卒業しろよってことかな？
出所者を見送る看守のようだ。
59:デフォルトの名無しさん
12/10/08 20:49:06.45
>>57
来ちゃいました
ﾃﾍﾍﾟﾛ♪
60:デフォルトの名無しさん
12/10/08 22:37:14.94
>>47はマジでクズ
2chを代理検索か何かと勘違いしてないか？
61:デフォルトの名無しさん
12/10/08 22:47:29.05
質問してこういう扱いうけて荒らしてるのかこの粘着くんはｗ
62:31
12/10/08 23:31:22.78
>>35
うまく出力されました
$|=1;とは何ですか？
改行の理由も教えてください
>>42
$|=1;をつける理由は？
lastだとループが終わってしまうので
63:デフォルトの名無しさん
12/10/08 23:37:12.37
>>32
>大きいのになぜか比較されずにスルーで何も表示されずループです
ループして困っているのか、ループしたいのか質問をはっきりしろ
64:デフォルトの名無しさん
12/10/08 23:46:28.06
>書き換えずに置換する
何をしたいのか
65:デフォルトの名無しさん
12/10/08 23:58:56.98
こういう糞みたいな質問してる連中がム板のレベルを下げてる
66:デフォルトの名無しさん
12/10/09 01:13:51.30
馬鹿の>>63-64が釣れたｗｗｗ
マジ釣り掘りｗｗｗｗｗ
67:デフォルトの名無しさん
12/10/09 03:50:12.06
>>61
荒らしは質問すらしてないよ。
質問者になりすましての煽りは入れてるが。
68:デフォルトの名無しさん
12/10/09 11:14:53.75
何で分かるの？
あ、ご本人様ですか。
荒らしもやりながらこんな場末の糞スレチェックまでご苦労様です。
69:デフォルトの名無しさん
12/10/09 13:42:01.38
プロキシのレスポンスタイム計るにはどうするの？
教えてくれ
6.5s
5,8sとかあるだろ？あれ
70:デフォルトの名無しさん
12/10/09 14:26:59.97
それはPerl限定の話でもなさそうだし、流石にWebProg板で聞いてくれ
71:デフォルトの名無しさん
12/10/09 16:16:14.44
PHPでいうマジッククォートみたいなのない？
sjisで送信するとき表とかがエスケープされずにエラーでちゃうんだけど
自動でエスケープしてくれる関数みたいなの無いの？
教えてください
72:デフォルトの名無しさん
12/10/09 16:57:01.82
自分で調べられないお前にはPHPがお似合いだ
73:デフォルトの名無しさん
12/10/09 17:05:55.35
>>71
ふたつのことを混同してしまってると思われる
「Perl XSS対策」「Perl Unicode」でそれぞれググれ
そして前者(XSS)にに関しては今後はWebProgへどうぞ
74:デフォルトの名無しさん
12/10/09 17:13:03.31
>>71=基地害
75:Perl忍者 ◆M5ZWRnXOj6
12/10/09 17:33:58.22
>>71
Sjisいれろ
URLﾘﾝｸ(search.cpan.org)
76:デフォルトの名無しさん
12/10/09 17:49:33.02
>>72-74
追い出すなって。
ここは>>71みたいな社会のゴミ用隔離スレなんだからさ。
77:デフォルトの名無しさん
12/10/09 20:44:10.43
PHPのマジッククォートとSjisっておんなじものなのか？
微妙にやること違うと思うぞｗ
78:デフォルトの名無しさん
12/10/09 22:09:35.85
初心者でUnicodeはきついかもな
ごちゃごちゃしてて何がなんだかさっぱり分かんない
初心者にはshiftjisがいい
79:デフォルトの名無しさん
12/10/10 00:13:36.93
Perlスレの頭にUnicode絡みのテンプレなかったっけ