Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.171
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libtext-reform-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
demo.pl
492
B
-rw-r--r--
demo_badheader.pl
433
B
-rw-r--r--
demo_cols.pl
1.37
KB
-rw-r--r--
demo_columns.pl
1.43
KB
-rw-r--r--
demo_filler.pl
432
B
-rw-r--r--
demo_footer.pl
510
B
-rw-r--r--
demo_leader1.pl
286
B
-rw-r--r--
demo_locale.pl
488
B
-rw-r--r--
demo_reentrant.pl
630
B
-rw-r--r--
demo_simple.pl
938
B
-rw-r--r--
demo_single.pl
358
B
-rw-r--r--
demo_table.pl
605
B
-rw-r--r--
demo_warnings.pl
241
B
-rw-r--r--
demo_ws.pl
499
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : demo_columns.pl
#! /usr/bin/perl -w use Text::Reform qw(form columns); # Easy when data already in columns... @name = qw(Tom Dick Harry); @score = qw( 88 54 99); @time = qw( 15 13 18); print form '-----------------------------', 'Name Score Time', '-----------------------------', '[[[[[[[[[[[[[[ ||||| ||||', \@name, \@score,\@time; print "\n"x2; # Not so easy when data in rows... @data = ( { name=>'Tom', score=>88, time=>15 }, { name=>'Dick', score=>54, time=>13 }, { name=>'Harry', score=>99, time=>18 }, ); # The ugly way... print form '-----------------------------', 'Name Score Time', '-----------------------------', '[[[[[[[[[[[[[[ ||||| ||||', [map $$_{name}, @data], [map $$_{score}, @data], [map $$_{time} , @data]; print "\n"x2; # The nice way... print form '-----------------------------', 'Name Score Time', '-----------------------------', '[[[[[[[[[[[[[[ ||||| ||||', columns qw(name score time), @data; @data = ( [ 15, 'Tom', 88 ], [ 13, 'Dick', 54 ], [ 18, 'Harry', 99 ], ); print "\n"x2; # Works for arrays too, and multiple lists... print form '--------------------------------------', 'Name Score Time | Total', '--------------------------------------', '[[[[[[[[[[[[[[ ||||| |||| | |||||', columns 1,2,0, @data, 2, @data;
Close