Re^2: How to avoid the duplicate selection in perl tk

if( not $txt_scroll->search(qw' -forwards -exact ', $current_ip, '1.0'
+) ){
    $txt_scroll->insert( 'end', "SELECTED IP : $current_ip\n" );
}
[download]

Comment on Re^2: How to avoid the duplicate selection in perl tk Download Code