[過去ログ]
Perlについての質問箱 64箱目 (1002レス)
Perlについての質問箱 64箱目 http://mevius.5ch.net/test/read.cgi/tech/1548981877/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
548: デフォルトの名無しさん [] 2020/07/27(月) 00:36:57.42 ID:Y15FmTu1 >>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 } http://mevius.5ch.net/test/read.cgi/tech/1548981877/548
554: デフォルトの名無しさん [] 2020/07/27(月) 18:21:31.29 ID:Y15FmTu1 呼ばれた気がしたので 約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では認識できないのです http://mevius.5ch.net/test/read.cgi/tech/1548981877/554
557: デフォルトの名無しさん [] 2020/07/27(月) 19:46:48.42 ID:Y15FmTu1 残念ながら暗号化解除まではされないんです 別の機器にコピーしようとしても「コピープロテクトがなんちゃら。。」と、ちゃんとハネられます 機器内の制限を緩くするためのオフホワイトな作業です http://mevius.5ch.net/test/read.cgi/tech/1548981877/557
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.027s