format

声明一个用于 write 函数的图片格式。例如

format Something =
    Test: @<<<<<<<< @||||| @>>>>>
          $str,     $%,    '$' . int($num)
.

$str = "widget";
$num = $cost/$quantity;
$~ = 'Something';
write;

请参阅 perlform 获取更多细节和示例。