This is the revision history for cat in <freenode.net:#perlbot>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 13220 | cat | is | `compose `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a;for$_(@$a){$x=1,next if($_ eq'>');push@r,$_ if$x;push@l,$_ if!$x}; if(@l==0||@r>1){return "!echo Syntax: cat [-s] fact [fact ...] [> fact]#"}; $l=join(" ",map{"[fact $_]"} @l); ($r)=@r; if($r){return "<fact macro $r is [echo $l]>" if $s; "[fact $r is $l]"} else {return "[echo $l]"}~~ Compose failed to find a plugin named: se |
simcop2387 | <*:##NULL> |
| 13219 | cat | is | `compose `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a;for$_(@$a){$x=1,next if($_ eq'>');push@r,$_ if$x;push@l,$_ if!$x}; if(@l==0||@r>1){return "!echo Syntax: cat [-s] factoid [another ...] [>new_factoid]#"}; $l=join(" ",map{"[fact $_]"} @l); ($r)=@r; if($r){return "<fact macro $r is [echo $l]>" if $s; "[fact $r is $l]"} else {return "[echo Not Available |
simcop2387 | <*:##NULL> |
| 13218 | cat | is | `compose `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a;for$_(@$a){$x=1,next if($_ eq'>');push@r,$_ if$x;push@l,$_ if!$x}; if(@l==0||@r>1){return "!echo Syntax: cat [-s] existing_factoid [>new_factoid]#"}; $l=join(" ",map{"[fact $_]"} @l); ($r)=@r; if($r){return "<fact macro $r is [echo $l]>" if $s; "[fact $r is $l]"} else {return "[echo $l]"}~~ Not Available |
simcop2387 | <*:##NULL> |
| 13217 | cat | is | `compose `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a;for$_(@$a){$x=1,next if($_ eq'>');push@r,$_ if$x;push@l,$_ if!$x}; if(@l==0||@r>1){return "!echo Syntax: cat [-s] existing_factoid [>new_factoid]#"}; $l=join(" ",map{"[fact $_]"} @l); ($r)=@r; if($r){return "<fact macro $r is [echo $l]>" if $s; "[fact $r is $l]"} else {return "[echo $l]"}~~ Not Available |
simcop2387 | <*:##NULL> |
| 13216 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a;for$_(@$a){$x=1,next if($_ eq'>');push@r,$_ if$x;push@l,$_ if!$x}; if(@l==0||@r>1){return "!echo Syntax: cat [-s] existing_factoid [>new_factoid]#"}; $l=join(" ",map{"[fact $_]"} @l); ($r)=@r; if($r){return "<fact macro $r is [echo $l]>" if $s; "[fact $r is $l]"} else {return "[echo $l]"}~ Not Available |
simcop2387 | <*:##NULL> |
| 13215 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a;for$_(@$a){$x=1,next if($_ eq'>');push@r,$_ if$x;push@l,$_ if!$x}; return [\@l, \@r]~ Not Available |
simcop2387 | <*:##NULL> |
| 13214 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a;for$_(@$a){$x=1if($_ eq'>');push@r,$_ if$x;push@l,$_ if!$x}; return [\@l, \@r]~ Not Available |
simcop2387 | <*:##NULL> |
| 13213 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for$_(@$a){$x=1 if($_ eq'>'); push@l,$_ if$x;push@r,$_ if!$x}; return [\@l, \@r]~ Not Available |
simcop2387 | <*:##NULL> |
| 13212 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for$_(@$a){print $_; $x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; use Data::Dumper; print Dumper(\@r,$a,\@l);~ Not Available |
simcop2387 | <*:##NULL> |
| 13211 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for$_(@$a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; use Data::Dumper; return Dumper(\@r,$a,\@l);~ Not Available |
simcop2387 | <*:##NULL> |
| 13210 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@$a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; use Data::Dumper; return Dumper(\@r,$a,\@l);~ Not Available |
simcop2387 | <*:##NULL> |
| 13209 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@$a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; use Data::Dumper; return Dumper(\@r,\@a,\@l);~ Not Available |
simcop2387 | <*:##NULL> |
| 13208 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; use Data::Dumper; return Dumper(\@r,\@a,\@l);~ Not Available |
simcop2387 | <*:##NULL> |
| 13207 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; use Dumper; return Dumper(\@r,\@a,\@l);~ Not Available |
simcop2387 | <*:##NULL> |
| 13206 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; use Dumper; return Dumper(\@r,\@a,\@l);if(@l==0||@r>1){return "!echo Syntax: cat [-s] existing_factoid [> new_factoid]#"}; $l=join(" ",map{"[fact $_]"} @l); ($r)=@r; if($r){return "<fact macro $r is [echo $l]>" if $s; "[fact $r is Not Available |
simcop2387 | <*:##NULL> |
| 13205 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; if(@l==0||@r>1){return "!echo Syntax: cat [-s] existing_factoid [> new_factoid]#"}; $l=join(" ",map{"[fact $_]"} @l); ($r)=@r; if($r){return "<fact macro $r is [echo $l]>" if $s; "[fact $r is $l]"} else {return "[echo $l]"}~ Not Available |
simcop2387 | <*:##NULL> |
| 13204 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; if(@l==0||@r>1){return "!echo Syntax: cat [-s] existing_factoid [> new_factoid]#"};$l=join(" ",map{"[fact $_]"} @l); return "<fact macro $r is [echo $l]>"} if $s; "[fact $r is $l]"~ Not Available |
simcop2387 | <*:##NULL> |
| 13203 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if($_ eq'>'); push@l if$x;push@r if!$x}; if(@l==0||@r!=1){return "!echo Syntax: cat [-s] existing_factoid [> new_factoid]#"}; ($l,$r)=@$a; return "<fact macro $r is [fact $l [arg]]>" if $s; "<fact $r is <fact $l>>"~ Not Available |
simcop2387 | <*:##NULL> |
| 13202 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if($_eq'>'); push@l if$x;push@r if!$x}; if(@l==0||@r!=1){return "!echo Syntax: cat [-s] existing_factoid [> new_factoid]#"}; ($l,$r)=@$a; return "<fact macro $r is [fact $l [arg]]>" if $s; "<fact $r is <fact $l>>"~ Not Available |
simcop2387 | <*:##NULL> |
| 13201 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$x); for(@a){$x=1 if$_eq'>'; push@l if$x;push@r if!$x}; if(@l==0||@r!=1){return "!echo Syntax: cat [-s] existing_factoid [> new_factoid]#"}; ($l,$r)=@$a; return "<fact macro $r is [fact $l [arg]]>" if $s; "<fact $r is <fact $l>>"~ Not Available |
simcop2387 | <*:##NULL> |
| 13200 | cat | is | `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; my(@l,@r,$s); for(@a){$s=1 if$_eq'>'; push@l if$s;push@r if!$s}; if(@l==0||@r!=1){return "!echo Syntax: cat [-s] existing_factoid [> new_factoid]#"}; ($l,$r)=@$a; return "<fact macro $r is [fact $l [arg]]>" if $s; "<fact $r is <fact $l>>"~ Not Available |
simcop2387 | <*:##NULL> |
| 9019 | cat | is | don't cat foo | perl script.pl -- instead, perl script.pl foo | altreus | <*:##NULL> |
| 3727 | cat | is | not an editor. | perlbot | <*:##NULL> |