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

1 ：2012/10/07 〜 最終レス ：2013/03/06

どうぞー

2 ：

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

3 ：

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

4 ：

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

5 ：

■関連スレ
在日韓国人プログラミング
http://toro.2ch.net/test/read.cgi/tech/1349527575/
チョッパリは謝罪しる！
http://toro.2ch.net/test/read.cgi/tech/1349527506/
おRを入れてください
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/
おRを入れる
http://toro.2ch.net/test/read.cgi/tech/1349518715/

6 ：

■関連スレその２
カチャカチャＰＧの叫び
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 ：

>>1
基地害乙

8 ：

初心者なので 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 ：

#　[Perl 日本語処理の基礎の基礎]
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。

10 ：

上記の記述は１行で書くこともできます。
use encoding 'cp932'; # [Perl 日本語処理]
初心者にはこれが一番あってると思います。
徐々に経験を積んで、難しい記述にチャレンジしていきましょう。

11 ：

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

12 ：

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

13 ：

ここは本スレではありません。
こちらへどうぞ。
Perlについての質問箱 56箱目
http://toro.2ch.net/test/read.cgi/tech/1348141100/

14 ：

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

15 ：

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

16 ：

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

17 ：

■関連スレ
おRランド開園
http://toro.2ch.net/test/read.cgi/tech/1349453856/
ム板を荒らしている連中の正体
http://toro.2ch.net/test/read.cgi/tech/1349260204/
おRを舐めよう
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 ：

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

19 ：

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

20 ：

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

21 ：

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

22 ：

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

23 ：

長いな。

24 ：

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

25 ：

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

26 ：

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

27 ：

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

28 ：

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

29 ：

んなこたあない。

30 ：

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

31 ：

あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
get_num();
my $num=200
while(1)
{
if(new_num() >=$num)
{
okと表示
}
}
okがうまく表示されません
毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください

32 ：

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

33 ：

>あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
↑これは get_num() のことですか？new_num() のことですか？
get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？
>毎回get_numでサイトにアクセスして
↑ get_num() は while の中にありませんが、この外にループがあるんですか？

34 ：

use strict; 落ちか
腕を上げたようだな、モダンPerl。

35 ：

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

36 ：

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

37 ：

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

38 ：

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

39 ：

>>37=>>38

40 ：

>>37=>>38=>>39

41 ：

>>31=>>39

42 ：

$|=1;
my $num=200; ←ｾﾐｺﾛﾝ忘れるな
while(1){
　　if(get_num() >= $num){ ← get_num()、な
　　　　print "ok\n"; ← うるせぇやつがいるから改行、な
　　　　last; ← これなけりゃ無限ループだわな
　　}
　　sleep(60); ← Web にアクセスするなら忘れるんじゃねぇぞ
}

43 ：

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

44 ：

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

45 ：

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

46 ：

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

47 ：

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

48 ：

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

49 ：

>>44=>>48

50 ：

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

51 ：

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

52 ：

>>47
演算子一覧くらい検索すればいくらでも出てくるだろ
それすら検索できないって本物の精神異常？

53 ：

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

54 ：

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

55 ：

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

56 ：

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

57 ：

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

58 ：

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

59 ：

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

60 ：

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

61 ：

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

62 ：

>>35
うまく出力されました
$|=1;とは何ですか？
改行の理由も教えてください
>>42
$|=1;をつける理由は？
lastだとループが終わってしまうので

63 ：

>>32
>大きいのになぜか比較されずにスルーで何も表示されずループです
ループして困っているのか、ループしたいのか質問をはっきりしろ

64 ：

>書き換えずに置換する
何をしたいのか

65 ：

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

66 ：

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

67 ：

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

68 ：

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

69 ：

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

70 ：

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

71 ：

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

72 ：

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

73 ：

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

74 ：

>>71=基地害

75 ：

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

76 ：

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

77 ：

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

78 ：

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

79 ：

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

80 ：

require 'jcode.pl';
だっけ？

81 ：

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

82 ：

>>9 「use Encode; 」

83 ：

それ言うなら use utf8; だろ
EncodeはUnicode以外だって扱えるんだから
でも牙が伸び過ぎると自滅してしまうこともある
ttp://blog.nakatanigo.net/archives/50474313.html

84 ：

>>80は頭がおかしい。

85 ：

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

86 ：

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

87 ：

>>80=ゴミクズ

88 ：

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

89 ：

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

90 ：

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

91 ：

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

92 ：

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

93 ：

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

94 ：

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

95 ：

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

96 ：

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

97 ：

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

98 ：

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

99 ：

どうもです。
状況なのですが、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;だけ殺して一見うまく動いているのでそれで利用を開始しました。
個人の趣味の自動化目的なのでそんな感じでまずはゴーしてしまいます。

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

【入門】Common Lisp その10【質問よろず】 (166)
【Lua】組み込み系言語総合 その6【Squirrel】 (146)
攻守最強のプログラミング言語は？ (129)
★★Java質問･相談スレッド162★★ (241)
C++によるDICOMファイル解析 (183)
Androidプログラミング質問スレ Part33 (555)
--log9.info------------------
【RotMG】Realm of the Mad God (122)
トリップ共有テスト (493)
MdQ 76 みんなdeクエスト (798)
【つちゅう】みんなのGOLFオンライン80【きっき】 (126)
【Xbox360】Forza Motorspor 4 オンライン【3周】 (566)
【FS】フリスタ！サチがうざくてたまらないスレ２ (738)
【Core Blaze】コアブレイド　part1 (129)
【PS3】Battlefield Bad Company2分隊募集【BFBC2】 (379)
RED DEAD REDEPTION Part7 (121)
【アメリカ版】SuddenAtack【SANA】 (105)
SF vs SA vs op7 vs a.v.a (194)
【フィフスVLB】Virtual League Baseball　8期 (487)
モバゲーに月いくら金使ってる？ (192)
【PS3】SOCOM:CONFRONTATION 議論スレ1【TPS】 (317)
【終了】G2　-Guns Gunner-　【アホの集い】 (114)
【XBOXLIVE】PCHANと仲良くなろうスレ【HALO3】 (909)
--log55.com------------------
【未解決事件】22年前の上智大生殺害事件　解決につながる有力な情報には800万円　柴又女子大生殺人放火事件
【福岡・北九州】スペイン視察の市議が昼食でワイン　TVで発覚→禁止に ★4
【米朝衝突】トランプ大統領「北朝鮮に攻撃」ツイート？　下書きツイートに米国防総省驚がく
【福岡】「学校側の判断ミスだった」 低体温症？生徒36人搬送　雨の体育大会中に
【大阪】男が女子中学生を追い抜く→ズボンを下ろす→うつ伏せに転倒→仰向けに回転→下半身を露出する★3
【台風21号】タンカー衝突で被害600億円か　関空から停泊位置指示あれば関空に責任
【ＷＨＯ】「世界自殺予防デー」 全国一斉に働く人の無料電話相談
【北海道地震】死者４４人に　安否不明者はゼロと政府発表