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

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

どうぞー

**デフォルトの名無しさん** · 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

**デフォルトの名無しさん** · 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;

#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。

**デフォルトの名無しさん** · 2012/10/07(日) 11:07:51.43

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

**デフォルトの名無しさん** · 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/

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

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

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

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

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

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

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

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

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

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

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

長いな。

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

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

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

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

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

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

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

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

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

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

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

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

んなこたあない。

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

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

**デフォルトの名無しさん** · 2012/10/08(月) 14:31:44.97

あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
get_num();

my $num=200
while(1)
{
if(new_num() >=$num)
{
okと表示
}
}

okがうまく表示されません
毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください

31 · 2012/10/08(月) 14:33:07.32

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

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

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

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

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

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

use strict; 落ちか

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

**Perl忍者** ◆M5ZWRnXOj6 · 2012/10/08(月) 14:44:44.21

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

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

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

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

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

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

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

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

>>37=>>38

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

>>37=>>38=>>39

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

>>31=>>39

**デフォルトの名無しさん** · 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 にアクセスするなら忘れるんじゃねぇぞ
}

**デフォルトの名無しさん** · 2012/10/08(月) 18:01:11.94

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

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

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

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

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

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

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

**デフォルトの名無しさん** · 2012/10/08(月) 18:46:17.85

文字列 $str の末尾の「.cpp」を「.o」に置換し新たな文字列 $new_str を生成したいのですが
s/// だと元文字列を書き換えてしまいます
コピーしてから置換でも良いのですが、書き換えずに置換する関数や演算子はないでしょうか？

**デフォルトの名無しさん** · 2012/10/08(月) 19:10:50.54

>>47
寝言は寝て言えキチガイ

**デフォルトの名無しさん** · 2012/10/08(月) 19:13:40.44

>>44=>>48

**デフォルトの名無しさん** · 2012/10/08(月) 19:24:24.71

>>47のような害虫はム板から駆除しなければならない。

**デフォルトの名無しさん** · 2012/10/08(月) 19:35:47.99

>>47
s/// に /r を指定するとよろし

**デフォルトの名無しさん** · 2012/10/08(月) 19:47:46.05

>>47
演算子一覧くらい検索すればいくらでも出てくるだろ

それすら検索できないって本物の精神異常？

**デフォルトの名無しさん** · 2012/10/08(月) 19:56:47.23

>>47はプログラミングに向いてない。

**デフォルトの名無しさん** · 2012/10/08(月) 20:15:10.88

煽り叩きに加えて今度はイコール厨まで参戦ですか
ほんとスレの空気を悪くすることに関しては息ぴったりですねお前ら

**デフォルトの名無しさん** · 2012/10/08(月) 20:23:58.30

このスレは>>31 >>47叩き基地害イコール厨等まともじゃない奴らの隔離スレだからな。

**デフォルトの名無しさん** · 2012/10/08(月) 20:35:31.31

>>51
ありがとうございました
手元の資料に無かったので調べたら割と最近の仕様みたいですね

**デフォルトの名無しさん** · 2012/10/08(月) 20:43:06.24

>>56
いいから二度と来るなよ

**デフォルトの名無しさん** · 2012/10/08(月) 20:48:41.51

>>57
さっさと初心者を卒業しろよってことかな？
出所者を見送る看守のようだ。

**デフォルトの名無しさん** · 2012/10/08(月) 20:49:06.45

>>57
来ちゃいました
ﾃﾍﾍﾟﾛ♪

**デフォルトの名無しさん** · 2012/10/08(月) 22:37:14.94

>>47はマジでクズ
2chを代理検索か何かと勘違いしてないか？

**デフォルトの名無しさん** · 2012/10/08(月) 22:47:29.05

質問してこういう扱いうけて荒らしてるのかこの粘着くんはｗ

31 · 2012/10/08(月) 23:31:22.78

>>35
うまく出力されました
$|=1;とは何ですか？
改行の理由も教えてください

>>42
$|=1;をつける理由は？
lastだとループが終わってしまうので

**デフォルトの名無しさん** · 2012/10/08(月) 23:37:12.37

>>32
>大きいのになぜか比較されずにスルーで何も表示されずループです

ループして困っているのか、ループしたいのか質問をはっきりしろ

**デフォルトの名無しさん** · 2012/10/08(月) 23:46:28.06

>書き換えずに置換する

何をしたいのか

**デフォルトの名無しさん** · 2012/10/08(月) 23:58:56.98

こういう糞みたいな質問してる連中がム板のレベルを下げてる

**デフォルトの名無しさん** · 2012/10/09(火) 01:13:51.30

馬鹿の>>63-64が釣れたｗｗｗ
マジ釣り掘りｗｗｗｗｗ

