Mega Code Archive

 

Categories / Perl / Language Basics

 

The @ field

#!/usr/bin/perl use warnings; use strict; my $name = 'Mary'; my $letters = 'SWM'; my $phone = '(111)111-2222'; my $itemA = <<'DONE'; lINE 1 Line 2 Line 3 DONE write(); $name = 'Jack'; $letters = 'EEE'; $phone = '(222)222-1111'; $itemA = <<'DONE'; Line 1 Line 2 Line 3 DONE write(); $name = 'Tom'; $letters = 'SSS'; $phone = ''; $itemA = 'itemA'; write(); format STDOUT = Name: @<<<<<<<<<<<<<<<<<<<  letters: @<<<<< phone: @<<<<<<<<<<<<       $name,                         $letters,     $phone @* $itemA .