[過去ﾛｸﾞ]
Perlについての質問箱 64箱目 (1002ﾚｽ)
Perlについての質問箱 64箱目 http://mevius.5ch.net/test/read.cgi/tech/1548981877/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
125: デフォルトの名無しさん [] 2019/11/06(水) 20:39:05.70 ID:yvB3xxPc >>124 うちは税込ものを分離する時は消費税側で小数点以下切り捨てなのでOKなのです 四捨五入とか会計方針によっては稀に問題が出るかもしれませんね http://mevius.5ch.net/test/read.cgi/tech/1548981877/125
126: デフォルトの名無しさん [] 2019/11/06(水) 21:15:49.18 ID:i85ttsqs 1.1を掛けるなら11を掛けてから10で割った方が良いかもな。そうすると正数計算でやれる。 切り上げや四捨五入をしたい場合は10で割る前に一桁目を見て10を足したり足さなかったりすれば良い。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/126
127: デフォルトの名無しさん [] 2019/11/06(水) 21:18:49.26 ID:i85ttsqs ああ。逆か。税込みから本体と税を求めるのか。でも考え方は同じだな。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/127
128: デフォルトの名無しさん [sage] 2019/11/07(木) 00:06:59.16 ID:gr4VkOsJ >>125 違うぞ。今回の問題点をちゃんとわかってるか？ 1.1と書いたリテラルが、実際の値は1.10...となっていて、1.1よりも大きかったことだぞ。 誤差の具合によっては、正確には切り捨てが不要な値でも、除数が大きいせいで計算結果が実際よりも小さい値になってしまって、してはいけない切り捨てが発生してしまう可能性はないんかね。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/128
129: デフォルトの名無しさん [sage] 2019/11/07(木) 00:07:26.65 ID:gr4VkOsJ >>126 >>124 http://mevius.5ch.net/test/read.cgi/tech/1548981877/129
130: デフォルトの名無しさん [] 2019/11/07(木) 01:08:34.48 ID:q6f07NqD >>128 消費税は小数点を使わず整数計算で 10 /110 8 / 108 で計算するようにします アドバイスありがとうございます http://mevius.5ch.net/test/read.cgi/tech/1548981877/130
131: デフォルトの名無しさん [] 2019/11/07(木) 01:12:13.17 ID:q6f07NqD >>128 うちの会社ではあんなに国家予算並みにたくさん「0」が出てくる消費税計算は無いのでとりあえずの回避でも大丈夫です とはいえ先ほどのように整数計算に修正しようと思います http://mevius.5ch.net/test/read.cgi/tech/1548981877/131
132: デフォルトの名無しさん [sage] 2019/11/09(土) 10:00:40.69 ID:q+fGPpet どちらにせよ、小数点以下をどう扱うかは仕様で決めないとダメだな。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/132
133: デフォルトの名無しさん [sage] 2019/11/14(木) 22:54:58.33 ID:cMIrVE8k ファイルハンドル($fh)からファイル名を取得する方法ってありますか？ ・stat $fhでinode取得してシェルのfindで見つけるってのはコストかかるのでやりたくない。 *{$fh}{IO}辿ってIO::Fileから得られないかなって調べたんですけど分かりませんでした。 基本的にそういう思想がないってことかも知れません。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/133
134: デフォルトの名無しさん [sage] 2019/11/15(金) 00:28:22.57 ID:WAwhq9DE ムリやろ。 ファイル名のないファイルハンドルも少なくないしな。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/134
135: デフォルトの名無しさん [] 2019/11/15(金) 12:49:10.35 ID:qkK0C17l ファイルハンドルからファイル名を求めるシステムコールとかもないしな。 ハードリンクされてて1つのi-nodeで複数のファイル名を持ってたらどうすんのっていう問題もある。 自分の作ったプログラムの中だけでいいならそのプログラム内だけの独自のopen,close作ってそこでファイル名を保持しとけば良いんじゃないかな。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/135
136: デフォルトの名無しさん [sage] 2019/11/15(金) 22:37:17.80 ID:9LSwivmi お二方ありがとう そもそもそういう使い方をするものではないって理解しました http://mevius.5ch.net/test/read.cgi/tech/1548981877/136
137: デフォルトの名無しさん [sage] 2019/11/17(日) 00:22:07.56 ID:+/PgA3gU そもそもファイルをopenした時点で、ファイル名は自明だろ、、、 <>の場合は、今開いているファイル名は、$ARGVでアクセス出来るし、、、 while(<>){ print $ARGV if $. == 1 ; $. = 0 if eof } 他は、自分でコード書くんだからファイルリストの管理すりゃいいだけの 話だし。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/137
138: デフォルトの名無しさん [] 2019/11/17(日) 00:47:01.26 ID:7P3Fm4Oa >>137 ファイルハンドルだけもらうクラスかもよ http://mevius.5ch.net/test/read.cgi/tech/1548981877/138
139: デフォルトの名無しさん [sage] 2019/11/17(日) 01:44:18.01 ID:cO7DNsZu いや、気持ちはわかるやろ。 ファイルハンドルは、しょせんハンドルでしかないと納得するのは、事情がある程度わかってからなんだから。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/139
140: デフォルトの名無しさん [] 2019/11/17(日) 07:47:40.51 ID:bNRHw2eJ ファイルハンドルをインクリメントすると次のファイルを指すハンドルになることはあまり知られていない。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/140
141: デフォルトの名無しさん [sage] 2019/11/17(日) 12:07:49.00 ID:Ew4nGi4g >>140 それは、Perlのファイルハンドルの話か？ Cのファイルポインタではなく？ http://mevius.5ch.net/test/read.cgi/tech/1548981877/141
142: デフォルトの名無しさん [sage] 2019/11/18(月) 08:50:22.41 ID:4tmHvePg ActivePerl 5.22 から 5.28 にアップデートしたのだが、 次のものがなくなってしまって、とても不便になった気がする。 ・PerlEz.dll ・ppm（perlパッケージマネージャー） ・htmlドキュメント 他の２点はいいとしても、PerlEz.dllが無いと生きていけないので、 5.22 に戻した。もう一生5.22 を使い続けることになるのかな。 なぜ、こんな事をするのだろうか？ http://mevius.5ch.net/test/read.cgi/tech/1548981877/142
143: デフォルトの名無しさん [sage] 2019/11/18(月) 20:45:39.28 ID:2uYwgX87 Strawberry Perl 使えよ http://mevius.5ch.net/test/read.cgi/tech/1548981877/143
144: デフォルトの名無しさん [sage] 2019/11/22(金) 22:32:44.69 ID:G0qxcoi/ そういやみんな最新の安定版使ってんの？ うちは5.20で止めてる。特に意味はないんだけどこれが安定してるってどこかで見たから。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/144
145: デフォルトの名無しさん [sage] 2019/11/22(金) 23:56:39.64 ID:0hNsLKVA 5.16.3だな 多分意味は無い http://mevius.5ch.net/test/read.cgi/tech/1548981877/145
146: デフォルトの名無しさん [] 2019/11/23(土) 00:04:49.15 ID:pA1s2lMR 俺もCentOSのデフォルトだわ 5.16.x もう枯れてるしね http://mevius.5ch.net/test/read.cgi/tech/1548981877/146
147: デフォルトの名無しさん [sage] 2019/11/23(土) 00:20:10.52 ID:FBMqwUlj ずっと5.8.9のままだわ とにかく安定している http://mevius.5ch.net/test/read.cgi/tech/1548981877/147
148: デフォルトの名無しさん [sage] 2019/11/23(土) 01:08:20.02 ID:uP8OeUg3 perlのワンライナーについて質問です。 cat /home/xxx/aaa.txt | perl -spe 's/AA/$var/; END{print "complated.\n"}' -- -var="BB" > bbb.txt 上記のようにすると、END部分の終了メッセージもbbb.txtに保存されてしまいます。 そこで下記のようにしてみたのですが、入力ファイルの指定と"--"以降の引数がうまく与えられずエラーになります。 perl -i -spe 's/AA/$var/; END{print "complated.\n"}' /home/xxx/aaa.txt --
-var="BB" どのようにすれば入力ファイルの指定と変数渡しを一緒にできますか？ http://mevius.5ch.net/test/read.cgi/tech/1548981877/148
149: デフォルトの名無しさん [sage] 2019/11/23(土) 01:52:51.48 ID:0LKgjFg3 5.30.0 なるべく最新の安定版を追っかけてる http://mevius.5ch.net/test/read.cgi/tech/1548981877/149
150: デフォルトの名無しさん [sage] 2019/11/23(土) 02:19:04.46 ID:En+bKilB >>148 STDERRにprintすれば？ http://mevius.5ch.net/test/read.cgi/tech/1548981877/150
151: デフォルトの名無しさん [sage] 2019/11/23(土) 10:12:25.15 ID:Dim3LBiC perl5.26.1 perl2exe 使うので。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/151
152: デフォルトの名無しさん [sage] 2019/11/24(日) 00:31:51.83 ID:jceUCsgs >>150 ご意見有難うございます。 ファイルを一番最後に入れるとできるということがわかりました。 perl -i -spe 's/AA/$var/; END{print "complated.\n"}' -- -var="BB" /home/xxx/aaa.txt http://mevius.5ch.net/test/read.cgi/tech/1548981877/152
153: デフォルトの名無しさん [] 2019/11/25(月) 10:33:31.52 ID:veETdbiQ >>152 -i があるからでは？ -i.bak とかやっとくと .bak をファイル名に付加したバックアップ作れるよ。 多分新規ファイル開いてそちらに出力して後でリネームして元ファイルのバックアップを取ろうとしてるんだろうと思う。 -i の直後に何もない場合はバックアップ取らずに元ファイルにリネームだけやってるんだと思う。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/153
154: デフォルトの名無しさん [sage] 2019/11/26(火) 23:14:08.94 ID:EA1DZQ5h >>153 コメントありがとうございます。 今回やることはファイルに上書きしたくバックアップもいらなかったので -i で良いかなと思っていました。 ワンライナーはよくお世話になってるのですが、今回-sでperl内に変数として渡せることがわかり、ますます重宝しそうです。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/154
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 848 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.029s