[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
883: 532 2020/12/12(土)10:42 ID:+ekv//0b(1/2) AAS
>>833 >>874に書いた左の数字と右の数値両方で順位に一貫性のあるキーを作って一回でsortするｻﾝﾌﾟﾙ
数値は4桁以下であることを仮定してます。
use List::Util 'shuffle';
%h = map{$_ => $i++} shuffle qw{1-1 1-2 1-3 2-1 2-2 2-3 3-1 3-2 3-3};
@k1 = keys %h;
print "@k1\n";
@kk = map{[sprintf("%4d%4d", /(\d+)/g), $_]} @k1;
@k2 = map{$$_[1]} sort{$$a[0] cmp $$b[0]} @kk;
print "@k2\n";
884: 532 2020/12/12(土)10:47 ID:+ekv//0b(2/2) AAS
こうやって幾つかｺｰﾄﾞ書いてみて…>>849かTie::IxHashで十分な気がしたわｗ
885: 2020/12/12(土)13:20 ID:4UtPcEnB(3/3) AAS
>>881
慣れたヤツには最適解過ぎ、慣れてないヤツには意義がわからん、ということで、そんなに食いつきようがないやろ。ｗ
886(1): 2020/12/16(水)23:33 ID:qMOR0fCG(1) AAS
>>833
もしそれが桁数固定で、例えばその例のように一桁の数、ハイフン、一桁の数という文字列ならば、何も考えずにそのまま文字列として比較して sort すればいい。つまりただ sort するだけ。
887(1): 2020/12/17(木)05:05 ID:fz9fvgi4(1) AAS
そんなもんは9で終わる訳がなくて10も100もある筈、と自然に拡張して考える
それと同様に、枝番号ならサブサブセクション以降もある筈、という拡張は
自然なのに、そっちには思い至らないんだよな
888: 2020/12/17(木)09:44 ID:RUflbAwb(1) AAS
>>887
外野が考えることじゃない。
>>886は、簡単なケースの例を言ってるだけだから、それでええやろ。
889: 2020/12/18(金)08:38 ID:1Xc4Ax1A(1/2) AAS
「数値でソートしたい」って最初から書いてあるだろ……
890: 2020/12/18(金)08:53 ID:lJHaaS7Y(1/2) AAS
今だけはいいけどすぐに駄目になりそうな設計を、
裏技見つけたみたいにやりたがる奴がいるんだよな
ユーザは予想を超えた無茶をしてくるものなのに
891: 2020/12/18(金)09:55 ID:Kz3E+lfW(1) AAS
Keep It Simple, Stupid
892: 2020/12/18(金)09:58 ID:lJHaaS7Y(2/2) AAS
よい設計というのは自然とシンプルになるものなんだよ
893: 849 2020/12/18(金)16:30 ID:1Xc4Ax1A(2/2) AAS
sub Schwalts {
@tmp = @_;
@tmp = map { [$_, /(\d+)/g ] } @tmp;
@tmp = sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] } @tmp;
( map { $_->[0] } @tmp);
}
を短く書いたのがシュワルツ変換だよ
くらいの説明はした方がいいのかな。
894: 2020/12/18(金)21:33 ID:rUPjISbN(1) AAS
まだやってんのかw
895(1): 2020/12/22(火)10:15 ID:YhckWNJa(1) AAS
最近raku触ってるけど面白すぎるわこれ、識別子をパース？して組み合わせるの楽しい
もうこれ半分lispだろ
896: 2020/12/22(火)12:14 ID:/kVuwMjM(1) AAS
演算子の前後に空白が必須なの、なんかイヤじゃない？
ツメツメで書きたいのに。
Perl6のころだけど、オレが降りた理由のひとつ。
897: 2020/12/22(火)16:09 ID:Rxnt3reZ(1) AAS
>>895
面白いんだけどね
他の言語では無いような機能のオンパレード
ちょっと先を行き過ぎてる感が強すぎるかなあ
898: 2020/12/22(火)16:21 ID:Mi4b/BA1(1) AAS
言語なんて、他の言語のいいとこ取りで進化していくからな
常に便利になった部分と実験的な部分がある
899: 2020/12/27(日)18:10 ID:pJIjrBUp(1) AAS
ローカルで一番最初にperlの呼び出しの部分は#!c:/Perl/bin/perl.exeって書くけど
サーバーに上げるときは毎回#!/user/local/perlというように書き直すのがめんどうだけど
#!/user/local.perlのまんまでもローカルで動かす方法ありますか？
900: 2020/12/27(日)19:39 ID:CEWAcbKQ(1/2) AAS
あれ？
/usr/local/perlのままでもいけるんじゃないの？
Windowsはそこのパスを見てなかったような。
901: 2020/12/27(日)19:46 ID:/HQdSjMP(1) AAS
Apacheは見てる
そんでApacheのあるドライブにuser/localのフォルダ作ってperl.exeをコピーしたら動くよ
902: 2020/12/27(日)21:30 ID:CEWAcbKQ(2/2) AAS
そうだっけか？
ちなみに、もしそのファイルに拡張子があるならレジストリで指定する方法もある。
「windows apache レジストリ 拡張子」で検索！
903(1): 2020/12/28(月)00:11 ID:oUNoRxKm(1/2) AAS
perlプログラム中に指定するルートパスについてだけど
open(IN,"/test.html");
my @lines = <IN>;
print "@lines";
close(IN);
とやっても@linesは空で何も取得できなかったけど
print "<a href=\"/test.html\">リンク</a>";
でリンクをクリックするとちゃんとドキュメントルート直下のtest.htmlに飛べる
これはどうしてか？
test.htmlの中身は空ではない
904(1): 2020/12/28(月)00:28 ID:AD+30T3D(1) AAS
>>903
ファイルシステムのルートとドキュメントルートはまったく異なる。
ファイルシステムはプログラム自身が処理するが、URLはまずブラウザが解釈する。
まず落ち着いてよく考えろ。
905(1): 2020/12/28(月)08:24 ID:oUNoRxKm(2/2) AAS
>>904
つまりperlプログラム中で指定する/test.htmlはファイルシステムのルートパスになり
リンクタグで指定する/test.htmlはドキュメントルートのパスになるということですか？
906: 2020/12/28(月)08:37 ID:9b76uWwh(1) AAS
ドキュンルート
907(1): 2020/12/28(月)21:50 ID:gLlPtDZl(1) AAS
>>905
わかってるやん
レスコジキなら他に行ってくれ
908: 2020/12/30(水)20:09 ID:ygO1FIcm(1) AAS
過疎ってる方が落ち着くという人もいるらしい
909: 2020/12/30(水)20:26 ID:ZDzqqnZf(1) AAS
初心者が嫌いな「上級者」で過疎っているほうが落ち着くなら、このスレがいいな。
【Perl上級者コーナーPart01】
2chｽﾚ:php
910: 2020/12/30(水)21:55 ID:Fpo/gio8(1) AAS
>>907
わかってるとはいえんよ。
結果のおうむ返しだけみたいだからな。
落ち着いて考えればわかるはずだし、それでしっかり納得したほうがいいことだから、元コメに返事はしないが。
911(1): 2021/01/03(日)17:25 ID:Lv3VCxJc(1/2) AAS
ブラウザのクッキーを許可してるかどうかを調べるにはどうしたらいいんですか？
クッキーを書き込めたら許可されているというやり方だと
書き込んだ直後はクッキー読み取れない
更新ボタンでページを更新しないとクッキー読み取れないので他のやり方で
912: 2021/01/03(日)17:33 ID:qCTYrijY(1) AAS
お、今年初めの質問だね。
君の悩みは質問箱住人が解決するよ。
ささ、甘酒どぞ。つ甘
みんなーお客さんだよー。
上下前次1-新書関写板覧索設栞歴
あと 90 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.020s