Perlについての質問箱 64箱目

**デフォルトの名無しさん** · 2019/02/01(金) 09:44:37.18

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: https://medaka.5ch.net/php/）

このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

www.perl.org/get.html
Download Latest Stable Source (5.28.1)

▼前スレ
Perlについての質問箱 61箱目
http://toro.5ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.5ch.net/test/read.cgi/tech/1385039352/
Perlについての質問箱 63箱目
https://mevius.5ch.net/test/read.cgi/tech/1392820583/

**デフォルトの名無しさん** · 2020/07/04(土) 13:31:08.07

今のところは、な・・・

**デフォルトの名無しさん** · 2020/07/04(土) 18:51:36.50

Perl7は進化を求める
この10年で完全にオワコン言語になってしまった

**デフォルトの名無しさん** · 2020/07/04(土) 19:41:56.61

効率化して高速化しようとしても、過去に足を引っ張られる

**デフォルトの名無しさん** · 2020/07/04(土) 19:48:46.40

単純に過去を切り捨てたら、Rakuの二の舞になる。過去を切り捨てるのであれば、
Python に勝てる程度の言語仕様にしなければ、見向きもされないだろう。
しかし、それはもう既にPerlではないだろう。

**デフォルトの名無しさん** · 2020/07/04(土) 20:01:08.35

Perlはこのままでいいと思う
レガシーなのがPerlの強さ

**デフォルトの名無しさん** · 2020/07/04(土) 20:55:27.14

negative legacy

**デフォルトの名無しさん** · 2020/07/05(日) 01:06:23.02

>>492
はい。
Wiki>「Perlに続く」という意味で、6月の次の誕生石（7月）のルビーから名付けられた

**デフォルトの名無しさん** · 2020/07/06(月) 00:05:12.58

逆に頑張って作ったPerl6が古いみたいな感じになっちゃうな(´・ω・｀)

**デフォルトの名無しさん** · 2020/07/06(月) 02:55:32.01

もうPerl6は存在しないからだいじょうぶ。

**デフォルトの名無しさん** · 2020/07/06(月) 03:53:08.41

Perl6はさっさと開発中止すべきだったのになぜ続行したんだろう

**デフォルトの名無しさん** · 2020/07/06(月) 19:42:39.82

ま、いいじゃねえか。新しい言語が一つ増えたようなもんだし。

**デフォルトの名無しさん** · 2020/07/06(月) 21:20:03.77

>>498
「すべき」って、おまえは何様なんや？

やりたい人がやってただけ。
結果としてうまくいかなかっただけ。

**デフォルトの名無しさん** · 2020/07/07(火) 18:34:24.36

うまくいくべき

**デフォルトの名無しさん** · 2020/07/07(火) 18:40:58.31

べきであるある

**デフォルトの名無しさん** · 2020/07/07(火) 18:42:17.26

>>500
何様ってw
匿名掲示板で何を言ってるのw
強いていうならPerlユーザーですw

**デフォルトの名無しさん** · 2020/07/07(火) 19:01:21.20

俺様

**デフォルトの名無しさん** · 2020/07/23(木) 01:04:36.09

___________________________________________

