This is the revision history for _getarg_perl_array in <discord.gg:#413390663502135296>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 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> |
| 12745 | _getarg_perl_array | is | `eval use Text::ParseWords; my @words = shellwords(`quote d `arg!!); \@words! Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 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> |
| 12664 | _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 | <freenode.net:#perlbot> |
| 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> |
| 12623 | _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 | <freenode.net:#perlbot> |
| 12622 | _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}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12621 | _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}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12620 | _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}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12619 | _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}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12618 | _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/^'|'$//r}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12617 | _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/^'|'$//r}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12616 | _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], "'")}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12615 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_delimited/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_delimited($_[0], "'")}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12614 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_deliminated/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_deliminated($_[0], "'")}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12613 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_multiple/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [sub {extract_deliminated($_[0], "'")}, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12612 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_multiple/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [\&extract_quotelike, qr/\S+/], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12611 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_multiple/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [\&extract_quotelike, qr/\S+/])); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12610 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_multiple/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [\&extract_quotelike, qr/\s+/, 'literal'], undef, 1)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12609 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_multiple/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [\&extract_quotelike, qr/\s+/, 'literal'])); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12608 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike extract_multiple/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [\&extract_quotelike, 'literal'])); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12607 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [\&extract_quotelike, 'literal'])); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12606 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_multiple($in, [\&extract_quotelike, 'literal']])); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12605 | _getarg_perl_array | is | `eval use Text::Balanced qw/extract_quotelike/; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_quotelike($in)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |
| 12604 | _getarg_perl_array | is | `eval use Text::Balanced; $in=`quote d `arg~~; @a=(); push @a, $_ while ($_=extract_quotelike($in)); \@a~ Not Available |
simcop2387 | <freenode.net:#perlbot> |