Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
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
100: デフォルトの名無しさん [sage] 2012/11/16(金) 00:44:04.42 utf8プラグマは作ったひとは使うのが簡単だと考えているんだろうけど、 使うひとにとっては非常に難しい。こういった処理モデルを理解しろと いうほうに無理がある。結論としてはutf8プラグマは使わないほうが よい。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/100
101: デフォルトの名無しさん [sage] 2012/11/16(金) 14:34:35.11 もう省略の美学とか無くていいから（涙） ぜんぜん意味がわからない たすけて http://mevius.5ch.net/test/read.cgi/tech/1349538519/101
102: デフォルトの名無しさん [sage] 2012/11/16(金) 21:20:57.16 utf8にはまるのは日本固有らしい。海外では当初から見切りをつけていて 使われることはない。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/102
103: デフォルトの名無しさん [sage] 2012/11/17(土) 00:49:53.31 この方法で重複を削除した場合 リストの順番は変更されますか。 それとも、重複が削除されるだけで、 順番はそのままですか。 my %hash = (); foreach (@list) { $hash{$_}++; } my @unique = keys %hash; print @unique; ご教示ください。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/103
104: デフォルトの名無しさん [sage] 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 http://mevius.5ch.net/test/read.cgi/tech/1349538519/104
105: デフォルトの名無しさん [sage] 2012/11/17(土) 01:55:32.07 ｹﾞｰｯ ありがとうございました・・・ http://mevius.5ch.net/test/read.cgi/tech/1349538519/105
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 418 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.011s