書き込み中にperlで動的フォーマットを実行するには？

Question

は

、私は以下のように定義された形式になります。

format STDOUT = 
------------------------------------ 
|Field1  | Field2  | Field3 | 
------------------------------------ 
|@<<<<<<<<<<| @<<<<<<<<<<<| @<<<<< |~~ 
shift(@list1),shift(@list2),shift(@list3) 
------------------------------------ 
. 
write STDOUT; 

だから、質問は以下の通りです：

1. は、動的な印刷値のリストを作成することが可能ですか？例： リスト1に12の要素が含まれていて、$ flag1が定義されている場合は、すべての要素の代わりに0..10の要素のみを出力します。$ flagをパラメータを生成するサブ要素に渡してこの処理を試みました。しかし、最後に定義されたFORMATが常に優先されるように見え、最終的な書き込みが発生した場合は、条件が何であっても最後のフォーマットが適用されます。
2. 同じプロセスを使用してフィールドを追加/非表示することもできますか。例えば$ flag2が定義されている場合は、追加フィールドField4をリストに追加しますか？

Answer 1

のフォーマットへのアクセス、基本的に内部で男perlformををハッキングすることで、私は、フォーマット機能は、動的なアプローチのために非常に適しているとは思わない - あなたはsprintfやpackテンプレートを使用しようとすることができます。それらのフォーマットは、オンザフライで構築するのが簡単な単純な文字列です。

Answer 2

私には、一度に多くのことをしているようです。

出力をフォーマットする前に、フラグのチェックを作成してから、 フラグ（たとえば、配列の最初の10要素）に基づいてスカラーを作成します。 次に、文字列を出力に配置します。

フラグ2が設定されている場合は、Field4のWHOLEテーブル+エントリである というスカラーを作成することもできます。ifステートメントでスカラーを出力に連結します。

"巧妙な"しようとするよりも、いくつかのコード行ですべての手順を実行するよりも、正しく仕事を行うために多くの手順を実行することをお勧めします。

Answer 3

の内部

  use Carp; 
      sub swrite { 
       croak "usage: swrite PICTURE ARGS" unless @_; 
       my $format = shift; 
       $^A = ""; 
       formline($format,@_); 
       return $^A; 
      } 

      $string = swrite(<<'END', 1, 2, 3); 
     Check me out 
     @<<< @||| @>>> 
     END 
      print $string;