The @* field : Special Variables « Language Basics « Perl

1. Perl
2. Language Basics
3. Special Variables

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

.

   
    
    
  

Related examples in the same category