Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Shell script

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Shell script
# 8  
Old 02-18-2014
Okay,

Following just gives you matched pattern, you need to have gawk,

Code:
$ awk --re-interval '/([[:alnum:]]+-){3}([[:digit:]]+,).*/' file
20131203170000,171.99.192.0/23,SRT-PKT-ActiveSubCPE-13,87,509,0,66,399,44,0,0,0,0,0,0,
20131203170000,110.169.128.0/23,SKW-09-ActiveSubCPE-01,0,504,0,504,0,0,0,0,0,0,0,0,
20131203170000,10.18.32.0/20,MSKKBK13CM0-BZ-ActiveSubCM-01,100,248,0,0,224,24,0,0,0,0,0,0,
20131203170000,171.98.202.0/23,SKW-09-ActiveSubCPE-08,41,509,0,300,188,21,0,0,0,0,0,0,
20131203170000,10.18.64.0/20,SMSSBK01CM0-BZ-ActiveSubCM-01,100,504,0,0,454,50,0,0,0,0,0,0,
20131203170000,171.99.150.0/23,SRT-PKT-ActiveSubCPE-07,0,509,0,509,0,0,0,0,0,0,0,0,
20131203170000,171.99.186.0/23,SKW-09-ActiveSubCPE-04,0,509,0,507,2,0,0,0,0,0,0,0,

Following script does computation which you looking for
Code:
awk --re-interval '

/([[:alnum:]]+-){3}([[:digit:]]+,).*/{

					  z = $3
					  gsub(/-[0-9]+/,x,z)
			 if(!(z in S)){
					 
					  S[z] = $0
				      }
				 else {
					p = ""
					for(i=1;i<=n=split(S[z],A,/,/);i++)
					  {
					   A[i] = i == 2 ? A[2] "+" $2 : i >3 ? (A[i]+=$i) : A[i]
					   p = p ? p FS A[i] : A[i]
					  }
					S[z] = p  
				      }				
			  }
  		       END{
			     for(k in S){
					 s = ""
				for(i=1;i<=n=split(S[k],A,/,/);i++)
						 {
							if(i==3)gsub(/-[0-9]+,/,x,A[3])
							s = s ? s FS A[i] : A[i]		
						 }
				print s
					}
     			  }
      ' FS=,  file

Code:
$ bash tester
20131203170000,10.18.32.0/20,MSKKBK13CM0-BZ-ActiveSubCM-01,100,248,0,0,224,24,0,0,0,0,0,0,
20131203170000,10.18.64.0/20,SMSSBK01CM0-BZ-ActiveSubCM-01,100,504,0,0,454,50,0,0,0,0,0,0,
20131203170000,171.99.192.0/23+171.99.150.0/23,SRT-PKT-ActiveSubCPE-13,87,1018,0,575,399,44,0,0,0,0,0,0,0
20131203170000,110.169.128.0/23+171.98.202.0/23+171.99.186.0/23,SKW-09-ActiveSubCPE-01,41,1522,0,1311,190,21,0,0,0,0,0,0,0

Note : If you have double account kindly let us know now only, otherwise you will be banned from the forum, our administrators will easily come to know about fake accounts.
This User Gave Thanks to Akshay Hegde For This Post:
preethy
# 9  
Old 02-19-2014
HI Akshay Hegde ,

my requirement is i want to get the scope name in output file without succeeded by digit.i.e if scope name is bla-bla-bla-[digit] i should get in output file as bla-bla-bla.

I tried like this

Code:
awk -F, '{sub(/-[0-9]*$/,x,$3);print $3}' test.csv |cat>p.csv
awk -F, '{t=$0;getline<"test.csv";$3=t}1' p.csv > sample.csv
mv sample.csv test.csv

