This is the revision history for _getarg_perl_array in <freenode.net:#perlbot>
| 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> |
| 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> |