Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Script to divide/expand first digit to show some numbers
Top Forums Shell Programming and Scripting Script to divide/expand first digit to show some numbers Post 302921089 by Chubler_XL on Tuesday 14th of October 2014 06:59:28 PM
Old 10-14-2014
How about this:

Code:
awk '
function exp_str(val,first,s,i)
{
   if(val+0<10) return
   s=substr(val,1,length(val)-1)
   exp_str(s,0)
   i=substr(val,length(val),1)
   l=first?10:i
   if (l+0)
       for(k=0;k<l;k++)
           if(k==i) print s k " GivenNum"
           else print s k
}
{ exp_str($1,1)}'

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

script needs to divide by 2

i need to divide this count by 2, what variable can i use in my script? 26 hcscprod_cpus_totals /2 = 13 13 hcncprod_cpus_totals /2= 6.5 541 ktazp_cpus_totals /2= 270.5 346 ktazd_cpus_totals /2=173 110 ktazi_cpus_totals /2=55 10 ktazq_cpus_totals /2=5 (2 Replies)
Discussion started by: wereyou
2 Replies

2. Shell Programming and Scripting

Replace one digit by two digit using sed

Folks, Is there a simple way to replace one digit by two digit using sed. Example, mydigit1918_2006_8_8_lag1.csv should be mydigit1918_2006_08_08_lag01.csv. I tried this way, but doesn't work. echo mydigit1989_2006_8_8_lag1.csv|sed 's/]/0]/' Thank you, (5 Replies)
Discussion started by: Jae
5 Replies

3. Shell Programming and Scripting

Divide numbers into intervals

divide input values into specified number (-100 or -200) according to the key (a1 or a2 ....) For ex: if we give -100 in the command line it would create 100 number intervals (1-100, 100-200, 200-300) untill it covers the value 300 in a1. Note: It should work the same even with huge numbers... (3 Replies)
Discussion started by: ruby_sgp
3 Replies

4. Shell Programming and Scripting

Add and divide each numbers with the added number

Hi All, I am stuck with this problem. I have some 100000 (.dat) 1.dat, 2.dat,3.dat etc until 100000.dat files which look like this: 1.dat 1 2 3 4 0.99 4.54 All my files 1.dat until 100000.dat look the same but with different numbers. I have to first add all the numbers in each... (1 Reply)
Discussion started by: shoaibjameel123
1 Replies

5. Shell Programming and Scripting

awk length of digit and print at most right digit

Have columns with digits and strings like: input.txt 3840 3841 3842 Dav Thun Tax Cahn 146; Dav. 3855 3853 3861 3862 Dav Thun Tax 2780 Karl VI., 3873 3872 3872 Dav Thun Tax 3894 3893 3897 3899 Dav Thun Tax 403; Thun 282. 3958 3959 3960 Dav Thun Tax 3972 3972 3972 3975 Dav Thun Tax... (8 Replies)
Discussion started by: sdf
8 Replies

6. Shell Programming and Scripting

convert two digit in to single digit...

Hi Guys. My Input: ABCD 12 00 KL ABCD 12 08 DL ABCD 12 10 KK ABCD 12 04 LL ABCD 13 00 LP ABCD 13 1O LS Output: ABCD 12 0 KL ABCD 12 8 DL ABCD 12 10 KK ABCD 12 4 LL ABCD 13 0 LP (2 Replies)
Discussion started by: pareshkp
2 Replies

7. Shell Programming and Scripting

Generate 16 digit positive random Numbers

Hi Unix Gurus, I have a requirement to generate positive random 16 and 13 digit numbers. Here is the script I have so far..... number=$RANDOM$RANDOM$RANDOM$RANDOM; let "number %= 10000000000000"; echo $number But sometimes it is generating negative numbers and also 15 digit... (8 Replies)
Discussion started by: scorpioraghu
8 Replies

8. Shell Programming and Scripting

Divide by zero script

Hi, I've been working on a few scripts and have been getting great info. How, would I include in the below script, how I would let a user know that if they divide a SECOND number by zero, that they would get a divide by zero error? What's the easiest way of working this? Cordially, joe. ... (1 Reply)
Discussion started by: jefferj54
1 Replies

9. Shell Programming and Scripting

Using sed to show even numbers and the line

Hello, I have an assignment that requires us to use sed only. The first part of the assignment says to use a sed script to print only the even lines, but if it is print, the number of that lines needs to be printed before the text. ex: 2 line 2 text 4 line 4 text 6 line 6 text ... (3 Replies)
Discussion started by: stevent518
3 Replies

10. Shell Programming and Scripting

Divide the numbers in file

Dear ALL, I have sample file : tx_bytes: 2422, tx_packets: 13, uptime: 16119, tx_bytes: 2342, tx_packets: 14, uptime: 11009, tx_bytes: 252, tx_packets: 12, uptime: 3113, my formula : minutes=$(( uptime/60%60 )) hours=$(( uptime/60/60%24 )) (3 Replies)
Discussion started by: gnulyn
3 Replies

LEARN ABOUT DEBIAN

tk::x11font

X11Font(3pm)						User Contributed Perl Documentation					      X11Font(3pm)

NAME

       Tk::Font - a class for finding X Fonts

SYNOPSIS

	use Tk::X11Font;

	$font = $widget->X11Font(foundry => 'adobe',
			      family  => 'times',
			      point   => 120
			     );

	$font = $widget->X11Font('*-courier-medium-r-normal-*-*');

DESCRIPTION

	  This module can be use to interrogate the X server what fonts are
	  avaliable.

METHODS

   Foundry( [ $val ] )
   Family( [ $val ] )
   Weight( [ $val ] )
   Slant( [ $val ] )
   Swidth( [ $val ] )
   Adstyle( [ $val ] )
   Pixel( [ $val ] )
   Point( [ $val ] )
   Xres( [ $val ] )
   Yres( [ $val ] )
   Space( [ $val ] )
   Avgwidth( [ $val ] )
   Registry( [ $val ] )
   Encoding( [ $val ] )
       Set the given field in the font name to $val if given and return the current or previous value

   Name( [ $max ] )
       In a list context it returns a list of all font names that match the fields given. It will return a maximum of $max names, or 128 if $max
       is not given.

       In a scalar contex it returns the first matching name or undef

   Clone( [ key => value, [ ...]] )
       Create a duplicate of the curent font object and modify the given fields

AUTHOR

       Graham Barr <Graham.Barr@tiuk.ti.com>

HISTORY

       11-Jan-96 Initial version

       08-Nov-98 Renamed for Tk800.012

COPYRIGHT

       Copyright (c) 1995-1996 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the
       same terms as Perl itself.

perl v5.14.2							    2010-05-29							      X11Font(3pm)
All times are GMT -4. The time now is 10:54 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy