このようなことをperlで行う（配列ハッシュを変換して1行で使用する）のはありますか？ sub func{
#from this
my %args = @_;
print $args{test};
#to this
print %{@_}{test};
}
イムは、厳格な使用 JavaScriptのようなコールバックにエラーを渡すためにそれを使用しました。 警告を使用します。 s
私は次のコンテンツを持つファイル/tmp/xxx持っている：私は、ファイルの内容を読んで、それを印刷するとき 00000000 D0 BA D0 B8 │ D1 80 D0 B8 │ D0 BB D0 B8 │ D0 BA к и р и л и к
を私はエラーを取得： Wide character in print at ...
ソースは次のとおりです。 use utf8;
ope
URLからいくつかの変数をロードし、CGIスクリプトが初期化されているかどうかチェックします。私はすぐにPerlのリストに初期化されていない値を入れることができないことを知りました。 私のアプローチは、単純にリストを反復し、スイッチ変数$sucessDOM（すべてのデータが初期化されていれば1、他の場所では0）を使用することでした。 私はこの思い付いた： ### Read data from HT
私が誤って誤字を削除したり、どこかに入力したのかどうかわかりませんが、突然コードの一部が機能しなくなりました。なんらかの理由で$ inから読み込まれる行はありません。 use Win32::Job;
use IO::Handle;
STDOUT->autoflush;
pipe my $in, my $out;
my $job = Win32::Job->new;
sub flu
このコードはこのプロセスの最後です。昇順で名前と合計の結果を集めて印刷したいと思います。@ sum1と@ sum2を取ろうとしましたが、@sumの機能を知ることができませんでした。私はそれを行うことができますか、または任意のアイデアは非常に貴重になるでしょ #!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(sum);
にリダイレクトします。bashスクリプトでは、各ファイルで次のPerlコマンドを呼び出して、そのファイルにPerlコマンドの出力をリダイレクトします。 Perlコマンドは単にremoves the comments from the fileです。それがコンソールに印刷されると、うまくいくように見えます。しかし、個々のファイルに出力をリダイレクトしようとすると、ファイルは空になります。私はここで間