Mega Code Archive

 

Categories / Perl / Report

 

A simple format example

#!/usr/bin/perl use warnings; use strict; my $greeting = 'Hello'; my $planet = 'world'; write(); $greeting = 'Greetings'; $planet = 'Mars'; write(); $greeting = 'Howdy'; $planet = 'Pluto'; write(); format STDOUT = I would like to say @<<<<<<<<< @<<<<<<<!                     $greeting, $planet .