レンタルサーバーに掲示板を設置して問題なく動いたのですが、投稿通知機能を on にすると、
投稿するときだけ「Internal Server Error」が出てしまいます。その他の動作には問題ありません。
・sendmail はサーバーで指定されたものです。
・通知先メールアドレスは間違いありません。
その他にチェックするところがありますでしょうか？よろしくご指導のほどお願いします。
レンタルサーバーに掲示板を設置して問題なく動いたのですが、投稿通知機能を on にすると、
投稿するときだけ「Internal Server Error」が出てしまいます。その他の動作には問題ありません。
・sendmail はサーバーで指定されたものです。
・通知先メールアドレスは間違いありません。
その他にチェックするところがありますでしょうか？よろしくご指導のほどお願いします。
each関数について質問させていただきます。perl5.8.0です。
eachに渡す引数を、ハッシュ“変数”ではなくハッシュ記法を直接指定する方法はないでしょうか。
具体的には、
%hash = (a=>1,b=>2);
while (($k,$v)=each %hash) { ～
ではなく、
while (($k,$v)=each (a=>1,b=>2)){ ～
というように、eachに直接キーと要素を渡したいのです。
以下のようにいろいろ試したのですが、うまくいきません。
【1】 perl -e 'while (($k,$v)=each (a=>1,b=>2)){print "$k:$v\n";}'
Type of arg 1 to each must be hash (not list) at -e line 1, near "2)"
Execution of -e aborted due to compilation errors.
【2】 perl -e 'while (($k,$v)=each %{a=>1,b=>2}){print "$k:$v\n";}'
syntax error at -e line 1, near "%{"
Execution of -e aborted due to compilation errors.
【3】 perl -e 'while (($k,$v)=each %{(a=>1,b=>2)}){print "$k:$v\n";}'
（何も出力されない）
【4】 perl -e 'while (($k,$v)=each %{{a=>1,b=>2}}){print "$k:$v\n";}'
a:1
a:1
a:1
a:1
：
（無限ループ）
予想では【3】の書き方が正しいような気がしましたが出力されず、そして【4】は少なくとも参照はできているようなのに、イテレーターが正しく動作していないような感じです。
（そもそもイテレーターというのは変数じゃなく無名ハッシュのようなものでも有効なのでしょうか？）
また、試しにkeysで同じことをしてみると、
【5】 perl -e 'foreach (keys (a=>1,b=>2)){print "$_\n";}'
Type of arg 1 to keys must be hash (not list) at -e line 1, near "2)"
Execution of -e aborted due to compilation errors.
【6】 perl -e 'foreach (keys %{a=>1,b=>2}){print "$_\n";}'
syntax error at -e line 1, near "%{"
Execution of -e aborted due to compilation errors.
【7】 perl -e 'foreach (keys %{(a=>1,b=>2)}){print "$_\n";}'
（何も出力されない）
【8】 perl -e 'foreach (keys %{{a=>1,b=>2}}){print "$_\n";}'
a
b
keysでは【8】が期待どおりの動作をします。
どうぞよろしくお願いいたします。
each関数について質問させていただきます。perl5.8.0です。
eachに渡す引数を、ハッシュ“変数”ではなくハッシュ記法を直接指定する方法はないでしょうか。
具体的には、
%hash = (a=>1,b=>2);
while (($k,$v)=each %hash) { ～
ではなく、
while (($k,$v)=each (a=>1,b=>2)){ ～
というように、eachに直接キーと要素を渡したいのです。
以下のようにいろいろ試したのですが、うまくいきません。
【1】 perl -e 'while (($k,$v)=each (a=>1,b=>2)){print "$k:$v\n";}'
Type of arg 1 to each must be hash (not list) at -e line 1, near "2)"
Execution of -e aborted due to compilation errors.
【2】 perl -e 'while (($k,$v)=each %{a=>1,b=>2}){print "$k:$v\n";}'
syntax error at -e line 1, near "%{"
Execution of -e aborted due to compilation errors.
【3】 perl -e 'while (($k,$v)=each %{(a=>1,b=>2)}){print "$k:$v\n";}'
（何も出力されない）
【4】 perl -e 'while (($k,$v)=each %{{a=>1,b=>2}}){print "$k:$v\n";}'
a:1
a:1
a:1
a:1
：
（無限ループ）
予想では【3】の書き方が正しいような気がしましたが出力されず、そして【4】は少なくとも参照はできているようなのに、イテレーターが正しく動作していないような感じです。
（そもそもイテレーターというのは変数じゃなく無名ハッシュのようなものでも有効なのでしょうか？）
また、試しにkeysで同じことをしてみると、
【5】 perl -e 'foreach (keys (a=>1,b=>2)){print "$_\n";}'
Type of arg 1 to keys must be hash (not list) at -e line 1, near "2)"
Execution of -e aborted due to compilation errors.
【6】 perl -e 'foreach (keys %{a=>1,b=>2}){print "$_\n";}'
syntax error at -e line 1, near "%{"
Execution of -e aborted due to compilation errors.
【7】 perl -e 'foreach (keys %{(a=>1,b=>2)}){print "$_\n";}'
（何も出力されない）
【8】 perl -e 'foreach (keys %{{a=>1,b=>2}}){print "$_\n";}'
a
b
keysでは【8】が期待どおりの動作をします。
どうぞよろしくお願いいたします。
