This is the revision history for _getarg_perl_array in <discord.gg:##voots>

factoid_idsubjectcopulapredicateauthornamespace
14908 _getarg_perl_array is `eval use Text::ParseWords; my @words = shellwords(`quote d `arg!!); \@words!
["-s","events","async"]
simcop2387 <*:##NULL>
12746 _getarg_perl_array is `eval use Text::ParseWords; my @words = shellwords(`quote d `arg!!); \@words!
Not Available
simcop2387 <*:##NULL>
12685 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/((?:[^\s\\]|\\\s|\\\\)+)/], undef, 1)); [map {s|\\(.)|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12684 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/((?:[^\s\\]|\\ |\\\\)+)/], undef, 1)); [map {s|\\(.)|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12683 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ |\\\\)+/], undef, 1)); [map {s|\\(.)|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12682 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^ ])+/], undef, 1)); [map {s|\\(.)|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12681 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:\\ |\S)+/], undef, 1)); [map {s|\\(.)|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12680 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:\\.|\S)+/], undef, 1)); [map {s|\\(.)|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12676 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ |\\\\)+/], undef, 1)); [map {s|\\(.)|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12675 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ |\\\\)+/], undef, 1)); [map {s|\\([ "'\\])|$1|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12674 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ |\\\\)+/], undef, 1)); [map {s|\\||gr} @a]!
Not Available
simcop2387 <*:##NULL>
12673 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ )+/], undef, 1)); [map {s|\\||gr} @a]!
Not Available
simcop2387 <*:##NULL>
12672 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ )+/], undef, 1)); [map {s|\\\\|\\|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12671 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ )+/], undef, 1)); [map {s|\\\\|\|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12670 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr =~ s/\\//gr;}, qr/(?:[^\s\\]|\\ )+/], undef, 1)); \@a!
Not Available
simcop2387 <*:##NULL>
12669 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr}, qr/(?:[^\s\\]|\\ )+/], undef, 1)); [map {s|\\\\|\\|gr} @a]!
Not Available
simcop2387 <*:##NULL>
12668 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr =~ s/\\//gr;}, qr/(?:[^\s\\]|\\ )+/], undef, 1)); \@a!
Not Available
simcop2387 <*:##NULL>
12667 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr =~ s/\\//gr;}, qr/(?:\S|\\ )+/], undef, 1)); \@a!
Not Available
simcop2387 <*:##NULL>
12666 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr =~ s/\\//gr;}, qr/(\S|\\ )+/], undef, 1)); \@a!
Not Available
simcop2387 <*:##NULL>
12665 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg!!; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =~ s/^['"]|['"]$//gr =~ s/\\//gr;}, qr/\S+/], undef, 1)); \@a!
Not Available
simcop2387 <*:##NULL>
12624 _getarg_perl_array is `eval use Text::Balanced qw/extract_multiple extract_delimited/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'\"") =`eval chr 126~ s/^['"]|['"]$//gr =`eval chr 126~ s/\\//gr;}, qr/\S+/], undef, 1)); \@a~
Not Available
simcop2387 <*:##NULL>