Makistos
10/25/2013 - 12:43 PM

This is an example on how the Perl formatter works. #perl-format #perl

This is an example on how the Perl formatter works. #perl-format #perl

perl_formatter_example.pl
content_copyfile_download
#!/usr/bin/perl

# This script takes something like this as input:
# ID  WorkId  Date
# 1   2       12-10-2009
# 2   16      01-01-2008</pre>

# And prints out this:
#+-----+----------+---------------+
#|ID   |WorkId    |Date           |
#+-----+----------+---------------+
#|1    |2         |12-10-2009     |
#+-----+----------+---------------+
#|2    |16        |01-01-2008     |
#+-----+----------+---------------+

my $id, $workid, $date;

print
"+-----+----------+---------------+\n" .
"|ID   |WorkId    |Date           |\n" .
"+-----+----------+---------------+\n";

format STDOUT =
|@<<<<|@<<<<<<<<<|@<<<<<<<<<<<<<<|  $id    $workid     $date +-----+----------+---------------+ .  while(<>)
{
	next if (m/^ID/);
	($id,$workid,$date) = split(/\t/);
	write;
}