Mega Code Archive

 

Categories / Perl / Report

 

Multiline fields

#!/usr/bin/perl use warnings; use strict; my $name = 'Tom'; my $letters = 'AAA'; my $phone = '(111)111-1111'; my $itemA = <<'DONE'; Line 1  Line 2.  DONE write(); $name = 'Jack'; $letters = 'AAA'; $phone = '(222)222-2222'; $itemA = <<'DONE'; Line 3 Line 4 Line 5 DONE write(); $name = 'Mary'; $letters = 'CCC'; $phone = ''; $itemA = 'my item.'; write(); format STDOUT = Name: @<<<<<<<<<<<<<<<<<<<  itemA:   ^<<<<<<<<<<<<<<<<<<<<<       $name,                           $itemA  letters: @<<<<<                        ^<<<<<<<<<<<<<<<<<<<<<<<<         $letters,                      $itemA phone: @||||||||||||                   ^<<<<<<<<<<<<<<<<<<<<<<<<~        $phone,                         $itemA ~                                      ^<<<<<<<<<<<<<<<<<<<<<<<<                                        $itemA ~                                      ^<<<<<<<<<<<<<<<<<<<<<<<<                                        $itemA ~                                      ^<<<<<<<<<<<<<<<<<<<<<...                                        $itemA                                           .