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

factoid_idsubjectcopulapredicateauthornamespace
16152 tempconv is `eval use Encode;%f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!; `call _tempconv_internal `arg!!!
Not supported, use °C, °D, °F, GM, K, °N, R, °Ré, °Rø, °€
simcop2387 <*:##NULL>
16150 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!; `call _tempconv_internal `arg!!!
ERROR: Undefined subroutine &main::decode called at (IRC) line 1.
simcop2387 <*:##NULL>
16149 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!; `fact _tempconv_internal!!
Bareword found where operator expected (Do you need to predeclare "No"?) at (IRC) line 1, near "No factoid" Unquoted string "factoid" may clash with future reserved word at (IRC) line 1. ERROR: syntax error at (IRC) line 1, near "No factoid " Execution of (IRC) aborted due to compilation errors.
simcop2387 <*:##NULL>
16146 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{qw/v u/};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);(eval{inv($f2{$q},$c)}//"UND ").$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",sort{d($a)cmp
Not Available
simcop2387 <*:##NULL>
15926 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{qw/v u/};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);(eval{inv($f2{$q},$c)}//"UND ").$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",sort{d($a)cmp d($b)}keys%f)}!
Not supported, use °C, °D, °F, GM, K, °N, R, °Ré, °Rø, °€
simcop2387 <*:##NULL>
13855 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);(eval{inv($f2{$q},$c)}//"UND ").$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",sort{d($a)cmp d($b)}keys%f)}!
Unquoted string "v" may clash with future reserved word at (IRC) line 1. Unquoted string "u" may clash with future reserved word at (IRC) line 1. 11.72°C = 132.42°D = 53.10°F = ~2.12e-03GM = 284.87K = 3.87°N = 512.77R = 9.38°Ré = 13.65°Rø = 32.41°€
simcop2387 <*:##NULL>
13853 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);eval{inv($f2{$q},$c)}//"UND ".$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",sort{d($a)cmp d($b)}keys%f)}!
Not Available
simcop2387 <*:##NULL>
13852 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);eval{inv($f2{$q}},$c)}//"UND ".$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",sort{d($a)cmp d($b)}keys%f)}!
Not Available
simcop2387 <*:##NULL>
13851 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);eval{inv($f2{$q}}//"UND ",$c).$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",sort{d($a)cmp d($b)}keys%f)}!
Not Available
simcop2387 <*:##NULL>
13071 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",sort{d($a)cmp d($b)}keys%f)}!
Not Available
simcop2387 <*:##NULL>
13070 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort{d($a)cmp d($b)}keys%f)}!
Not Available
simcop2387 <*:##NULL>
13067 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13066 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort{d($a)cmp d($b}keys%f)}!
Not Available
simcop2387 <*:##NULL>
13065 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort{d($a)cmp d($b)} keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13064 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort{d($a)cmpd($b)} keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13063 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort map{d($_)}keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13060 tempconv is `eval %f=(`fact _tempconv_units!);`fact _tempconv_newton!;`fact _tempconv_init!;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{fc$u}->($v);join" = ",map{$q=d($_);inv($f2{$q},$c).$_}sort keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13042 tempconv is `eval %f=(`fact _tempconv_units!);%f2=((map{s/°//;lc$_=>$f{$_}}keys%f),%f);$ur=join"|",keys%f2;$in=`quote d `arg!!;return $in; if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};[$u, $v]}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13041 tempconv is `eval %f=(`fact _tempconv_units!);%f2=((map{s/°//;lc$_=>$f{$_}}keys%f),%f);$ur=join"|",keys%f2;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};[$u, $v]}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13040 tempconv is `eval %f=(`fact _tempconv_units!);%f2=((map{s/°//;lc$_=>$f{$_}}keys%f),%f);`fact _tempconv_newton!;$ur=join"|",keys%f2;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{lc$u}->($v);join" = ",map{inv($f2{lc$_},$c).$_}sort keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13038 tempconv is `eval %f=(`fact _tempconv_units!);%f2=((map{s/°//;lc$_=>$f{$_}}keys%f),%f);`fact _tempconv_newton!;$ur=join"|",keys%f;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{lc$u}->($v);join" = ",map{inv($f2{lc$_},$c).$_}sort keys%f}else{"Not supported, use ".join(", ",map{uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13037 tempconv is `eval %f=(`fact _tempconv_units!);%f2=((map{s/°//;lc$_=>$f{$_}}keys%f),%f);`fact _tempconv_newton!;$ur=join"|",keys%f;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{lc$u}->($v);join" = ",map{inv($f2{lc$_},$c).$_}sort keys%f}else{"Please input a temperature in ".join(", ",map{uc$_}sort
Not Available
simcop2387 <*:##NULL>
13034 tempconv is `eval %f=(`fact _tempconv_units!);%f2=((map{lc$_=>$f{$_}}keys%f),%f);`fact _tempconv_newton!;$ur=join"|",keys%f;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f2{lc$u}->($v);join" = ",map{inv($f2{lc$_},$c).$_}sort keys%f} else {"Please input a temperatures in ".join(", ",map {uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13023 tempconv is `eval use Function::Parameters;%f=(`fact _tempconv_units!);`fact _tempconv_newton!;$ur=join"|",keys%f;$in=`quote d `arg!!;if($in=~/(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i){($v,$u)=@+{v,u};$c=$f{lc$u}->($v);join" = ",map{inv($f{lc$_},$c).uc($_)}sort keys%f} else {"Please input a temperatures in ".join(", ",map {uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
13022 tempconv is `eval use Function::Parameters;%f=(`fact _tempconv_units!);`fact _tempconv_newton!;$ur=join"|",keys %f;$t=`quote d `arg!!;if ($t =~ /(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i) {($v,$u)=@+{v,u}; $c=$f{lc $u}->($v); join " = ", map{inv($f{lc$_}, $c).uc($_)} sort keys %f} else {"Please input a temperatures in ".join(", ", map {uc$_}sort
Not Available
simcop2387 <*:##NULL>
13018 tempconv is `eval use Function::Parameters;`fact _tempconv_units!;`fact _tempconv_newton!;$ur=join"|",keys %f;$t=`quote d `arg!!;if ($t =~ /(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i) {($v,$u)=@+{v,u}; $c=$f{lc $u}->($v); join " = ", map{inv($f{lc$_}, $c).uc($_)} sort keys %f} else {"Please input a temperatures in ".join(", ", map {uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
12984 tempconv is `eval use Function::Parameters;`fact _tempconv_units!; $ur=join"|",keys %f; $t=`quote d `arg!!; if ($t =~ /(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i) {($v,$u)=@+{v,u}; $c=$f{lc $u}->($v); join " = ", map{sprintf "%0.02f%s",$t{$_}->($c),uc($_)} sort keys %t} else {"Please input a temperatures in ".join(", ", map {uc$_}sort keys%f)}!
Not Available
simcop2387 <*:##NULL>
12977 tempconv is `eval `fact _tempconv_units!; $ur=join"|",keys %from; $t=`quote d `arg!!; if ($t =~ /(?<v>[\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(?<u>$ur)/i) {($v,$u)=@+{v,u}; $c=$from{lc $u}->($v); join " = ", map{sprintf "%0.02f%s",$to{$_}->($c),uc($_)} sort keys %to} else {"Please input a temperatures in ".join(", ", map {uc$_}sort keys%from)}!
Not Available
simcop2387 <*:##NULL>
10249 tempconv is <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(c|f|k)/i){$n=$1;$s=lc$2;if($s eq "k"){$c=$n-273.15}elsif($s eq"c"){$c=$n}elsif($s eq"f"){$c=($n-32)/1.8};$f=$c*1.8+32;$k=$c+273.15;$q="%0.02f";sprintf"${q}°F = ${q}°C = ${q}K",$f,$c,$k;}else{"Please input a temperature in F, C, or K"} >
Not Available
simcop2387 <*:##NULL>
5980 tempconv is <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)\s*(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {"${n}C is ".($n+273.15)."K and ".($n*1.8+32)."F"} else {"${n}F is ".(($n-32)/1.8)."C and ".(($n-32)/1.8+273.15)."K"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5979 tempconv is <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {"${n}C is ".($n+273.15)."K and ".($n*1.8+32)."F"} else {"${n}F is ".(($n-32)/1.8)."C and ".(($n-32)/1.8+273.15)."K"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5978 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+(?:\.\d+)?(?:ee?\d+)?)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {"${n}C is ".($n+273.15)."K, ".($n*1.8+32)."F"} else {"${n}F is ".(($n-32)/1.8)."C and ".(($n-32)/1.8+273.15)."K"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5977 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+(?:\.\d+)?)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {"${n}C is ".($n+273.15)."K, ".($n*1.8+32)."F"} else {"${n}F is ".(($n-32)/1.8)."C and ".(($n-32)/1.8+273.15)."K"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5976 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {"${n}C is ".($n+273.15)."K, ".($n*1.8+32)."F"} else {"${n}F is ".(($n-32)/1.8)."C and ".(($n-32)/1.8+273.15)."K"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5975 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {"${n}C is ".($n+273.15)."K, ".($n*1.8+32)."F"} else {"${n}F is ".(($n-32)/1.8)."C and ".(($n-32)/1.8+273.15)."K"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5974 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"$n k is ".($n-273.15)." c, ".(($n-273.15)*1.8+32)." f"} elsif ($s eq "c") {"$n c is ".($n+273.15)." k, ".($n*1.8+32)." f"} else {"$n f is ".(($n-32)/1.8)." c, ".(($n-32)/1.8+273.15)." k"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5973 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"$n k is ".($n-273.15)." c, ".(($n-273.15)*1.8+32)." f"} elsif ($s eq "c") {"$n c is ".($n+273.15)." k, ".($n*1.8+32)." f"} else {}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5972 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"$n $k is ".($n-273.15)." c, ".(($n-273.15)*1.8+32)." f"}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5971 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"$n $k is ".($n-273.15)." c, ".(($n-273.15)*1.8+32)}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5970 tempconv is <eval $t="<arg>"; if ($t =~ /(-?\d+)(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"$n $k is ".($n-273.15)." c, ")}} else {"please enter something like 40C, -40f or 40k"} >
Not Available
simcop2387 <*:##NULL>
5969 tempconv is <eval $t=<arg>; $t>
Not Available
simcop2387 <*:##NULL>
5968 tempconv is <eval $t=<arg>; $r>
Not Available
simcop2387 <*:##NULL>