Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
19: デフォルトの名無しさん [sage] 2012/10/07(日) 23:44:10.62 grepでいいんじゃないか？UNIXの文化な http://mevius.5ch.net/test/read.cgi/tech/1349538519/19
20: デフォルトの名無しさん [sage] 2012/10/07(日) 23:45:55.55 >>19 ありがとうございます。 それからもうひとつ、 array_uniqueに相当する関数はどれでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/20
21: デフォルトの名無しさん [sage] 2012/10/08(月) 00:16:19.24 ハッシュのキーにして、最後にキーを取り出す http://mevius.5ch.net/test/read.cgi/tech/1349538519/21
22: デフォルトの名無しさん [sage] 2012/10/08(月) 00:29:08.71 my %uniq = map { $_ => 1 } @array; my @array_uniq = keys %uniq; http://mevius.5ch.net/test/read.cgi/tech/1349538519/22
23: デフォルトの名無しさん [sage] 2012/10/08(月) 00:37:42.34 長いな。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/23
24: デフォルトの名無しさん [sage] 2012/10/08(月) 01:25:04.19 初心者に変なもん奨めるんじゃないぞ http://mevius.5ch.net/test/read.cgi/tech/1349538519/24
25: デフォルトの名無しさん [sage] 2012/10/08(月) 01:37:02.22 %u = map {$_,1} @a; @u = keys %u; #ﾁﾁﾞﾒﾃﾐﾀ http://mevius.5ch.net/test/read.cgi/tech/1349538519/25
26: デフォルトの名無しさん [sage] 2012/10/08(月) 10:06:15.64 my @array_unique = keys %{{map {$_,1} @array}}; perl 5.14 以降なら my @array_unique = keys {map {$_,1} @array}; http://mevius.5ch.net/test/read.cgi/tech/1349538519/26
27: デフォルトの名無しさん [sage] 2012/10/08(月) 11:07:41.23 ひと頃List::Utilが湧いたのはPHPとの比較が原因か http://mevius.5ch.net/test/read.cgi/tech/1349538519/27
28: デフォルトの名無しさん [sage] 2012/10/08(月) 13:27:23.56 >>26 なんかバッドノウハウ臭が強いな。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/28
29: デフォルトの名無しさん [sage] 2012/10/08(月) 14:21:09.99 んなこたあない。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/29
30: デフォルトの名無しさん [sage] 2012/10/08(月) 14:24:32.17 ここでList::Utilを持ち出し、直後からスレが荒れるのが定番。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/30
31: デフォルトの名無しさん [sage] 2012/10/08(月) 14:31:44.97 あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします get_num(); my $num=200 while(1) { if(new_num() >=$num) { okと表示 } } okがうまく表示されません 毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください http://mevius.5ch.net/test/read.cgi/tech/1349538519/31
32: 31 [sage] 2012/10/08(月) 14:33:07.32 new_num()で取得した値は $numより大きいです 大きいのになぜか比較されずにスルーで何も表示されずループです http://mevius.5ch.net/test/read.cgi/tech/1349538519/32
33: デフォルトの名無しさん [sage] 2012/10/08(月) 14:39:56.54 >あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします ↑これは get_num() のことですか？new_num() のことですか？ get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？ >毎回get_numでサイトにアクセスして ↑ get_num() は while の中にありませんが、この外にループがあるんですか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/33
34: デフォルトの名無しさん [sage] 2012/10/08(月) 14:43:57.35 use strict; 落ちか 腕を上げたようだな、モダンPerl。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/34
35: Perl忍者 ◆M5ZWRnXOj6 [] 2012/10/08(月) 14:44:44.21 >>31 $|=1; それかprint "ok\n"; 改行いれとけ http://mevius.5ch.net/test/read.cgi/tech/1349538519/35
36: デフォルトの名無しさん [sage] 2012/10/08(月) 14:46:12.89 改行入れてもループは終わらんだろｗ http://mevius.5ch.net/test/read.cgi/tech/1349538519/36
37: デフォルトの名無しさん [] 2012/10/08(月) 15:14:18.81 >>31 マジレスすると お前みたいな低脳には無理 http://mevius.5ch.net/test/read.cgi/tech/1349538519/37
38: デフォルトの名無しさん [sage] 2012/10/08(月) 15:34:01.73 荒らしの連立てしたスレを伸ばそうとしてる>>31は荒らし 消えろやゴミが http://mevius.5ch.net/test/read.cgi/tech/1349538519/38
39: デフォルトの名無しさん [sage] 2012/10/08(月) 15:43:26.69 >>37=>>38 http://mevius.5ch.net/test/read.cgi/tech/1349538519/39
40: デフォルトの名無しさん [] 2012/10/08(月) 16:04:33.60 >>37=>>38=>>39 http://mevius.5ch.net/test/read.cgi/tech/1349538519/40
41: デフォルトの名無しさん [] 2012/10/08(月) 16:16:12.31 >>31=>>39 http://mevius.5ch.net/test/read.cgi/tech/1349538519/41
42: デフォルトの名無しさん [sage] 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 にアクセスするなら忘れるんじゃねぇぞ } http://mevius.5ch.net/test/read.cgi/tech/1349538519/42
43: デフォルトの名無しさん [sage] 2012/10/08(月) 18:01:11.94 なんで>>31みたいなカスがプログラミングなんかに手を出したのか疑問。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/43
44: デフォルトの名無しさん [sage] 2012/10/08(月) 18:06:38.78 >>43 そんなのが疑問になるのは お前が馬鹿だからじゃないだろうか。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/44
45: デフォルトの名無しさん [sage] 2012/10/08(月) 18:11:25.50 >>43=>>44=>>37=>>38 http://mevius.5ch.net/test/read.cgi/tech/1349538519/45
46: デフォルトの名無しさん [] 2012/10/08(月) 18:20:57.42 >>43=>>44=>>37=>>38=>>31=>>45 http://mevius.5ch.net/test/read.cgi/tech/1349538519/46
47: デフォルトの名無しさん [sage] 2012/10/08(月) 18:46:17.85 文字列 $str の末尾の「.cpp」を「.o」に置換し新たな文字列 $new_str を生成したいのですが s/// だと元文字列を書き換えてしまいます コピーしてから置換でも良いのですが、書き換えずに置換する関数や演算子はないでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/47
48: デフォルトの名無しさん [sage] 2012/10/08(月) 19:10:50.54 >>47 寝言は寝て言えキチガイ http://mevius.5ch.net/test/read.cgi/tech/1349538519/48
49: デフォルトの名無しさん [sage] 2012/10/08(月) 19:13:40.44 >>44=>>48 http://mevius.5ch.net/test/read.cgi/tech/1349538519/49
50: デフォルトの名無しさん [] 2012/10/08(月) 19:24:24.71 >>47のような害虫はム板から駆除しなければならない。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/50
51: デフォルトの名無しさん [sage] 2012/10/08(月) 19:35:47.99 >>47 s/// に /r を指定するとよろし http://mevius.5ch.net/test/read.cgi/tech/1349538519/51
52: デフォルトの名無しさん [sage] 2012/10/08(月) 19:47:46.05 >>47 演算子一覧くらい検索すればいくらでも出てくるだろ それすら検索できないって本物の精神異常？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/52
53: デフォルトの名無しさん [sage] 2012/10/08(月) 19:56:47.23 >>47はプログラミングに向いてない。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/53
54: デフォルトの名無しさん [sage] 2012/10/08(月) 20:15:10.88 煽り叩きに加えて今度はイコール厨まで参戦ですか ほんとスレの空気を悪くすることに関しては息ぴったりですねお前ら http://mevius.5ch.net/test/read.cgi/tech/1349538519/54
55: デフォルトの名無しさん [sage] 2012/10/08(月) 20:23:58.30 このスレは>>31>>47叩き基地害イコール厨等まともじゃない奴らの隔離スレだからな。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/55
56: デフォルトの名無しさん [sage] 2012/10/08(月) 20:35:31.31 >>51 ありがとうございました 手元の資料に無かったので調べたら割と最近の仕様みたいですね http://mevius.5ch.net/test/read.cgi/tech/1349538519/56
57: デフォルトの名無しさん [sage] 2012/10/08(月) 20:43:06.24 >>56 いいから二度と来るなよ http://mevius.5ch.net/test/read.cgi/tech/1349538519/57
58: デフォルトの名無しさん [sage] 2012/10/08(月) 20:48:41.51 >>57 さっさと初心者を卒業しろよってことかな？ 出所者を見送る看守のようだ。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/58
59: デフォルトの名無しさん [sage] 2012/10/08(月) 20:49:06.45 >>57 来ちゃいました ﾃﾍﾍﾟﾛ♪ http://mevius.5ch.net/test/read.cgi/tech/1349538519/59
60: デフォルトの名無しさん [sage] 2012/10/08(月) 22:37:14.94 >>47はマジでクズ 2chを代理検索か何かと勘違いしてないか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/60
61: デフォルトの名無しさん [sage] 2012/10/08(月) 22:47:29.05 質問してこういう扱いうけて荒らしてるのかこの粘着くんはｗ http://mevius.5ch.net/test/read.cgi/tech/1349538519/61
62: 31 [sage] 2012/10/08(月) 23:31:22.78 >>35 うまく出力されました $|=1;とは何ですか？ 改行の理由も教えてください >>42 $|=1;をつける理由は？ lastだとループが終わってしまうので http://mevius.5ch.net/test/read.cgi/tech/1349538519/62
63: デフォルトの名無しさん [sage] 2012/10/08(月) 23:37:12.37 >>32 >大きいのになぜか比較されずにスルーで何も表示されずループです ループして困っているのか、ループしたいのか質問をはっきりしろ http://mevius.5ch.net/test/read.cgi/tech/1349538519/63
64: デフォルトの名無しさん [sage] 2012/10/08(月) 23:46:28.06 >書き換えずに置換する 何をしたいのか http://mevius.5ch.net/test/read.cgi/tech/1349538519/64
65: デフォルトの名無しさん [] 2012/10/08(月) 23:58:56.98 こういう糞みたいな質問してる連中がム板のレベルを下げてる http://mevius.5ch.net/test/read.cgi/tech/1349538519/65
66: デフォルトの名無しさん [sage] 2012/10/09(火) 01:13:51.30 馬鹿の>>63-64が釣れたｗｗｗ マジ釣り掘りｗｗｗｗｗ http://mevius.5ch.net/test/read.cgi/tech/1349538519/66
67: デフォルトの名無しさん [sage] 2012/10/09(火) 03:50:12.06 >>61 荒らしは質問すらしてないよ。 質問者になりすましての煽りは入れてるが。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/67
68: デフォルトの名無しさん [sage] 2012/10/09(火) 11:14:53.75 何で分かるの？ あ、ご本人様ですか。 荒らしもやりながらこんな場末の糞スレチェックまでご苦労様です。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/68
69: デフォルトの名無しさん [sage] 2012/10/09(火) 13:42:01.38 プロキシのレスポンスタイム計るにはどうするの？ 教えてくれ 6.5s 5,8sとかあるだろ？あれ http://mevius.5ch.net/test/read.cgi/tech/1349538519/69
70: デフォルトの名無しさん [sage] 2012/10/09(火) 14:26:59.97 それはPerl限定の話でもなさそうだし、流石にWebProg板で聞いてくれ http://mevius.5ch.net/test/read.cgi/tech/1349538519/70
71: デフォルトの名無しさん [sage] 2012/10/09(火) 16:16:14.44 PHPでいうマジッククォートみたいなのない？ sjisで送信するとき表とかがエスケープされずにエラーでちゃうんだけど 自動でエスケープしてくれる関数みたいなの無いの？ 教えてください http://mevius.5ch.net/test/read.cgi/tech/1349538519/71
72: デフォルトの名無しさん [] 2012/10/09(火) 16:57:01.82 自分で調べられないお前にはPHPがお似合いだ http://mevius.5ch.net/test/read.cgi/tech/1349538519/72
73: デフォルトの名無しさん [sage] 2012/10/09(火) 17:05:55.35 >>71 ふたつのことを混同してしまってると思われる 「Perl XSS対策」「Perl Unicode」でそれぞれググれ そして前者(XSS)にに関しては今後はWebProgへどうぞ http://mevius.5ch.net/test/read.cgi/tech/1349538519/73
74: デフォルトの名無しさん [sage] 2012/10/09(火) 17:13:03.31 >>71=基地害 http://mevius.5ch.net/test/read.cgi/tech/1349538519/74
75: Perl忍者 ◆M5ZWRnXOj6 [sage] 2012/10/09(火) 17:33:58.22 >>71 Sjisいれろ http://search.cpan.org/~ina/Char-Sjis/ http://mevius.5ch.net/test/read.cgi/tech/1349538519/75
76: デフォルトの名無しさん [sage] 2012/10/09(火) 17:49:33.02 >>72-74 追い出すなって。 ここは>>71みたいな社会のゴミ用隔離スレなんだからさ。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/76
77: デフォルトの名無しさん [sage] 2012/10/09(火) 20:44:10.43 PHPのマジッククォートとSjisっておんなじものなのか？ 微妙にやること違うと思うぞｗ http://mevius.5ch.net/test/read.cgi/tech/1349538519/77
78: デフォルトの名無しさん [sage] 2012/10/09(火) 22:09:35.85 初心者でUnicodeはきついかもな ごちゃごちゃしてて何がなんだかさっぱり分かんない 初心者にはshiftjisがいい http://mevius.5ch.net/test/read.cgi/tech/1349538519/78
79: デフォルトの名無しさん [sage] 2012/10/10(水) 00:13:36.93 Perlスレの頭にUnicode絡みのテンプレなかったっけ http://mevius.5ch.net/test/read.cgi/tech/1349538519/79
80: デフォルトの名無しさん [sage] 2012/10/12(金) 00:36:02.70 require 'jcode.pl'; だっけ？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/80
81: デフォルトの名無しさん [] 2012/10/12(金) 01:02:04.55 >>80 確信ないなら書くなゴミ さっさと失せろキメェんだよ http://mevius.5ch.net/test/read.cgi/tech/1349538519/81
82: デフォルトの名無しさん [sage] 2012/10/12(金) 01:03:01.58 >>9 「use Encode; 」 http://mevius.5ch.net/test/read.cgi/tech/1349538519/82
83: デフォルトの名無しさん [sage] 2012/10/12(金) 01:38:15.26 それ言うなら use utf8; だろ EncodeはUnicode以外だって扱えるんだから でも牙が伸び過ぎると自滅してしまうこともある ttp://blog.nakatanigo.net/archives/50474313.html http://mevius.5ch.net/test/read.cgi/tech/1349538519/83
84: デフォルトの名無しさん [sage] 2012/10/12(金) 02:28:37.13 >>80は頭がおかしい。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/84
85: デフォルトの名無しさん [sage] 2012/10/12(金) 02:37:31.52 >>82 ありがとうそこにあったのか http://mevius.5ch.net/test/read.cgi/tech/1349538519/85
86: デフォルトの名無しさん [sage] 2012/10/12(金) 03:28:56.95 >>80 もう来なくてもいいよ http://mevius.5ch.net/test/read.cgi/tech/1349538519/86
87: デフォルトの名無しさん [sage] 2012/10/12(金) 12:02:40.96 >>80=ゴミクズ http://mevius.5ch.net/test/read.cgi/tech/1349538519/87
88: デフォルトの名無しさん [sage] 2012/10/12(金) 15:53:07.74 いつもの基地外は本スレに行けよ http://mevius.5ch.net/test/read.cgi/tech/1349538519/88
89: デフォルトの名無しさん [sage] 2012/10/12(金) 18:49:11.85 ↑はい、いつものキチガイ入りましたー http://mevius.5ch.net/test/read.cgi/tech/1349538519/89
90: デフォルトの名無しさん [sage] 2012/10/12(金) 21:16:15.75 88はいつもただの質問者を荒し扱いしたりしてる奴だろう、放置よろ。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/90
91: デフォルトの名無しさん [sage] 2012/10/28(日) 18:01:11.94 >>80 それです。ｻﾝｸｽﾀﾞｱｲﾅ http://mevius.5ch.net/test/read.cgi/tech/1349538519/91
92: デフォルトの名無しさん [sage] 2012/10/28(日) 20:13:19.68 初心者の彼女がjacode.pl使ってて時代の変化を感じた http://mevius.5ch.net/test/read.cgi/tech/1349538519/92
93: デフォルトの名無しさん [sage] 2012/10/31(水) 00:29:58.66 いつまでもEncodeでエンコしててもしょうがないしな http://mevius.5ch.net/test/read.cgi/tech/1349538519/93
94: デフォルトの名無しさん [sage] 2012/11/06(火) 01:38:15.62 ttp://kotobank.jp/word/えんこ http://mevius.5ch.net/test/read.cgi/tech/1349538519/94
95: デフォルトの名無しさん [sage] 2012/11/12(月) 19:41:16.44 ActivePerl5.16.1使用中です。 --- print DAT @dat; --- このようにして配列を書き出そうとしたのですが なぜかテキストファイルに繁栄されません。 何か情報をご存知の方いらっしゃいませんか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/95
96: デフォルトの名無しさん [sage] 2012/11/13(火) 05:02:27.13 ファイルハンドルであろうDATのopen文はいかに http://mevius.5ch.net/test/read.cgi/tech/1349538519/96
97: デフォルトの名無しさん [sage] 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; }' http://mevius.5ch.net/test/read.cgi/tech/1349538519/97
98: デフォルトの名無しさん [sage] 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; }' http://mevius.5ch.net/test/read.cgi/tech/1349538519/98
99: デフォルトの名無しさん [sage] 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;だけ殺して一見うまく動いているのでそれで利用を開始しました。 個人の趣味の自動化目的なのでそんな感じでまずはゴーしてしまいます。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/99
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 424 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.016s