■ このスレッドは過去ログ倉庫に格納されています
Perlについての質問箱 64箱目
- 1 :デフォルトの名無しさん:2019/02/01(金) 09:44:37.18 ID:1/Kr4Qjk.net
- 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/
- 49 : :2019/03/06(水) 19:01:29.83 ID:pvc8mHD3.net
- >>48
その perl は perl6 ですか?
- 50 :デフォルトの名無しさん:2019/03/06(水) 21:27:34.75 ID:USxtxcs5.net
- なんかのはずみで処理が終わらなかったとき、自殺するようにしたいんだけど、
eval {
alarm 5;
$SIG{ALRM} = sub { exit; };
};
これでいいんだっけ?
- 51 :デフォルトの名無しさん:2019/03/06(水) 21:55:14.52 ID:/3I9LNWz.net
- いいんじゃないすか それだけだとevalはいらないと思うけど
あと慣例ならハンドラ設定が先かな exitじゃなくdieとか
- 52 :デフォルトの名無しさん:2019/03/06(水) 22:26:52.53 ID:USxtxcs5.net
- ありがとう
>evalはいらないと思うけど
よく覚えてないけど、evalはシグナルに対応してないシステムだとエラーで落ちる気がした
- 53 :デフォルトの名無しさん:2019/03/07(木) 00:21:03.62 ID:pkHUcH4A.net
- perlipc を読むといいかも。
http://perldoc.jp/pod/perlipc
- 54 :デフォルトの名無しさん:2019/04/26(金) 17:48:05.44 ID:T3sMMsV1.net
- Perl News に "Fork yeah!" というのがあってちょっと驚いた。
https://www.perl.com/article/fork-yeah-/
- 55 :デフォルトの名無しさん:2019/04/29(月) 00:48:49.16 ID:OgUfT4lW.net
- メアド用にさくらインターネットのライトプラン(sslログインなし)借りてるんだけど
そこにちょっとしたcgi作って置こうとしてて
ものすごい久々にuse CGIとかやってます。
で、corelist CGIってやると
> Data for 2018-01-20
> CGI was first released with perl 5.004, deprecated (will be CPAN-only) in v5.19.7 and removed from v5.21.0
と出るんだけど
CGIが標準モジュールから削除された理由とか、
代替となるモジュールって知ってる人いませんか。
Perlはweb用の言語じゃないから標準モジュールからは消した とか
そんな理由ならいいんだけどさ。。
- 56 :デフォルトの名無しさん:2019/04/29(月) 01:34:45.78 ID:EAhXUlQz.net
- 「core は出来るだけ小さく」
「CGI はもはや Web の主流ではない」
かな。必要になった者のみが追加でインストールすればよい
標準で代替になるようなものはないと思うが pure perl だろうし最悪 CGI モジュールも一緒にアップロードとかでも動くでしょ
そもそもさくらレンタルサーバーで使える perl って 5.8 〜 5.14 ぽいけど
ttps://help.sakura.ad.jp/hc/ja/articles/206053142#ac05
- 57 :デフォルトの名無しさん:2019/04/29(月) 01:57:14.83 ID:OgUfT4lW.net
- >>56
どもども
その理由なら安心ですわ
perlのバージョンは確認したんだけど、消えた理由によっちゃ使うの気持ち悪いなーと思ったので
どもでした。
- 58 :デフォルトの名無しさん:2019/05/21(火) 19:09:48.73 ID:ItBIHcGN.net
- 5.30が出るのかと思ってたら、出てねー
やる気ねーのかよ
- 59 :デフォルトの名無しさん:2019/05/21(火) 21:00:16.28 ID:BVi2WQ22.net
- ていうかこんなに長くアップデートが続いていることだけでもかなり凄い事だと思う。
- 60 :デフォルトの名無しさん:2019/05/21(火) 22:12:45.42 ID:vpg4l/5q.net
- 5.30.0 RC2までは出てるからそのうち出るだろ
- 61 :デフォルトの名無しさん:2019/06/01(土) 02:23:48.95 ID:4bbBO9Ct.net
- $str =~ /$pattern/
みたいなことはできるけど、
$str =~ /$pattern/$opt
みたいにして大文字小文字を同一視するかどうかを動的に指定したい
if文で処理行を分けるしか無理?
- 62 :デフォルトの名無しさん:2019/06/01(土) 04:41:47.86 ID:uuPo6pHP.net
- >>61
eval 使えばいいのでは?
- 63 :デフォルトの名無しさん:2019/06/01(土) 08:47:17.23 ID:GQlgchjf.net
- Ruby では、Regexp オブジェクトで、動的に作れる
str = "aB"
opt = Regexp::IGNORECASE
p re = Regexp.new( str, opt )
#=> /aB/i
- 64 :デフォルトの名無しさん:2019/06/01(土) 10:32:32.69 ID:uuPo6pHP.net
- パターンマッチの直前で比較対象の文字列を uc() 使って小文字を全て大文字に変換しておく、または lc() で大文字を全て小文字にしておく事でも実現できるな。
パターンの方にも変換必要になるかも知れないが、それについては予め大文字または小文字でパターン作っておけば回避できる。
- 65 :デフォルトの名無しさん:2019/06/01(土) 10:33:06.85 ID:4bbBO9Ct.net
- ただ、どう考えても遅くなるよな
素直に切り替えよう
- 66 :デフォルトの名無しさん:2019/06/01(土) 11:42:41.31 ID:UESmRH3l.net
- >>61
# http://perldoc.jp/docs/perl/perlre.pod#Extended32Patterns
my $subject = 'FooBar';
my $search = 'foobar';
my $pattern = qr/$search/;
print $subject =~ /$pattern/ ? 'match' : 'unmatch', "\n";
$pattern = qr/(?i)$search/;
print $subject =~ /$pattern/ ? 'match' : 'unmatch', "\n";
- 67 :デフォルトの名無しさん:2019/06/01(土) 11:49:39.64 ID:4bbBO9Ct.net
- (?i)と書いておけばいいだけか
じゃあもう実装済みで、使う側でどうにでもできる
- 68 :デフォルトの名無しさん:2019/06/01(土) 13:34:35.95 ID:zyIO0HLx.net
- Python ってダサいよね。
- 69 :デフォルトの名無しさん:2019/06/13(木) 09:38:18.19 ID:8EHJsjb3.net
- Pythonはほどほどの長さのスクリプト言語としてならアリなんだが
ツールとしては良くも悪くも電卓だなぁ
- 70 :デフォルトの名無しさん:2019/06/14(金) 01:28:05.42 ID:TwyiKBjF.net
- バッチは使いやすさでperl、サーバだと今はパフォーマンスで選んでgolangやろうとしてるわ
- 71 :デフォルトの名無しさん:2019/06/14(金) 21:23:40.01 ID:GJHBGGzo.net
- https://tech.nikkeibp.co.jp/atcl/nxt/column/18/00682/061100007/
Pythonはコードが書きやすい?ご冗談でしょう
- 72 :デフォルトの名無しさん:2019/06/14(金) 23:12:24.97 ID:oN4k2Se6.net
- >>71
読んだけど、実際にはタイトルほどPythonを悪くいってないな。w
- 73 :デフォルトの名無しさん:2019/06/16(日) 10:31:31.41 ID:Q48cejx2.net
- windowsでreaddirするとcp932で読めてくる
それだと面倒なので、opendirする時か、ハンドラに対して、
decoding(cp932) みたいに指定するにはどうすればいい?
- 74 :デフォルトの名無しさん:2019/06/16(日) 14:26:37.09 ID:bI4lsVP6.net
- https://www.javadrive.jp/perl/file/index12.html
- 75 :perltidy バグってない?:2019/06/28(金) 03:27:32.11 ID:yOZUOG90.net
- perltidy -pbp -nola perl_file
この -pbp は perl best practices にする設定になっている
という仕様が書かれているが
sub {
:LABEL
for ....................
のようなラベルが本の通りにならない。たとえば 103ページなど
ラベル調整を諦めて -nola をつけ、手動で正しくすることにした
これバグだよな?
- 76 :バグもういっこ:2019/06/28(金) 03:37:53.64 ID:yOZUOG90.net
- https://i.imgur.com/YlNx4as.png
左のように綺麗にまっすぐ整えろ が本の通りなのに
右のように変なところにいく
- 77 :デフォルトの名無しさん:2019/06/28(金) 05:48:53.09 ID:MYNfkfjj.net
- 何語?
- 78 :デフォルトの名無しさん:2019/06/28(金) 14:53:22.61 ID:oMWPNRS2.net
- perl にインデントを求めるな。
- 79 :デフォルトの名無しさん:2019/06/29(土) 00:24:21.75 ID:YzN8MsSb.net
- \(^o^)/
- 80 :デフォルトの名無しさん:2019/06/29(土) 05:53:24.17 ID:3U68S2mZ.net
- どうでもインデント
- 81 :デフォルトの名無しさん:2019/06/29(土) 15:13:13.34 ID:3U68S2mZ.net
- sjisでローマ数字のUが書いてあるのをutf8にすると、どうやっても化けるな
- 82 :デフォルトの名無しさん:2019/06/29(土) 15:18:34.74 ID:3U68S2mZ.net
- 一旦生で読んでcp932でデコードすればいいのか
LWP:Simpleだとそのへんに手が出せない
- 83 :デフォルトの名無しさん:2019/06/29(土) 17:02:36.85 ID:o1VtcfU0.net
- MySQLもそうだけど、sjisは使っちゃイカンやろ。
細かいところで文字の置き換えルールがメチャクチャだったような。
いわゆるシフトJISはとにかくcp932で。
- 84 :デフォルトの名無しさん:2019/06/29(土) 17:53:32.74 ID:3U68S2mZ.net
- 多分htmlに俺はsjisだと書いてあると、LWPが勝手にsjisでデコードするんだろう
- 85 :デフォルトの名無しさん:2019/07/06(土) 10:10:18.37 ID:oMEfEQKE.net
- 元がeuc-jpだと、
$str =~ s/\x{301c}/〜/g;
みたいなことを明示的に書かないと、回避できないみたい
同じものやがな
- 86 :デフォルトの名無しさん:2019/07/12(金) 02:22:50.96 ID:AjCqo1Mf.net
- 下記のコードですがダブルクォートを介さずに$testから'フ'を表示させる方法はありますか?
#!/bin/env perl
use strict;
use warnings;
use utf8;
my $test = '\xE3\x83\x95';
my $test2 = "\xE3\x83\x95";
print "$test\n\n";
print "$test2\n\n";
- 87 :デフォルトの名無しさん:2019/07/12(金) 02:35:11.65 ID:gPQuYcbX.net
- my $test3 = $test;
$test3 =~ s/\\x([0-9A-Fa-f]{2})/pack('H2', $1)/eg;
print "$test3\n";
- 88 :デフォルトの名無しさん:2019/07/12(金) 04:04:28.94 ID:yXcDIkyu.net
- print eval qq/"$test\n\n"/;
- 89 :86:2019/07/12(金) 07:58:26.24 ID:AjCqo1Mf.net
- ありがとうございます!
- 90 :デフォルトの名無しさん:2019/08/11(日) 05:06:35.55 ID:GTeyRs5o.net
- こんな書きかたあったか?
DB<27> printf "%s\n", ('Fizz')[$_%3] . ('Buzz')[$_%5] || $_ for (1..15)
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz
()[]が見おぼえがない
- 91 :デフォルトの名無しさん:2019/08/11(日) 05:17:44.88 ID:GTeyRs5o.net
- ()で配列とみなしたとき
()[0]は定義されていると考えて
()[1]などは未定義で無しというトリックか
- 92 :デフォルトの名無しさん:2019/08/11(日) 05:42:32.38 ID:GTeyRs5o.net
- DB<25> print "$_ cup", ("s")[$_ < 2] , " of coffee\n" for (1..3)
1 cup of coffee
2 cups of coffee
3 cups of coffee
- 93 :デフォルトの名無しさん:2019/08/11(日) 10:17:48.54 ID:GTeyRs5o.net
- DB<23> printf "%s\n", "$_ cup" . ("s")x!!($_ != 1) . " of coffee" for (0..3)
0 cups of coffee
1 cup of coffee
2 cups of coffee
3 cups of coffee
DB<24> printf "%s\n", "$_ butterfl" . ("y","ies")[($_ != 1)] for (0..3)
0 butterflies
1 butterfly
2 butterflies
3 butterflies
- 94 :デフォルトの名無しさん:2019/08/12(月) 10:00:54.45 ID:1t9yEA1l.net
- 今はもう (1)[1] が空リストにならないんだな。perl5220delta に書いてあった。
リストコンテキストでの問題を避けるために
[split( /::/ , $class)]->[4]
みたいな書き方をしていたんだが。
いや、これは変えなくていいのか。
- 95 :デフォルトの名無しさん:2019/08/12(月) 10:16:24.43 ID:BBJuWfXI.net
- undefは省力とかフェールセーフ的に有効にするんじゃなくて、
厳密に仕様化して積極的に使うべきだよな
初期化されてないものを使うのが気持ち悪いと感じるのは、
auto変数が本当に領域確保するだけだった頃の名残り
- 96 :デフォルトの名無しさん:2019/09/14(土) 11:56:42.38 ID:MMNKizJk.net
- 簡単なシェルスクリプトしか書けない素人ですがPerlの利点ってどこです?
grep -Pやperl -peで世話にはなっていますが目当てはあくまで正規表現だけですし
比較演算子はbashと逆だし変数は記号で使い分けなきゃならんしなんだこいつってなって
- 97 :デフォルトの名無しさん:2019/09/14(土) 12:00:19.76 ID:JUmWdv2U.net
- どこでも使える
- 98 :デフォルトの名無しさん:2019/09/14(土) 23:46:33.57 ID:n7pzU9md.net
- テキスト処理に特化されているところ
そのおかげで "," や " " とかの部分を q(,) q( ) などと書けたり
perl コードが正規表現と一体化していて再帰も扱えたりなど色々あるが
全部特化したことによる利点
- 99 :デフォルトの名無しさん:2019/09/14(土) 23:58:57.25 ID:SgsUVSB1.net
- Perl6使ってる香具師さんいますか?
- 100 :デフォルトの名無しさん:2019/09/15(日) 00:02:41.49 ID:epz106Yo.net
- bashで凝ったことを書くことを考えたら、Perlのほうがはるかに簡単。
bashは所詮シェルなので、クォートとかエスケープとか変数とか関数とか、いちいちワナが多いからな。
- 101 :デフォルトの名無しさん:2019/09/15(日) 17:56:28.72 ID:riyG3w3b.net
- Perlの利点?
他の言語と同様になんでもできることかな。モジュール色々使うと作るの楽だしOSの違いもかなり吸収されてWindowsでもLinuxでも何も変更せずに動くプログラムも作れる。
シェルスクリプトも外部コマンド動かせば何でもできるとは言えるが、起動のオーバーヘッドの問題や起動しているコマンドの仕様が変わったときに個別に対応しなければいけないなど面倒な事がある。
- 102 :デフォルトの名無しさん:2019/10/23(水) 15:22:28.55 ID:Q75cL8J3.net
- >>101
> OSの違いもかなり吸収されてWindowsでもLinuxでも何も変更せずに動くプログラムも作れる。
これでとんでもない目に遭ったぞ。
perlの\nは、内部的にはLF のみだが、OSがWindowsなら、出力する際に
CR+LF に自動的に変換してくれる。
しかし、出力文字コードがutf16le だと、特殊な宣言文を書かない限り、
LF (0x000a)は 「0x000a000d」ではなく、「0x000a0d」に変換され、
ぐちゃぐちゃに文字化けする。
文字化けの原因を特定し、回避方法を見つけるために、ずいぶん時間を取られた。
- 103 :デフォルトの名無しさん:2019/10/23(水) 15:31:23.16 ID:7+59i/z7.net
- chcp 1200でいけそうな気がするんだけど
- 104 :デフォルトの名無しさん:2019/10/23(水) 17:37:45.28 ID:azQS8Nqn.net
- >>102
\n は他の言語でも気を付けた方が良い。
例えC言語だったとしても歴史的な事情でライブラリが勝手に変換するかも知れない。
この頃はそれにまつわるバグは減ってるとは思うけどね。
ま、少なくとも \n を \x0a だと信じ込んで使うのは止めた方がいいだろうな。
\x0a はあくまでも \x0a と書いた方が良い。
Javaとかでは改行は System.out.println() を使って改行させるようにして \n を埋め込んでの改行は極力避けた方が良い。
- 105 :デフォルトの名無しさん:2019/10/24(木) 00:15:31.72 ID:dNYiTPCj.net
- >>102
いや、特殊な宣言文ってなんだよ。PerlIO の man 読めよ。
open 関数や binmode 関数の説明にも「PerlIO を読め」って書いてあるよ。
- 106 :デフォルトの名無しさん:2019/10/24(木) 00:54:14.51 ID:NQorbS3o.net
- s/\n//g;
s/\r//g;
俺は常にこうしてる
- 107 :デフォルトの名無しさん:2019/10/24(木) 06:24:46 ID:rCe9ez9s.net
- \nを埋め込んだ箇所が一つでもあったらアウト
みたいな作り方は絶対失敗する
- 108 :デフォルトの名無しさん:2019/10/24(木) 08:28:21.30 ID:wmDm31X8.net
- >>106
s/\R//g;
じゃないのか?
- 109 :デフォルトの名無しさん:2019/10/24(木) 09:04:15.10 ID:LjTGtkP8.net
- >>105
> いや、特殊な宣言文ってなんだよ。PerlIO の man 読めよ。
結論としては、下のように書けばいいのだが、これはネットで色々探して
見つけてきたもので、PerlIO の man 読んで自分で見い出すことは、
私にはできなかった。それが出来る人は凄いと思う。
binmode STDOUT => ":raw:encoding(utf16le):crlf";
- 110 :デフォルトの名無しさん:2019/10/24(木) 22:37:27.00 ID:rCe9ez9s.net
- 右から読むんだよ
- 111 :デフォルトの名無しさん:2019/11/06(水) 01:45:01.50 ID:yvB3xxPc.net
- 消費税計算(10%)しようとしました。税込550円を消費税と本体価格にする。
$a = 550;
$b = 1.1;
$c = $a / $b;
$d = $a - $c;
$e = int($c);
$f = int ($d);
print すると、
$c は 500
$d は 50.000000000001(0の数はだいたい)
$e は 499
$d は 50
とうやら550 / 1.1 が内部的に割り切れていない様子(おそらく実際は内部的に499.99999999999999になってるのでintすると499に)
ロジックの変更で回避したけど、このバグ聞いたことありますか?
- 112 :デフォルトの名無しさん:2019/11/06(水) 02:54:03.98 ID:normnvJW.net
- >>111
バグじゃなくて仕様やろ。
Perlの数値型はdoubleなので、1.1が正確に表現できてないんちゃう?
浮動小数点数の誤差についてぐぐれ。
- 113 :デフォルトの名無しさん:2019/11/06(水) 03:29:15.89 ID:normnvJW.net
- >>111
おせっかいかもだがもうひとつ。
その手の誤差を回避するのは、ロジックでなんとかできることもあるが、実際にはなかなか難しいはず。
たまたま誤差が見えなくなってるだけの可能性もありそうなので、動作確認は慎重にな。
ちゃんとやるなら、decimal的なモジュールを使ったほうが。
あるかどうかは知らんけど。
- 114 :デフォルトの名無しさん:2019/11/06(水) 03:46:51.16 ID:QwLiS9cf.net
- >>111
バクではなく仕様。
ちなみにPython,Tclで確認してみましたが同じ出力結果になりました。
どんな言語でも金額の計算や小数点の桁を調整をする場合、
int(切り捨て)、round(四捨五入)、ceil(切り上げ)などで処理するか、
出力時に、printfやsprintfを使って、"%.0f"などを指定して桁を合わせる
必要があると思います。
- 115 :デフォルトの名無しさん:2019/11/06(水) 03:51:32.22 ID:ZoqI13Ph.net
- あるよ
use bigrat;
my %ISO_number = (
100 => 0,
125 => 1/3,
160 => 2/3,
200 => 1,
250 => 4/3,
320 => 5/3,
400 => 2,
500 => 7/3,
640 => 8/3,
800 => 3,
1000 => 10/3,
1250 => 11/3,
1600 => 4,
2000 => 13/3,
2500 => 14/3,
3200 => 5,
4000 => 16/3,
5000 => 17/3,
6400 => 6,
8000 => 19/3,
10000 => 20/3,
12800 => 7,
);
# dirty hack: 0/1 force rational type
# warning: if it locate last, sum goes WRONG!
printf "%s\n", 0/1 + $shutter_speed{$ss} + $F_number{$F} - $ISO_number{$ISO};
- 116 :デフォルトの名無しさん:2019/11/06(水) 09:06:26.53 ID:dfSHCt1W.net
- 浮動小数点の問題は知っていたが、こうなる事は初めて知った。危ないもんだな。
$c = $a / $b; # $c = 500
$e = int($c); # $e = 499
- 117 :デフォルトの名無しさん:2019/11/06(水) 09:28:51.28 ID:i85ttsqs.net
- >>111
それはバグではないし、昔々からある超有名な仕様。知らないのはお前だけ。
- 118 :デフォルトの名無しさん:2019/11/06(水) 10:08:35.95 ID:yvB3xxPc.net
- >>112
>>113
>>114
>>117
仕様で他の言語でもあるのですね。Perlで明示的な型指定とかはほぼ考えたことが無かった(1.08の時は意図した結果が得られていた)ので、勉強してみます。
ありがとうございます。
- 119 :デフォルトの名無しさん:2019/11/06(水) 10:29:25.24 ID:i85ttsqs.net
- 言語というよりはライブラリやCPUの問題だ。
しかしだいたいのメジャーな言語が採用しちゃってるので言語に関係なく出ると思って良い。
- 120 :デフォルトの名無しさん:2019/11/06(水) 17:59:53.94 ID:j94j+HrP.net
- 言語仕様っていうと違和感あるね
意図してこうしてますって感じで
IEEE 754の仕様といえばそうなのかもしれんがあれは規格であって
仕様とはまたニュアンスが違う なんつーか実数扱うときはそんなもんという感覚
- 121 :デフォルトの名無しさん:2019/11/06(水) 18:58:09.30 ID:yvB3xxPc.net
- >>111
一応、取った対応策です(消費税計算なので精度は不要)
除算解は有効桁数以下が切り捨てになり表示などで見える値以下になると想定しました
$a = 550;
$b = 1.1;
$c = ;
$tax= int($a - $a / $b); # $tax = 50
$net = $a - $tax; # $net = 500
端数を残したまま税込から除算解を引いてintして税とし、税込から税を引いて本体としました
とりあえず期待した結果は得られています
ありがとうございました。
- 122 :デフォルトの名無しさん:2019/11/06(水) 18:59:08.05 ID:yvB3xxPc.net
- $c = ;
この行余計でした
- 123 :デフォルトの名無しさん:2019/11/06(水) 19:44:41.92 ID:mEOqpT9o.net
- >>120
C/C++なら規格が精密なのでそういう違和感もわかるが、Perlの場合は逆におかしいやろ。w
- 124 :デフォルトの名無しさん:2019/11/06(水) 19:52:26.69 ID:mEOqpT9o.net
- >>121
税率によってはきっとアカン場合がありそう。。。
単純な切り捨てはヤバいような。
まあ、そこまでの精度はイランのやろけども。
ちなみに、今回のケースなら、$x/1.1とするのではなく、$x*100/110としたほうが安定しそう?
- 125 :デフォルトの名無しさん:2019/11/06(水) 20:39:05.70 ID:yvB3xxPc.net
- >>124
うちは税込ものを分離する時は消費税側で小数点以下切り捨てなのでOKなのです
四捨五入とか会計方針によっては稀に問題が出るかもしれませんね
- 126 :デフォルトの名無しさん:2019/11/06(水) 21:15:49.18 ID:i85ttsqs.net
- 1.1を掛けるなら11を掛けてから10で割った方が良いかもな。そうすると正数計算でやれる。
切り上げや四捨五入をしたい場合は10で割る前に一桁目を見て10を足したり足さなかったりすれば良い。
- 127 :デフォルトの名無しさん:2019/11/06(水) 21:18:49.26 ID:i85ttsqs.net
- ああ。逆か。税込みから本体と税を求めるのか。でも考え方は同じだな。
- 128 :デフォルトの名無しさん:2019/11/07(木) 00:06:59.16 ID:gr4VkOsJ.net
- >>125
違うぞ。今回の問題点をちゃんとわかってるか?
1.1と書いたリテラルが、実際の値は1.10...となっていて、1.1よりも大きかったことだぞ。
誤差の具合によっては、正確には切り捨てが不要な値でも、除数が大きいせいで計算結果が実際よりも小さい値になってしまって、してはいけない切り捨てが発生してしまう可能性はないんかね。
- 129 :デフォルトの名無しさん:2019/11/07(木) 00:07:26.65 ID:gr4VkOsJ.net
- >>126
>>124
- 130 :デフォルトの名無しさん:2019/11/07(木) 01:08:34.48 ID:q6f07NqD.net
- >>128
消費税は小数点を使わず整数計算で
10 /110
8 / 108
で計算するようにします
アドバイスありがとうございます
- 131 :デフォルトの名無しさん:2019/11/07(木) 01:12:13.17 ID:q6f07NqD.net
- >>128
うちの会社ではあんなに国家予算並みにたくさん「0」が出てくる消費税計算は無いのでとりあえずの回避でも大丈夫です
とはいえ先ほどのように整数計算に修正しようと思います
- 132 :デフォルトの名無しさん:2019/11/09(土) 10:00:40.69 ID:q+fGPpet.net
- どちらにせよ、小数点以下をどう扱うかは仕様で決めないとダメだな。
- 133 :デフォルトの名無しさん:2019/11/14(木) 22:54:58.33 ID:cMIrVE8k.net
- ファイルハンドル($fh)からファイル名を取得する方法ってありますか?
・stat $fhでinode取得してシェルのfindで見つけるってのはコストかかるのでやりたくない。
*{$fh}{IO}辿ってIO::Fileから得られないかなって調べたんですけど分かりませんでした。
基本的にそういう思想がないってことかも知れません。
- 134 :デフォルトの名無しさん:2019/11/15(金) 00:28:22.57 ID:WAwhq9DE.net
- ムリやろ。
ファイル名のないファイルハンドルも少なくないしな。
- 135 :デフォルトの名無しさん:2019/11/15(金) 12:49:10.35 ID:qkK0C17l.net
- ファイルハンドルからファイル名を求めるシステムコールとかもないしな。
ハードリンクされてて1つのi-nodeで複数のファイル名を持ってたらどうすんのっていう問題もある。
自分の作ったプログラムの中だけでいいならそのプログラム内だけの独自のopen,close作ってそこでファイル名を保持しとけば良いんじゃないかな。
- 136 :デフォルトの名無しさん:2019/11/15(金) 22:37:17.80 ID:9LSwivmi.net
- お二方ありがとう
そもそもそういう使い方をするものではないって理解しました
- 137 :デフォルトの名無しさん:2019/11/17(日) 00:22:07.56 ID:+/PgA3gU.net
- そもそもファイルをopenした時点で、ファイル名は自明だろ、、、
<>の場合は、今開いているファイル名は、$ARGVでアクセス出来るし、、、
while(<>){ print $ARGV if $. == 1 ; $. = 0 if eof }
他は、自分でコード書くんだからファイルリストの管理すりゃいいだけの
話だし。
- 138 :デフォルトの名無しさん:2019/11/17(日) 00:47:01.26 ID:7P3Fm4Oa.net
- >>137
ファイルハンドルだけもらうクラスかもよ
- 139 :デフォルトの名無しさん:2019/11/17(日) 01:44:18.01 ID:cO7DNsZu.net
- いや、気持ちはわかるやろ。
ファイルハンドルは、しょせんハンドルでしかないと納得するのは、事情がある程度わかってからなんだから。
- 140 :デフォルトの名無しさん:2019/11/17(日) 07:47:40.51 ID:bNRHw2eJ.net
- ファイルハンドルをインクリメントすると次のファイルを指すハンドルになることはあまり知られていない。
- 141 :デフォルトの名無しさん:2019/11/17(日) 12:07:49.00 ID:Ew4nGi4g.net
- >>140
それは、Perlのファイルハンドルの話か?
Cのファイルポインタではなく?
- 142 :デフォルトの名無しさん:2019/11/18(月) 08:50:22.41 ID:4tmHvePg.net
- ActivePerl 5.22 から 5.28 にアップデートしたのだが、
次のものがなくなってしまって、とても不便になった気がする。
・PerlEz.dll
・ppm(perlパッケージマネージャー)
・htmlドキュメント
他の2点はいいとしても、PerlEz.dllが無いと生きていけないので、
5.22 に戻した。もう一生5.22 を使い続けることになるのかな。
なぜ、こんな事をするのだろうか?
- 143 :デフォルトの名無しさん:2019/11/18(月) 20:45:39.28 ID:2uYwgX87.net
- Strawberry Perl 使えよ
- 144 :デフォルトの名無しさん:2019/11/22(金) 22:32:44.69 ID:G0qxcoi/.net
- そういやみんな最新の安定版使ってんの?
うちは5.20で止めてる。特に意味はないんだけどこれが安定してるってどこかで見たから。
- 145 :デフォルトの名無しさん:2019/11/22(金) 23:56:39.64 ID:0hNsLKVA.net
- 5.16.3だな
多分意味は無い
- 146 :デフォルトの名無しさん:2019/11/23(土) 00:04:49.15 ID:pA1s2lMR.net
- 俺もCentOSのデフォルトだわ
5.16.x
もう枯れてるしね
- 147 :デフォルトの名無しさん:2019/11/23(土) 00:20:10.52 ID:FBMqwUlj.net
- ずっと5.8.9のままだわ
とにかく安定している
- 148 :デフォルトの名無しさん:2019/11/23(土) 01:08:20.02 ID:uP8OeUg3.net
- 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"
どのようにすれば入力ファイルの指定と変数渡しを一緒にできますか?
総レス数 1004
263 KB
新着レスの表示
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver 2014.07.20.01.SC 2014/07/20 D ★