Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
70: 2012/10/09(火)14:26 AAS
それはPerl限定の話でもなさそうだし、流石にWebProg板で聞いてくれ
71(4): 2012/10/09(火)16:16 AAS
PHPでいうマジッククォートみたいなのない？
sjisで送信するとき表とかがエスケープされずにエラーでちゃうんだけど
自動でエスケープしてくれる関数みたいなの無いの？
教えてください
72(1): 2012/10/09(火)16:57 AAS
自分で調べられないお前にはPHPがお似合いだ
73(1): 2012/10/09(火)17:05 AAS
>>71
ふたつのことを混同してしまってると思われる
「Perl XSS対策」「Perl Unicode」でそれぞれググれ
そして前者(XSS)にに関しては今後はWebProgへどうぞ
74(1): 2012/10/09(火)17:13 AAS
>>71=基地害
75: Perl忍者 ◆M5ZWRnXOj6 2012/10/09(火)17:33 AAS
>>71
Sjisいれろ
外部ﾘﾝｸ:search.cpan.org
76: 2012/10/09(火)17:49 AAS
>>72-74
追い出すなって。
ここは>>71みたいな社会のゴミ用隔離スレなんだからさ。
77: 2012/10/09(火)20:44 AAS
PHPのマジッククォートとSjisっておんなじものなのか？
微妙にやること違うと思うぞｗ
78: 2012/10/09(火)22:09 AAS
初心者でUnicodeはきついかもな
ごちゃごちゃしてて何がなんだかさっぱり分かんない
初心者にはshiftjisがいい
79: 2012/10/10(水)00:13 AAS
Perlスレの頭にUnicode絡みのテンプレなかったっけ
80(5): 2012/10/12(金)00:36 AAS
require 'jcode.pl';
だっけ？
81: 2012/10/12(金)01:02 AAS
>>80
確信ないなら書くなゴミ
さっさと失せろキメェんだよ
82(1): 2012/10/12(金)01:03 AAS
>>9 「use Encode; 」
83: 2012/10/12(金)01:38 AAS
それ言うなら use utf8; だろ
EncodeはUnicode以外だって扱えるんだから
でも牙が伸び過ぎると自滅してしまうこともある
外部ﾘﾝｸ[html]:blog.nakatanigo.net
84: 2012/10/12(金)02:28 AAS
>>80は頭がおかしい。
85: 2012/10/12(金)02:37 AAS
>>82
ありがとうそこにあったのか
86: 2012/10/12(金)03:28 AAS
>>80
もう来なくてもいいよ
87: 2012/10/12(金)12:02 AAS
>>80=ゴミクズ
88: 2012/10/12(金)15:53 AAS
いつもの基地外は本スレに行けよ
89: 2012/10/12(金)18:49 AAS
↑はい、いつものキチガイ入りましたー
90: 2012/10/12(金)21:16 AAS
88はいつもただの質問者を荒し扱いしたりしてる奴だろう、放置よろ。
91: 2012/10/28(日)18:01 AAS
>>80
それです。ｻﾝｸｽﾀﾞｱｲﾅ
92: 2012/10/28(日)20:13 AAS
初心者の彼女がjacode.pl使ってて時代の変化を感じた
93: 2012/10/31(水)00:29 AAS
いつまでもEncodeでエンコしててもしょうがないしな
94: 2012/11/06(火)01:38 AAS
外部ﾘﾝｸ:kotobank.jpえんこ
95: 2012/11/12(月)19:41 AAS
ActivePerl5.16.1使用中です。
---
print DAT @dat;
---
このようにして配列を書き出そうとしたのですが
なぜかテキストファイルに繁栄されません。
何か情報をご存知の方いらっしゃいませんか？
96: 2012/11/13(火)05:02 AAS
ファイルハンドルであろうDATのopen文はいかに
97: 2012/11/13(火)22:13 AAS
以下の一行スクリプトに文字を食わせて「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: 2012/11/13(火)22:28 AAS
perl -e '
use utf8;
while (<>)
{
if (/\d+月\d+日のお知らせ！/) { last; };
#skip the line;
};
while (<>)
{
if (/-----/) { last; };
s/^\s+//;
{
no utf8;
s/^(?: )+//;
}
print;
}'
99: 2012/11/16(金)00:37 AAS
どうもです。
状況なのですが、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;だけ殺して一見うまく動いているのでそれで利用を開始しました。
個人の趣味の自動化目的なのでそんな感じでまずはゴーしてしまいます。
上下前次1-新書関写板覧索設栞歴
あと 424 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.010s