I Have Figured it out lol. anybody who reads this in the future, use listctrl ;)...
$dirname = "$dir/path/";
$lc->DeleteAllItems();
my ($red, $green) = ( wxRED, wxGREEN );
foreach my $file ( <'$dirname'/*> ) {
next if -d $file;
open( my $FILE, $file );
binmode( $FILE );
$filesize = -s $file;
$file =~ s{.*/}{};
$md5 = Digest::MD5->new->addfile($FILE)->hexdigest;
if ( $md5s =~ $md5 ) {
my $text = ( "Match! | $file | $filesize\n" );
$lc->InsertStringItem( 0, $text );
( $text ) = Wx::ListItem->new;
$text->SetId( 0 );
$text->SetTextColour( $green );
$lc->SetItem( $text );
}
else {
my $text = ( "Warning! | $file | $filesize\n" );
$lc->InsertStringItem( 0, $text );
( $text ) = Wx::ListItem->new;
$text->SetId( 0 );
$text->SetTextColour( $red );
$lc->SetItem( $text );
}
}
this will color each individual item in a listctrl. im not sure if this is the "proper" way to do it but it does work. now i just need to specify a darker shade of green, cz that bright green is like glow in the dark.