Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.13
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libtext-csv-xs-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
csv-check
7.96
KB
-rwxr-xr-x
csv-split
2.31
KB
-rwxr-xr-x
csv2xls
7.39
KB
-rwxr-xr-x
csv2xlsx
9.14
KB
-rwxr-xr-x
csvdiff
4.59
KB
-rwxr-xr-x
parser-xs.pl
1.92
KB
-rwxr-xr-x
rewrite.pl
2
KB
-rwxr-xr-x
speed.pl
2.62
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : rewrite.pl
#!/usr/bin/perl use strict; use warnings; # rewrite.pl: Convert csv to csv # (m)'17 [20 Sep 2017] Copyright H.M.Brand 2014-2021 our $VERSION = "0.05 - 20170920"; sub usage { my $err = shift and select STDERR; print <<"EOH"; usage: $0 [-o file] [-s S] [-m] [-c] [-i] [file] -o F --out=F output to file F (default STDOUT) -s S --sep=S set input separator to S (default ; , TAB or |) -m --ms output Dutch style MicroSoft CSV (; and \\r\\n) -n --no-header CSV has no header line. If selected - default input sep = ; - BOM is not used/recognized -c --confuse Use confusing separation and quoting characters -i --invisible Use invisible separation and quotation sequences EOH exit $err; } # usage use Getopt::Long qw(:config bundling); GetOptions ( "help|?" => sub { usage (0); }, "s|sep=s" => \my $in_sep, "m|ms!" => \my $ms, "c|confuse!" => \my $confuse, "i|invisible!" => \my $invis, "n|no-header!" => \my $opt_n, "o|out=s" => \my $opt_o, ) or usage (1); $invis and $confuse++; use Text::CSV_XS qw( csv ); # U+0022 " QUOTATION MARK " # U+002c , COMMA , # U+037e ; GREEK QUESTION MARK ; # U+201a ‚ SINGLE LOW-9 QUOTATION MARK , # U+2033 ″ DOUBLE PRIME " # U+2063 INVISIBLE SEPARATOR my $io = shift || \*DATA; my $eol = $ms ? "\r\n" : "\n"; my $sep = $confuse ? $ms ? "\x{037e}" : $invis ? "\x{2063}" : "\x{201a}" : $ms ? ";" : ","; my $quo = $confuse ? "\x{2033}" : '"'; binmode STDOUT, ":encoding(utf-8)"; my @hdr; my @opt_i = (in => $io); my @opt_o = (out => \*STDOUT, eol => $eol, sep => $sep, quo => $quo); if ($opt_n) { push @opt_i, sep => $in_sep // ";"; } else { push @opt_i, bom => 1, sep_set => [ $in_sep ? $in_sep : (";", ",", "|", "\t") ], keep_headers => \@hdr; push @opt_o, headers => \@hdr; } csv (in => csv (@opt_i), @opt_o); __END__ a;b;c;d;e;f 1;2;3;4;5;6 2;3;4;5;6;7 3;4;5;6;7;8 4;5;6;7;8;9
Close