**デフォルトの名無しさん** · 2012/10/09(火) 03:50:12.06

>>61
荒らしは質問すらしてないよ。
質問者になりすましての煽りは入れてるが。

**デフォルトの名無しさん** · 2012/10/09(火) 11:14:53.75

何で分かるの？
あ、ご本人様ですか。
荒らしもやりながらこんな場末の糞スレチェックまでご苦労様です。

**デフォルトの名無しさん** · 2012/10/09(火) 13:42:01.38

プロキシのレスポンスタイム計るにはどうするの？
教えてくれ
6.5s
5,8sとかあるだろ？あれ

**デフォルトの名無しさん** · 2012/10/09(火) 14:26:59.97

それはPerl限定の話でもなさそうだし、流石にWebProg板で聞いてくれ

**デフォルトの名無しさん** · 2012/10/09(火) 16:16:14.44

PHPでいうマジッククォートみたいなのない？
sjisで送信するとき表とかがエスケープされずにエラーでちゃうんだけど
自動でエスケープしてくれる関数みたいなの無いの？
教えてください

**デフォルトの名無しさん** · 2012/10/09(火) 16:57:01.82

自分で調べられないお前にはPHPがお似合いだ

**デフォルトの名無しさん** · 2012/10/09(火) 17:05:55.35

>>71
ふたつのことを混同してしまってると思われる
「Perl XSS対策」「Perl Unicode」でそれぞれググれ
そして前者(XSS)にに関しては今後はWebProgへどうぞ

**デフォルトの名無しさん** · 2012/10/09(火) 17:13:03.31

>>71=基地害

**Perl忍者** ◆M5ZWRnXOj6 · 2012/10/09(火) 17:33:58.22

>>71
Sjisいれろ
http://search.cpan.org/~ina/Char-Sjis/

**デフォルトの名無しさん** · 2012/10/09(火) 17:49:33.02

>>72-74
追い出すなって。
ここは>>71みたいな社会のゴミ用隔離スレなんだからさ。

**デフォルトの名無しさん** · 2012/10/09(火) 20:44:10.43

PHPのマジッククォートとSjisっておんなじものなのか？
微妙にやること違うと思うぞｗ

**デフォルトの名無しさん** · 2012/10/09(火) 22:09:35.85

初心者でUnicodeはきついかもな
ごちゃごちゃしてて何がなんだかさっぱり分かんない
初心者にはshiftjisがいい

**デフォルトの名無しさん** · 2012/10/10(水) 00:13:36.93

Perlスレの頭にUnicode絡みのテンプレなかったっけ

**デフォルトの名無しさん** · 2012/10/12(金) 00:36:02.70

require 'jcode.pl';

だっけ？

**デフォルトの名無しさん** · 2012/10/12(金) 01:02:04.55

>>80
確信ないなら書くなゴミ
さっさと失せろキメェんだよ

**デフォルトの名無しさん** · 2012/10/12(金) 01:03:01.58

>>9 「use Encode; 」

**デフォルトの名無しさん** · 2012/10/12(金) 01:38:15.26

それ言うなら use utf8; だろ
EncodeはUnicode以外だって扱えるんだから

でも牙が伸び過ぎると自滅してしまうこともある
ttp://blog.nakatanigo.net/archives/50474313.html

**デフォルトの名無しさん** · 2012/10/12(金) 02:28:37.13

>>80は頭がおかしい。

**デフォルトの名無しさん** · 2012/10/12(金) 02:37:31.52

>>82
ありがとうそこにあったのか

**デフォルトの名無しさん** · 2012/10/12(金) 03:28:56.95

>>80
もう来なくてもいいよ

**デフォルトの名無しさん** · 2012/10/12(金) 12:02:40.96

>>80=ゴミクズ

**デフォルトの名無しさん** · 2012/10/12(金) 15:53:07.74

いつもの基地外は本スレに行けよ

**デフォルトの名無しさん** · 2012/10/12(金) 18:49:11.85

↑はい、いつものキチガイ入りましたー

**デフォルトの名無しさん** · 2012/10/12(金) 21:16:15.75

88はいつもただの質問者を荒し扱いしたりしてる奴だろう、放置よろ。

**デフォルトの名無しさん** · 2012/10/28(日) 18:01:11.94

>>80
それです。ｻﾝｸｽﾀﾞｱｲﾅ

**デフォルトの名無しさん** · 2012/10/28(日) 20:13:19.68

初心者の彼女がjacode.pl使ってて時代の変化を感じた

**デフォルトの名無しさん** · 2012/10/31(水) 00:29:58.66

いつまでもEncodeでエンコしててもしょうがないしな

**デフォルトの名無しさん** · 2012/11/06(火) 01:38:15.62