/media/xxx/DVD_HDVR/HDVR_SOB/*.SRO
というのが動画本体で、
SROファイルの構造は
000000-00007F 東芝ヘッダ
000080-007FFF (データA)
008000-00807F 東芝ヘッダ
008080-00FFFF (データB)
010000-01007F 東芝ヘッダ
010080-01FFFF (データC)
となっていて、東芝ヘッダからみたオフセット0x1C番地にある0x40値を=>0x00に書き換えるそうです。
東芝ヘッダは1つのファイルに複数ある(?)そうで、それらすべてを書き換える必要があるようです

↑
これをperlスクリプトでお願いします

**デフォルトの名無しさん** · 2020/07/23(木) 06:45:22.79

binmodeで開いて、substr

**デフォルトの名無しさん** · 2020/07/23(木) 19:03:52.69

>>506
ありがとう
素人過ぎてわかんないけど

**デフォルトの名無しさん** · 2020/07/23(木) 19:09:07.35

コードそのものを書いてくれとさ

**デフォルトの名無しさん** · 2020/07/23(木) 19:25:52.21

同じような目的の別のスクリプトです
これに近いイメージでしょうか
（全文書くとブロックされる）

_________________________________________________________

HR_MANGR.IFOのコピー禁止フラグ解除は、
0x20 0x2C 0x23のシーケンスを0x20 0x24 0x23 に変更
perlスクリプトの例は以下のとおり。
# freeifo.pl
# HR_MANGR.IFOの変換
use strict;
use warnings;
my $infile = "HR_MANGR.IFO";
my $buf;
my $sTarget = " ,#"; # 0x20 0x2C 0x23

# ファイルのオープン

# バイナリモードに変更
binmode INFILE;
binmode OUTFILE;
my $sizIFO = -s $infile;

# IFOファイルを読み込み

# 0x20 0x2C 0x23 の並びがあれば、0x20 0x24 0x23 に置き換え
#他にあれば継続、無ければ終了

# ファイルのクローズ
close INFILE;
close OUTFILE;

**デフォルトの名無しさん** · 2020/07/24(金) 04:55:58.03

そうそう。そんな感じ。
まあ頑張って。

**デフォルトの名無しさん** · 2020/07/24(金) 09:07:49.48

書き換える番地は、N は、0 以上で、以下の法則か？
0x8000 × N + ( 0x80 + 0x1C )

つまり、ヘッダは必ず、0x8000 毎にあるのか？

**デフォルトの名無しさん** · 2020/07/24(金) 11:24:40.72

>>511
レスありがとうございます
________________________________________________

SROファイルの書き換え
　　000000-00007F 東芝ヘッダ
　　000080-007FFF (データA)
　　008000-00807F 東芝ヘッダ
　　008080-00FFFF (データB)
　　010000-01007F 東芝ヘッダ
　　010080-01FFFF (データC)
　　というふうに、0x8000バイトで1セットとなっている。
　　東芝ヘッダとは、0x80バイトからなるデータブロック。途中に## Toshiba ～という文字列を含んでいる
　　東芝ヘッダのコピー禁止フラグ(CPP)のあるオフセット0x1Cを　0x40 ⇒　0x00　に修正。

**デフォルトの名無しさん** · 2020/07/24(金) 11:37:31.23

オレなら、バイナリーエディタの置換機能を使うと思うが。

**デフォルトの名無しさん** · 2020/07/24(金) 11:40:12.29

数が多いとツール作った方が早い
手動でやってもツール作っても時間同じなら、ツール作った方がいい
仕事では、ツール作ったせいで余計に時間かかってもツール作る

**デフォルトの名無しさん** · 2020/07/24(金) 11:53:07.60

>>513
データが大きいのでLinuxのバイナリエディタでは上手く行かないのです

**デフォルトの名無しさん** · 2020/07/24(金) 12:54:55.96

https://i.imgur.com/Y6NhiUE.jpg

この文字列が一定間隔で現れます
データが大きいので>>514さんの言うとおりツール（スクリプト）で処理したいのです

**デフォルトの名無しさん** · 2020/07/24(金) 15:39:03.44

perl -e "binmode STDIN; binmode STDOUT; while (read STDIN, $_, 0x8000) { substr $_, 0x1c, 1, 0; print }" < IN > OUT
これが最短?

**デフォルトの名無しさん** · 2020/07/24(金) 15:58:32.23

>>517
レスありがとうございます
泣きそうです（解らなすぎて）

>>509のスクリプトはバイナリ修正したコピーファイルを作成するものでした
小さなファイルなので問題ないのですが、目的の対象ファイルは10GB~20GBもあるものなのでマネ出来ません

**デフォルトの名無しさん** · 2020/07/24(金) 16:06:11.64

>>509の全文です

https://i.imgur.com/qOj8IAs.jpg

後出しのクセが強すぎすいません

**デフォルトの名無しさん** · 2020/07/24(金) 16:07:20.05

>>515
なるほどね。しかし、perlが扱えるデータ量にも、よく解らない限界があって、
巨大なデータを突っ込むと勝手に途中で切られたりするみたいだよ。
巨大なデータを扱うなら、seek関数みたいな低水準な手法を使う必要があるかもしれない。

**デフォルトの名無しさん** · 2020/07/24(金) 16:48:28.89

直接書き換えたいならこんなとか?
perl -e 'open F, "+< IN"; binmode F; while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, "\0";
seek F, -$l, 1; print F }'

**デフォルトの名無しさん** · 2020/07/24(金) 17:06:33.72

別に短く書くコンテストではない

**デフォルトの名無しさん** · 2020/07/24(金) 17:06:42.97

>>521
ありがとうございます
Fはファイル名でよろしいでしょうか？（素人でごめんなさい）

Can't find string terminator "'" anywhere before EOF at -e line 1.
となります

**デフォルトの名無しさん** · 2020/07/24(金) 17:29:22.03

サンプルです
https://www.dropbox.com/s/zjhagi19dx0akbv/HR_STR01.SRO?dl=0

もしよろしければ暇つぶしに、ご指南いただけませんか？
（もう、いただいてますけど）

**デフォルトの名無しさん** · 2020/07/24(金) 17:49:05.64

よく考えたらダメだったｗ

**デフォルトの名無しさん** · 2020/07/24(金) 19:45:46.20

GBレベルのファイルがオンメモリで処理できるわけないだろ。ｗ

**デフォルトの名無しさん** · 2020/07/24(金) 20:07:01.97

メモリが1TBあればヘーキヘーキ

**デフォルトの名無しさん** · 2020/07/24(金) 20:38:39.07

Stream 処理なら、バッファサイズ分のデータを、読んでは捨ててを繰り返すから、
必要なメモリサイズは、バッファサイズ分だけ

それか、seek みたいに、その番地をシークして、そこだけ書き換える

**511** · 2020/07/24(金) 21:01:04.13

0x8000 は、32,768 バイトだから、32 KiB。
(ただし、Kib は、1,000 倍ではなく、1,024 倍)

32 KiB * 32 個 = 1 MiB

1 GiB なら、 32個 * 1,024 = 32,768個
10GiB なら、0x8000サイズのブロックが、327,680個もあるの？

データ部分は固定サイズなの？
変動サイズで、そのサイズがヘッダ内に記録されているとかじゃないの？

**デフォルトの名無しさん** · 2020/07/24(金) 21:50:07.62

まーだやってたのか
>>523 で

perl -e 'open F, "+< ファイル名"; binmode F; while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, "\0"; seek F, -$l, 1; print F }'

がエラーになったのは Windows のコマンドプロンプトで試したんだろ
コマンドプロンプトでは ' でなく " を使ってこう

perl -e "open F, '+< ファイル名'; binmode F; while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, qq/\0/; seek F, -$l, 1; print F }"

もちろん read や print は流れで残してただけでまったく必要ないから

perl -e "open F, q/+< ファイル名/; binmode F; seek F, 0x1c, 0; while (! eof F) { seek F, 0, 1; print F qq/\0/; seek F, 0x7fff, 1 }"

で十分なのは言うまでもない
コマンドラインで書き捨てじゃないならperl7で不可予定の F じゃなくて $fh にするかな

**511** · 2020/07/24(金) 22:51:07.42

くれぐれも、データのバックアップを取っておいてから、実験しろよ。
もし、プログラムが間違っていたら、回復できないから

そもそも、他人のプログラムの意味が分からないのに、
それをそのまま実行するのは、非常に危険！

**532** · 2020/07/24(金) 23:35:26.56

Binary fileをupdateモードでopenして
目的の位置にseekしpackで元のファイルの内容を直接書き換える方法なら

ttps://docstore.mik.ua/orelly/perl/cookbook/ch08_14.htm

**532** · 2020/07/24(金) 23:36:19.14

>>530 と内容が被った…orz

**532** · 2020/07/24(金) 23:40:56.85

この辺調べてやってくだされぃ
https://www.google.co.jp/search?q=perl+binary+file+update+open+seek+unpack

**532** · 2020/07/24(金) 23:45:28.89

先生ｯ、便利そうなﾓｼﾞｭｰﾙ見つけました！
https://metacpan.org/pod/File::Binary

**デフォルトの名無しさん** · 2020/07/24(金) 23:46:10.28

>>530
検証に時間がかかってしまって返信遅くなりました
できました！！　ありがとうございました！

推察の通りコマンドプロンプトでのエラーでした
本命のLinux(Ubuntu)の端末上からも書き換え成功しました
感謝です

ほかの皆様もありがとうございました
不愉快に感じた方も多かったと思います　ごめんなさい

ここで「進捗状況表示（％）をさせるにはどうしたらいいですか？」とか聞くと嫌われることは、僕もいい大人なので知っています

**デフォルトの名無しさん** · 2020/07/24(金) 23:48:59.17

>>532
親切にありがとうございます

**デフォルトの名無しさん** · 2020/07/25(土) 00:54:10.29

進捗状況を表示させるには、最初にファイルサイズを取得する。
そして、データを書き換えるたびに、現在のseek 番地を取得して、

現在のseek 番地 × 100 / ファイルサイズ

例えば、300 × 100 / 1,000 = 30 %

**デフォルトの名無しさん** · 2020/07/25(土) 01:23:46.28

>>538
レスありがとうございます
本当にうれしいのですがド素人なので理解出来ないのです

>>530のコマンドラインに絡めるかスクリプトにしていただけると卒倒するほど喜びます
これを機会にperlを勉強したいと（心から）思いますが、今の段階ではこんな図々しいお願いをするしか出来ません

**デフォルトの名無しさん** · 2020/07/25(土) 02:26:21.46

もうええやろ？

**デフォルトの名無しさん** · 2020/07/26(日) 01:36:51.87

>>539
死ねよ

**デフォルトの名無しさん** · 2020/07/26(日) 02:35:47.46

勉強する気はなしか
やれやれ

**デフォルトの名無しさん** · 2020/07/26(日) 08:04:49.79

進捗表示は、計算自体は簡単だけど、ちゃんと見えるように表示するのが
ちょっと面倒なんだよな

**デフォルトの名無しさん** · 2020/07/26(日) 10:44:31.12

好きなのを使えばいいよ。
https://metacpan.org/search?q=progress+bar

**デフォルトの名無しさん** · 2020/07/26(日) 11:13:19.32

そんなもんがいちいちあるのか
まあ、凝ったことをするなら共通化はするだろうけど
凝ったことしなくても、どういう頻度で表示するかとかの調整は必要で、
UI特有の機能と関係ない面倒臭さの部分なんだよな

**デフォルトの名無しさん** · 2020/07/26(日) 13:26:52.37

ターミナルの機能を使いきるなら面倒だろうけど、ただ垂れ流すだけなら簡単やろ。

**デフォルトの名無しさん** · 2020/07/26(日) 18:32:06.33

>>512
最適化するとすると手順はこんな感じかな。

1. 0x1c バイト読んでそのまま書く。
2. 1バイト読む。読めなかったら 5 へ。読んだ内容が 0x40 なら 0x00 に変えて書く。0x40 でなければそのまま書く。
3. 最大 0x7fff バイト読み、読めたデータをそのまま書く。
4. 2へ。
5. 終わり。

STDIN から読んで STDOUT で書くならこうなる。

read(STDIN, $buf, 0x1c);
print $buf;
while (read(STDIN, $buf, 1)) {
　print $buf eq "\x40" ? "\x00" : $buf;
　read(STDIN, $buf, 0x7fff);
　print $buf;
}

**デフォルトの名無しさん** · 2020/07/27(月) 00:36:57.42

>>530さんからの頂き物に、ファイルサイズを取得。。。まではできました（訳：パクれました
みなさんありがとう
し、進捗。。。
----------------------------------------------------------------
open F, "+< ファイル名";
binmode F;
my $filename = "ファイル名";
my $filesize = -s $filename;
print "$filenameのサイズは$filesizeです。\n";
while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, "\0"; seek F, -$l, 1; print F }

**デフォルトの名無しさん** · 2020/07/27(月) 01:28:37.03

>>548
いい加減にしろ

**デフォルトの名無しさん** · 2020/07/27(月) 07:32:32.55

readして変更しないところまでprintするのは無駄なのに
無駄を省けば進捗表示がいらないくらい高速化するだろうに

**デフォルトの名無しさん** · 2020/07/27(月) 09:23:37.46

コピーを作っておいて、そのコピーの一部だけ変更して書き戻せば一瞬
信頼性が上がったら、コピーは作らずにオリジナルを変更する

**デフォルトの名無しさん** · 2020/07/27(月) 10:25:37.74

>>550
ファイルサイズがGBレベルなら、そんなに速くはならんやろ。

**デフォルトの名無しさん** · 2020/07/27(月) 17:35:52.14

ていうか >>548 は >>530 を参考にしてるのになんで遅い方を使ってるんだ

**デフォルトの名無しさん** · 2020/07/27(月) 18:21:31.29

呼ばれた気がしたので
約10分のデータ（1.3GB）で比較しました

readあり

real 1m34.485s
user 0m0.888s
sys 0m6.100s

readなし

real 1m5.851s
user 0m0.340s
sys 0m3.563s

USB2.0（）でUbuntuにマウントさせた外付けHDD上のデータを直接書き換えています
特殊なフォーマットなのでWindowsでは認識できないのです

**デフォルトの名無しさん** · 2020/07/27(月) 19:14:13.61

DRM解除の片棒担ぐ人達かね

**デフォルトの名無しさん** · 2020/07/27(月) 19:33:35.94

なんて大層なDRMだ

**デフォルトの名無しさん** · 2020/07/27(月) 19:46:48.42

残念ながら暗号化解除まではされないんです
別の機器にコピーしようとしても「コピープロテクトがなんちゃら。。」と、ちゃんとハネられます
機器内の制限を緩くするためのオフホワイトな作業です

**デフォルトの名無しさん** · 2020/07/27(月) 20:24:22.40

頭悪くてプログラムしかできなかった大企業CEO一覧
http://re-file.com/18k/1677/

**デフォルトの名無しさん** · 2020/07/27(月) 22:09:54.28

研究目的なら、犯罪の意思がないから、無罪だろ

**デフォルトの名無しさん** · 2020/07/27(月) 23:21:16.44

>>559
理由は関係ないはず
秘匿目的で暗号化されているものを解読することそのものが犯罪

**デフォルトの名無しさん** · 2020/07/27(月) 23:23:00.46

>>560
そんな事みんな知ってるよ

**デフォルトの名無しさん** · 2020/07/27(月) 23:33:36.72

法律に詳しいオレってカッコいいだろう？

**デフォルトの名無しさん** · 2020/07/28(火) 00:29:51.31

>>557
お前は裁判になって負けたら責任全部背負うのか？

**デフォルトの名無しさん** · 2020/07/28(火) 01:16:10.36

責任ｗ

**デフォルトの名無しさん** · 2020/07/28(火) 01:21:05.81

暗号化解除してないので責任ｗないですぅプ

**デフォルトの名無しさん** · 2020/07/28(火) 01:36:31.30

自称”法律専門家”の底辺ニート達が不毛な議論を展開すると予想

**デフォルトの名無しさん** · 2020/07/28(火) 01:48:48.45

コピー許可するフラグをいじるのは私的利用の範囲なら自由じゃないですか？
ここでその方法を聞いたりその答えを書いたりした人がどうなるかはわかりませんが

**デフォルトの名無しさん** · 2020/07/28(火) 02:17:19.93

>>567
他人が使うためにプログラムを公開することに問題がないとでも？

**デフォルトの名無しさん** · 2020/07/28(火) 02:23:12.72

Winnyの作者は捕まるが利用者は捕まらない
包丁の販売は捕まらないか利用者は捕まる事が有る
YouTubeであるけど包丁を自作して販売したら捕まるのか？

**デフォルトの名無しさん** · 2020/07/28(火) 02:35:26.47

>>568
コピー許可フラグを取り除くプログラムを公開することは問題ありと見ているわけですね
確かに東芝の全機種に対して動作可能であるなら影響は大きそうです

**デフォルトの名無しさん** · 2020/07/28(火) 05:40:11.08

おかしな雲行きになってきたので説明（釈明）を

まず第一に、このスクリプトだけでは目的を達成することができません
いくつか別ファイルを修正する必要があります
当然ながらこのスレではそれらは公開されていません
不完全な変なデータが出来上がるだけです

第二にこの手法が通用するのは、10年以上前に発売された「ある機種」のみです
次機種以降ではこの"バグ"はすっかり塞がれました
ディスクの中身をこれほどたやすく弄れるなんて話は聞いたことがないです
今現在どれほどの人がこの機種を使っているか知りませんが。。。

そしてこれは「暗号化解除」を目的としていません
ヘッダの一部分をちょっと弄っただけでプロテクトが外れるとか、幼稚園児ですか？
これはデータを細工して機器を「騙している」にすぎません

**デフォルトの名無しさん** · 2020/07/28(火) 05:41:52.28

「暗号化解除ではない」と書いているのに裁判（ｗ）とか責任（ｗ）とか言ってる人って
字が読めないのか、頭が悪くて理解できないのか、あるいは目が見えないのか
10年前も当時の２ちゃんねる（）で話題になって多くのスクリプトやプログラムも配布されました
彼らは訴えられたのかなぁ？心配です（棒

ついでに言えば
実は>>530は私です
壮大な自作自演です（今時）
進捗表示を教えてほしかっただけなのです。。。

みなさん釣り堀へようこそ

そして農家の朝は早い

**デフォルトの名無しさん** · 2020/07/28(火) 05:43:41.18

それでは最後に

普段から社会にこれっぽっちも貢献してないくせに、こんな匿名掲示板で妙な倫理観や底が浅い正義感を振りかざすとか

以降、間抜けな人たちの「負け惜しみ」のレスが続きます
屁理屈、論点ずらし、人格否定など、つたない書き込みをしばらくの間お楽しみください
合わせて「おかしな雲行き　まで読んだ」もお楽しみください

**デフォルトの名無しさん** · 2020/07/28(火) 06:49:13.06

釣り堀する前に、Linuxインストールできるようになれよ。

**デフォルトの名無しさん** · 2020/07/28(火) 07:03:33.82

Linuxで思い出したが、最新のUbuntuとかでは（仕様変更で）その機種の外付けHDDを「書き込み可」
でマウントできない
手動で”-RW”オプション付けてマウントしようとしてもダメ
書き込みできないからスクリプトもエラーになる
仕方ないのでUDF関連のソースファイルを弄ってカーネルをコンパイルしている
多分世界で私だけだと思う（そんな需要があるわけない）

>>574
頑張って

**デフォルトの名無しさん** · 2020/07/28(火) 07:08:12.80

パソコンはコマンドが基本だからな。
コマンド出来るようになれよ。

**デフォルトの名無しさん** · 2020/07/28(火) 07:37:42.56

readの有無で差がなさすぎて信じがたいんで実験してみた

RAMディスクで fsutil file createnew data 2000000000 して

Measure-Command { perl -e 'open F, q/+< data/; binmode F; while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, qq/\0/; seek F, -$l, 1; print F }' } | % TotalSeconds
2.8214867

Measure-Command { perl -e 'open F, q/+< data/; binmode F; seek F, 0x1c, 0; while (! eof F) { seek F, 0, 1; print F qq/\0/; seek F, 0x7fff, 1 }' } | % TotalSeconds
1.3621179

readしなくても32KB毎に書く時に読むだろうからこんなもんか

**デフォルトの名無しさん** · 2020/07/28(火) 13:31:46.55

>>571
あんた誰？

**デフォルトの名無しさん** · 2020/07/28(火) 14:31:17.47

>>578
あんたは誰？
先に名乗ってマヌケ

**デフォルトの名無しさん** · 2020/07/28(火) 15:14:32.97

ひみちゅ

**デフォルトの名無しさん** · 2020/07/28(火) 16:12:16.22

>>580
なんかこの人好きやわ笑笑

**デフォルトの名無しさん** · 2020/07/28(火) 20:58:23.32

約13GBのデータで(usb2.0)

2ch配布Linuxネイティブアプリ@10年前　64bit版
　12m10.357s
Perlスクリプト readあり
　12m5.101s
Perlスクリプト readなし
　8m38.678s

**デフォルトの名無しさん** · 2020/07/28(火) 21:18:54.63

>>582
死ね、クズ

**デフォルトの名無しさん** · 2020/07/28(火) 21:42:15.96

>>583
ネットでの暴言はインキャがすること。
てめぇはこうなれ！！！
http://re-file.com/18k/1669/ (結構グロ)

**デフォルトの名無しさん** · 2020/07/28(火) 21:51:29.80

殺したいほど嫌悪するような事か？
おそらく心の病気だから早く病院行った方がいい

**デフォルトの名無しさん** · 2020/07/28(火) 22:01:24.31

>>585
あの～傍観者なのですが、これって584と583
どっちに言ってるんですか？？

**デフォルトの名無しさん** · 2020/07/28(火) 22:22:07.89

もっと争え

**デフォルトの名無しさん** · 2020/07/28(火) 22:27:18.25

ネットはこうでなくちゃ！明日の学校めんどいけど、この争いみたら
楽になれる！