perl function write

The write function formats a list of values and writes it to a filehandle in a specified format. This function is typically used for generating reports or formatted output.

Here's the syntax of the write function:

write FILEHANDLE;
format_name

FILEHANDLE is the filehandle to which the formatted output will be written. format_name is the name of a user-defined format, which defines the layout and formatting of the output.

Here's an example that demonstrates the use of write function:

#!/usr/bin/perl

use strict;
use warnings;

# Define a format named "MYFORMAT"
format MYFORMAT =
===================================
| Name       | Age | Occupation    |
===================================
| @<<<<<<<<<<| @<< | @>>>>>>>>>>> |
$name, $age, $occupation
.

# Set the output format to "MYFORMAT"
select(STDOUT);
$~ = "MYFORMAT";

# Write some data to STDOUT using the format "MYFORMAT"
my $name = "John Doe";
my $age = 35;
my $occupation = "Engineer";
write;

Output:

===================================
| Name       | Age | Occupation    |
===================================
| John Doe   | 35  | Engineer     |
===================================

In this example, we first define a format named MYFORMAT which defines the layout of the output. We then set the output format to MYFORMAT using the $~ variable. Finally, we call the write function to write some data to STDOUT using the format MYFORMAT. The data is specified using the $name, $age, and $occupation variables.