This is the revision history for cat in <freenode.net:#perlbot>

factoid_idsubjectcopulapredicateauthornamespace
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>