[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
536: 2020/07/24(金)23:46 ID:JRbdBOQM(9/10) AAS
>>530
検証に時間がかかってしまって返信遅くなりました
できました！！ ありがとうございました！
推察の通りコマンドプロンプトでのエラーでした
本命のLinux(Ubuntu)の端末上からも書き換え成功しました
感謝です
ほかの皆様もありがとうございました
不愉快に感じた方も多かったと思います ごめんなさい
ここで「進捗状況表示（％）をさせるにはどうしたらいいですか？」とか聞くと嫌われることは、僕もいい大人なので知っています
537: 2020/07/24(金)23:48 ID:JRbdBOQM(10/10) AAS
>>532
親切にありがとうございます
538(1): 2020/07/25(土)00:54 ID:uhXYZAuD(1) AAS
進捗状況を表示させるには、最初にファイルサイズを取得する。
そして、データを書き換えるたびに、現在のseek 番地を取得して、
現在のseek 番地 × 100 / ファイルサイズ
例えば、300 × 100 / 1,000 = 30 %
539(1): 2020/07/25(土)01:23 ID:c7rlqrmm(1) AAS
>>538
レスありがとうございます
本当にうれしいのですがド素人なので理解出来ないのです
>>530のコマンドラインに絡めるかスクリプトにしていただけると卒倒するほど喜びます
これを機会にperlを勉強したいと（心から）思いますが、今の段階ではこんな図々しいお願いをするしか出来ません
540(1): 2020/07/25(土)02:26 ID:GJL3/5bG(1) AAS
もうええやろ？
541: 2020/07/26(日)01:36 ID:5SabrGL+(1) AAS
>>539
死ねよ
542: 2020/07/26(日)02:35 ID:T0U3lDAz(1) AAS
勉強する気はなしか
やれやれ
543: 2020/07/26(日)08:04 ID:faz+YmuJ(1/2) AAS
進捗表示は、計算自体は簡単だけど、ちゃんと見えるように表示するのが
ちょっと面倒なんだよな
544: 2020/07/26(日)10:44 ID:KWzmTFSY(1) AAS
好きなのを使えばいいよ。
外部ﾘﾝｸ:metacpan.org
545: 2020/07/26(日)11:13 ID:faz+YmuJ(2/2) AAS
そんなもんがいちいちあるのか
まあ、凝ったことをするなら共通化はするだろうけど
凝ったことしなくても、どういう頻度で表示するかとかの調整は必要で、
UI特有の機能と関係ない面倒臭さの部分なんだよな
546: 2020/07/26(日)13:26 ID:y3z4IjvW(1) AAS
ターミナルの機能を使いきるなら面倒だろうけど、ただ垂れ流すだけなら簡単やろ。
547: 2020/07/26(日)18:32 ID:hRZi6+cn(1) AAS
>>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;
}
548(2): 2020/07/27(月)00:36 ID:Y15FmTu1(1/3) AAS
>>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 }
549: 2020/07/27(月)01:28 ID:KvYX/iYh(1/2) AAS
>>548
いい加減にしろ
550(1): 2020/07/27(月)07:32 ID:X6EMHfht(1/2) AAS
readして変更しないところまでprintするのは無駄なのに
無駄を省けば進捗表示がいらないくらい高速化するだろうに
551: 2020/07/27(月)09:23 ID:HYhflFVx(1/2) AAS
コピーを作っておいて、そのコピーの一部だけ変更して書き戻せば一瞬
信頼性が上がったら、コピーは作らずにオリジナルを変更する
552: 2020/07/27(月)10:25 ID:URSuW3yQ(1) AAS
>>550
ファイルサイズがGBレベルなら、そんなに速くはならんやろ。
553: 2020/07/27(月)17:35 ID:X6EMHfht(2/2) AAS
ていうか >>548 は >>530 を参考にしてるのになんで遅い方を使ってるんだ
554: 2020/07/27(月)18:21 ID:Y15FmTu1(2/3) AAS
呼ばれた気がしたので
約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では認識できないのです
555: 2020/07/27(月)19:14 ID:KvYX/iYh(2/2) AAS
DRM解除の片棒担ぐ人達かね
556: 2020/07/27(月)19:33 ID:HYhflFVx(2/2) AAS
なんて大層なDRMだ
557(1): 2020/07/27(月)19:46 ID:Y15FmTu1(3/3) AAS
残念ながら暗号化解除まではされないんです
別の機器にコピーしようとしても「コピープロテクトがなんちゃら。。」と、ちゃんとハネられます
機器内の制限を緩くするためのオフホワイトな作業です
558: 2020/07/27(月)20:24 ID:2I3xUck9(1) AAS
頭悪くてプログラムしかできなかった大企業CEO一覧
外部ﾘﾝｸ:re-file.com
559(1): 2020/07/27(月)22:09 ID:P2Gsimd7(1) AAS
研究目的なら、犯罪の意思がないから、無罪だろ
560(1): 2020/07/27(月)23:21 ID:Z4OWIfz1(1) AAS
>>559
理由は関係ないはず
秘匿目的で暗号化されているものを解読することそのものが犯罪
561: 2020/07/27(月)23:23 ID:Dzov2n68(1/2) AAS
>>560
そんな事みんな知ってるよ
562: 2020/07/27(月)23:33 ID:Dzov2n68(2/2) AAS
法律に詳しいオレってカッコいいだろう？
563: 2020/07/28(火)00:29 ID:cSYuj1Eq(1) AAS
>>557
お前は裁判になって負けたら責任全部背負うのか？
564: 2020/07/28(火)01:16 ID:YHRj/bUX(1/2) AAS
責任ｗ
565: 2020/07/28(火)01:21 ID:YHRj/bUX(2/2) AAS
暗号化解除してないので責任ｗないですぅ プ
上下前次1-新書関写板覧索設栞歴
あと 437 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.017s