Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
255: デフォルトの名無しさん [sage] 2014/02/21(金) 00:11:06.41 と荒らしが申しております http://mevius.5ch.net/test/read.cgi/tech/1349538519/255
276: デフォルトの名無しさん [sage] 2014/03/25(火) 21:54:24.41 ID:En8OrmpQ >>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 http://mevius.5ch.net/test/read.cgi/tech/1349538519/276
338: デフォルトの名無しさん [sage] 2014/11/14(金) 06:59:52.41 ID:Ul+u6aQZ >>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; http://mevius.5ch.net/test/read.cgi/tech/1349538519/338
389: デフォルトの名無しさん [sage] 2016/11/20(日) 21:01:48.41 ID:pMz2tkuX なんで？ なんで？ なんで？ ことあるごとに、「なんで」っていうヤツ バカっぽい イライラする ムカツク http://mevius.5ch.net/test/read.cgi/tech/1349538519/389
514: デフォルトの名無しさん [sage] 2024/03/16(土) 11:57:07.41 ID:Xoe9pkvE >>511 レスどうもです Shift-JISの環境で正しく2とカウントされてます 前記はあくまで例ですので全角文字なら他の文字でもこうなるみたいで ひらがなにマッチさせたいわけではないんです http://mevius.5ch.net/test/read.cgi/tech/1349538519/514
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.039s