Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libcairo-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
png
[ DIR ]
drwxr-xr-x
freetype-font.pl
761
B
-rw-r--r--
glyph-text.pl
1.25
KB
-rw-r--r--
mime-unique-id.pl
6.33
KB
-rwxr-xr-x
pdf-tagged-text.pl
7.01
KB
-rwxr-xr-x
png-streams.pl
693
B
-rw-r--r--
simple.pl
1.24
KB
-rw-r--r--
subclassing.pl
1.06
KB
-rw-r--r--
twisted-text.pl
8.18
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : glyph-text.pl
#!/usr/bin/perl use strict; use warnings; use utf8; use Cairo; use constant { WIDTH => 250, HEIGHT => 200, NUM_GLYPHS => 10, TEXT => 'abcdefghij', }; my $surface = Cairo::PdfSurface->create ('glyph-text.pdf', WIDTH, HEIGHT); my $cr = Cairo::Context->create ($surface); $cr->select_font_face ('sans', 'normal', 'normal'); $cr->set_font_size (40); my @glyphs = (); my $dx = 0; my $dy = 0; foreach (0 .. NUM_GLYPHS - 1) { # This selects the first few glyphs defined in the font, # usually C<< !"#$%&'()* >>. my $glyph = { index => $_ + 4, x => $dx, y => $dy }; my $extents = $cr->glyph_extents ($glyph); $dx += $extents->{x_advance}; $dy += $extents->{y_advance}; push @glyphs, $glyph; } # One-to-one mapping between glyphs and bytes in a string. This relies on the # utf8 represenation of the letters in TEXT being one byte long. my @clusters = map { {num_bytes => 1, num_glyphs => 1} } (1 .. NUM_GLYPHS); my $height = $cr->font_extents->{height}; # Display the glyphs normally $cr->translate (0, $height); $cr->show_glyphs (@glyphs); # Display the glyphs such that when you select and copy them, you actually get # reverse of TEXT, i.e. 'jihgfedcba'. $cr->translate (0, $height); $cr->show_text_glyphs (TEXT, \@glyphs, \@clusters, 'backward'); $cr->show_page;
Close