fork download
copy 
  1. #!/usr/bin/env perl -nlaF,
  2.  
  3. $v[$.-1]=[@F];map$l[$_]<($l=length$F[$_])&&($l[$_]=$l),0..$#F}sub p{printf$p,@_}sub o{p
  4. pop,map{$\x$l[$_],$_-$#l?$_[0]:pop}0..$#l}$p=join'%s','',(map"\%-${_}s",@l),$/;($\,$c,@c)=map
  5. chr$_*4+9472,0,.5,3..15;o@c[8,1,0];p($c,map{$_,$c}@$_),$i++||o@c[12,6,4]for@v;o@c[10,3,2];{
Success #stdin #stdout #stderr 0s 6056KB
comments (?)
stdin
copy 
Name,Age,Gender
Shaun,19,Male
Debra,19,Female
Alan,26,Male
George,15,Male
stdout
copy 
┌──────┬───┬──────┐
│Name  │Age│Gender│
├──────┼───┼──────┤
│Shaun │19 │Male  │
│Debra │19 │Female│
│Alan  │26 │Male  │
│George│15 │Male  │
└──────┴───┴──────┘
stderr
copy 
Wide character in printf at prog.pl line 3, <> line 5.
Wide character in printf at prog.pl line 3, <> line 5.
Wide character in printf at prog.pl line 3, <> line 5.
Wide character in printf at prog.pl line 3, <> line 5.
Wide character in printf at prog.pl line 3, <> line 5.
Wide character in printf at prog.pl line 3, <> line 5.
Wide character in printf at prog.pl line 3, <> line 5.
Wide character in printf at prog.pl line 3, <> line 5.
https://ideone.com/bFtC4P
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

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!