Name: JimiHendrix !qHyjmd9XCE 2009-02-20 16:07
sup /prog/,
I was hoping you could help me with perl syntax and code.
I'm trying to remake this(please disregard the name of the blog):
http://frozenvoid.blogspot.com/2008/12/text-case-randomizer.html
into an Xchat scrip by using PERL.
The problem is I don't know PERL, but have been doing some reading and have learned some things so far but hoped asking here would be faster.
Here's the code I copypasted from a script to change text color to rainbow colored and edited somewhat to change it to randomize text:
my first question:
1. Doesn't
2. I suppose this >
3.
I was hoping you could help me with perl syntax and code.
I'm trying to remake this(please disregard the name of the blog):
http://frozenvoid.blogspot.com/2008/12/text-case-randomizer.html
into an Xchat scrip by using PERL.
The problem is I don't know PERL, but have been doing some reading and have learned some things so far but hoped asking here would be faster.
Here's the code I copypasted from a script to change text color to rainbow colored and edited somewhat to change it to randomize text:
package IRC::Xchat::TxtcaseRand;
IRC::register("xchat txtcase", "0.1", "", "");
sub txtcase{
$i=0;
$_=shift@_;
chomp;
s{(.)}{ "\cC" . (($i++%14)+2) . "$1" }eg;
#$_=$_."\n";
IRC::command ("/say $_");
return 1;
}
IRC::add_command_handler("case", "IRC::Xchat::TxtcaseRand::txtcase");my first question:
1. Doesn't
$_=shift@_; and chomp; do the same thing?2. I suppose this >
s{(.)}{ "\cC" . (($i++%14)+2) . "$1" }eg; is what changes the text color, how would I convert function randomcase(text,a){if(isNaN(a)||a>1||a<0){var a=0.5};var res=[];for(var i in text){
if(Math.random()>a){res[i]=text[i].toUpperCase()}else{res[i]=text[i].toLowerCase()}};return res.join("")} to the syntax that PERL would recognize and replace it in the code?3.
return 1; means, return to first line of code right?