Perl初心者スレ（マジレス回答）

[1 デフォルトの名無しさん 2012/10/07(日) 00:48:39.00]

どうぞー

[2 デフォルトの名無しさん 2012/10/07(日) 00:50:26.06]

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。

　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

[3 デフォルトの名無しさん 2012/10/07(日) 01:10:26.82]

>>1
おつ！
ありがとうございます

[4 デフォルトの名無しさん 2012/10/07(日) 01:46:15.82]

マジレス？
じゃあ遠慮なく

>>1
板荒らすために立てたんじゃないならさっさと削除依頼しろクズ
本スレでさえ閑古鳥が鳴いてるのに次スレ立てるから荒らし予備軍の温床になってんだよ
今日の糞スレ乱立を見ればわかるだろ

[5 デフォルトの名無しさん 2012/10/07(日) 01:55:03.21]

■関連スレ

在日韓国人プログラミング
http://toro.2ch.net/test/read.cgi/tech/1349527575/

チョッパリは謝罪しる！
http://toro.2ch.net/test/read.cgi/tech/1349527506/

おちんちんを入れてください
http://toro.2ch.net/test/read.cgi/tech/1349527445/

ほむらたんをあいしてる
http://toro.2ch.net/test/read.cgi/tech/1349518465/

我らＰＧにしてＰＧにあらず
http://toro.2ch.net/test/read.cgi/tech/1349518997/

おちんちんを入れる
http://toro.2ch.net/test/read.cgi/tech/1349518715/

[6 デフォルトの名無しさん 2012/10/07(日) 01:56:03.28]

■関連スレその２

カチャカチャＰＧの叫び
http://toro.2ch.net/test/read.cgi/tech/1349518930/

プログラマー＝キチガイ
http://toro.2ch.net/test/read.cgi/tech/1349518840/

チンパンジーの舞
http://toro.2ch.net/test/read.cgi/tech/1349516893/

今、ム板に必要なのはIDより板の設定変更
http://toro.2ch.net/test/read.cgi/tech/1349513203/

こんにちはみなさん。
http://toro.2ch.net/test/read.cgi/tech/1349503990/

[7 デフォルトの名無しさん 2012/10/07(日) 02:35:42.93]

>>1
基地害乙

[8 デフォルトの名無しさん 2012/10/07(日) 10:56:38.94]

初心者なので CGI と Perl の区別がつかないこともあると思いますが、
どうぞ質問してください。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
回答者が現れるまで待ちましょう。

[プログラミング自体の経験が無いひとはまずココを読む]
とほほのperl入門: ttp://www.tohoho-web.com/wwwperl.htm

[厳選・オンラインドキュメント]
perldoc.jp: ttp://perldoc.jp/
Perl メモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perl のページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perl の小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[9 デフォルトの名無しさん 2012/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 デフォルトの名無しさん 2012/10/07(日) 11:07:51.43]

上記の記述は１行で書くこともできます。

use encoding 'cp932'; # [Perl 日本語処理]

初心者にはこれが一番あってると思います。
徐々に経験を積んで、難しい記述にチャレンジしていきましょう。

[11 デフォルトの名無しさん 2012/10/07(日) 14:00:31.86]

そもそもプログラム初心者にPerl選択などありえない

[12 デフォルトの名無しさん 2012/10/07(日) 17:42:36.30]

初めてのPerl第6版と赤らくだ本は分量的にも内容的にもほぼ同じだしな

[13 デフォルトの名無しさん 2012/10/07(日) 19:28:07.17]

ここは本スレではありません。
こちらへどうぞ。

Perlについての質問箱 56箱目
http://toro.2ch.net/test/read.cgi/tech/1348141100/

[14 デフォルトの名無しさん 2012/10/07(日) 21:24:43.64]

↑ながらく機能していない上にCGIの質問をすると怒られます。
　Perlの質問をするとPHPの回答が返ってきます。
　それでも構わないなら、どうぞ。

[15 デフォルトの名無しさん 2012/10/07(日) 21:30:12.99]

やっぱりPHPの方がいいんですかね。

[16 デフォルトの名無しさん 2012/10/07(日) 21:56:55.72]

プログラム初心者じゃなくてPerl初心者な。PHPは卒業な。

[17 デフォルトの名無しさん 2012/10/07(日) 22:29:39.78]

■関連スレ

おちんちんランド開園
http://toro.2ch.net/test/read.cgi/tech/1349453856/

ム板を荒らしている連中の正体
http://toro.2ch.net/test/read.cgi/tech/1349260204/

おちんちんを舐めよう
http://toro.2ch.net/test/read.cgi/tech/1349454008/