what i got is
executed output
Code:
20131203170000 171.99.192.0/23 SRT-PKT-ActiveSubCPE 87 509 0 66 399 44 0 0 0 0 0 0 
20131203170000 110.169.128.0/23 SKW-09-ActiveSubCPE 0 504 0 504 0 0 0 0 0 0 0 0 
20131203170000 10.18.32.0/20 MSKKBK13CM0-BZ-ActiveSubCM 100 248 0 0 224 24 0 0 0 0 0 0 
20131203170000 171.98.202.0/23 SKW-09-ActiveSubCPE 41 509 0 300 188 21 0 0 0 0 0 0 
20131203170000 10.18.64.0/20 SMSSBK01CM0-BZ-ActiveSubCM 100 504 0 0 454 50 0 0 0 0 0 0 
20131203170000 171.99.150.0/23 SRT-PKT-ActiveSubCPE 0 509 0 509 0 0 0 0 0 0 0 0 
20131203170000 171.99.186.0/23 SKW-09-ActiveSubCPE 0 509 0 507 2 0 0 0 0 0 0 0

and then passsing this through your code.But your code seems to work only for the file delimited with comma.

Any help is highly appreciated.

Thanks & Regards,
Preethy
# 10  
Old 02-19-2014
Why don't you show expected result for given input sample ? we don't want your executed output, thread crossed 2 pages, with no conclusion.
# 11  
Old 02-19-2014
Hi Akshay Hegde,
inputfile
Code:
Time,SubnetMask,ScopeName,percentFree,TotalDynamic,TotalReserved,Leased,Avail,otherAvail,PendingAvail,InTransition,ReservedActive,Unavail,ActiveDeactivated,Deactivated
20131203170000,171.99.192.0/23,SRT-PKT-ActiveSubCPE-13,87,509,0,66,399,44,0,0,0,0,0,0,
20131203170000,110.169.128.0/23,SKW-09-ActiveSubCPE-01,0,504,0,504,0,0,0,0,0,0,0,0,
20131203170000,10.18.16.0/20,Total,76,3824,0,882,2647,293,0,2,0,0,0,0,
20131203170000,10.18.32.0/20,MSKKBK13CM0-BZ-ActiveSubCM-01,100,248,0,0,224,24,0,0,0,0,0,0,
20131203170000,10.18.48.0/20,BNA-ActiveSubCM-02,81,4090,0,774,2982,331,0,3,0,0,0,0,
20131203170000,171.98.202.0/23,SKW-09-ActiveSubCPE-08,41,509,0,300,188,21,0,0,0,0,0,0,
20131203170000,10.18.48.0/20,Total,81,4090,0,774,2982,331,0,3,0,0,0,0,
20131203170000,10.18.64.0/20,SMSSBK01CM0-BZ-ActiveSubCM-01,100,504,0,0,454,50,0,0,0,0,0,0,
20131203170000,10.18.80.0/20,SRWWBK09CM0-ActiveSubCM-01,80,3576,0,704,2585,287,0,0,0,0,0,0,
20131203170000,171.99.150.0/23,SRT-PKT-ActiveSubCPE-07,0,509,0,509,0,0,0,0,0,0,0,0,
20131203170000,10.18.80.0/20,Total,81,3824,0,704,2809,311,0,0,0,0,0,0,
20131203170000,171.99.186.0/23,SKW-09-ActiveSubCPE-04,0,509,0,507,2,0,0,0,0,0,0,0,

expected
Code:
Time,SubnetMask,ScopeName,percentFree,TotalDynamic,TotalReserved,Leased,Avail,otherAvail,PendingAvail,InTransition,ReservedActive,Unavail,ActiveDeactivated,Deactivated
20131203170000,171.99.192.0/23+171.99.150.0/23,SRT-PKT-ActiveSubCPE,87,1018,0,575,399,44,0,0,0,0,0,0,
20131203170000,110.169.128.0/23+171.98.202.0/23+171.99.186.0/23,SKW-09-ActiveSubCPE,41,1522,0,1311,190,21,0,0,0,0,0,0
20131203170000,10.18.32.0/20,MSKKBK13CM0-BZ-ActiveSubCM,100,248,0,0,224,24,0,0,0,0,0,0,
20131203170000,10.18.48.0/20,BNA-ActiveSubCM,81,4090,0,774,2982,331,0,3,0,0,0,0,
20131203170000,10.18.64.0/20,SMSSBK01CM0-BZ-ActiveSubCM,100,504,0,0,454,50,0,0,0,0,0,0,
20131203170000,10.18.80.0/20,SRWWBK09CM0-ActiveSubCM,80,3576,0,704,2585,287,0,0,0,0,0,0,

