Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
7: 2012/10/07(日)02:35 AAS
>>1
基地害乙
8: 2012/10/07(日)10:56 AAS
初心者なので CGI と Perl の区別がつかないこともあると思いますが、
どうぞ質問してください。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
回答者が現れるまで待ちましょう。
[プログラミング自体の経験が無いひとはまずココを読む]
とほほのperl入門: 外部ﾘﾝｸ[htm]:www.tohoho-web.com
[厳選・オンラインドキュメント]
perldoc.jp: 外部ﾘﾝｸ:perldoc.jp
Perl メモ: 外部ﾘﾝｸ[htm]:www.din.or.jp
Perl のページ: 外部ﾘﾝｸ:homepage1.nifty.com
Perl の小技: 外部ﾘﾝｸ[htm]:homepage3.nifty.com
9(1): 2012/10/07(日)11:01 AAS
# [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 AAS
上記の記述は１行で書くこともできます。
use encoding 'cp932'; # [Perl 日本語処理]
初心者にはこれが一番あってると思います。
徐々に経験を積んで、難しい記述にチャレンジしていきましょう。
11: 2012/10/07(日)14:00 AAS
そもそもプログラム初心者にPerl選択などありえない
12: 2012/10/07(日)17:42 AAS
初めてのPerl第6版と赤らくだ本は分量的にも内容的にもほぼ同じだしな
13: 2012/10/07(日)19:28 AAS
ここは本スレではありません。
こちらへどうぞ。
Perlについての質問箱 56箱目
2chｽﾚ:tech
14: 2012/10/07(日)21:24 AAS
↑ながらく機能していない上にCGIの質問をすると怒られます。
Perlの質問をするとPHPの回答が返ってきます。
それでも構わないなら、どうぞ。
15: 2012/10/07(日)21:30 AAS
やっぱりPHPの方がいいんですかね。
16: 2012/10/07(日)21:56 AAS
プログラム初心者じゃなくてPerl初心者な。PHPは卒業な。
17: 2012/10/07(日)22:29 AAS
■関連スレ
おちんちんランド開園
2chｽﾚ:tech
ム板を荒らしている連中の正体
2chｽﾚ:tech
おちんちんを舐めよう
2chｽﾚ:tech
ム板住民に言いたい1000のこと
2chｽﾚ:tech
低級言語のすばらしさ
2chｽﾚ:tech
2chｽﾚ:tech
ム板の住民構成
2chｽﾚ:tech
18: 2012/10/07(日)23:09 AAS
PHPでいう、in_arrayは
Perlではなんて関数ですか？
19(1): 2012/10/07(日)23:44 AAS
grepでいいんじゃないか？UNIXの文化な
20: 2012/10/07(日)23:45 AAS
>>19
ありがとうございます。
それからもうひとつ、
array_uniqueに相当する関数はどれでしょうか？
21: 2012/10/08(月)00:16 AAS
ハッシュのキーにして、最後にキーを取り出す
22: 2012/10/08(月)00:29 AAS
my %uniq = map { $_ => 1 } @array;
my @array_uniq = keys %uniq;
23: 2012/10/08(月)00:37 AAS
長いな。
24: 2012/10/08(月)01:25 AAS
初心者に変なもん奨めるんじゃないぞ
25: 2012/10/08(月)01:37 AAS
%u = map {$_,1} @a;
@u = keys %u;
#ﾁﾁﾞﾒﾃﾐﾀ
26(1): 2012/10/08(月)10:06 AAS
my @array_unique = keys %{{map {$_,1} @array}};
perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};
27: 2012/10/08(月)11:07 AAS
ひと頃List::Utilが湧いたのはPHPとの比較が原因か
28: 2012/10/08(月)13:27 AAS
>>26
なんかバッドノウハウ臭が強いな。
29: 2012/10/08(月)14:21 AAS
んなこたあない。
30: 2012/10/08(月)14:24 AAS
ここでList::Utilを持ち出し、直後からスレが荒れるのが定番。
31(9): 2012/10/08(月)14:31 AAS
あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
get_num();
my $num=200
while(1)
{
if(new_num() >=$num)
{
okと表示
}
}
okがうまく表示されません
毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください
32(1): 31 2012/10/08(月)14:33 AAS
new_num()で取得した値は $numより大きいです
大きいのになぜか比較されずにスルーで何も表示されずループです
33: 2012/10/08(月)14:39 AAS
>あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
↑これは get_num() のことですか？new_num() のことですか？
get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？
>毎回get_numでサイトにアクセスして
↑ get_num() は while の中にありませんが、この外にループがあるんですか？
34: 2012/10/08(月)14:43 AAS
use strict; 落ちか
腕を上げたようだな、モダンPerl。
35(1): Perl忍者 ◆M5ZWRnXOj6 2012/10/08(月)14:44 AAS
>>31
$|=1;
それかprint "ok\n";
改行いれとけ
36: 2012/10/08(月)14:46 AAS
改行入れてもループは終わらんだろｗ
上下前次1-新書関写板覧索設栞歴
あと 487 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.009s