[過去ログ]
Perlについての質問箱 64箱目 (1002レス)
Perlについての質問箱 64箱目 http://mevius.5ch.net/test/read.cgi/tech/1548981877/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
491: デフォルトの名無しさん [sage] 2020/07/04(土) 19:41:56.61 ID:+vSKr8nf 効率化して高速化しようとしても、過去に足を引っ張られる http://mevius.5ch.net/test/read.cgi/tech/1548981877/491
492: デフォルトの名無しさん [sage] 2020/07/04(土) 19:48:46.40 ID:VctW6lO7 単純に過去を切り捨てたら、Rakuの二の舞になる。過去を切り捨てるのであれば、 Python に勝てる程度の言語仕様にしなければ、見向きもされないだろう。 しかし、それはもう既にPerlではないだろう。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/492
493: デフォルトの名無しさん [sage] 2020/07/04(土) 20:01:08.35 ID:XHKaM396 Perlはこのままでいいと思う レガシーなのがPerlの強さ http://mevius.5ch.net/test/read.cgi/tech/1548981877/493
494: デフォルトの名無しさん [sage] 2020/07/04(土) 20:55:27.14 ID:+vSKr8nf negative legacy http://mevius.5ch.net/test/read.cgi/tech/1548981877/494
495: デフォルトの名無しさん [sage] 2020/07/05(日) 01:06:23.02 ID:BkxIDrcL >>492 はい。 Wiki>「Perlに続く」という意味で、6月の次の誕生石(7月)のルビーから名付けられた http://mevius.5ch.net/test/read.cgi/tech/1548981877/495
496: デフォルトの名無しさん [sage] 2020/07/06(月) 00:05:12.58 ID:Dee8Pqdl 逆に頑張って作ったPerl6が古いみたいな感じになっちゃうな(´・ω・`) http://mevius.5ch.net/test/read.cgi/tech/1548981877/496
497: デフォルトの名無しさん [sage] 2020/07/06(月) 02:55:32.01 ID:pEZsiPGN もうPerl6は存在しないからだいじょうぶ。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/497
498: デフォルトの名無しさん [sage] 2020/07/06(月) 03:53:08.41 ID:Lg+fAiJM Perl6はさっさと開発中止すべきだったのになぜ続行したんだろう http://mevius.5ch.net/test/read.cgi/tech/1548981877/498
499: デフォルトの名無しさん [] 2020/07/06(月) 19:42:39.82 ID:5vDJxItj ま、いいじゃねえか。新しい言語が一つ増えたようなもんだし。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/499
500: デフォルトの名無しさん [sage] 2020/07/06(月) 21:20:03.77 ID:pEZsiPGN >>498 「すべき」って、おまえは何様なんや? やりたい人がやってただけ。 結果としてうまくいかなかっただけ。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/500
501: デフォルトの名無しさん [] 2020/07/07(火) 18:34:24.36 ID:e1WbjzO/ うまくいくべき http://mevius.5ch.net/test/read.cgi/tech/1548981877/501
502: デフォルトの名無しさん [sage] 2020/07/07(火) 18:40:58.31 ID:/oL+BKEU べきであるある http://mevius.5ch.net/test/read.cgi/tech/1548981877/502
503: デフォルトの名無しさん [sage] 2020/07/07(火) 18:42:17.26 ID:v8PkKQM3 >>500 何様ってw 匿名掲示板で何を言ってるのw 強いていうならPerlユーザーですw http://mevius.5ch.net/test/read.cgi/tech/1548981877/503
504: デフォルトの名無しさん [] 2020/07/07(火) 19:01:21.20 ID:e1WbjzO/ 俺様 http://mevius.5ch.net/test/read.cgi/tech/1548981877/504
505: デフォルトの名無しさん [sage] 2020/07/23(木) 01:04:36.09 ID:2kWEZYuR ___________________________________________ /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スクリプトでお願いします http://mevius.5ch.net/test/read.cgi/tech/1548981877/505
506: デフォルトの名無しさん [sage] 2020/07/23(木) 06:45:22.79 ID:6LXR6fOg binmodeで開いて、substr http://mevius.5ch.net/test/read.cgi/tech/1548981877/506
507: デフォルトの名無しさん [sage] 2020/07/23(木) 19:03:52.69 ID:2kWEZYuR >>506 ありがとう 素人過ぎてわかんないけど http://mevius.5ch.net/test/read.cgi/tech/1548981877/507
508: デフォルトの名無しさん [sage] 2020/07/23(木) 19:09:07.35 ID:NaEhWCW1 コードそのものを書いてくれとさ http://mevius.5ch.net/test/read.cgi/tech/1548981877/508
509: デフォルトの名無しさん [sage] 2020/07/23(木) 19:25:52.21 ID:2kWEZYuR 同じような目的の別のスクリプトです これに近いイメージでしょうか (全文書くとブロックされる) _________________________________________________________ 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; http://mevius.5ch.net/test/read.cgi/tech/1548981877/509
510: デフォルトの名無しさん [] 2020/07/24(金) 04:55:58.03 ID:6ZonvnML そうそう。そんな感じ。 まあ頑張って。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/510
511: デフォルトの名無しさん [sage] 2020/07/24(金) 09:07:49.48 ID:So4dssPK 書き換える番地は、N は、0 以上で、以下の法則か? 0x8000 × N + ( 0x80 + 0x1C ) つまり、ヘッダは必ず、0x8000 毎にあるのか? http://mevius.5ch.net/test/read.cgi/tech/1548981877/511
512: デフォルトの名無しさん [sage] 2020/07/24(金) 11:24:40.72 ID:JRbdBOQM >>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 に修正。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/512
513: デフォルトの名無しさん [sage] 2020/07/24(金) 11:37:31.23 ID:nuOKXnku オレなら、バイナリーエディタの置換機能を使うと思うが。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/513
514: デフォルトの名無しさん [sage] 2020/07/24(金) 11:40:12.29 ID:61Z/1/Bp 数が多いとツール作った方が早い 手動でやってもツール作っても時間同じなら、ツール作った方がいい 仕事では、ツール作ったせいで余計に時間かかってもツール作る http://mevius.5ch.net/test/read.cgi/tech/1548981877/514
515: デフォルトの名無しさん [sage] 2020/07/24(金) 11:53:07.60 ID:JRbdBOQM >>513 データが大きいのでLinuxのバイナリエディタでは上手く行かないのです http://mevius.5ch.net/test/read.cgi/tech/1548981877/515
516: デフォルトの名無しさん [sage] 2020/07/24(金) 12:54:55.96 ID:JRbdBOQM https://i.imgur.com/Y6NhiUE.jpg この文字列が一定間隔で現れます データが大きいので>>514さんの言うとおりツール(スクリプト)で処理したいのです http://mevius.5ch.net/test/read.cgi/tech/1548981877/516
517: デフォルトの名無しさん [sage] 2020/07/24(金) 15:39:03.44 ID:EkE5sKTE perl -e "binmode STDIN; binmode STDOUT; while (read STDIN, $_, 0x8000) { substr $_, 0x1c, 1, 0; print }" < IN > OUT これが最短? http://mevius.5ch.net/test/read.cgi/tech/1548981877/517
518: デフォルトの名無しさん [sage] 2020/07/24(金) 15:58:32.23 ID:JRbdBOQM >>517 レスありがとうございます 泣きそうです(解らなすぎて) >>509のスクリプトはバイナリ修正したコピーファイルを作成するものでした 小さなファイルなので問題ないのですが、目的の対象ファイルは10GB~20GBもあるものなのでマネ出来ません http://mevius.5ch.net/test/read.cgi/tech/1548981877/518
519: デフォルトの名無しさん [sage] 2020/07/24(金) 16:06:11.64 ID:JRbdBOQM >>509の全文です https://i.imgur.com/qOj8IAs.jpg 後出しのクセが強すぎすいません http://mevius.5ch.net/test/read.cgi/tech/1548981877/519
520: デフォルトの名無しさん [sage] 2020/07/24(金) 16:07:20.05 ID:UzZpGBU/ >>515 なるほどね。しかし、perlが扱えるデータ量にも、よく解らない限界があって、 巨大なデータを突っ込むと勝手に途中で切られたりするみたいだよ。 巨大なデータを扱うなら、seek関数みたいな低水準な手法を使う必要があるかもしれない。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/520
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 482 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.026s