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.13
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 /
libgd-graph-perl /
examples /
samples /
[ HOME SHELL ]
Name
Size
Permission
Action
Makefile
2.31
KB
-rw-r--r--
error.pl
179
B
-rw-r--r--
logo.png
2.76
KB
-rw-r--r--
make_index.pl
1.39
KB
-rw-r--r--
rgb.txt
16.72
KB
-rw-r--r--
sample11.pl
930
B
-rw-r--r--
sample12.pl
895
B
-rw-r--r--
sample13.pl
805
B
-rw-r--r--
sample14.pl
2.45
KB
-rw-r--r--
sample15.pl
999
B
-rw-r--r--
sample16.pl
1.22
KB
-rw-r--r--
sample17.pl
1.04
KB
-rw-r--r--
sample18.pl
3.01
KB
-rw-r--r--
sample19.pl
2.82
KB
-rw-r--r--
sample1A.pl
1.08
KB
-rw-r--r--
sample1B.pl
958
B
-rw-r--r--
sample21.pl
705
B
-rw-r--r--
sample22.pl
563
B
-rw-r--r--
sample23.pl
2.69
KB
-rw-r--r--
sample29.pl
732
B
-rw-r--r--
sample31.pl
706
B
-rw-r--r--
sample41.pl
807
B
-rw-r--r--
sample42.dat
103
B
-rw-r--r--
sample42.pl
974
B
-rw-r--r--
sample51.pl
665
B
-rw-r--r--
sample52.pl
873
B
-rw-r--r--
sample53.pl
1.25
KB
-rw-r--r--
sample54.dat
30.73
KB
-rw-r--r--
sample54.pl
1.01
KB
-rw-r--r--
sample55.pl
665
B
-rw-r--r--
sample56.pl
1.16
KB
-rw-r--r--
sample57.pl
579
B
-rw-r--r--
sample58.pl
715
B
-rw-r--r--
sample61.pl
1.33
KB
-rw-r--r--
sample62.pl
838
B
-rw-r--r--
sample63.pl
1.03
KB
-rw-r--r--
sample64.pl
1.48
KB
-rw-r--r--
sample71.pl
2.56
KB
-rw-r--r--
sample72.pl
1.04
KB
-rw-r--r--
sample91.pl
512
B
-rw-r--r--
sample92.pl
616
B
-rw-r--r--
sample93.pl
491
B
-rw-r--r--
sample94.pl
685
B
-rw-r--r--
sample95.pl
2.62
KB
-rw-r--r--
save.pl
288
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : sample56.pl
use GD::Graph::lines; require 'save.pl'; print STDERR "Processing sample56 (experimental)\n"; my $path = $ENV{GDGRAPH_SAMPLES_PATH} ? $ENV{GDGRAPH_SAMPLES_PATH} : ''; @data = read_data("${path}sample54.dat") or die "Cannot read data from ${path}sample54.dat"; $my_graph = new GD::Graph::lines(); $my_graph->set( x_label => 'Wavelength (nm)', y_label => 'Absorbance', title => 'Numerical X axis', y_min_value => 0, y_max_value => 2, y_tick_number => 8, y_label_skip => 4, x_tick_number => 14, x_min_value => 100, x_max_value => 800, x_ticks => 1, x_tick_length => -4, x_long_ticks => 1, x_label_skip => 2, x_tick_offset => 2, no_axes => 1, line_width => 2, x_label_position => 1/2, r_margin => 15, transparent => 0, ); $my_graph->set_legend('Thanks to Scott Prahl and Gary Deschaines'); $my_graph->plot(\@data); save_chart($my_graph, 'sample56'); sub read_data { my $fn = shift; local(*ZZZ); my @d = (); open(ZZZ, $fn) || return (); while (<ZZZ>) { chomp; my @row = split; for (my $i = 0; $i <= $#row; $i++) { undef $row[$i] if ($row[$i] eq 'undef'); unshift @{$d[$i]}, $row[$i]; } } close (ZZZ); return @d; } 1;
Close
