Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

58: デフォルトの名無しさん [sage] 2012/10/08(月)20:48:41.51
>>57
さっさと初心者を卒業しろよってことかな？
出所者を見送る看守のようだ。

---

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;
}'

---

368(1): デフォルトの名無しさん [sage] 2015/05/17(日)23:46:03.51 ID:wdkXHT83(1)
絶対にありえない単語を区切りにしないと、区切りとしての役目にならんだろが
__END__を区切りにしてしまったら、__END__という単語が使えなくなるだろ

---

383: 380 [sage] 2016/11/03(木)23:22:08.51 ID:k7tVkirO(1)
>>382
eで関数を使えるんですね。ありがとうございました。

---

411(1): デフォルトの名無しさん [sage] 2018/05/24(木)07:46:52.51 ID:8nuNm7XP(1)
どのみち本は買った方がいいと思うけど
初心者から始めるならこんなのもあるみたいよ（宣伝乙）
http://www.perl-entrance.org/

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.027s