<div>
And I don't want an answer about counting each element into a hash:<br />
<br />
foreach(@directoryInListin<wbr />g) {chomp $_;<br />
&nbsp; &nbsp; $lb_src-&gt;insert(&quot;end&quot;, $_);<br />
&nbsp; &nbsp; $ohGodHash{$_} = $ohGodNumber;<br />
&nbsp; &nbsp; $ohGodNumber++;<br />
}<br />
<br />
cos I can do that =) Just wondering if there is an easier way.
</div>


And I don't want an answer about counting each element into a hash:

foreach(@directoryInListing) {chomp $_;
    $lb_src->insert("end", $_);
    $ohGodHash{$_} = $ohGodNumber;
    $ohGodNumber++;
}

cos I can do that =) Just wondering if there is an easier way.

<div>
An easier way to count each element into a hash is<br />
<br />
@ohGodHash{@directoryInLis<wbr />ting}=(0..<wbr />$#director<wbr />yInListing<wbr />};
</div>


An easier way to count each element into a hash is

@ohGodHash{@directoryInListing}=(0..$#directoryInListing};

<div>
Ah nice. Close to what I was hoping for, and works well.<br />
<br />
Thanks =)
</div>


Ah nice. Close to what I was hoping for, and works well.

Thanks =)

<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
I have some tk code like:<br />
<br />
$lb_src &nbsp;= $f-&gt;Scrolled('Listbox', -scrollbars =&gt; &quot;osoe&quot;)-&gt;pack(-side =&gt; &quot;left&quot;);<br />
foreach(@directoryInListin<wbr />g) {chomp $_;<br />
&nbsp; $listbox_src-&gt;insert(&quot;end&quot;<wbr />, $_);<br />
}<br />
<br />
Grand. Then I have a specific element that I want to delete from the listbox. Order changes everytime (so that rules out -&gt;delete(#, #)) - unless I run yet another check to find the correct ordering. But I'm sure there must be a simpler way to do this.<br />
<br />
I want to write something like:<br />
$var = &quot;foo&quot;;<br />
$listbox_src-&gt;delete('acti<wbr />ve'); or<br />
$listbox_src-&gt;delete('$var<wbr />');<br />
<br />
Is this not possible??<br />
Seems like there is so much room for improvement in tk =)<br />
<br />
Thanks for your help.<br />
Best regards,
</div>
</div>


Hi,

I have some tk code like:

$lb_src  = $f->Scrolled('Listbox', -scrollbars => "osoe")->pack(-side => "left");
foreach(@directoryInListing) {chomp $_;
  $listbox_src->insert("end", $_);
}

Grand. Then I have a specific element that I want to delete from the listbox. Order changes everytime (so that rules out ->delete(#, #)) - unless I run yet another check to find the correct ordering. But I'm sure there must be a simpler way to do this.

I want to write something like:
$var = "foo";
$listbox_src->delete('active'); or
$listbox_src->delete('$var');

Is this not possible??
Seems like there is so much room for improvement in tk =)

Thanks for your help.
Best regards,

Perl/tk listbox delete specific element

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.