uawdijnntqw1x1x1
IP : 216.73.216.23
Hostname : web17.us.cloudlogin.co
Kernel : Linux web17.us.cloudlogin.co 5.10.238-xeon-hst #1 SMP Thu Jun 5 12:15:42 UTC 2025 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
www
/
.
/
..
/
..
/
..
/
bin
/
srx2csv
/
/
#!/usr/bin/perl -l use strict; use warnings; use RDF::Trine; use Text::CSV_XS; use Scalar::Util qw(reftype blessed); my $fh; if (scalar(@ARGV) and -r $ARGV[0]) { my $file = shift; open($fh, '<:encoding(UTF-8)', $file) or die $!; } else { $fh = \*STDIN; } my $csv = Text::CSV_XS->new ( { binary => 1 } ); my $handler = RDF::Trine::Iterator::SAXHandler->new( sub { our @keys; my $vb = shift; if (reftype($vb) eq 'ARRAY') { @keys = @$vb; $csv->print( \*STDOUT, \@keys ); } else { print_vb( $csv, $vb ) } }, { variables => 1 } ); my $p = XML::SAX::ParserFactory->parser(Handler => $handler); $p->parse_file( $fh ); sub print_vb { our @keys; my $csv = shift; my $vb = shift; $csv->print( \*STDOUT, [ map { blessed($_) ? $_->value : '' } @{ $vb }{ @keys } ] ); }
/home/www/./../../../bin/srx2csv