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

---

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

---

255(1): デフォルトの名無しさん [sage] 2014/02/21(金)00:11:06.41
と荒らしが申しております

---

276(1): デフォルトの名無しさん [sage] 2014/03/25(火)21:54:24.41 ID:En8OrmpQ(1)
>>274-275
http://perldoc.jp/docs/modules/encoding/encoding.pod

use encoding 'euc-jp', STDOUT => 'cp932';

但し Perl 5.18.0 以降、encoding プラグマは非推奨で将来的に削除される予定。
http://perldoc.perl.org/encoding.html#WARNING

---

338(1): デフォルトの名無しさん [sage] 2014/11/14(金)06:59:52.41 ID:Ul+u6aQZ(1)
>>334
use 5.016;
use warnings;

my $boundary = qr/^#+\s+\d+\s+#+\s*$/;

open(my $in, "<", "original.txt") or die;

my @data;
my $chunk = '';
while(<$in>){
if (/$boundary/ and (length($chunk) > 0)){
push @data, $chunk;
$chunk = '';
}
$chunk .= $_;
}
if (length($chunk) > 0){
push @data, $chunk;
}

$in->close;

open(my $out, ">", "output.txt") or die;
$out->print(reverse @data);
$out->close;

---

389(1): デフォルトの名無しさん [sage] 2016/11/20(日)21:01:48.41 ID:pMz2tkuX(2/2)
なんで？
なんで？
なんで？
ことあるごとに、「なんで」っていうヤツ
バカっぽい
イライラする
ムカツク

---

514: デフォルトの名無しさん [sage] 2024/03/16(土)11:57:07.41 ID:Xoe9pkvE(1)
>>511
レスどうもです
Shift-JISの環境で正しく2とカウントされてます
前記はあくまで例ですので全角文字なら他の文字でもこうなるみたいで
ひらがなにマッチさせたいわけではないんです

---

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

---

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

---

ぬこの手 ぬこTOP 0.025s