perl - Get all the word enter in text widget to an array -


i new tk/perl. below simple gui interface create using tk/perl.

gui interface

below part of code create gui.

$f2_label=$f_frame_top0->label(-text=>"file",-font=>[-family=>'ms sans serif',-size=>9,-weight=>'bold',-underline=>0],-justify=>'left')->pack(-side=>'left',-anchor=>'w',-padx=>1,-pady=>1,); $f2_entry=$f_frame_top0->entry(-width=>50,-state=>"normal")->pack(-side=>'left',-anchor=>'w',-padx=>1,-pady=>1,-fill=>'x',-expand=>1); $f2_file_btn=$f_frame_top0->button(-text=>"...", -height=>1, -width=>2, -command=> [\&file_search,$tab2,$f2_entry,"txt"])->pack(-side=>'left',-anchor=>'w',-padx=>1,-pady=>1);  $f3_label=$f_frame_top1->label(-text=>"number",-font=>[-family=>'ms sans serif',-size=>9,-weight=>'bold',-underline=>0],-justify=>'left')->pack(-side=>'left',-anchor=>'w',-padx=>1,-pady=>1,); $f3_entry=$f_frame_top1->text(-width=>10,-height=>10,-wrap=>'word',-state=>"normal")->pack(-side=>'left',-anchor=>'w',-padx=>1,-pady=>1,-fill=>'x',-expand=>1);   $but1_close=$f_frame_bot->button(-text=>"close",-command=>sub {destroy $mw}) ->pack(-side=>"right",-anchor=>'e',-padx=>1,-pady=>1); $but1_exe=$f_frame_bot->button(-text=>"run",-command=>[\&fablot_fusesort,$f2_entry,$f3_entry] ) ->pack(-side=>"right",-anchor=>'e',-padx=>1,-pady=>1);  sub fablot_fusesort{      $file1 = shift -> get();      $number = shift ->get(); }

i want number user enter in text (the 22,23,24,25,26) process in subroutine not able shift -> get(). way can number user enter in text widget? helping

the correct syntax get() method on tk::text object described in documentation tk::text:

$text->get(index1, ?index2?)

return range of characters text. return value characters in text starting 1 index index1 , ending before 1 index index2 (the character @ index2 not returned). if index2 omitted single character @ index1 returned. if there no characters in specified range (e.g. index1 past end of file or index2 less or equal index1) empty string returned

so using get() without argument error.

here example of how text:

use strict; use warnings; use tk;  $mw = mainwindow->new();   $entry = $mw->text(     -width=>20, -height => 10, -wrap => 'word', -state => "normal" )->pack(     -padx => 1, -pady => 1, -fill => 'x', -expand => 1 );  $button = $mw->button(     -text => "run",     -command=> sub { fablot_fusesort($entry) } )->pack(     -padx => 1, -pady => 1 );  sub fablot_fusesort{     ( $entry) = @_;     $text = $entry->get('1.0','end'); # <-- gets text in widget     print "$text"; } mainloop;

Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more