Perl初心者スレ(マジレス回答) (523レス)
上
下
前
次
1-
新
97
: 2012/11/13(火)22:13
AA×
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
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
以下の一行スクリプトに文字を食わせて月日のお知らせ!の次の行からの前までを取り出そうとしています 最期の は各行の先頭の全角の空白を取ろうとしたのですがこれが働きませんが抜き取り自体は成功していました 逆に とすると正規表現が全くひっかかりらず何もされません 月日のお知らせ!
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 426 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
ぬこの手
ぬこTOP
0.015s