0001デフォルトの名無しさん2021/03/27(土) 23:52:13.17ID:vQS/WYw3
￥マークを\に変えたらできました
紛らわしいもんですね
0062デフォルトの名無しさん2022/01/08(土) 10:43:35.54ID:mAjXIrhA
そう。紛らわしいんだ。
逆スラッシュは、日本語・Windows 用のキーボードで、半角の\ と同じ
半角の\ と見た目が同じでも、異なる文字コードの文字があるので、
それは使わないようにすべき！
プログラムコードの中に全角文字を入れない
というだけで十分では?
0066デフォルトの名無しさん2022/01/09(日) 20:58:02.56ID:j/1ajBbY
運用でカバーできる…そんなふうに考えていた時期が俺にもありました
おまいらの話がさっぱりわからん
もしかしておまいらの画面にはレス中の \ が \ と表示されてるのか？
0069デフォルトの名無しさん2022/01/10(月) 00:57:25.51ID:av6tewvz
U+005C なのか U+00A5 なのかという問題
0070デフォルトの名無しさん2022/01/10(月) 01:03:42.10ID:av6tewvz
以前 Linux の端末で Perl のプログラムで改行として ￥ｎ を入れたらそのまま画面に ￥ｎ が出て来て驚いたことがあったが、
その時はキーボードの「￥」を押すと U+00A5 が入力されており「＼」を押すと U+005C が入力されている状態だった。
もちろんキーボードの通りに端末画面に出る。
ま、しかし、これが本来あるべき姿だよな。
0071デフォルトの名無しさん2022/01/10(月) 01:06:59.43ID:9yjjKzLZ
お前ら安心しろ、PowerShellのエスケープ文字はバッククォート「`」だ
0072デフォルトの名無しさん2022/01/10(月) 18:57:32.72ID:iL7OUFIC
evalは使わない方がいいって聞いたけど
例外処理でeval使わない方がいいんですか？
それなら例外処理はどうすればいいんですか？
>>72
文字列のevalは使うなという話やろ？
でなければ、そう言ったヤツに聞かんと。 0074デフォルトの名無しさん2022/01/10(月) 19:53:08.99ID:av6tewvz
セキュリティホールを作ってしまうかも知れないから使うなら気をつけて使えってことだろう。
特に外部から入力した文字列を元にしてevalに渡す文字列を作る場合な。
>>70
Windowsだけが異常なだけなんでは？
俺は本来しか知らないよ >>75
そうなんだろうな。問題は、そこらじゅうにWindowsマシンがあるといこと。
サーバは Linux でも端末が Windows だとおかしい状態で表示されたりする。
(端末用のソフトやその設定次第ではあるが) >>75
遭遇頻度で言えば、Windows以外のほうがレアだけどな！ 子飼弾がyoutubeやってるって聞いたんで見てみた
老害オヤジみたいになっててなんだかなあ
2020年にPerl5.32あたりと同じ内容で2021までにはPerl7がリリース予定
目立った機能追加もないからさすがにリリース余裕だろうと思っとんだがあの話しどうなったの？
Perlコミュニティ機能してなくてそれすらなくなったとか？
未だにperlでwebサイト作ってるとこあんの？
2chはperlらしいが
0081デフォルトの名無しさん2022/03/30(水) 15:15:52.21ID:eA8ci9y2
2chはC言語では？
違ったっけ？
>>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モジュールを組み込んだらできるかも？
そんなモジュールはきっと存在しないので、自作が前提だけど。ｗ
>>87
shebangを使って出来るか試して見ますね 0089デフォルトの名無しさん2022/08/23(火) 18:46:04.59ID:gaXbg1Nc
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
みたいな 0091デフォルトの名無しさん2022/08/25(木) 15:27:50.26ID:bJn+zm7R
宇宙刑事 shebang
0092デフォルトの名無しさん2022/08/26(金) 18:50:05.53ID:NQ4mbOjq
>>84
Would you like
#!/usr/bin/env perl
or
/your_favorite_perl_path perl_script 0093デフォルトの名無しさん2022/08/26(金) 20:12:41.13ID:fCaJRqVr
きまぐれでどれが呼ばれるか判らんものをよく使おうと思えるな
>>94
PATH の通ったディレクトリに Windows 用の xz.exe を置いておくと tar の J オプションで展開してくれるようだが圧縮は対応していない模様。
圧縮は自分でパイプ通してやらないとできないみたい。何故そうなっているかは不明。 あれ？でも gz (gzip) 圧縮なら tar cvfz でできたな。
0098デフォルトの名無しさん2022/12/23(金) 15:18:23.84ID:yhR2datD
0099デフォルトの名無しさん2023/06/07(水) 16:24:29.96ID:ywJ2sk66
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がそういうものだと今日まで知らずにいた…おｒｚ myのスコープはブロック、ファイル、evalの３つ
パッケージとは無関係だから>>99ではファイルスコープになるね
package P2でもう一度my $bb宣言したらエラーになることからも分かる 0103デフォルトの名無しさん2024/02/23(金) 07:50:24.93ID:3WpPBYhb
あげ
0104デフォルトの名無しさん2024/04/14(日) 21:35:03.76ID:byNUCOGR
ローカルサーバーで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");
成る程、() 使わない副作用意識しないとダメですね
ありがとうございます