Mega Code Archive

 

Categories / Perl / Language Basics

 

$~ is the format

format standardformat_top =                   Employees First Name   Last Name    ID       Extension -------------------------------------------- . format standardformat = @<<<<<<<<<<<<@<<<<<<<<<<<<@<<<<<<<<@<<<< $firstname   $lastname    $ID      $extension . $firstname = "A";  $lastname = "B"; $ID = 1234;  $extension = x456; open FILEHANDLE, ">report.frm" or die "Can't open file"; select FILEHANDLE; $~ = standardformat; $^ = standardformat_top; write; close;