my $coderef = do { my $op = 'tag00'; sub { dofunc($op) } };
[download]

-- Randal L. Schwartz, Perl hacker

Here's part of the code it does in. Works fairly well:


if($l=~/^\[([^\]]+)\]/) {
   $j=$1; $k=$1;
   $j=$1, $k=$2 if($j=~/^([^\|]+)\|(.+)$/);
            
   $url[$uc]=$j; $l=$k; $op="url$uc"; $uc++;
   print "$op --> $j | $k\n";
            
   $main_index_list->insert("end",$l,$op);
   $main_index_list->tagConfigure($op,-foreground=>"blue", -data=>$j);
   $main_index_list->tagBind($op,"<3>",eval "sub{do_url('$op');}");
}
[download]

Update: Fixed with Merlyn's code.

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";

No. Stop with that eval. You are re-compiling that code every time you call that. There's no need.

$main_index_list->tagBind($op, "<3>", do { my $thing = $op; sub { do_u
+rl($thing) } });
[download]

That'll be faster, safer, won't leak memory like a sieve, and if you had made $op a lexical variable earlier, could have been just written as :

$main_index_list->tagBind($op, "<3>", sub { do_url($op) });
[download]

But since I don't know the scope of $op, I wrote it safely.

Please eliminate the runtime string-eval there! Please. It's so very unneeded.

-- Randal L. Schwartz, Perl hacker

-- Randal L. Schwartz, Perl hacker

ahhh.... I'm asking now so I don't have too many bugs in when I'm actually putting it into the chatterbox client.

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";

$op= q('tag00'); eval "sub{dofunc($op);}"
[download]