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/05/30(土) 08:54:37.07

拡張子が無くても判定できるようにすればいいんじゃないの? Emacs みたいに。

**デフォルトの名無しさん** · 2020/05/30(土) 12:16:10.21

>>441
つ　fileコマンド

**デフォルトの名無しさん** · 2020/05/30(土) 13:18:31.04

>>439
運用のために保守は犠牲にするんですか?

**デフォルトの名無しさん** · 2020/05/30(土) 13:58:45.71

>>443
実装の変更は、保守の範囲ではない。
二次開発かな？ｗ

**デフォルトの名無しさん** · 2020/05/30(土) 15:56:11.11

>>440
シェバン知らず？

**デフォルトの名無しさん** · 2020/05/30(土) 18:54:59.01

>>445
>>440はその前の話やろ。
シェバンがあるだけで、テキストファイルが勝手に起動されたら恐ろしいわ。ｗ

**デフォルトの名無しさん** · 2020/05/30(土) 19:43:41.34

>>432
おじいちゃん(´・ω・`)

**デフォルトの名無しさん** · 2020/05/31(日) 02:15:32.98

言語変えて作り直すって、俺の感覚ではシステム置き換えのイメージだわ
コンパイル済みのバイナリならともかく、スクリプト言語動かすって環境づくりも入るじゃん

**デフォルトの名無しさん** · 2020/05/31(日) 02:44:16.68

>>445
>>440に書いてあること読んでないだろ。

**デフォルトの名無しさん** · 2020/05/31(日) 03:40:37.55

その前って何？
だからシェバン使えば拡張子なんか使う必要はないってことだよ？
>>439みたいな書き換えはいらないってことを言ってる
あと自演して書き込みは見苦しいぞ

**デフォルトの名無しさん** · 2020/05/31(日) 04:22:23.87

読解力理解力がなくて、複数から指摘されたからって、自演扱いで返すとは見苦しいぞ。

**デフォルトの名無しさん** · 2020/05/31(日) 05:26:43.75

>>450
それ何のOSでの話？

**デフォルトの名無しさん** · 2020/06/11(木) 19:05:11.82

「local $| = 1;」と言う記述見たんですけど、
「$|」の局所化って意味あるのでしょうか？
ただ単に「$| = 1;」と等価であり「local」を記述しても無駄な気がするんですけど、
私の勘違いでしょうか？

「local $| = 1;」とやることで、
そのファイルの出力だけみたいな感じになるのですか？
となると、
同プロセスなのに標準出力バッファが出力毎に別個に用意されてる事になってしまいますよね？

分かるかた教えてください。

**デフォルトの名無しさん** · 2020/06/11(木) 19:32:41.35

>>453
スコープを抜けたときに、もとの値に戻る。

**デフォルトの名無しさん** · 2020/06/11(木) 19:37:09.97

横からだけど知らなかった…
毎回もとの値別変数で退避してた

**デフォルトの名無しさん** · 2020/06/11(木) 19:53:05.96

なんとなく直感的にグローバル変数だけだと思ってた
だから元の値を退避しておくという発想の方が自然
わざわざぶつけて便利に使おうという発想はいずれバグる

**デフォルトの名無しさん** · 2020/06/11(木) 20:13:03.35

>>454
レスありがとうございます。

「もとの値に戻る」と言う事は、a.plから参照される異なるスコープのb.pmがあり、
b.pmに「local $| = 1;」の記述があった場合、
b.pmに定義されたサブルーチンが呼び出される毎に、
「$| = 1;」と同等の処理が行われ、
戻る際には元の値がセットされるのでしょうか？
それとも、スコープによって異なる「$|」を、
標準出力側でスコープ毎に切り替えてるという事でしょうか？

**デフォルトの名無しさん** · 2020/06/11(木) 20:24:12.92

printする度に今見えてる$|が渡ってるんだろうな

**デフォルトの名無しさん** · 2020/06/11(木) 21:09:21.20

>>458
まぁ、そうですよね。無駄な処理になるし後者ですよね。
(OOP的に言うと、スコープ毎のインスタンスを参照的な)
ありがとうございました。

**デフォルトの名無しさん** · 2020/06/11(木) 22:40:57.89

>>456
Perlにあっては「わざわざ」ではない。
localはダイナミックスコープ、my/ourはレキシカルスコープであることは意識しておくべき。

**デフォルトの名無しさん** · 2020/06/12(金) 02:39:58.45

宜しくお願いします。
$1をクリアしたい場合は「'' =~ /()/;」等として
無駄なマッチングをして空文字列を設定しないとダメですか？
数億件のデータを捌く際とか、めちゃくちゃタイムロスになりますよね？
皆様はどうされてるのでしょう？

**461** · 2020/06/12(金) 02:41:54.90

>>461
↑に追記です。
$2以降のクリアも含めてお願いします。
最適な解を頂ければ幸いです。

**540** · 2020/06/12(金) 02:51:00.48

>>461
まず、scalar変数の場合
=()はできない

=''や""は明示的に空文字列を設定することになる

なので既存変数をクリア、というか不定状態に設定するには
= undef;

あるいは数値を設定するためのシンボルを値0に戻すには
= 0;

undefは値として評価されれれば0,文字列として評価割れれば空文字列''が返った
(と思う)

**デフォルトの名無しさん** · 2020/06/12(金) 03:17:40.95

答えではないのだけれど、そういう場面に遭遇したことがないんだよね
簡単でいいのでどんな時に必要なのかしら？

**461** · 2020/06/12(金) 03:24:01.31

>>463
あの…すみません。
スカラー値の評価の話をしている訳ではありません。
$1や$2や$3と言った特殊変数の値をクリアをする方法を聞いています。
これらの特殊変数に値を代入したらエラーになります。

引き続き>>461-462のベストな解をお待ちしています。
宜しくお願いします。

**461** · 2020/06/12(金) 03:52:20.68

>>464
計数億件のデータがあり、
それぞれにはCのラベルのような項目名がありまして、
それに続く文字列がその項目の値になるのですが、
(例えば「name: value…\n」な感じです)
これを一時的にDBに収めるためnameをキーとしてライブラリに渡したいんです。
一般的に思いつく方法としては、
「if( $ln =~ /^(パターン)://g ){ func( $1, $ln ); … }」
とすれば良いのですが、
なにせ件数が多いので、無駄な条件文を省きたいのです。
(条件文は処理が重いので)
検証実測値では1日以上の処理速度差がでるかもなのです。
(他にも同等の処理があるのでかなり省ける感じがするんです)

func()は、キーや値が未定義値もしくは空値であれば、
なにも処理をせず抜けるので、
$1がクリアできればif文を無くすことが出来ます。
そこで思いついたのが、
>>461の「'' =~ /()/;」ですが、これでは本末転倒です。

と言うのが経緯です。

**デフォルトの名無しさん** · 2020/06/12(金) 04:05:50.63

>>465
そもそも、$nはマッチしたときのみ参照する変数であるから、わざわざリセットする必要がない。

if (m/(.*)/) {
say $1;
}

これ以上の回答は>>464に答えてから。

**デフォルトの名無しさん** · 2020/06/12(金) 04:13:00.69

あら、いきちがった。。。

そういう話であれば、気にするな、ってところやろ。ｗ

オレの感覚では、ifで判定して関数を呼び出さないほうが速そうだと思うがなあ。
Perlの処理としては、関数からすぐ戻ると言っても、呼び出しもそこからの戻りもそんなに軽くはなかったような。

「かも」とか言ってないで、真剣ならまず計測してみろ。

**デフォルトの名無しさん** · 2020/06/12(金) 05:15:54.75

説明してくれたけど、やっぱイマイチ分からん
$1をクリアして無条件でfunc( $1, $ln )を呼び出したい、ということかしら
その時funcは通過するだけ、と
パフォーマンスを気にするならやっぱり　$1 && func( $1, $ln )とかの方がいいと思うけどな
多分、何か事情があるのでしょう。
美しくはないけど'' =~ /()/;なら誤差の範疇と思いますよ。
数値としてはベンチマークで

**デフォルトの名無しさん** · 2020/06/12(金) 05:31:29.45

$1をやめる選択肢は?

($label) = $ln =~ /^(パターン)://;
func($label, $ln);

**デフォルトの名無しさん** · 2020/06/12(金) 05:32:22.97

あ、/ 多い……

**デフォルトの名無しさん** · 2020/06/12(金) 05:38:56.76

答えじゃないんだけどさ、
$x = $ln =~ /^(パターン):/ && $1
これで以降は$xを使う、とか。

**デフォルトの名無しさん** · 2020/06/12(金) 05:48:44.96

え、array使わないの?
俺としては

($label) = $ln =~ /^(パターン):/;
func($label, $ln) if $label;

を推したい

**デフォルトの名無しさん** · 2020/06/12(金) 07:57:32.00

Ruby で特殊変数などは、スレッドローカル変数だから、
マルチスレッドでも共有しないから、安全だけど

特殊変数をクリアする必要など、考えたこともない

**デフォルトの名無しさん** · 2020/06/12(金) 09:26:27.43

マッチに失敗してるのに古い$1を使ってしまって、
みたいなケースはちょいちょいあるな

それはクリアしてなかったからではなくて、失敗をトラップしてないバグ

**デフォルトの名無しさん** · 2020/06/12(金) 13:25:45.07

>>466
もうCで書いちゃえよ。速いよ。
コロンまでの文字列抜き出すのは簡単だろう。

**デフォルトの名無しさん** · 2020/06/12(金) 13:29:01.14

速くしたいなら正規表現でマッチするかどうかなんてことやることそのものが間違いだとも思える。
同じPerl使うのであってもindex関数使うとか、他にやりようがあるんじゃないか？

**デフォルトの名無しさん** · 2020/06/12(金) 14:03:27.64

大量のデータを効率よく扱うのは、データベース構築するのが正解

個人が扱う範囲だと、テキストで持って全検索で困らないけど、
量が増えるとそのうち破綻する

**デフォルトの名無しさん** · 2020/06/12(金) 14:24:52.04

>466

$ln =~ /^(パターン):|(.*?)/
にすると、「^(パターン):」にマッチしないときに$1を空文字にできる。

**デフォルトの名無しさん** · 2020/06/12(金) 14:50:38.25

ただ、（試してはいないが）if文のオーバーヘッドより、
関数呼び出しのオーバーヘッドのほうが大きいと思うけどな。

**デフォルトの名無しさん** · 2020/06/12(金) 15:40:26.50

そこまで速度に気にするならC++とかで書いた方がいい気がするね

**デフォルトの名無しさん** · 2020/06/17(水) 18:41:04.46

そんなデカいデータをよくパールでやるね。
C で書け。

**デフォルトの名無しさん** · 2020/06/28(日) 09:30:04.48

https://developers.srad.jp/story/20/06/26/1324207/
> Perl 7が発表される。実質的にはPerl 5系のリネーム
> ストーリー by hylom 2020年06月26日 17時08分
> 現代における素人にはオススメできない言語部門より

現代における素人にはオススメできない言語
…なら、文字列処理をやりたい素人は何を学べばいいの？

**デフォルトの名無しさん** · 2020/06/28(日) 11:26:26.20

5の後継なら7にする必要あるの？

**デフォルトの名無しさん** · 2020/06/28(日) 13:29:12.55

>>484
事情を知らなくても最新版だとわかりやすくするために。

Perl6、Rakuがあるなかで、Perl5と言われたら古いとかEOLとかの疑いを持たれかねんから。
それに、必要であれば非互換も？

**デフォルトの名無しさん** · 2020/06/28(日) 18:17:09.91

お型付けできるようになったら嬉しいな

**デフォルトの名無しさん** · 2020/06/28(日) 19:55:20.21

ついに後方互換捨てるのか！

**デフォルトの名無しさん** · 2020/07/02(木) 21:44:39.67

デフォルトの状態が変わるだけで
適宜オプションつければ後方互換も保てるらしいよ
Perlのこういうところ好きだわ

**デフォルトの名無しさん** · 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

もうええやろ？