perlの構文でカンマの意味が分からない

CGIの勉強をしているのですがネットからCGIのサンプルソースを持ってきて調べていたら
よくわからない構文が出てきたのでどういう意味か教えてほしいです。
sub RequireFile
{
my $customfile="$CUSTOM_DIR/$_[0]";
require $customfile,return if -e $customfile;
my $fname="$INCLUDE_DIR/$_[0]";
OutError('ファイルが見つかりません - '.$fname) unless -e $fname;
require $fname;
}
このサブルーチンの記述の４行目のreturnの前のカンマはどういう意味がありますか？

No.2 ベストアンサー 回答者： artoo 回答日時： 2022/10/30 03:11

コンマ演算子です。

この場合は、 ; と似ていますが、
require $customfile; return if -e $customfile;
だと、if修飾子は return だけに掛かり、require は常に実行されますが、
require $customfile, return if -e $customfile;
だと、
require $customfile, return
で１つの式になるので、if修飾子はこの全体に掛かり、ifが真の場合だけrequire と return が実行されます。

この回答へのお礼

回答ありがとうございます
理解できました
perlは1行で書いてしまう書き方が多いけど
理解できたらシンプルで良いですね^_^

お礼日時：2022/10/30 08:24

No.1 回答者： かわごえ 回答日時： 2022/10/30 02:49

えええーっと

https://www.loose-info.com/main/memolist/perl/op …
ここので理解できませんか

この回答へのお礼

回答ありがとうございます
理解できました
コンマは括弧の中にしか出てこないという思い込みがありました

お礼日時：2022/10/30 08:15