lines containing the word Total have to be removed

Thanks in advance
# 12  
Old 02-19-2014
Ok, use following code
Code:
awk  '
		 NR == 1 { print ; next } 
                 !/Total/{
					  z = $3
					  gsub(/-[0-9]+$/,x,z)
			  if(!(z in S)){
					  found[++m] = z
					  S[z] = $0
				       }
				  else {
					 p = ""
					 for( i=1; i<=split(S[z],A,/,/); i++ )
					    {
					       # A[i] = i == 2 ? A[2] "+" $2 : i >3 ? (A[i]+=$i) : A[i]    update
                                               A[i] = i == 2 ? A[2] "+" $2 : i >3 && i<=9 ? (A[i]+=$i) : A[i]
					       p = p ? p FS A[i] : A[i]
					    }
					 S[z] = p  
				       }				
			  }
  		       END{
			     for(q = 1; q <= m; q++)
			     {	
			       for(k in S)
				     {
					 if(k == found[q])
					   {
				  	     s = ""
				  	     for( i=1; i<=split(S[k],A,/,/); i++ )
						 {
							if(i==3)A[3]=k
							s = s ? s FS A[i] : A[i]		
						 }
					     print s
					   }
				     }
			     }
     			  }
      ' FS=,  file

Last edited by Akshay Hegde; 02-19-2014 at 05:55 AM.. Reason: fix NF issue
# 13  
Old 02-19-2014
Hi Akshay Hegde,
This is the output i got by executing your code.
Code:
Time,SubnetMask,ScopeName,percentFree,TotalDynamic,TotalReserved,Leased,Avail,otherAvail,PendingAvail,InTransition,ReservedActive,Unavail,ActiveDeactivated,Deactivated
20131203170000,171.99.192.0/23+171.99.150.0/23,SRT-PKT-ActiveSubCPE,87,1018,0,575,399,44,0,0,0,0,0,0,0
20131203170000,110.169.128.0/23+171.98.202.0/23+171.99.186.0/23,SKW-ActiveSubCPE,41,1522,0,1311,190,21,0,0,0,0,0,0,0
20131203170000,10.18.32.0/20,MSKKBK13CM0-BZ-ActiveSubCM,100,248,0,0,224,24,0,0,0,0,0,0,
20131203170000,10.18.48.0/20,BNA-ActiveSubCM,81,4090,0,774,2982,331,0,3,0,0,0,0,
20131203170000,10.18.64.0/20,SMSSBK01CM0-BZ-ActiveSubCM,100,504,0,0,454,50,0,0,0,0,0,0,
20131203170000,10.18.80.0/20,SRWWBK09CM0-ActiveSubCM,80,3576,0,704,2585,287,0,0,0,0,0,0,

but may i know why the first two lines are showing 16 fields instead of 15,with extra 0 at the end and the scope name
in second line is SKW-ActiveSubCPE instead of SKW-09-ActiveSubCPE
Last edited by Franklin52; 02-19-2014 at 05:32 AM.. Reason: Please use CODE tags for data and code blocks.
# 14  
Old 02-19-2014
Please use codetags !

There are actually 16 fields, it was my fault

Replace this line in code A[i] = i == 2 ? A[2] "+" $2 : i >3 ? (A[i]+=$i) : A[i]

with A[i] = i == 2 ? A[2] "+" $2 : i >3 && i<=9 ? (A[i]+=$i) : A[i]
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Beginners Questions & Answers