ム板住民に言いたい1000のこと
http://toro.2ch.net/test/read.cgi/tech/1349192669/

低級言語のすばらしさ
http://toro.2ch.net/test/read.cgi/tech/1349496941/

　
http://toro.2ch.net/test/read.cgi/tech/1349502749/

ム板の住民構成
http://toro.2ch.net/test/read.cgi/tech/1349453824/

[18 デフォルトの名無しさん 2012/10/07(日) 23:09:44.68]

PHPでいう、in_arrayは
Perlではなんて関数ですか？

[19 デフォルトの名無しさん 2012/10/07(日) 23:44:10.62]

grepでいいんじゃないか？UNIXの文化な

[20 デフォルトの名無しさん 2012/10/07(日) 23:45:55.55]

>>19
ありがとうございます。
それからもうひとつ、
array_uniqueに相当する関数はどれでしょうか？

[21 デフォルトの名無しさん 2012/10/08(月) 00:16:19.24]

ハッシュのキーにして、最後にキーを取り出す

[22 デフォルトの名無しさん 2012/10/08(月) 00:29:08.71]

my %uniq = map { $_ => 1 } @array;
my @array_uniq = keys %uniq;

[23 デフォルトの名無しさん 2012/10/08(月) 00:37:42.34]

長いな。

[24 デフォルトの名無しさん 2012/10/08(月) 01:25:04.19]

初心者に変なもん奨めるんじゃないぞ

[25 デフォルトの名無しさん 2012/10/08(月) 01:37:02.22]

%u = map {$_,1} @a;
@u = keys %u;
#ﾁﾁﾞﾒﾃﾐﾀ

[26 デフォルトの名無しさん 2012/10/08(月) 10:06:15.64]

my @array_unique = keys %{{map {$_,1} @array}};

perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};

[27 デフォルトの名無しさん 2012/10/08(月) 11:07:41.23]

ひと頃List::Utilが湧いたのはPHPとの比較が原因か

[28 デフォルトの名無しさん 2012/10/08(月) 13:27:23.56]

>>26
なんかバッドノウハウ臭が強いな。

[29 デフォルトの名無しさん 2012/10/08(月) 14:21:09.99]

んなこたあない。

[30 デフォルトの名無しさん 2012/10/08(月) 14:24:32.17]

ここでList::Utilを持ち出し、直後からスレが荒れるのが定番。

[31 デフォルトの名無しさん 2012/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 2012/10/08(月) 14:33:07.32]

new_num()で取得した値は $numより大きいです
大きいのになぜか比較されずにスルーで何も表示されずループです

[33 デフォルトの名無しさん 2012/10/08(月) 14:39:56.54]

>あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
↑これは get_num() のことですか？new_num() のことですか？

get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？

>毎回get_numでサイトにアクセスして
↑ get_num() は while の中にありませんが、この外にループがあるんですか？

[34 デフォルトの名無しさん 2012/10/08(月) 14:43:57.35]

use strict; 落ちか

腕を上げたようだな、モダンPerl。

[35 Perl忍者 ◆M5ZWRnXOj6 2012/10/08(月) 14:44:44.21]

>>31
$|=1;
それかprint "ok\n";
改行いれとけ

[36 デフォルトの名無しさん 2012/10/08(月) 14:46:12.89]

改行入れてもループは終わらんだろｗ

[37 デフォルトの名無しさん 2012/10/08(月) 15:14:18.81]

>>31
マジレスすると
お前みたいな低脳には無理

[38 デフォルトの名無しさん 2012/10/08(月) 15:34:01.73]

荒らしの連立てしたスレを伸ばそうとしてる>>31は荒らし
消えろやゴミが

[39 デフォルトの名無しさん 2012/10/08(月) 15:43:26.69]

>>37=>>38

[40 デフォルトの名無しさん 2012/10/08(月) 16:04:33.60]

>>37=>>38=>>39

[41 デフォルトの名無しさん 2012/10/08(月) 16:16:12.31]

>>31=>>39

[42 デフォルトの名無しさん 2012/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 デフォルトの名無しさん 2012/10/08(月) 18:01:11.94]

なんで>>31みたいなカスがプログラミングなんかに手を出したのか疑問。

[44 デフォルトの名無しさん 2012/10/08(月) 18:06:38.78]

>>43
そんなのが疑問になるのは
お前が馬鹿だからじゃないだろうか。

[45 デフォルトの名無しさん 2012/10/08(月) 18:11:25.50]

>>43=>>44=>>37=>>38

[46 デフォルトの名無しさん 2012/10/08(月) 18:20:57.42]

>>43=>>44=>>37=>>38=>>31=>>45