Hi, I have a script which via the command line asks the user for the the required Year,Month and Day and then processes a file with those details. 
    #!/usr/bin/perl
    #use strict;
    use warnings;
    use Spreadsheet::WriteExcel;
    use File::Copy qw(copy);
    open(STDERR, ">&STDOUT");
    #Set-up Files
    my $yyyy = $var[0];
        print "Enter year in YYYY format:\n";
        $yyyy = <STDIN>;
        chomp $yyyy;
    my $mmm = $var[1];
        print "Enter Month in 3 letter abr format\njan,feb,mar,apr,may
+,jun,jul,aug,sep,oct,nov,dec:\n";
        $mmm = <STDIN>;
        chomp $mmm;
    my $dd = $var[2];
        print "Enter day in number format\n01,02,03,04 etc:\n";
        $dd = <STDIN>;
        chomp $dd;
<\code>
<p>
How  can i create and bind a Tk pop up entry widget for this, I have c
+reated the browseEntry widget but need help on binding it to the vari
+ables.

<code>
    #!/usr/bin/perl 
    use strict;
    use warnings;
    use Tk;
    use Tk::BrowseEntry;
    my $mw = MainWindow -> new;
    $mw->geometry("380x155");
    $mw->title("Adhoc Failures");
    my $browseEntryyear = $mw ->BrowseEntry(
        -label => 'Select year :', -relief => 'sunken',
        #-variable  => \$var0, 
        -state => 'readonly',
        -autolistwidth => '1',
        -justify => 'right',
        -buttontakefocus => 1, 
        -relief => 'sunken')
        -> pack(
            -ipadx => 33,
            -side => 'top',
            -fill => 'x',
            -anchor => 'e',
            -expand => 1);
    
        $browseEntryyear -> insert('end', qw(2013 2014 2015 2016 2017 
+2018 2019 2020));
        my $browseEntrymonth = $mw ->BrowseEntry(
        -label => 'Select Month :',
        #-variable  => \$var1, 
        -state => 'readonly',
        -autolistwidth => '1',
        -justify => 'right',
        -buttontakefocus => 1, 
        -relief => 'sunken')
        -> pack(
            -ipadx => 33,
            -side => 'top',
            -fill => 'x',
            -anchor => 'e',
            -expand => 1);
    
        $browseEntrymonth -> insert('end', qw(Jan Feb Mar Apr May Jun 
+Jul Aug Sep Oct Nov Dec));
        my $browseEntryday = $mw ->BrowseEntry(
        -label => 'Select Day :',
        #-variable  => \$var2, 
        -state => 'readonly',
        -autolistwidth => '1',
        -justify => 'right',
        -buttontakefocus => 1, 
        -relief => 'sunken')
        -> pack(
            -ipadx => 33,
            -side => 'top',
            -fill => 'x',
            -anchor => 'e',
            -expand => 1);
    
        $browseEntryday -> insert('end', qw(01 02 03 04 05 06 07 08 09
+ 10 11 12 13 14 15 16 17 18   19 20 21 22 23 24 25 26 27 28 29 30 31)
+);
         my $but = $mw -> Button(-text => "      Enter       ", 
            -command =>\&push_button, -relief => 'raised')->pack(-side
+ => "bottom",-fill => 'x');
                    
    MainLoop; 
    
    #sub push_button { yourFunc($var0,$var1,$var2) };

[download]

In reply to Perl tk entry widget to get arguments for perl script. by john.tm

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.