Perl初心者スレ(マジレス回答) (523レス)
前次1-
抽出解除 レス栞

リロード規制です。10分ほどで解除するので、他のブラウザへ避難してください。
255
(1): 2014/02/21(金)00:11:06.41 AAS
と荒らしが申しております
276
(1): 2014/03/25(火)21:54:24.41 ID:En8OrmpQ(1) AAS
>>274-275
外部リンク[pod]:perldoc.jp

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

但し Perl 5.18.0 以降、encoding プラグマは非推奨で将来的に削除される予定。
外部リンク[html]:perldoc.perl.org
338
(1): 2014/11/14(金)06:59:52.41 ID:Ul+u6aQZ(1) AAS
>>334
use 5.016;
use warnings;

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

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

my @data;
my $chunk = '';
省14
389
(1): 2016/11/20(日)21:01:48.41 ID:pMz2tkuX(2/2) AAS
なんで?
なんで?
なんで?
ことあるごとに、「なんで」っていうヤツ
バカっぽい
イライラする
ムカツク
514: 2024/03/16(土)11:57:07.41 ID:Xoe9pkvE(1) AAS
>>511
レスどうもです
Shift-JISの環境で正しく2とカウントされてます
前記はあくまで例ですので全角文字なら他の文字でもこうなるみたいで
ひらがなにマッチさせたいわけではないんです
前次1-
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.017s