$frame->DragAcceptFiles(1);
EVT_DROP_FILES( $frame, \&doit );
sub doit { #warn "@_\n" 
    open ( our $file, '<', @_ ) or die "$!";
    \&otherSub($file);
}
[download]

So, how did it not work?

Also, what are the contents of @_ in sub doit?

Also, what is this code supposed to do:

\&otherSub($file);
[download]

Maybe you just want to call othersub?

otherSub($file);
[download]

If you are passing $file as parameter already, there is no need to make it into a global variable. Just use my $file and pass the filehandle around as a parameter.

And here I was trying to have fun :D and you're all Basic debugging checklist and brian's Guide to Solving Any Perl Problem :)

Ok, doit warns a pair of objects ... typical wxWidgets, its always throwing objects at you :)

Wx::Frame=HASH(0x11d6a04) Wx::DropFilesEvent=SCALAR(0x12e59b4)
[download]

Naturally with help of wxperl_usage / wxperl-usage / wxPerl::Usage / Class Method Browser , available methods, method invocation syntax, link to docs

I come upon
http://docs.wxwidgets.org/trunk/classwx_drop_files_event.html
http://docs.wxwidgets.org/2.8.12/wx_wxdropfilesevent.html

Which list things like

wxDropFilesEvent::GetFiles

wxString* GetFiles() const

Returns an array of filenames.

wxDropFilesEvent::GetNumberOfFiles

int GetNumberOfFiles() const

Returns the number of files dropped.
[download]

Funny thing wxperl_usage also lists those things

Usage: Wx::DropFilesEvent::GetFiles(THIS)
$THIS->GetFiles()
Usage: Wx::DropFilesEvent::GetNumberOfFiles(THIS)
$THIS->GetNumberOfFiles()
[download]

... jokes ...

I like you, you're a funny human, and we seem to visit at same time of day :)

See your problem is you're making stuff up and expecting the computer to know what you mean; stop that please

finally got back around to it this evening >:D
but still no drag and drop joy for me :(

here is what i am trying to do:

use diagnostics;
use warnings;

use Wx;
use Wx::Event qw(EVT_BUTTON);
use Wx::Event qw(EVT_DROP_FILES);

use File::Slurp;
use Digest::MD5;
use File::Path;

######################################################################
+#########

my $app = Wx::SimpleApp->new;
my $frame = Wx::Frame->new(
                    undef, 
                    -1,
                    'test tool',
                    wxDefaultPosition,
                    Wx::Size->new(700,400),
                    wxDEFAULT_DIALOG_STYLE|wxSTAY_ON_TOP
                    );

$frame->DragAcceptFiles(1);

EVT_DROP_FILES( $frame, \&extract );

######################################################################
+#########    

        my $noteBook = Wx::Notebook->new($frame, -1, wxDefaultPosition
+, wxDefaultSize);

    my $window1 = Wx::Panel->new($noteBook, wxID_ANY);
    my $window2 = Wx::Panel->new($noteBook, wxID_ANY);
    my $window3 = Wx::Panel->new($noteBook, wxID_ANY);
    
    $noteBook->AddPage($window1, "First", 1, 0);
    $noteBook->AddPage($window2, "Second", 0, 1);
    $noteBook->AddPage($window3, "Third", 0, 2);
    

$frame->Show(1);
$app->SetTopWindow($frame);
$app->MainLoop;

######################################################################
+#########

sub extract {

$_= shift;
print "@_\n";  #<------- prints: "Wx::DropFilesEvent=SCALAR(0x3131024)
+" 
               #please read below the code for the question pertaining
+ to this.

open (my $data, '<', "@_") or die "cannot open $data $!";


my $fileLocation = '';
my $fileSize     = '';
my $fileName     = '';
my $chunk        = '';

seek ( $data, 0x04, 0 );
read ( $data, my $count, 0x04 );

$count =~ s/(.)/sprintf("%02x",ord($1))/egs;
my $entryCount = hex($count);
    
print "\nEntry count in file is: $entryCount\n\n";

seek ( $data, 0x00, 0 );
seek( $data, 0x10, 0 ) or die "cannot seek $data $!";



for (my $i=1; $i <= $entryCount; $i++) {
    read( $data, $fileLocation, 0x08 );
    read( $data, $fileSize,     0x08 );
    read( $data, $fileName,     0x20 );


    $fileLocation =~     s/(.)/sprintf("%02x",ord($1))/egs;
    $fileSize     =~     s/(.)/sprintf("%02x",ord($1))/egs;
    $fileName     =~     s/\0+$//;


    open( my $extractedData, '>', "extracted/$fileName" ) or die "Cann
+ot open $fileName $!";
    sysseek( $data, hex($fileLocation), 0 );
    sysread( $data, $chunk, hex($fileSize) );
    syswrite( $extractedData, $chunk );

    close( $extractedData );

}

my $dirname  = "extracted/";
my @md5s     = read_file("md5");
my $md5s     = join( '', @md5s );
my $filesize = '';

open( my $buf, '<', "extracted/sdk_version" ) or die "cannot open $buf
+ $!";
seek( $buf, 0x00, 0 );
read( $buf, my $sdk, 0x03 );

foreach my $file (<$dirname/*>) {
    next if -d $file;
    open( my $FILE, $file );
    binmode($FILE);

    $filesize = -s $FILE;
    $file =~ s{.*/}{};
    my $md5 = Digest::MD5->new->addfile($FILE)->hexdigest;

    if ( $md5s =~ $md5 ) {
        print "$md5 Match! $sdk $file $filesize\n";
    }
    else {
        print "WARNING !\n";
    }

 }
 }
[download]

The problem i am having is what you said in your earlier post anonomous monk, it does print what you said, but i cannot for the life of me figure out why it is not working. i get "Use of uninitialized value $data", or "trying to seek closed filehandle" and its because its not associating the dropped file with anything and thus not even opening the file.

Ive tried to assign it a variable as you can see in open statement, but that does not work for some reason, and its because it does not have the filepath or filename of the file, instead $data has "Wx::DropFilesEvent=SCALAR(0x3131024)" inside of it and that ofcourse is not going to work and is why it is giving me these errors.

I also have a very hard time understanding wxperl and wxwidgets in general especially when it comes to certain functions/events, tho i did get buttons figured out sort of. I have gotten very busy recently and havent really had time to delve into it like i should, but i have searched the modules inside of WX but everything in there is like ancient egyptian hieroglyphics. if you could school me at what i am doing wrong, and maybe show me an example i would greatly appreciate it. This is just a small personal project i am working on and it will help me finish certain tasks quicker if i could get this working :)

p.s. This is just one revision, ive tried abunch of different things to no avail and always end up with the same error as no such file or directory, or use of uninitialized value.

Yeah, that is the same question, see Re^4: WxPerl and drag and dropping files and see open ... do you have a file named the contents of "@_"?