#! /usr/bin/perl
use warnings;
use strict;

use Tk;

sub run {
    my ($mw, $option_i, $option_d, $option_o) = @_;
    if ($option_o =~ /^[0-9]+$/) {
        system 'script.pl',
            '-i', $option_i,
            '-d', $option_d,
            '-o', $option_o;
    } else {
        $mw->messageBox(-type    => 'Ok',
                        -title   => 'Invalid option',
                        -icon    => 'error',
                        -message => '-o must be numeric!');
    }
}

my $mw = 'MainWindow'->new(-title => 'GUI');
my $mf = $mw->Frame->pack;

my $fi = $mw->Frame->pack;
my $label_i = $fi->Label(-text => '-i')->pack(-side => 'left');
my $entry_i = $fi->Entry->pack;

my $fd = $mw->Frame->pack;
my $label_d = $fd->Label(-text => '-d')->pack(-side => 'left');
my $entry_d = $fd->Entry->pack;

my $fo = $mw->Frame->pack;
my $label_o = $fo->Label(-text => '-o')->pack(-side => 'left');
my $entry_o = $fo->Entry->pack;

my $bf    = $mw->Frame->pack;
my $run_b = $bf->Button(-text             => 'Run',
                        -foreground       => 'green',
                        -activeforeground => 'green',
                        -command          => sub { run($mw, map $_->ge
+t,
                                                       $entry_i, $entr
+y_d, $entry_o) },
                          )->pack(-side => 'left');
my $cancel_b = $bf->Button(-text    => 'Cancel',
                           -command => sub { $mw->exit },
                          )->pack;


MainLoop();
[download]

Hello archana12, and welcome to the Monastery!

I don’t understand why you would want to pass the name of the Perl script to the GUI module? The other three options can just be handled in the normal way. For example, the following script combines example code from the synopses for Getopt::Long and Tk:

#! perl
use strict;
use warnings;
use Getopt::Long;
use Tk;

my ($i, $d, $o);

GetOptions ("i=s" => \$i,
            "d=s" => \$d,
            "o=i" => \$o)
    or die "Error in command line arguments: $!";
 
my $mw = MainWindow->new;

$mw->Label(-text => "$i #$o")->pack;
$mw->Button
(
    -text    => $d,
    -command => sub { exit },

)->pack;

MainLoop;
[download]

You could then call it like this (using wperl in place of perl to by-pass the console):

>wperl 1374_SoPW.pl -o 42 -i Title -d Quit
[download]

(If that doesn’t answer your question, please explain what you’re looking for in greater detail.)

Hope that helps,

The sidebar entitled "Specifying arguments to callbacks" in Philipp Janert's article Using Advanced Widgets in Perl/Tk (IBM developerWorks) describes the difference in two methods of passing arguments to a -command option for a Tk widget-one fixing the options used at the time the constructor is first executed, the other taking the options at execution time. It may be worth your time to review.

Example code to display the effect

Hope that helps.

unless ( GetOptions (
                        "example=s" => \$par_example, # string needed
                                                      # more options a
+nd switches..
                        "help"     => \$par_help,     # switch

                        )) { my_show_help(); die "Error in command lin
+e arguments: $!"}

if (defined $par_help){my_show_help();exit;}
[download]

unless ( GetOptions (
                        "example=s" => \$par_example, # string needed
                                                      # more options a
+nd switches..
                        "help"     => \$par_help,     # switch
                        )) {pod2usage(-verbose => 1,-exitval => 'NOEXI
+T'); &wait_for_input; exit 1;}
 
if (defined $par_help){pod2usage(-verbose => 1,-exitval => 'NOEXIT'); 
+&wait_for_input; exit 0;}


sub wait_for_input{
    print "\n\nPress return when ready...\n";
    while (<STDIN>){last if $_ }
}
[download]