How to Show Error Message pop-up window in Perl?

Hi..

I am working on ne script....that will create a .csv file as a output and copy that file to a network drive.
If the drive is not there...it mount that drive and copy that file...

I want to put something in there....that will pop-up the error message if the files are not copied due to some reason and then continue with the program.
As this script is called by another program, if I use die command it will stop there...instead I want to show error-message pop-up windiw....so user know that files are not copied...

Please advise....
nick2307Asked:
Who is Participating?
 
MorcalavinConnect With a Mentor Commented:
For win32 only:

use Win32;

Win32::MsgBox("Message", 0 + MB_ICONINFORMATION, "Title");

http://search.cpan.org/~nwclark/perl-5.8.8/win32/ext/Win32/Win32.pm
0
 
mjcoyneCommented:
What OS will the script be running on?
0
 
Adam314Commented:
#!/usr/bin/perl
use strict;
use Tk;
use Tk::Dialog;


my $mw = MainWindow->new();   #Create object
$mw->withdraw();              #Don't display main window

my $response = $mw->messageBox(
 -icon => 'question',
 -message => 'Hello World!',
 -title => 'My title',
 -type => 'AbortRetryIgnore',
);

print "response=$response\n";
0
 
Adam314Commented:
If you will only be on Win32, there is a win32 only module.  The above will work on windows or unix.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.