ttp://kotobank.jp/word/えんこ

**デフォルトの名無しさん** · 2012/11/12(月) 19:41:16.44

ActivePerl5.16.1使用中です。
---
print DAT @dat;
---
このようにして配列を書き出そうとしたのですが
なぜかテキストファイルに繁栄されません。
何か情報をご存知の方いらっしゃいませんか？

**デフォルトの名無しさん** · 2012/11/13(火) 05:02:27.13

ファイルハンドルであろうDATのopen文はいかに

**デフォルトの名無しさん** · 2012/11/13(火) 22:13:06.51

以下の一行スクリプトに文字を食わせて「XX月◯◯日のお知らせ！」の次の行から「-----」の前までを取り出そうとしています。
最期のs/^　+//は各行の先頭の全角の空白を取ろうとしたのですが、これが働きません。が、抜き取り自体は成功していました。
逆に、use utf8とすると/正規表現/が全くひっかかりらず何もprintされません。

perl -e '
#use utf8;
while (<>)
{
if (/\d+月\d+日のお知らせ！/) { last; };
#skip the line;
};
while (<>)
{
if (/-----/) { last; };

s/^\s+//;
s/^　+//;
print;
}'

**デフォルトの名無しさん** · 2012/11/13(火) 22:28:35.29

perl -e '
use utf8;
while (<>)
{
if (/\d+月\d+日のお知らせ！/) { last; };
#skip the line;
};
while (<>)
{
if (/-----/) { last; };

s/^\s+//;
{
no utf8;
s/^(?:　)+//;
}
print;
}'

**デフォルトの名無しさん** · 2012/11/16(金) 00:37:30.32

どうもです。
状況なのですが、use utf8すると全くおかしいです。/\d+月… /のマッチが全く成功しないので、
目的通りの結果が出ません。uset utf8しないとうまく動きます。
実はMacのautomatorから呼び出されていてGet text from Webpage actionでとってきたテキストが
このperlに渡されているのですが…UTF-8の文字が来ているはずなのですが（指定のWebページのcharsetはUTF8）。

それはさておき
( ) / (?: )
の指摘ありがとうございました。上の行のs/^\s+//;と合わせて
s/^(?:\h|　|\xc2\xa0)+//;
に書き換えました。
non breakable spaceも行頭に混じっていたので、そのUTF8表現のU+c2a0も追加。
これできれいに行頭の「空白」がとれて左詰めになりました。

とりあえずuse utf8;だけ殺して一見うまく動いているのでそれで利用を開始しました。
個人の趣味の自動化目的なのでそんな感じでまずはゴーしてしまいます。

**デフォルトの名無しさん** · 2012/11/16(金) 00:44:04.42

utf8プラグマは作ったひとは使うのが簡単だと考えているんだろうけど、
使うひとにとっては非常に難しい。こういった処理モデルを理解しろと
いうほうに無理がある。結論としてはutf8プラグマは使わないほうが
よい。

**デフォルトの名無しさん** · 2012/11/16(金) 14:34:35.11

もう省略の美学とか無くていいから（涙）
ぜんぜん意味がわからない
たすけて

**デフォルトの名無しさん** · 2012/11/16(金) 21:20:57.16

utf8にはまるのは日本固有らしい。海外では当初から見切りをつけていて
使われることはない。

**デフォルトの名無しさん** · 2012/11/17(土) 00:49:53.31

この方法で重複を削除した場合
リストの順番は変更されますか。
それとも、重複が削除されるだけで、
順番はそのままですか。

my %hash = ();
foreach (@list) {
$hash{$_}++;
}
my @unique = keys %hash;
print @unique;

ご教示ください。

**デフォルトの名無しさん** · 2012/11/17(土) 01:33:36.49

The keys of a hash are returned in an apparently random order.
ハッシュのキーはランダムな順番で返されます(適当訳)
http://perldoc.perl.org/functions/keys.html

**デフォルトの名無しさん** · 2012/11/17(土) 01:55:32.07

ｹﾞｰｯ
ありがとうございました・・・

**デフォルトの名無しさん** · 2012/11/17(土) 17:04:11.19

フリーソフトの利用は自己責任。
utf8作ったひとが助けてくれるわけじゃない。
自分の理解できる範囲内で使えってこった。

**デフォルトの名無しさん** · 2013/01/03(木) 08:49:11.83

文字コードとしてのUTF-8を理解してもutf8プラグマの挙動は別物
オレオレ実装むき出しの仕様で理解できず使いづらい
そこで省略の美学になる

**デフォルトの名無しさん** · 2013/01/03(木) 09:02:50.69

至らない実装は利用者が補えるが、オレオレ仕様は直せない、か