
logan
New User
Oct 17, 2012, 3:55 AM
Post #1 of 5
(1926 views)
|
Third column not displaying properly
|
Can't Post
|
|
Table3.pm
package Table3; use Text::Table; sub addrow { $tb=${$_[0]}; $tb->load( [ $_[1], $_[2] ], $_[3] ); } use Storable; sub save { $htb=$_[0]; store $htb, 'filename'; } sub retriv { $htb=retrieve('filename'); return $htb; } 1; CmdLine.pm
package CmdLine; use Table3; sub create { my $tb=Text::Table->new("Time", "Scared feeling", "Akathisia"); return $tb; } # touch 'filename' if (! -e 'filename') { $tb=create; Table3::save(\$tb); } my $htb=Table3::retriv; my $tb=${$htb}; use Term::Menu; while(1) { my $prompt=new Term::Menu; my $answer=$prompt->menu( add => ["Add new entry.", 'a'], save => ["Save", 's'], view => ["View", 'v'], quit => ["Quit", 'q'] ); if ($answer eq 'quit') { last; } elsif ($answer eq 'add') { if (! -e 'filename') { $tb=create; Table3::save(\$tb); } # add new entry here. my $entry={'timeofday'=>"", 'scared'=>"", 'aka'=>""}; while (1) { my $prompt=new Term::Menu; my $answer=$prompt->menu( save => ["Save entry", 'v'], timeofday => ["Time of day", 't'], scared => ["Scared feeling", 's'], aka => ["Akathisia", 'a'], back => ["Back", 'b'] ); if ($answer eq 'timeofday') { $entry->{'timeofday'}=<>; } elsif ($answer eq 'scared') { $entry->{'scared'}=<>; } elsif ($answer eq 'aka') { $entry->{'aka'}=<>; } elsif ($answer eq 'back') { last; } elsif ($answer eq 'save') { Table3::addrow(\$tb, $entry->{'timeofday'}, $entry->{'scared'}, $entry->{'aka'}); } else {} } #Table3::addrow(\$tb, '3 days ago', 'no'); } elsif ($answer eq 'save') { Table3::save(\$tb); } elsif ($answer eq 'view') { $htb=Table3::retriv; print ${$htb}; } else {} }
|