Rubrique Perl-Javascript

sub wsText {local($IN,$TOUT) = @_;
 local $x = $$IN;
 local($y,$k);
while($x=~/(\/#\(\w+:)/) {
 $y = $1; $k = index($x,$y); $x = substr($x,$k+length($y));
 if (($k=index($x,"/#)"))==-1) {next}
 $y=~/\/#\((\w+):/;
 $$TOUT{$1} = substr($x,0,$k); $x = substr($x,$k+3);
}
}

function wsText(IN,TOUT) {
 var x = IN[0];
 var y,k;
while(x.match(/(\/#\(\w+:)/)) {
 y = RegExp.$1; k = x.indexOf(y); x = x.substr(k+y.length);
 if ((k=x.indexOf("/#)"))==-1) {continue}
 y.match(/\/#\((\w+):/);
 TOUT[0][RegExp.$1] = x.substr(0,k); x = x.substr(k+3);
}
}