| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl -w
use strict;
my %encode = (
'<' => '<',
'&' => '&',
'"' => '"',
);
my $encode = join('', keys(%encode));
my $tag_open;
while(<>) {
chomp;
my ($type, $value) = m/\A([A()?-])(.*)\Z/;
if ($type eq 'A') {
my ($att, $attval) = m/\AA([^\s]+)\s*(.*)\Z/;
print " $att=\"" , encode($attval) , '"';
next;
}
print '>' if $tag_open;
undef $tag_open;
if ($type eq '(') {
print "<$value";
$tag_open = 1;
}
elsif ($type eq ')') {
print "</$value>";
}
elsif ($type eq '-') {
$value =~ s/\\n/\n/g;
print encode($value);
}
elsif ($type eq '?') {
print "<?" , encode($value) , "?>";
}
}
print '>' if $tag_open;
sub encode {
my $text = shift;
$text =~ s/([$encode])/$encode{$1}/g;
return $text;
}