| Server IP : 172.67.220.81 / Your IP : 216.73.216.210 Web Server : Apache System : Linux semi1.us.cloudlogin.co 5.10.244-xeon-hst #1 SMP Sun Sep 14 17:09:20 UTC 2025 x86_64 User : xessglobal ( 271017) PHP Version : 8.1.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : ON Directory : /bin/ |
Upload File : |
#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use YAML::PP::Parser;
use YAML::PP::Common;
my ($file) = @ARGV;
my $parser = YAML::PP::Parser->new(
receiver => sub {
my ($self, undef, $event) = @_;
print encode_utf8(YAML::PP::Common::event_to_test_suite($event, { flow => 1 })), "\n";
},
$file ? (reader => YAML::PP::Reader::File->new) : (),
);
if ($file) {
$parser->parse_file($file);
}
else {
my $yaml;
$yaml = do { local $/; <STDIN> };
$yaml = decode_utf8($yaml);
$parser->parse_string($yaml);
}