Perlについての質問箱 65箱目
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.32.1) ▼前スレ Perlについての質問箱 62箱目 http://toro.5ch.net/test/read.cgi/tech/1385039352/ Perlについての質問箱 63箱目 https://mevius.5ch.net/test/read.cgi/tech/1392820583/ Perlについての質問箱 64箱目 https://mevius.5ch.net/test/read.cgi/tech/1548981877/ ¥マークを\に変えたらできました 紛らわしいもんですね 逆スラッシュは、日本語・Windows 用のキーボードで、半角の\ と同じ 半角の\ と見た目が同じでも、異なる文字コードの文字があるので、 それは使わないようにすべき! プログラムコードの中に全角文字を入れない というだけで十分では? 運用でカバーできる…そんなふうに考えていた時期が俺にもありました おまいらの話がさっぱりわからん もしかしておまいらの画面にはレス中の \ が \ と表示されてるのか? U+005C なのか U+00A5 なのかという問題 以前 Linux の端末で Perl のプログラムで改行として ¥n を入れたらそのまま画面に ¥n が出て来て驚いたことがあったが、 その時はキーボードの「¥」を押すと U+00A5 が入力されており「\」を押すと U+005C が入力されている状態だった。 もちろんキーボードの通りに端末画面に出る。 ま、しかし、これが本来あるべき姿だよな。 お前ら安心しろ、PowerShellのエスケープ文字はバッククォート「`」だ evalは使わない方がいいって聞いたけど 例外処理でeval使わない方がいいんですか? それなら例外処理はどうすればいいんですか? >>72 文字列のevalは使うなという話やろ? でなければ、そう言ったヤツに聞かんと。 セキュリティホールを作ってしまうかも知れないから使うなら気をつけて使えってことだろう。 特に外部から入力した文字列を元にしてevalに渡す文字列を作る場合な。 >>70 Windowsだけが異常なだけなんでは? 俺は本来しか知らないよ >>75 そうなんだろうな。問題は、そこらじゅうにWindowsマシンがあるといこと。 サーバは Linux でも端末が Windows だとおかしい状態で表示されたりする。 (端末用のソフトやその設定次第ではあるが) >>75 遭遇頻度で言えば、Windows以外のほうがレアだけどな! 子飼弾がyoutubeやってるって聞いたんで見てみた 老害オヤジみたいになっててなんだかなあ 2020年にPerl5.32あたりと同じ内容で2021までにはPerl7がリリース予定 目立った機能追加もないからさすがにリリース余裕だろうと思っとんだがあの話しどうなったの? Perlコミュニティ機能してなくてそれすらなくなったとか? 未だにperlでwebサイト作ってるとこあんの? 2chはperlらしいが >>79 亀だが外から見えるまとまった発表はないな。Steering Council もそれに気付いたから近々ブログ記事も出すと言ってる https://markmail.org/message/tqi446jfy42elhz5 まあ Perl 7 の変更点だった strict / warnings / feature 'signatures' のデフォルト有効化と feature qw/indirect multidimentional bareword_filehandles/ のデフォルト無効化は use feature ':5.36' に全部入ったから use v5.36 すれば実質 Perl 7 だ perlファイルに書かれている1行目の記述(#!/usr/local/bin/perl等)を変更せずに、 apacheでperlの参照先を変えたい(出来ればvirtualhost毎)のですが、やり方分かる方ませんか? それOSの力を借りないと無理なのでは?ApacheやPerlの問題ではないと思うが。 自分で /usr/local/bin/perl というスクリプトを作ってしまってそこで切り替えるみたいな誤魔化しで良いなら楽だと思うが。 >>85 OSはUbuntu 20.04.4 LTS を使っています。 何か方法はないでしょうか? shebangを無視してファイルを実行するようなApacheモジュールを組み込んだらできるかも? そんなモジュールはきっと存在しないので、自作が前提だけど。w >>87 shebangを使って出来るか試して見ますね Perlに限った話じゃないんだが、WSL1でubuntu 22.04を使うとWSL1上でgzipバイナリが動かないせいで、tar.gz関連処理が軒並みエラーになってしまう cpanでモジュールをダウンロードするとtar.gzの展開に失敗するのでなにもインストールできない 解決するには、gzipのソースをgnu公式からダウンロードしてビルド&インストールしてWSL1で動くgzipにパスが通るようにする必要がある >>84 試してないが mod_actions 噛ませば良いんでない? AddHandler my-perl-script .pl AddHandler cgi-script .cgi Action my-perl-script /cgi-bin/run-my-perl.cgi とかやって run-my-perl.cgi は #!/bin/sh /path/to/your/perl $PATH_TRANSLATED みたいな >>84 Would you like #!/usr/bin/env perl or /your_favorite_perl_path perl_script きまぐれでどれが呼ばれるか判らんものをよく使おうと思えるな >>94 PATH の通ったディレクトリに Windows 用の xz.exe を置いておくと tar の J オプションで展開してくれるようだが圧縮は対応していない模様。 圧縮は自分でパイプ通してやらないとできないみたい。何故そうなっているかは不明。 あれ?でも gz (gzip) 圧縮なら tar cvfz でできたな。 perlに付属されているh2xsというツールを使ってモジュールを作成したいんですが、ディレクトリに移動に移動してコードを書く方法が分かりませんアドバイスお願いします。 ※Perl https://linuxcommand.net/perl-mod/#i-3 Perlのpackage内my変数についてちょっと疑問。 myはレキシカルな局所変数なので、他package内のmy変数は他のpackageからは参照できず、参照したければmy出なくourにすると解釈していたが。 packageが別々のソースファイルだった場合はその通りですっきりしたスコープ仕様だと思っていたが… ところが二つのpackageが同じソースファイル内にあり、他のpackageのmy変数を参照すると変な感じ: 例 use strict; use warnings; package P1; our $aa = __PACKAGE__.'aa'; my $bb = __PACKAGE__.'bb'; package P2; print __PACKAGE__ . "(1)$P1::aa\n"; print __PACKAGE__ . "(2)$aa\n"; print __PACKAGE__ . "(3)$P1::bb\n"; print __PACKAGE__ . "(4)$bb\n"; 実行結果 $ perl package_a_b.pl Name "P1::bb" used only once: possible typo at package_a_b.pl line 14. P2(1)P1aa P2(2)P1aa Use of uninitialized value $P1::bb in concatenation (.) or string at package_a_b.pl line 14. P2(3) P2(4)P1bb P2からはP1のmy $bbが$bbで参照できて、$P1::bb だとエラー、なんだこりゃ…??? ちな 5.36.0 と 530.0 で確認した。 myはpackageとは何の関係もない packageにmyのシンボルテーブルはない だから(3)ではuninitialized value $P1::bbになる (4)は単なる文字列 正常な振る舞いだよ >>100 回答ありがとう、myがそういうものだと今日まで知らずにいた…おrz myのスコープはブロック、ファイル、evalの3つ パッケージとは無関係だから>>99 ではファイルスコープになるね package P2でもう一度my $bb宣言したらエラーになることからも分かる ローカルサーバーでsrandとrandで生成した乱数の値と レンタルサーバーでsrandとrandで生成した乱数の値が違うのは何で? どちらもsrandの値は同じとする。 プラットフォームのifdefで切り分けてそうだからそれっぽいマクロ定数でも探すといいかも ビルドされた環境のCライブラリ依存じゃない? 同じにしたいならMath::Random::MTとか使えばいいんでね >>104 一般論としてPerlの内部実装は無保証でコロッコロ変わるので、疑似乱数の再現性を担保したいならコードを同梱してしまうのが最も確実 cでたったこれだけ、Perlで詰めれば20行も要らんだろう、局所使用ならファイル内subでいいレベル github.com/bmurray7/mersenne-twister-examples/blob/master/c-mersenne-twister.c 同階層にpl版もある 丁寧にコードされパッケ化で無意味に冗長なので参考ならこっち アルゴリズム特許あるか知らんし、ライセンスを許容するなら同梱 print"A\n",print"B\n"; これの動き教えてくれよ 出来ればサンプルソースも print "A\n", print "B\n"; print("A\n", print("B\n")); まず最初のprintの引数中のprint("B\n")が評価され"B\n"が出力される print("B\n")が成功したので真の値1を帰す print("A\n", 1)となる B A 1と表示される print "X\n", 3 > 0; print "X\n", 3 < 0; print "X\n", open(my $fh, "no_such_file.txt"); 成る程、() 使わない副作用意識しないとダメですね ありがとうございます read.cgi ver 07.5.0 2024/04/24 Walang Kapalit ★ | Donguri System Team 5ちゃんねる