Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: to insert some word somewhere in the line with shell (or perl)
Top Forums Shell Programming and Scripting to insert some word somewhere in the line with shell (or perl) Post 302354667 by ripat on Saturday 19th of September 2009 09:05:24 AM
Old 09-19-2009
If correctly understand what you are after, here is something to put you on track:

Sample file is on one line with no \n.

Code:
$ cat file
hello mighty all there is a line of words and i need to take a random number of words from the beginning (20 words for example) 
then put my word then add other 10 words from the continue then add another my special word then add words till the end

$ wc -w file
50 file

$ awk 'BEGIN{srand()}{for(i=1;i<=20;i++) printf "%s ",$(int(rand()*50)+1);print ""}' file
my the 10 words put words need add of then 10 number till number need my take number my words 

$ awk 'BEGIN{srand()}{for(i=1;i<=20;i++) printf "%s ",$(int(rand()*50)+1);print ""}' file
my word then the words number line words take (20 my my take beginning hello is till words line add 

$ awk 'BEGIN{srand()}{for(i=1;i<=20;i++) printf "%s ",$(int(rand()*50)+1);print ""}' file
is add (20 beginning end hello the words the my words add then add words word a a of mighty

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

insert word in each line of a file

can someone tell me how can I insert a word in front of each line in a file. i tried with sed but didn't managed yet. Is there another command or this one(sed) works? 10x anyway. (7 Replies)
Discussion started by: atticus
7 Replies

2. Shell Programming and Scripting

how to insert text before first line in perl

Hello all im doing simple parsing on text file , but now I need to insert string before the first line of the text file , how can I do that in perl? (3 Replies)
Discussion started by: umen
3 Replies

3. Shell Programming and Scripting

Can a shell script pull the first word (or nth word) off each line of a text file?

Greetings. I am struggling with a shell script to make my life simpler, with a number of practical ways in which it could be used. I want to take a standard text file, and pull the 'n'th word from each line such as the first word from a text file. I'm struggling to see how each line can be... (5 Replies)
Discussion started by: tricky
5 Replies

4. Shell Programming and Scripting

Need to replace the first word of a line if it occurs again in the next line(shell)

Hi folks, have a look into the attachment, i am not familiar with unix, can you please help me in this regard. thanks in advance, :) regards, Geeko (4 Replies)
Discussion started by: geeko
4 Replies

5. Shell Programming and Scripting

Shell script to parse a line and insert a word

Hi All, I have a file like this, data1,data2,,,data5,data6. i want to write a shell script to replace data3 with "/example/string". which means my data file should look like this . data1,data2,example/string],,data5,data6. Could you guys help me to get a sed command or any other command... (8 Replies)
Discussion started by: girish.raos
8 Replies

6. Shell Programming and Scripting

get the fifth line of a text file into a shell script and trim the line to extract a WORD

FOLKS , i have a text file that is generated automatically of an another korn shell script, i want to bring in the fifth line of the text file in to my korn shell script and look for a particular word in the line . Can you all share some thoughts on this one. thanks... Venu (3 Replies)
Discussion started by: venu
3 Replies

7. Shell Programming and Scripting

Perl:How to insert a line to a file.

Hi, Perl is new to me. I am trying to insert a line to a file. Example: I have a file (trial.txt), content: ZZZZ AAA DDDD I am trying to insert CCC below AAA. MY perl command: open (FILE,"+>>C:\\Documents and Settings\\trial.txt\n")|| die "can't open file"; while(<FILE>) { ... (6 Replies)
Discussion started by: SSGKT
6 Replies

8. Shell Programming and Scripting

perl: replace multiple word on a line

Hi All, If I have a line as following: ( MA "vertical" ) How can I convert it to as below: ( BC "horizontal" ) Thanks, --Michael (6 Replies)
Discussion started by: mxn731
6 Replies

9. Linux

How to insert new line in perl

HI, I have a text file in which I have removed all new lines as I would like to introduce a new line at the end of each record in the file. There is no common end line for all the records. A new record will start by *RECORD*. So I want to introduce a new line before this line *RECORD*. So Can... (2 Replies)
Discussion started by: kaav06
2 Replies

10. Shell Programming and Scripting

Sort a line and Insert sorted word(s) in a line

Hello, I am looking to automate a task - which is updating an existing access control instruction of a server and making sure that the attributes defined in the instruction is in sorted order. The instructions will be of a specific syntax. For example lets assume below listed is one of an... (6 Replies)
Discussion started by: sanjayroc
6 Replies

LEARN ABOUT DEBIAN

sql::reservedwords::sqlserver

SQL::ReservedWords::SQLServer(3pm)			User Contributed Perl Documentation			SQL::ReservedWords::SQLServer(3pm)

NAME

       SQL::ReservedWords::SQLServer - Reserved SQL words by SQL Server

SYNOPSIS

	  if ( SQL::ReservedWords::SQLServer->is_reserved( $word ) ) {
	      print "$word is a reserved SQL Server word!";
	  }

DESCRIPTION

       Determine if words are reserved by SQL Server.

METHODS

       is_reserved( $word )
	   Returns a boolean indicating if $word is reserved by SQL Server 7, 2000 or 2005.

       is_reserved_by_sqlserver7( $word )
	   Returns a boolean indicating if $word is reserved by SQL Server 7.

       is_reserved_by_sqlserver2000( $word )
	   Returns a boolean indicating if $word is reserved by SQL Server 2000.

       is_reserved_by_sqlserver2005( $word )
	   Returns a boolean indicating if $word is reserved by SQL Server 2005.

       reserved_by( $word )
	   Returns a list with SQL Server versions that reserves $word.

       words
	   Returns a list with all reserved words.

EXPORTS

       Nothing by default. Following subroutines can be exported:

       is_reserved
       is_reserved_by_sqlserver7
       is_reserved_by_sqlserver2000
       is_reserved_by_sqlserver2005
       reserved_by
       words

SEE ALSO

       http://msdn2.microsoft.com/en-us/library/ms130214.aspx

AUTHOR

       Christian Hansen "chansen@cpan.org"

COPYRIGHT

       This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.8.8							    2008-03-28					SQL::ReservedWords::SQLServer(3pm)
All times are GMT -4. The time now is 06:14 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy