fork download 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. my $name = 'rightfold';
  6. my $age = 20;
  7. my $id = 1;
  8. my $comments = 'Hello, world!';
  9.  
  10. format STDOUT =
  11.  =================================== 
  12. | NAME      |    AGE    | ID NUMBER |
  13. |-----------+-----------+-----------|
  14. | @<<<<<<<< | @|||||||| | @>>>>>>>> |
  15.   $name,      $age,       $id,
  16. |===================================|
  17. | COMMENTS                          |
  18. |-----------------------------------|
  19. | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |~~
  20.   $comments,
  21.  ===================================
  22. .
  23.  
  24. write STDOUT;
Success #stdin #stdout 0s 6132KB
comments (?)
stdin 
Standard input is empty
stdout 
 ===================================
| NAME      |    AGE    | ID NUMBER |
|-----------+-----------+-----------|
| rightfold |    20     |         1 |
|===================================|
| COMMENTS                          |
|-----------------------------------|
| Hello, world!                     |
 ===================================
https://ideone.com/Z2ZMnp
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!