subroutine

1熱

3答えて

かなり単純なテストによって2つのサブルーチンのうちの1つを呼び出したい状況がありますが、パラメータリストは悲しいほど複雑です。これは、三項演算子を使って最も読みやすく、C言語でうまく動作するようですが、perlの同等物が私を回避しています。コードは $res = ($d eq 'something' ? \func1 : \func2)(parameters); のようなものですが、Perl

2熱

1答えて

Perlはどのようにサブルーチンのプライベート変数へのグローバル参照を実装していますか？

私は以下のようにPerlとCで2つのコードセクションを持っています。これはPerlのmy変数とCの自動変数に関するものです。ある程度は、関数に入るたびに初期化されるという点ではかなり似ています。しかし、Perlはサブルーチンの変数myを参照することができます。戻り値の後に関数呼び出しスタックが破棄されるため、Perlはサブルーチンの変数を参照できます。誰でもこの機能をPerlがどのように実装してい

1熱

1答えて

Perlサブルーチンの復帰配列とstrが、彼らはマージなっている

sub process_feed { my ($line) = @_; my @lines; my $last_received = ""; while (1) { if ($line =~/^{(.*?)}(.*)/) { push @lines, $1; $line = $2; } else {

0熱

1答えて

Adruino初心者は、入力に基づいて条件付き移動を行う方法を理解しようとしています。

私は鶏卵ロッカー「インキュベーター」を建設しています。これはArduinoプロジェクトの私の最初の試みですが、私は何年もPLCをプログラムしました。私は問題に遭遇しました：コードのトップセクション（切り替え時にホームシーケンスを見つける）実行することができませんがコンパイルされていますが、これで迷っています。私は、コードの両方のセクションがPLS'cに似てアクセスできますが、これはno no（

1熱

1答えて

Perlのforeachループからサブルーチンへのハッシュリファレンス（ハッシュの配列）

を渡すこれはあなたのために非常に単純なものかもしれませんが、私は一時間以上のためにそれをしようとしています。 [OK]を..ここで$行が本当にハッシュである私のコードは、 @collection = [ { 'name' => 'Flo', 'model' => '23423', 'type' => 'Associate', 'id' =>

-1熱

1答えて

複数のサブルーチンを繰り返し呼び出すか、単に広範なサブルーチンを呼び出す

私のCFDソルバーでは、インデックスi、j、k、lに応じて、各ノードのドメイン全体にいくつかの広範な計算を適用する必要があります。ドメインは3Dで、JMAX + 1の解像度がKMAX + 1である。私の問題は、これらの非常に広範なブロックを繰り返し実行することです。次の2つの方法のどちらが効率的で、処理負荷が少なくて済みますか？方法1 MODULE module_of_method_1

0熱

2答えて

リスト内の文字列の複数の反復位置の取得

私のプログラムの目的は、文中の単語の反復の位置を見つけることです。誤動作したサブルーチンは次のようになります。 def analyse(splitString): wordToSearch = input("What word are you searching for instances of? ").lower() for word in splitString: positio

0熱

1答えて

アウトデータが変更されているPerlでパラメータを渡す方法

私は好奇心の問題があります。私が間違っていることを見てください。私はXML :: LibXMLを使ってPerlでXMLを構築しようとしています。私がサブルーチンを構築して引数を渡すまでは、すべて正常に動作します。まず my $root = $doc->createElement("XML_FILE"); my @sortedOuterTags = qw (JMS_VERSION

0熱

1答えて

列IDに基づくファイルの解析：perl

最初の列に繰り返し値を持つタブ区切りファイルがあります。最初の列の単一の反復値は、2番目の列の複数の値に対応します。それはこのようなものになります。最初の列の順序の種類ごとに AAAAAAAAAA1 m081216|101|123 AAAAAAAAAA1 m081216|100|1987 AAAAAAAAAA1 m081216|927|463729 BBBBBB

0熱

2答えて

Perl - 更新タイムスタンプを生成する方法

私はここで見つけた情報の大部分のおかげで、これまでのところうまく機能しているスクリプトを手に入れました。しかし、私が正しく得ることができないことの1つは、タイムスタンプです。現在、私は$タイムスタンプを呼び出すとき、それは常に（まったく更新されません）、コードのすべての部分で同じタイムスタンプになることを除いて、よく働くこの use POSIX qw/strftime/; my $timest