Perlについての質問箱 64箱目

Perlについての質問箱 ..

71:デフォルトの名無しさん
19/06/14 21:23:40.01 GJHBGGzo.net
URLﾘﾝｸ(tech.nikkeibp.co.jp)
Pythonはコードが書きやすい？ご冗談でしょう

72:デフォルトの名無しさん
19/06/14 23:12:24.97 oN4k2Se6.net
>>71
読んだけど、実際にはタイトルほどPythonを悪くいってないな。ｗ

73:デフォルトの名無しさん
19/06/16 10:31:31.41 Q48cejx2.net
windowsでreaddirするとcp932で読めてくる
それだと面倒なので、opendirする時か、ハンドラに対して、
decoding(cp932) みたいに指定するにはどうすればいい?

74:デフォルトの名無しさん
19/06/16 14:26:37.09 bI4lsVP6.net
URLﾘﾝｸ(www.javadrive.jp)

75:perltidy バグってない？
19/06/28 03:27:32.11 yOZUOG90.net
perltidy -pbp -nola perl_file
この -pbp は perl best practices にする設定になっている
という仕様が書かれているが
sub {
:LABEL
for ....................
のようなラベルが本の通りにならない。たとえば 103ページなど
ラベル調整を諦めて -nola をつけ、手動で正しくすることにした
これバグだよな？

76:バグもういっこ
19/06/28 03:37:53.64 yOZUOG90.net
URLﾘﾝｸ(i.imgur.com)
左のように綺麗にまっすぐ整えろが本の通りなのに
右のように変なところにいく

77:デフォルトの名無しさん
19/06/28 05:48:53.09 MYNfkfjj.net
何語?

78:デフォルトの名無しさん
19/06/28 14:53:22.61 oMWPNRS2.net
perl にインデントを求めるな。

79:デフォルトの名無しさん
19/06/29 00:24:21.75 YzN8MsSb.net
＼(^o^)／

80:デフォルトの名無しさん
19/06/29 05:53:24.17 3U68S2mZ.net
どうでもインデント

81:デフォルトの名無しさん
19/06/29 15:13:13.34 3U68S2mZ.net
sjisでローマ数字のⅡが書いてあるのをutf8にすると、どうやっても化けるな

82:デフォルトの名無しさん
19/06/29 15:18:34.74 3U68S2mZ.net
一旦生で読んでcp932でデコードすればいいのか
LWP:Simpleだとそのへんに手が出せない

83:デフォルトの名無しさん
19/06/29 17:02:36.85 o1VtcfU0.net
MySQLもそうだけど、sjisは使っちゃイカンやろ。
細かいところで文字の置き換えルールがメチャクチャだったような。
いわゆるシフトJISはとにかくcp932で。

84:デフォルトの名無しさん
19/06/29 17:53:32.74 3U68S2mZ.net
多分htmlに俺はsjisだと書いてあると、LWPが勝手にsjisでデコードするんだろう

85:デフォルトの名無しさん
19/07/06 10:10:18.37 oMEfEQKE.net
元がeuc-jpだと、
$str =~ s/\x{301c}/～/g;
みたいなことを明示的に書かないと、回避できないみたい
同じものやがな

86:デフォルトの名無しさん
19/07/12 02:22:50.96 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:デフォルトの名無しさん
19/07/12 02:35:11.65 gPQuYcbX.net
my $test3 = $test;
$test3 =~ s/\\x([0-9A-Fa-f]{2})/pack('H2', $1)/eg;
print "$test3\n";

88:デフォルトの名無しさん
19/07/12 04:04:28.94 yXcDIkyu.net
print eval qq/"$test\n\n"/;

89:86
19/07/12 07:58:26.24 AjCqo1Mf.net
ありがとうございます！

90:デフォルトの名無しさん
19/08/11 05:06:35.55 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:デフォルトの名無しさん
19/08/11 05:17:44.88 GTeyRs5o.net
()で配列とみなしたとき
()[0]は定義されていると考えて
()[1]などは未定義で無しというトリックか

92:デフォルトの名無しさん
19/08/11 05:42:32.38 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:デフォルトの名無しさん
19/08/11 10:17:48.54 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:デフォルトの名無しさん
19/08/12 10:00:54.45 1t9yEA1l.net
今はもう (1)[1] が空リストにならないんだな。perl5220delta に書いてあった。
リストコンテキストでの問題を避けるために
[split( /::/ , $class)]->[4]
みたいな書き方をしていたんだが。
いや、これは変えなくていいのか。

95:デフォルトの名無しさん
19/08/12 10:16:24.43 BBJuWfXI.net
undefは省力とかフェールセーフ的に有効にするんじゃなくて、
厳密に仕様化して積極的に使うべきだよな
初期化されてないものを使うのが気持ち悪いと感じるのは、
auto変数が本当に領域確保するだけだった頃の名残り

96:デフォルトの名無しさん
19/09/14 11:56:42.38 MMNKizJk.net
簡単なシェルスクリプトしか書けない素人ですがPerlの利点ってどこです？
grep -Pやperl -peで世話にはなっていますが目当てはあくまで正規表現だけですし
比較演算子はbashと逆だし変数は記号で使い分けなきゃならんしなんだこいつってなって

97:デフォルトの名無しさん
19/09/14 12:00:19.76 JUmWdv2U.net
どこでも使える

98:デフォルトの名無しさん
19/09/14 23:46:33.57 n7pzU9md.net
テキスト処理に特化されているところ
そのおかげで "," や " " とかの部分を q(,) q( ) などと書けたり
perl コードが正規表現と一体化していて再帰も扱えたりなど色々あるが
全部特化したことによる利点

99:デフォルトの名無しさん
19/09/14 23:58:57.25 SgsUVSB1.net
Perl6使ってる香具師さんいますか？

100:デフォルトの名無しさん
19/09/15 00:02:41.49 epz106Yo.net
bashで凝ったことを書くことを考えたら、Perlのほうがはるかに簡単。
bashは所詮シェルなので、クォートとかエスケープとか変数とか関数とか、いちいちワナが多いからな。

101:デフォルトの名無しさん
19/09/15 17:56:28.72 riyG3w3b.net
Perlの利点？
他の言語と同様になんでもできることかな。モジュール色々使うと作るの楽だしOSの違いもかなり吸収されてWindowsでもLinuxでも何も変更せずに動くプログラムも作れる。
シェルスクリプトも外部コマンド動かせば何でもできるとは言えるが、起動のオーバーヘッドの問題や起動しているコマンドの仕様が変わったときに個別に対応しなければいけないなど面倒な事がある。

102:デフォルトの名無しさん
19/10/23 15:22:28.55 Q75cL8J3.net
>>101
> OSの違いもかなり吸収されてWindowsでもLinuxでも何も変更せずに動くプログラムも作れる。
これでとんでもない目に遭ったぞ。
perlの\nは、内部的にはLF のみだが、OSがWindowsなら、出力する際に
CR＋LF に自動的に変換してくれる。
しかし、出力文字コードがutf16le だと、特殊な宣言文を書かない限り、
LF (0x000a)は「0x000a000d」ではなく、「0x000a0d」に変換され、
ぐちゃぐちゃに文字化けする。
文字化けの原因を特定し、回避方法を見つけるために、ずいぶん時間を取られた。

103:デフォルトの名無しさん
19/10/23 15:31:23.16 7+59i/z7.net
chcp 1200でいけそうな気がするんだけど

104:デフォルトの名無しさん
19/10/23 17:37:45.28 azQS8Nqn.net
>>102
\n は他の言語でも気を付けた方が良い。
例えC言語だったとしても歴史的な事情でライブラリが勝手に変換するかも知れない。
この頃はそれにまつわるバグは減ってるとは思うけどね。
ま、少なくとも \n を \x0a だと信じ込んで使うのは止めた方がいいだろうな。
\x0a はあくまでも \x0a と書いた方が良い。
Javaとかでは改行は System.out.println() を使って改行させるようにして \n を埋め込んでの改行は極力避けた方が良い。

105:デフォルトの名無しさん
19/10/24 00:15:31.72 dNYiTPCj.net
>>102
いや、特殊な宣言文ってなんだよ。PerlIO の man 読めよ。
open 関数や binmode 関数の説明にも「PerlIO を読め」って書いてあるよ。

106:デフォルトの名無しさん
19/10/24 00:54:14.51 NQorbS3o.net
s/\n//g;
s/\r//g;
俺は常にこうしてる

107:デフォルトの名無しさん
19/10/24 06:24:46 rCe9ez9s.net
\nを埋め込んだ箇所が一つでもあったらアウト
みたいな作り方は絶対失敗する

108:デフォルトの名無しさん
19/10/24 08:28:21.30 wmDm31X8.net
>>106
s/\R//g;
じゃないのか？

109:デフォルトの名無しさん
19/10/24 09:04:15.10 LjTGtkP8.net
>>105
> いや、特殊な宣言文ってなんだよ。PerlIO の man 読めよ。
結論としては、下のように書けばいいのだが、これはネットで色々探して
見つけてきたもので、PerlIO の man 読んで自分で見い出すことは、
私にはできなかった。それが出来る人は凄いと思う。
binmode STDOUT => ":raw:encoding(utf16le):crlf";

110:デフォルトの名無しさん
19/10/24 22:37:27.00 rCe9ez9s.net
右から読むんだよ

111:デフォルトの名無しさん
19/11/06 01:45:01.50 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:デフォルトの名無しさん
19/11/06 02:54:03.98 normnvJW.net
>>111
バグじゃなくて仕様やろ。
Perlの数値型はdoubleなので、1.1が正確に表現できてないんちゃう？
浮動小数点数の誤差についてぐぐれ。

113:デフォルトの名無しさん
19/11/06 03:29:15.89 normnvJW.net
>>111
おせっかいかもだがもうひとつ。
その手の誤差を回避するのは、ロジックでなんとかできることもあるが、実際にはなかなか難しいはず。
たまたま誤差が見えなくなってるだけの可能性もありそうなので、動作確認は慎重にな。
ちゃんとやるなら、decimal的なモジュールを使ったほうが。
あるかどうかは知らんけど。

114:デフォルトの名無しさん
19/11/06 03:46:51.16 QwLiS9cf.net
>>111
バクではなく仕様。
ちなみにPython,Tclで確認してみましたが同じ出力結果になりました。
どんな言語でも金額の計算や小数点の桁を調整をする場合、
int(切り捨て)、round(四捨五入)、ceil(切り上げ)などで処理するか、
出力時に、printfやsprintfを使って、"%.0f"などを指定して桁を合わせる
必要があると思います。

115:デフォルトの名無しさん
19/11/06 03:51:32.22 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:デフォルトの名無しさん
19/11/06 09:06:26.53 dfSHCt1W.net
浮動小数点の問題は知っていたが、こうなる事は初めて知った。危ないもんだな。
$c = $a / $b; # $c = 500
$e = int($c); # $e = 499

117:デフォルトの名無しさん
19/11/06 09:28:51.28 i85ttsqs.net
>>111
それはバグではないし、昔々からある超有名な仕様。知らないのはお前だけ。

118:デフォルトの名無しさん
19/11/06 10:08:35.95 yvB3xxPc.net
>>112
>>113
>>114
>>117
仕様で他の言語でもあるのですね。Perlで明示的な型指定とかはほぼ考えたことが無かった(1.08の時は意図した結果が得られていた)ので、勉強してみます。
ありがとうございます。

119:デフォルトの名無しさん
19/11/06 10:29:25.24 i85ttsqs.net
言語というよりはライブラリやCPUの問題だ。
しかしだいたいのメジャーな言語が採用しちゃってるので言語に関係なく出ると思って良い。

120:デフォルトの名無しさん
19/11/06 17:59:53.94 j94j+HrP.net
言語仕様っていうと違和感あるね
意図してこうしてますって感じで
IEEE 754の仕様といえばそうなのかもしれんがあれは規格であって
仕様とはまたニュアンスが違う　なんつーか実数扱うときはそんなもんという感覚

121:デフォルトの名無しさん
19/11/06 18:58:09.30 yvB3xxPc.net
>>111
一応、取った対応策です(消費税計算なので精度は不要)
除算解は有効桁数以下が切り捨てになり表示などで見える値以下になると想定しました
$a = 550;
$b = 1.1;
$c = ;
$tax= int($a - $a / $b); # $tax = 50
$net = $a - $tax; # $net = 500

端数を残したまま税込から除算解を引いてintして税とし、税込から税を引いて本体としました
とりあえず期待した結果は得られています
ありがとうございました。

122:デフォルトの名無しさん
19/11/06 18:59:08.05 yvB3xxPc.net
$c = ;
この行余計でした

123:デフォルトの名無しさん
19/11/06 19:44:41.92 mEOqpT9o.net
>>120
C/C++なら規格が精密なのでそういう違和感もわかるが、Perlの場合は逆におかしいやろ。ｗ

124:デフォルトの名無しさん
19/11/06 19:52:26.69 mEOqpT9o.net
>>121
税率によってはきっとアカン場合がありそう。。。
単純な切り捨てはヤバいような。
まあ、そこまでの精度はイランのやろけども。
ちなみに、今回のケースなら、$x/1.1とするのではなく、$x*100/110としたほうが安定しそう？

125:デフォルトの名無しさん
19/11/06 20:39:05.70 yvB3xxPc.net
>>124
うちは税込ものを分離する時は消費税側で小数点以下切り捨てなのでOKなのです
四捨五入とか会計方針によっては稀に問題が出るかもしれませんね

126:デフォルトの名無しさん
19/11/06 21:15:49.18 i85ttsqs.net
1.1を掛けるなら11を掛けてから10で割った方が良いかもな。そうすると正数計算でやれる。
切り上げや四捨五入をしたい場合は10で割る前に一桁目を見て10を足したり足さなかったりすれば良い。

127:デフォルトの名無しさん
19/11/06 21:18:49.26 i85ttsqs.net
ああ。逆か。税込みから本体と税を求めるのか。でも考え方は同じだな。

128:デフォルトの名無しさん
19/11/07 00:06:59.16 gr4VkOsJ.net
>>125
違うぞ。今回の問題点をちゃんとわかってるか？
1.1と書いたリテラルが、実際の値は1.10...となっていて、1.1よりも大きかったことだぞ。
誤差の具合によっては、正確には切り捨てが不要な値でも、除数が大きいせいで計算結果が実際よりも小さい値になってしまって、してはいけない切り捨てが発生してしまう可能性はないんかね。

129:デフォルトの名無しさん
19/11/07 00:07:26.65 gr4VkOsJ.net
>>126
>>124

130:デフォルトの名無しさん
19/11/07 01:08:34.48 q6f07NqD.net
>>128
消費税は小数点を使わず整数計算で
10 /110
8 / 108
で計算するようにします
アドバイスありがとうございます

131:デフォルトの名無しさん
19/11/07 01:12:13.17 q6f07NqD.net
>>128
うちの会社ではあんなに国家予算並みにたくさん「0」が出てくる消費税計算は無いのでとりあえずの回避でも大丈夫です
とはいえ先ほどのように整数計算に修正しようと思います

132:デフォルトの名無しさん
19/11/09 10:00:40.69 q+fGPpet.net
どちらにせよ、小数点以下をどう扱うかは仕様で決めないとダメだな。

133:デフォルトの名無しさん
19/11/14 22:54:58.33 cMIrVE8k.net
ファイルハンドル($fh)からファイル名を取得する方法ってありますか？
・stat $fhでinode取得してシェルのfindで見つけるってのはコストかかるのでやりたくない。
*{$fh}{IO}辿ってIO::Fileから得られないかなって調べたんですけど分かりませんでした。
基本的にそういう思想がないってことかも知れません。

134:デフォルトの名無しさん
19/11/15 00:28:22.57 WAwhq9DE.net
ムリやろ。
ファイル名のないファイルハンドルも少なくないしな。

135:デフォルトの名無しさん
19/11/15 12:49:10.35 qkK0C17l.net
ファイルハンドルからファイル名を求めるシステムコールとかもないしな。
ハードリンクされてて1つのi-nodeで複数のファイル名を持ってたらどうすんのっていう問題もある。
自分の作ったプログラムの中だけでいいならそのプログラム内だけの独自のopen,close作ってそこでファイル名を保持しとけば良いんじゃないかな。

136:デフォルトの名無しさん
19/11/15 22:37:17.80 9LSwivmi.net
お二方ありがとう
そもそもそういう使い方をするものではないって理解しました

137:デフォルトの名無しさん
19/11/17 00:22:07.56 +/PgA3gU.net
そもそもファイルをopenした時点で、ファイル名は自明だろ、、、
<>の場合は、今開いているファイル名は、$ARGVでアクセス出来るし、、、
while(<>){ print $ARGV if $. == 1 ; $. = 0 if eof }
他は、自分でコード書くんだからファイルリストの管理すりゃいいだけの
話だし。

138:デフォルトの名無しさん
19/11/17 00:47:01.26 7P3Fm4Oa.net
>>137
ファイルハンドルだけもらうクラスかもよ

139:デフォルトの名無しさん
19/11/17 01:44:18.01 cO7DNsZu.net
いや、気持ちはわかるやろ。
ファイルハンドルは、しょせんハンドルでしかないと納得するのは、事情がある程度わかってからなんだから。

140:デフォルトの名無しさん
19/11/17 07:47:40.51 bNRHw2eJ.net
ファイルハンドルをインクリメントすると次のファイルを指すハンドルになることはあまり知られていない。

141:デフォルトの名無しさん
19/11/17 12:07:49.00 Ew4nGi4g.net
>>140
それは、Perlのファイルハンドルの話か？
Cのファイルポインタではなく？

142:デフォルトの名無しさん
19/11/18 08:50:22.41 4tmHvePg.net
ActivePerl 5.22 から 5.28 にアップデートしたのだが、
次のものがなくなってしまって、とても不便になった気がする。
・PerlEz.dll
・ppm（perlパッケージマネージャー）
・htmlドキュメント
他の２点はいいとしても、PerlEz.dllが無いと生きていけないので、
5.22 に戻した。もう一生5.22 を使い続けることになるのかな。
なぜ、こんな事をするのだろうか？

143:デフォルトの名無しさん
19/11/18 20:45:39.28 2uYwgX87.net
Strawberry Perl 使えよ

144:デフォルトの名無しさん
19/11/22 22:32:44.69 G0qxcoi/.net
そういやみんな最新の安定版使ってんの？
うちは5.20で止めてる。特に意味はないんだけどこれが安定してるってどこかで見たから。

145:デフォルトの名無しさん
19/11/22 23:56:39.64 0hNsLKVA.net
5.16.3だな
多分意味は無い

146:デフォルトの名無しさん
19/11/23 00:04:49.15 pA1s2lMR.net
俺もCentOSのデフォルトだわ
5.16.x
もう枯れてるしね

147:デフォルトの名無しさん
19/11/23 00:20:10.52 FBMqwUlj.net
ずっと5.8.9のままだわ
とにかく安定している

148:デフォルトの名無しさん
19/11/23 01:08:20.02 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"
どのようにすれば入力ファイルの指定と変数渡しを一緒にできますか？

149:デフォルトの名無しさん
19/11/23 01:52:51.48 0LKgjFg3.net
5.30.0
なるべく最新の安定版を追っかけてる

150:デフォルトの名無しさん
19/11/23 02:19:04.46 En+bKilB.net
>>148
STDERRにprintすれば？

151:デフォルトの名無しさん
19/11/23 10:12:25.15 Dim3LBiC.net
perl5.26.1
perl2exe 使うので。

152:デフォルトの名無しさん
19/11/24 00:31:51.83 jceUCsgs.net
>>150
ご意見有難うございます。
ファイルを一番最後に入れるとできるということがわかりました。
perl -i -spe 's/AA/$var/; END{print "complated.\n"}' -- -var="BB" /home/xxx/aaa.txt

153:デフォルトの名無しさん
19/11/25 10:33:31.52 veETdbiQ.net
>>152
-i があるからでは？
-i.bak とかやっとくと .bak をファイル名に付加したバックアップ作れるよ。
多分新規ファイル開いてそちらに出力して後でリネームして元ファイルのバックアップを取ろうとしてるんだろうと思う。
-i の直後に何もない場合はバックアップ取らずに元ファイルにリネームだけやってるんだと思う。

154:デフォルトの名無しさん
19/11/26 23:14:08.94 EA1DZQ5h.net
>>153
コメントありがとうございます。
今回やることはファイルに上書きしたくバックアップもいらなかったので　-i　で良いかなと思っていました。
ワンライナーはよくお世話になってるのですが、今回-sでperl内に変数として渡せることがわかり、ますます重宝しそうです。

155:デフォルトの名無しさん
19/11/30 17:02:59.68 hCKH6fU7.net
今日、学んだこと。
/^([a-c]){2}\1/
は 'abb' にはマッチできるが 'aba' にはマッチできない。
もちろん 'aaa' にはマッチできるが…要するに
/^([a-c]){2}\1/
は
/^([a-c])\1\1/
と同じではなかった。

156:デフォルトの名無しさん
20/02/01 09:03:36 qxbFBKGD.net
パターンの中で\1って使えるんや…
正規表現って普通「事前に」FSMにコンパイルされてからマッチングに使うるんじゃないの…？
バックトラックとかする高度な実装のやつはまた違うんかね

157:デフォルトの名無しさん
20/02/01 13:27:18 wtOh7v6m.net
>>156
¥1は、むしろパターンの中でしか使わない。外で使うときは$1のほう。
正規表現は、バックトラックがあたりまえ。しない実装なんかあるか？

いろいろ勘違いしてるぞ。

158:デフォルトの名無しさん
20/02/02 08:34:53 7b/FZYuN.net
>>157
話が通じなさそうで大変よろしい

159:デフォルトの名無しさん
20/02/02 13:46:05 9cWLJdKQ.net
s/(pattern)/\1/
という使い方をするもんだと思いこんでいて、謎のバグに悩んだ

160:デフォルトの名無しさん
20/02/04 19:17:18 64ds8brY.net
perl hacks買った
送料込み300円

161:デフォルトの名無しさん
20/02/04 19:49:23 53yGrLtS.net
買われてしまった。
モダンperl入門でも買おうかな

162:デフォルトの名無しさん
20/02/05 00:34:08.21 Yyzz6n+F.net
今さら「モダン」もないやろ。ｗ
どうとでも好きに書いたらええがな。

163:デフォルトの名無しさん
20/02/05 04:02:23 rxl56Lqp.net
モダンとか死語だもんな
そういうワード使うしかなかった当時の状況もあるけど

164:デフォルトの名無しさん
20/02/05 17:51:27 9nK7Yle0.net
死語かなあ？

165:デフォルトの名無しさん
20/02/05 21:33:12 SZWAnwkp.net
>>156
決定性有限オートマトンと非決定性有限オートマトンについて調べるといいぞ。
lex は前者で Perl は後者だ。

166:デフォルトの名無しさん
20/02/05 22:58:10 TkSDhbEE.net
そういやモダンperl入門の新刊どうなった？

167:デフォルトの名無しさん
20/02/05 23:00:15 TkSDhbEE.net
2014年1月予定か。たのしみやで。

168:デフォルトの名無しさん
20/02/06 00:10:26.01 UIZEnib+.net
perlの最新本って、これくらいだろ
初めてのPerl 第7版 2018/01/20
Effective Perl 第2版 2015/02/17

169:デフォルトの名無しさん
20/02/06 00:14:16.79 m/3X75FJ.net
クリスマスまでにはperl6の本が山のように出版されるからな

170:デフォルトの名無しさん
20/02/06 00:24:20 T14/xjtC.net
ドラマ「3000回目のクリスマス」

171:デフォルトの名無しさん
20/02/06 00:30:59.99 6QnB4wyK.net
Perl6無くなったんじゃなかったっけ？

172:デフォルトの名無しさん
20/02/06 14:10:21 EPBtHi1S.net
ちっちゃくRakuって書くんじゃない？

173:デフォルトの名無しさん
20/02/10 22:55:04.23 hYCIpnsp.net
非決定性有限オートマトンは決定性有限オートマトンに変換できる
ていうか両者の能力は同じ（正規言語止まり

174:デフォルトの名無しさん
20/02/10 23:09:15.59 O7nANUNm.net
ゲーデル?

175:デフォルトの名無しさん
20/02/11 08:07:12 RnNFx+rl.net
んまーできると言っても状態数の爆発を伴うこともあるので
非決定性有限オートマトンのままにしといて入力が来たときに探索（バックトラック）で解決、
というのもアリっていやーアリ

176:デフォルトの名無しさん
20/02/11 17:49:46.25 ix+UlUL8.net
名前変えたんだよね？やっぱ違いがありすぎて紛らわしいから変えたのか？

177:デフォルトの名無しさん
20/02/11 17:50:45.15 ix+UlUL8.net
すまん。リロード忘れて間に他の書き込みが挟まった。Perl6の話ね。

178:デフォルトの名無しさん
20/02/11 18:26:47.40 FJnR5oDj.net
ロゴもどうなんだ

179:デフォルトの名無しさん
20/02/11 22:24:33 kUx05S+X.net
>>176
少なくとも、もうPerlでは無いと言うことだ
Perlの系譜にある別言語だね

180:デフォルトの名無しさん
20/02/12 01:53:33 CB9IiDBv.net
YouTuberは「最強の職業」である理由。
URLﾘﾝｸ(www.youtube.com)
【事例付き】YouTuberは最強の副業である件について。
URLﾘﾝｸ(www.youtube.com)
【初心者向け】YouTubeの始め方・稼ぎ方を徹底解説！
URLﾘﾝｸ(www.youtube.com)
「YouTubeなんていつか稼げなくなる」という主張を論破する。
URLﾘﾝｸ(www.youtube.com)
収益化から丸1年！YouTubeでいくら稼いだか公開。
URLﾘﾝｸ(www.youtube.com)
その動画で月商○○万!? YouTubeで稼ぐ裏技的アプローチ。
URLﾘﾝｸ(www.youtube.com)
【貧者の工夫で戦え】ガラケーだっていい。YouTube始めるのにパソコンはいらない！
URLﾘﾝｸ(www.youtube.com)
【第一回】SNS、YouTube、ブログで稼ぐ方法を、丁寧に解説します！
URLﾘﾝｸ(www.youtube.com)

181:デフォルトの名無しさん
20/02/12 07:13:33 ZjDcS8oe.net
元から別言語定期

182:デフォルトの名無しさん
20/02/12 10:59:57 urwrbVLd.net
Python もそのくらいやって欲しい。

183:デフォルトの名無しさん
20/02/12 16:01:22.42 SF/q3PcI.net
Rakuは設計当初からオプショナルな型システムあるし
numpyっぽい操作が言語組み込みだったり
いろいろ早すぎた

184:デフォルトの名無しさん
20/02/13 01:14:31.03 on7ESczL.net
当初はすごいと思ったけど今見ると糞仕様だな

185:デフォルトの名無しさん
20/02/15 12:59:07.78 8m1Cr/X/.net
ハッシュの配列とかも簡単にできるもんね。
perlで作ったプログラムをC++で作り直すと思うとゾッとするw

186:デフォルトの名無しさん
20/02/15 14:49:16 av6eWd5V.net
ハッシュの配列とかスクリプト言語の類ならどれも同じようにできる。
Perlがだめなのは、スカラとリストの二つが存在することだな
同じ書き方をしても、使い方で意味が変わってしまう。
変わるだけならともかく違う解釈で動いてしまうからバグのもとに鳴る。

187:デフォルトの名無しさん
20/02/15 16:00:24.43 CBuE7ub7.net
>>186
リストは使わずに全部リファレンスでやった方がいろいろ安全だよ

188:デフォルトの名無しさん
20/02/15 16:25:27.75 33mO6l2/.net
なるほどそうかもしらん

189:デフォルトの名無しさん
20/02/15 18:59:30.30 jU+J++ht.net
$aと@aが区別されるので調子に乗って、
$a->[0][0][0] と一緒に $a も使ってバグる

190:デフォルトの名無しさん
20/02/16 20:31:14 7RTwZ9VV.net
まあ、自分で作るには兆便利だけど人のプログラムの修正やメンテはやりたくないなw
やっぱ、C言語ぐらい厳しくないとプロ用は無理だよね。

191:デフォルトの名無しさん
20/02/17 00:50:46 qx2LCmQN.net
Cは厳しさが足りない！

192:デフォルトの名無しさん
20/02/17 09:02:59 3xf/X3D3.net
他人が書いたものばかりでなく、１年前ぐらいに自分が書いたものを
修正しようとして、「なにやってんの？これ」と思う。
自分自身のために、「しつこいぐらいにコメントを入れる」を心がけてるよ。

193:デフォルトの名無しさん
20/02/17 10:26:17 DZOr9dsV.net
それ以前にコメントがなくてもわかるようなコードにしてるよ

194:デフォルトの名無しさん
20/02/17 13:13:07 ZZZ2hHJ7.net
マクロなコードは読んで意味がわかるものにするのは当然として
コメントはビジネスロジックと言うか、フローの説明じゃね

195:デフォルトの名無しさん
20/02/17 13:17:02 5usMQUGr.net
書いてあることを説明する必要はない。
コメントで書くのは、なぜこんなフローにしたかだ

196:デフォルトの名無しさん
20/02/17 13:21:56.88 ZZZ2hHJ7.net
ミクロだわ恥ずかしい(´・ω・｀)

197:デフォルトの名無しさん
20/02/17 15:20:38 wTmXuXv8.net
一見すると何やってんだか分からなくてもよく辿るとスゲエなこれ天才じゃねって思うことある
自分が書いたんだけどね

198:デフォルトの名無しさん
20/02/17 20:40:48 Y4S6wB9m.net
書くのも読むのも全然困らないようなコードしか書かないのが理想

難解な処理は、きっともっとシンプルに解決できる

199:デフォルトの名無しさん
20/02/17 22:34:20 qx2LCmQN.net
現実はそうではない。

200:デフォルトの名無しさん
20/02/18 20:13:13 55IHv/fO.net
my @result = grep !$temp{$_}++, @list;

凄げーよね、@listをuniqにソートするコードだって。
パールならではだよね。
普通なにしてるかわからんよw

201:デフォルトの名無しさん
20/02/18 20:25:02 2VKhUmei.net
それは慣用句なので割と判る
コメントくらい付けるけど

202:デフォルトの名無しさん
20/02/18 20:32:09 KQgsUf00.net
result = list(set(LIST))

pythonのほうが圧倒的に簡単

203:デフォルトの名無しさん
20/02/18 21:09:43 lAgti/Dg.net
>>200
これでなんでソートされるの？

204:デフォルトの名無しさん
20/02/18 21:10:15 Z1cJ/QMX.net
>>200
それじゃあソートできてないだろ

my @result = sort grep !$temp{$_}++, @list;

205:デフォルトの名無しさん
20/02/18 21:32:52 v/AIhdlf.net
>>202
sort 使わずに sort できるなんて凄いな。

206:デフォルトの名無しさん
20/02/18 21:34:51 55IHv/fO.net
>>203
>>204
ゴメンソートは関係無かった。

uniqしたくて、検索したらこれが出てきたんだけど、自分で作るなら
for文で回してif文でチェックしてpushで配列に入れる。まあ、どんな言語でも動くやつね。

パッとこのコードが書けるんならいいけど、ここで時間を掛けたくないよね。

207:デフォルトの名無しさん
20/02/18 21:48:33 3v1Ek71E.net
普通のfor文で書けばよくね？w

208:デフォルトの名無しさん
20/02/18 21:53:35 2VKhUmei.net
機能がはっきりしてるから、sub uniqか何かを作って言語仕様かのように書く
きっと既にあるから、コピペで済む

209:デフォルトの名無しさん
20/02/18 22:00:21.17 3v1Ek71E.net
まあ余程の理由がない限り普通はList::Util使うね

210:デフォルトの名無しさん
20/02/18 22:14:59 2AC9Ct1n.net
ワンライナーカッケー病なんだろ

211:デフォルトの名無しさん
20/02/18 22:20:53 KQgsUf00.net
ハッシュを使ってカウントするなんてperlの定石なんだが
入門書のハッシュ解説で必ず載ってるぞ

212:デフォルトの名無しさん
20/02/18 23:17:41.56 aJeTcUgK.net
>>209
普通は >>204でしょ
モジュールは精査して本当に必要なものしか入れない
まあ現場次第だと思うが

213:デフォルトの名無しさん
20/02/19 00:10:20.47 XDqysw2e.net
>>200
Rubyだとuniqが使えるが配列の集合演算でもできる。
result = list | []

214:デフォルトの名無しさん
20/02/19 00:43:04 6o0SSmsW.net
実装は面白くても実際の所普段の仕事では
わかりやすいインターフェースの関数にするから
そういう点で差はでないというね。

215:デフォルトの名無しさん
20/02/19 01:02:36 mEonuRdN.net
>>214
PerlやRubyなら、わざわざ関数にはしないかな。
その場でハッシュにつめてキーだけ使うとかかなりふつうだから。

216:デフォルトの名無しさん
20/02/19 01:53:16.69 IHihvCy5.net
ここ人いたんだ

217:デフォルトの名無しさん
20/02/19 02:27:13 +yXfQCpG.net
オワコンだとかすたれた言語だとか言われるけどまだまだ使われてるから

218:デフォルトの名無しさん
20/02/19 04:28:09.35 UqnCT+lt.net
>>200
いや。わかる。
君もそのうちわかるようになるよ。

219:デフォルトの名無しさん
20/02/19 05:39:50.97 6o0SSmsW.net
>>215
そしてコメント書くぐらいなら関数にしろ

220:デフォルトの名無しさん
20/02/19 09:01:28.79 pJACNDga.net
他人にわかってもらいたくないんだろう。

221:デフォルトの名無しさん
20/02/19 09:31:49.80 oZi5GQ/y.net
ほら、こんなコードで実現できるんやで、
なにやってるか一見わからんやろ
説明しよか？
みたいに言いたくなったら、それは可読性が悪い証拠

222:デフォルトの名無しさん
20/02/19 12:23:16.28 CZsThdPw.net
Perl慣れしていない人の事を考える必要があるなら
標準モジュールの List::Util で uniq を使えばいいし、
URLﾘﾝｸ(perldoc.perl.org)
何らかの理由で標準モジュールや XS が使えないなら
Pure-perl 実装を CPAN から拾ってくればいいし、
URLﾘﾝｸ(metacpan.org)
実際 List::Util::PP::uniq() の中身はその手法だぞ。
URLﾘﾝｸ(metacpan.org)
sub uniq (@) {
　　my %seen;
　　my $undef;
　　my @uniq = grep defined($_) ? !$seen{$_}++ : !$undef++, @_;
　　@uniq;
}

223:デフォルトの名無しさん
20/02/19 16:51:28 /J962Gym.net
perl使い生きてた

224:デフォルトの名無しさん
20/02/19 18:36:12.61 X6PQVyJY.net
勉強になるというか、どこで学んだの

225:デフォルトの名無しさん
20/02/19 19:52:56.93 SoQYbBiO.net
>>219
書かないから心配するな！
1+1と同じレベルだからな！

226:デフォルトの名無しさん
20/02/19 20:07:21 pJACNDga.net
そういう思想の馬鹿しかおらんからperlは廃れたんだよ。

227:デフォルトの名無しさん
20/02/19 20:07:27 zh3CM0eN.net
if (defined $table{$var}) {
　$var = $table{$var};
}

みたいな処理
「何か」に対して判定した結果に従ってその「何か」を採用する

何かを2回書くのが嫌な時の逃げ方は何だろう

228:デフォルトの名無しさん
20/02/19 20:12:42 1DPeZovD.net
リストの要素数を得るために空リストに代入するのも慣用句と読んでいいかな?
$n = (() = <*>);
みたいの。

229:デフォルトの名無しさん
20/02/19 21:01:35 zh3CM0eN.net
要素数なんてどうせループにしか使わないので、
そんなのを取得しない解決がきっとエレガント
pythonの何でもイテレータ思想はきっと正しい

230:デフォルトの名無しさん
20/02/19 21:35:36 bGX6osz8.net
>>227
これはあるね　しばし考えるんだけど結局一時変数を使う
構造によっては$_が使える時もあるんだけどまれだなあ

231:デフォルトの名無しさん
20/02/19 21:45:00.08 mEonuRdN.net
>>226
じゃあRubyやらC#やらも滅びるんやな。ｗ
ハッシュのある言語ではあたりまえのイディオムやろが。

232:デフォルトの名無しさん
20/02/20 00:34:37 bivTkZxZ.net
まあ最近の言語は便利な標準メソッド呼べば終わりって感じだからね
Perlは標準モジュールの範囲だけでやろうとすると結構面倒

233:デフォルトの名無しさん
20/02/20 00:35:55 1VYpL0NG.net
スレに人が来ていてオジサンうれしいよ

234:デフォルトの名無しさん
20/02/20 01:29:24 bivTkZxZ.net
最近はPerlのことを喋ると謎の軍団が叩きに来るからな
ネット上で喋れる場所がなくなった
迫害されてる気分

235:デフォルトの名無しさん
20/02/20 13:15:43.08 fXEOX4Gg.net
Perl/Tk は使い物にならん。プログラムが大きくなると動かないでやんのw
Perl/Qt を推進していくべき。
ここの人はPerlでGUIを使ったりしてる？

236:デフォルトの名無しさん
20/02/20 15:23:29 Gm5IubjH.net
Windows限定だが、Win32-GUIを使ってるよ。
インストールして、次のバッチファイルを走らせると、
細かい具体例のデモが見れる。
C:\Perl\site\bin\win32-gui-demos.bat

237:デフォルトの名無しさん
20/02/20 17:36:38 Nllb9nDe.net
>>231
そうではなくて独自の記号にコンテキスト毎に意味を詰め込む様な言語思想のこと言ってるんだがね。

238:デフォルトの名無しさん
20/02/20 18:47:26 CqCGFBWH.net
入力も出力もテキストで完結してるのがいい

と思ってたけど、最近excelデータを入出力に使い出した

239:デフォルトの名無しさん
20/02/20 20:33:42 0HRLUjae.net
短絡論理演算子を使うという方法もあるが、お気に召すかどうかは知らん。

240:デフォルトの名無しさん
20/02/20 20:44:08.31 CqCGFBWH.net
>>227の例だと
$var = $table{$var} or $var
で概ね動くけど、空文字列なんかが入ってた時に誤動作する
判別はdefinedしか無いとして、それでも書ける短絡評価とは

241:デフォルトの名無しさん
20/02/20 21:36:24.51 uxa6Suua.net
defined-or使うだけじゃないの？
$var = $table{$var} // $var;

242:デフォルトの名無しさん
20/02/20 22:00:38.63 0HRLUjae.net
アンカー入れ忘れたのによく分かってくれたな。ありがとう。

243:デフォルトの名無しさん
20/02/20 22:37:06 CqCGFBWH.net
そんな演算子知らん

244:デフォルトの名無しさん
20/02/20 23:16:35.88 NRacWxGd.net
null合体演算子は最近の流行りやぞ？

245:デフォルトの名無しさん
20/02/21 01:54:46.68 dQ0Yz//t.net
//流行ってる気がしない。
新しい機能を積極的に使う人はそもそもperlを使わないのではないか。
断固外氏のブログのネタにしかなってなさそう。

246:デフォルトの名無しさん
20/02/21 02:18:25 YvRUEPlL.net
5.8じゃ使えないからね
それだけで使わない理由になる

247:デフォルトの名無しさん
20/02/21 03:26:53.00 6/adwu75.net
細かいけど優先度は// > = > orだよ

248:デフォルトの名無しさん
20/02/21 03:54:06.99 6/adwu75.net
>>227と等価なのは >>241か
この例はdefinedだったから適用できるのね
判定が任意だとするとやはり2度書くしかないかね　例えば
if ($table{$var} % 3) {
　$var = $table{$var};
}
perlは同一値への参照と解釈して2回読みにはいかないという気の利いたことはしないだろうね
エクセプション入ったら変わる可能性あるしね

249:デフォルトの名無しさん
20/02/21 03:58:30.72 6/adwu75.net
//=の逆バージョンあったらいいなとはたまに思うね
そこまで必要性ないという判断でないのだろうけども

250:デフォルトの名無しさん
20/02/21 07:05:24 TnPEnehp.net
$table{$var} が $_ に入るような無害な処理をしておいて、
$var = $_ % 3 ? $_ : $var
と等価なシンタックスシュガーで処理する
みたいなことができれば

251:デフォルトの名無しさん
20/02/21 09:05:21.00 KvZFDIbR.net
2回読みたくないというのがどういうレベルでの事か分からんが
ソースコードの見た目だけならサブルーチンに押し込めばどうとでも
#!/usr/bin/perl -w
use strict;
use Scalar::Util qw(looks_like_number);
sub dp {
　　defined $_[0] ? "d[$_[0]]" : 'u[]';
}
sub if_true(&$$) {
　　local $_ = pop;
　　$_[1] = $_ if &{$_[0]};
}
my %table = ('' => 1, 0 => 2, a => 3, b => 4, c => 0, d => '', e => undef);
for my $var (sort keys %table) {
　　print dp($var), dp($table{$var});
　　if_true { looks_like_number($_) && $_ % 3 } $var => $table{$var};
　　print " => var[$var]\n";
}

252:デフォルトの名無しさん
20/02/21 09:57:55 PzVMR7sv.net
サブルーチンとか甘え。謎の記号を使って魔法のようなコードを書くのがPerlの醍醐味。可読性は悪

253:デフォルトの名無しさん
20/02/21 12:24:11 TKnLlA6x.net
>>235
昔々 Perl/Tk 使おうと思ったが日本語対応が出来てなくて止めたことがある。
それ以来 Perl で GUI はやってない。

254:デフォルトの名無しさん
20/02/21 14:01:10.98 OOdvSVAe.net
絶対やらないけど
$_ % 3 and $var = $_ for $table{$var};

255:デフォルトの名無しさん
20/02/21 15:45:08.67 ooEapY6E.net
>>253
それ、5.6以前の話？記憶が曖昧だけど、utf8に対応した5.6あたりから、Tkで日本語使えたような気がするけど。

256:デフォルトの名無しさん
20/02/21 18:15:13 TKnLlA6x.net
>>255
忘れた。20年ぐらい前だったかな？

257:デフォルトの名無しさん
20/02/22 22:24:09.42 pvGxmVZm.net
裏でずっと何かしてるスクリプトを走らせておきたい
ActivePerlのウィンドウが出るのが嫌なので、wperlを起動してウィンドウを出さない
でも、wperlを起動する為のbatファイルのウィンドウがずっと出てる
batファイル以外のいい起動方法はないだろうか

258:デフォルトの名無しさん
20/02/22 22:46:33 KpqdZij5.net
>>257
start "" "wperl ..."

259:デフォルトの名無しさん
20/02/22 22:47:18 +QQ7ccWr.net
ショートカットでよくね？

260:デフォルトの名無しさん
20/02/22 23:01:19 pvGxmVZm.net
wperl以降を""で括ると動かないけど、無くせば動いた
これでサーバ監視ができる

261:デフォルトの名無しさん
20/02/23 06:57:52.64 6djC7Yo0.net
Linuxなら何も考えずにできるが・・・

262:デフォルトの名無しさん
20/02/23 07:18:43.14 u5LzmB/p.net
pingが通るようにしてしまえばwindowsでもそういうのは既にある

263:デフォルトの名無しさん
20/02/23 12:43:19 1MmoNroU.net
>>261
シェルからふつうに起動したら、親プロセスとの関連でトラブルが発生するところはどちらも同じ。
というか、むしろLinuxのほうがわかりにくくてひどい。
disownとかnohupとか知ってるか？

264:デフォルトの名無しさん
20/02/24 04:42:11.62 jrwZftYn.net
知ってるよ。

265:デフォルトの名無しさん
20/02/25 12:21:34 Z4NIrtJK.net
>>260
何か使い方間違ってない？
次のようなコマンドで、普通に通るぞ。
wperl.exe "C:\utp\foobar.PL" "C:\foo\bar.txt"

266:デフォルトの名無しさん
20/02/25 23:35:33.10 Vpd+P02x.net
>>265
>>258

267:デフォルトの名無しさん
20/03/05 09:29:31 hJr+GlCd.net
ブラウザでは普通に見られる楽天市場の商品ページ
（item.rakuten.co.jp/shop_mei/a012345/）を get 出来なくなった。
ユーザーエージェントやらリファラはイジってみたけど

268:デフォルトの名無しさん
20/03/05 12:43:29 eb4C0HQQ.net
active perl の ppm がなくなっていろんなモジュールが動かないのだが、困ってるの俺だけ？
ググっても誰も文句言ってないな

269:デフォルトの名無しさん
20/03/05 12:50:46.42 WFS2X5DF.net
>>268
>>142 でオレが文句を言ったが。
結局、一生5.22 を使い続けることにした。

270:デフォルトの名無しさん
20/03/05 14:56:24.55 NI6SkVuR.net
新しめのバージョン追ってる人はもう大半がactive perl捨ててstrawberry perlに移住したんじゃね

次ページ