Does anyone have a simple way of doing floating point ("fp") division? For example, if I divide 3 by 5, I can get 0.6. The built-in calc (`bc`) will perform fp multiplication, but not division, at least not straight-up (i.e., starting bc and just typing in 3/5).
I am trying to do this using... (1 Reply)
Hi guys
I am trying to divide 2 variables that I got during the execution of script, but I unable to divide the variables. pls help. Hers is the code.
num_tasks=`sqlplus -s batch_user/batch_user@acsblest << EOF1
set heading off
SET FEEDBACK OFF
SET PAGESIZE 0
SET LINESIZE 900
select... (31 Replies)
Hi everyone , have a great day
given below is the excerpt of code
k=`grep -i success /var/seamless/spool/tdr/ERS_$date1$time1* | wc -l`;
l=`grep -i fail /var/seamless/spool/tdr/ERS_$date1$time1* | wc -l`;
m=`grep -i entertain /var/seamless/spool/tdr/ERS_$date1$time1* | wc -l`;
n=$(($k+$l))... (3 Replies)
hi,
i have a service on unix platform, it will generate traces in a particular folder
i want to check using shell script if traces exist, then perform some action else continue to be in loop.
filename is service.tra
can you please help?
thanks (4 Replies)
I have value like ABCDEF,BBCCDD in a shell variable, now i would like to have ABQWEF,BBQWDD in the same shell variable. How can i replace the char at position 3&4 with QW in shell script? (3 Replies)
I'm new to scripts, i wrote the below script to capture the percentage of FreeMemory available in Linux box. Output of UsedfreeMemory is displayed as '0'.
I'm expecting the output like 0.89 (or) .89 --- ( 0.89 perferable)
Anyone can help me on this pls.
... (3 Replies)
1. The problem statement, all variables and given/known data:
Hello!
I need help with this problem bash shell scripting that basically just reads the data in a tab delimited file and does the following below
1. Read in the data file Survey.txt and assign the column values to variables of... (6 Replies)
Guys,
I have a requirement as below.
consider,if i use df command, its getting the below output.
file system kbytes used avail %used Mounted on
/dev/sample/ 45765 40000 5765 50% /
/dev/filesys/ 30000 20000 1000 80% /u
....
....
Now i wanted to cut the /u... (11 Replies)
Hi, We are having multiple .sql files generated programatically which is not containing..
create or replace -- at the start
and
/ -- at the end
We need to append those .sql files with the above 2 statements at their respective positions.
We will be really thankful to get responses... (6 Replies)
Discussion started by: Rami Reddy
6 Replies
LEARN ABOUT DEBIAN
tk::optionmenu
Optionmenu(3pm) User Contributed Perl Documentation Optionmenu(3pm)NAME
Tk::Optionmenu - Let the user select one of some predefined options values
SYNOPSIS
use Tk::Optionmenu;
$opt = $w->Optionmenu(
-options => REFERENCE_to_OPTIONLIST,
-command => CALLBACK,
-variable => SCALAR_REF,
);
$opt->addOptions( OPTIONLIST );
# OPTION LIST is
# a) $val1, $val2, $val3,...
# b) [ $lab1=>$val1], [$lab2=>val2], ... ]
# c) combination of a) and b), e.g.,
# val1, [$lab2=>val2], val3, val4, [...], ...
DESCRIPTION
The Optionmenu widget allows the user chose between a given set of options.
If the user should be able to change the available option have a look at Tk::BrowseEntry.
OPTIONS -options
(Re)sets the list of options presented.
-command
Defines the callback that is invokes when a new option is selected.
-variable
Reference to a scalar that contains the current value of the selected option.
-textvariable
Reference to a scalar that contains the text label of the current value of the selected option.
METHODS
addOptions
Adds OPTION_LIST to the already available options.
EXAMPLE
use Tk;
my $mw = MainWindow->new();
my ($var, $tvar);
my $opt = $mw->Optionmenu(
-options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]],
-command => sub { print "got: ", shift, "
" },
-variable => $var,
-textvariable => $tvar
)->pack;
$opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);
my $f = $mw->Frame(-relief=>'groove', -borderwidth => 2)->pack;
$f->Label(-textvariable=>$tvar)->pack(-side => 'left');
$f->Label(-text => " -> ")->pack(-side => 'left');
$f->Label(-textvariable=>$var)->pack(-side => 'left');
$mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;
MainLoop;
SEE ALSO
Tk::Menubutton, Tk::BrowseEntry
perl v5.14.2 2010-05-29 Optionmenu(3pm)