Shell script newbie- how to generate service log from shell script

Hi, I am totally a newbie to any programming languages and I just started an entry level job in an IT company. One of my recent tasks is to create a script that is able to show the log file of linux service (i.e. ntpd service) lets say, if I run my script ./test.sh, the output should be... (3 Replies)
Discussion started by: xiaogeji
3 Replies

2. Shell Programming and Scripting

Pass C shell array to another C shell script(csh) and shell(sh)

Dear Friends, Please help me on this my script name is send.csh In this i have written the statement like this set args = ( city state country price ) I want to pass this array to another c shell called receiver.csh. and i want to use it in this c shell or how to pass to... (2 Replies)
Discussion started by: SA_Palani
2 Replies

3. Shell Programming and Scripting

How to write config shell script to pass variables in master shell script?

Dear Unix gurus, We have a config shell script file which has 30 variables which needs to be passed to master unix shell script that invokes oracle database sessions. So those 30 variables need to go through the database sessions (They are inputs) via a shell script. one of the variable name... (1 Reply)
Discussion started by: dba1981
1 Replies

4. UNIX for Dummies Questions & Answers

How to write Config shell script to pass variables in master shell script?

Dear Unix gurus, We have a config shell script file which has 30 variables which needs to be passed to master unix shell script that invokes oracle database sessions. So those 30 variables need to go through the database sessions (They are inputs) via a shell script. one of the variable name... (1 Reply)
Discussion started by: dba1981
1 Replies

5. Shell Programming and Scripting

Unable to pass shell script variable to awk command in same shell script

I have a shell script (.sh) and I want to pass a parameter value to the awk command but I am getting exception, please assist. diff=$1$2.diff id=$2 new=new_$diff echo "My id is $1" echo "I want to sync for user account $id" ##awk command I am using is as below cat $diff | awk... (2 Replies)
Discussion started by: Ashunayak
2 Replies

6. Shell Programming and Scripting

Correct shell script to Call One shell script from another shell script

Hi All, I have new for shell scripting. Problem : I have one scrip at serv1 and path of server is /apps/dev/provimage/scripts and script name:extract_ancillary.bat. I need to call this script at server2(my working server) and execute at server2 . Please let me know how to build the... (5 Replies)
Discussion started by: Vineeta Nigam
5 Replies

7. Shell Programming and Scripting

call another shell script and pass parameters to that shell script

Hi, I basically have 2 shell scripts. One is a shell script will get the variable value from the user. The variable is nothing but the IP of the remote system. Another shell script is a script that does the job of connecting to the remote system using ssh. This uses a expect utility in turn. ... (2 Replies)
Discussion started by: sunrexstar
2 Replies

8. Shell Programming and Scripting

How to use ssh execute other shell script on other host (shell script include nohup)?

i want use ssh on the host01 to execute autoexec.sh on the host02 like following : host01> ssh host02 autoexec.sh autoexec.sh include nohup command like follwing : nohup /home/jack/deletedata.sh & after i execute ssh host02 autoexec.sh one the host01. i can't found deletedata.sh... (1 Reply)
Discussion started by: orablue
1 Replies

9. Shell Programming and Scripting

invoking a shell script inside cgi shell script

Hi, I have an HTML form through which I get some text as input. i need to run a shell script say script.sh inside a perl-cgi script named main_cgi.sh on the form input. I want to write the contents of the form in a file and then perform some command line operations like grep, cat on the text... (2 Replies)
Discussion started by: smriti_shridhar
2 Replies

10. Shell Programming and Scripting

How to Run a shell script from Perl script in Parent shell?

Hi Perl/UNIX experts, I have a problem in running a shell script from my perl script (auto.pl). I run the perl script using perl auto.pl from the shell prompt The shell script picks the files in "input" folder and procesess it. The shell script blue.sh has this code. export... (16 Replies)
Discussion started by: hifake
16 Replies
Login or Register to Ask a Question