Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 607
  • Last Modified:

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....
0
nick2307
Asked:
nick2307
  • 2
1 Solution
 
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
 
MorcalavinCommented:
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

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now