How about
In your $5 summation, your take advantage of awk's behaviour to take into account leading digits only and to silently drop trailing non-digits (and followers) from a string if used in arithmetics. Please be aware of your uuoc (useless use of cat) - it's more widely accepted to read a file in a while loop.
Thanks Rudic. This helped me. However i just can't figure out how to remove the decimals. I just need the output in numbers without decimals. Can you please help.
Hi guys!
I have just started with shell programming!!
I am having pronblem with variable subsitutuion.
when i do
egrep "*" marks
this will give me the pattern match.
but how can i catch the output of that result in a variable.
if i say
result = egrep "*" marks
it gives me syntax... (2 Replies)
Hi Guys,
I am trying to alter a script for my company.
I need the start of it to go something like this.
User is asked to input 8 numbers
8 numbers are written to a txt file
***** ***** ***** txt file is read ***** *****
The text file gets read in between other files represented by... (2 Replies)
Hi all,
i am beginner to unix and trying out a shell script which does the following. i have to calculate a persons salary. his salary is read from the keyboard. he has two types of deductions. 40% as dearness allowance and 20% as house rent. i have to print the gross salary. here is the code... (5 Replies)
I need to invoke a program on remote server using ssh in a shell script. In addition i would like to capture date/time and if there is any errors , then script should write to log file. can someone please help me out? (1 Reply)
Hi,
I have a file in which records contains non ascii characters. The records are comma delimited and quoted.
The non ascii characters are found in a particular column.
Example records
"YY","AK000021","Ã","IO","PP"
"Y1","AK000022","Ã","PO","PP"
"Y2","AK000022","Ã","PO","PP"
I need to... (2 Replies)
HELP!My program ends after entering one choice---need help making it take multiple inputs,instead of terminating after displaying just one
#!/bin/bash# Crude address databaseclear # Clear the screen.echo " Contact List"echo " ------- ----"echo "Choose one of the following... (6 Replies)
hi guys
we've had nagios spewing false alarm (for the umpteenth time) and finally the customer had enough so they're starting to question nagios. we had the check interval increased from 5 minutes to 2 minutes, but that's just temporary solution. I'm thinking of implementing a script on the... (8 Replies)
I need to create digit day script that takes a single numeric argument and then it should print out the day of the week using the number modulo 7 formula e.g: 0 - Sunday 6- Saturday 131 - Friday
I am fairly new to unix so I don't know how to use the number modulo 7 formula.
Does the script need... (3 Replies)
So I'm trying to pass certain json elements as env vars and use them later on in a script.
Sample json:
JSON='{
"Element1": "file-123456",
"Element2": "Name, of, company written in, a very weird way",
"Element3": "path/to/some/file.txt",
}'
(part of the) script:
for s... (5 Replies)
In Bash shell - the ps -ef shows only the /bin/bash but the script name is not displayed ? Is there any way to get the script names for the process command ?
--- Post updated at 08:39 AM ---
in KSH (Korn Shell), my command output shows the script names but when run in the Bash Shell... (3 Replies)
Discussion started by: i4ismail
3 Replies
LEARN ABOUT DEBIAN
format::human::bytes
Format::Human::Bytes(3pm) User Contributed Perl Documentation Format::Human::Bytes(3pm)NAME
Format::Human::Bytes - Format a bytecount and make it human readable
VERSION
Version 0.05
SYNOPSIS
Ever showed 12345678 bytes to the user instead of just saying 11MB? This module returns you a printable string which is more readable by
humans than a simple bytecount.
use Format::Human::Bytes;
$readable = Format::Human::Bytes::base2($bytecount[,$decimals]);
$readable = Format::Human::Bytes::base10($bytecount[,$decimals]);
$readable = Format::Human::Bytes->base2($bytecount[,$decimals]);
$readable = Format::Human::Bytes->base10($bytecount[,$decimals]);
my $fhb = Format::Human::Bytes->new();
$readable = $fhb->base2($bytecount[,$decimals]);
$readable = $fhb->base10($bytecount[,$decimals]);
All functions do "intelligent" switching to the next unit, for example:
1000 => 1000B
[...]
8000 => 8000B
9000 => 9kB
The difference between 1000 bytes and 1500 bytes is usually bigger (for example because of a slow link) than between 95kB and 95,5kB. The
same applies to 8000kB vs. 9 MB and for the other units.
Depending on your usage, you may want to specify how many decimals should be shown (defaults to no decimals).
FUNCTIONS / METHODS
new
my $fhb = Format::Human::Bytes->new();
Creates and returns a Format::Human::Bytes - object.
base2
Callable as a function:
$readable = Format::Human::Bytes::base2($bytecount[,$decimals]);
Callable as a class method:
$readable = Format::Human::Bytes->base2($bytecount[,$decimals]);
Callable as a object method:
$readable = $fhb->base2($bytecount[,$decimals]);
Returns the correct readable form of the given bytecount.
Correct in this case means that 1kB are 1024 Bytes which is how computers see the world.
If you specify a decimal parameter, the result number will have the number of decimal numbers you specified.
base10
Callable as a function:
$readable = Format::Human::Bytes::base10($bytecount[,$decimals]);
Callable as a class method:
$readable = Format::Human::Bytes->base10($bytecount[,$decimals]);
Callable as a object method:
$readable = $fhb->base10($bytecount[,$decimals]);
Returns the incorrect readable form of the given bytecount.
Incorrect in this case means that 1kB is 1000 Bytes and 1 MB is 1000000 bytes which is how some (many) people see the world, but it's wrong
for computers.
If you specify a decimal parameter, the result number will have the number of decimal numbers you specified.
AUTHOR
Sebastian Willing, "<sewi at cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-format-human-bytes at rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Format-Human-Bytes>. I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Format::Human::Bytes
You can also look for information at:
o RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Format-Human-Bytes>
o AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/Format-Human-Bytes>
o CPAN Ratings
<http://cpanratings.perl.org/d/Format-Human-Bytes>
o Search CPAN
<http://search.cpan.org/dist/Format-Human-Bytes/>
HISTORY
The functions are in use since late 2003 or early 2004 but I didn't pack them for CPAN before 2009.
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5 itself.
perl v5.10.1 2010-04-08 Format::Human::Bytes(3pm)