Help with replace character based on specific location Post: 302504185

Sponsored Content

Top Forums Shell Programming and Scripting Help with replace character based on specific location Post 302504185 by pravin27 on Monday 14th of March 2011 02:43:44 AM

03-14-2011

Registered User

Try this,

Code:

#!/usr/bin/perl

my %ref_h;
my (@refdata,@ar);
my ($start,$end,$format,$col);

open(RF,"<","reffile") or  die "Fail-$!\n";
while (<RF>) {
chomp;
@refdata=split;
push (@{$refdata[0]},$refdata[1],$refdata[2]);
$ref_h{$refdata[0]}=\@{$refdata[0]}
}
close(RF);

open(DF,"<","input_file.txt") or die "Fail-$!\n";
while (<DF>){
        chomp;
        if (/^\>/) {
        ($col=$_)=~s/\>//g;
        next unless exists $ref_h{$col} ;
        print "$_\n";
        next;
        }
        $index=$#{$col};
        for ($k=0;$k<=$index;$k++) {
        $start=$ref_h{$col}[$k];
        $end=$ref_h{$col}[++$k];
        $format="A".($start-1)." x".($end-$start+1)." A*";
        @ar=unpack($format,$_);
        ($ar[1],$ar[2])=("X" x ($end-$start+1),$ar[1]);
        ($_="@ar")=~s/\s//g;
        undef @ar;
        }
        print $_,"\n";
        $start=0;$end=0;$index=0;
}
close(DF);

You can use below code instead of the above red lines

Code:

substr($_,($start-1),($end-$start+1))="X" x ($end-$start);

Last edited by pravin27; 03-14-2011 at 09:39 AM..

This User Gave Thanks to pravin27 For This Post:

pravin27

View Public Profile for pravin27

Find all posts by pravin27

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Using sed to replace specific character and specific position

I am trying to use sed to replace specific characters at a specific position in the file with a different value... can this be done? Example: File: A0199999123 A0199999124 A0199999125 Need to replace 99999 in positions 3-7 with 88888. Any help is appreciated.

2. Shell Programming and Scripting

Find and replace a string a specific value in specific location in AIX

Hi, I have following samp.txt file in unix. samp.txt 01Roy2D3M000000 02Rad2D3M222222 . . . . 10Mik0A2M343443 Desired Output 01Roy2A3M000000 02Rad2A3M222222 . .

3. Shell Programming and Scripting

how to replace specific character , if possible using sed

My script is extracting data from SQl session, however sometimes the result contains one or multiple space after/before any numerical value. e,g . "123","1 34","1 3 45", "43 5" How to remove these unwanted spaces..so that I can get the following result : "123","134",1345","435"

4. Shell Programming and Scripting

Replace spaces at a specific Location

Hello All, I have a comma separated file which needs to be loaded to the database. But, I need to trim the white spaces for a specific column before its loaded. Below is the sample line from the input file: 690,690,0575,"01011940","01011940", , , , , ,36720,36722,V2020,V2999,...

5. Shell Programming and Scripting

File character adjustment based on specific character

i have a reqirement to adjust the data in a file based on a perticular character the sample data is as below 483PDEAN CORRIGAN 52304037528955WAGES 50000 89BP ABCD MASTER352 5434604223735428 4200 58BP SOUTHERN WA848 ...

6. Shell Programming and Scripting

Using sed to replace a word at specific location

I'm try to change a the prohibit to aix for the lines starting with ssh and emagent and rest should be the same. Can anyone please suggest me how to do that using a shell script or sed passwd account required /usr/lib/security/pam_prohibit passwd session required ...

7. UNIX for Advanced & Expert Users

Replace certain character at specific place with related character

hello i have file with 100k records and each one has certain value that starts at 28th column and certain value that starts at 88th column e.g. 1st file <25>1234567 ..... <88> 8573785485 i have aditional file with values which are related to value that starts at 88th column of the...

8. Shell Programming and Scripting

File Parsing based on a character in a specific field

Hi All, I'm having a hard time finding a starting point for my issue. I have a 30k line file (fspsec.txt) that I would like to parse into smaller files based on any character existing in field 1. ACCOUNTANT LEVEL 1 (ACCT.ACCOUNTANT) OPERATORS: DOEJO (418) TOOLS: Branch Maintenance ...

9. Shell Programming and Scripting

Copy files based on specific word in a file name & its extension and putting it in required location

Hello All, Since i'm relatively new in shell script need your guidance. I'm copying files manually based on a specific word in a file name and its extension and then moving it into some destination folder. so if filename contains hyr word and it has .md and .db extension; it will move to TUM/HYR...

10. Shell Programming and Scripting

Insert character at specific location in a each line of the file

Hi All, I am trying to write a shell script where it should insert character 'I' in 180th position of each line(except first and last line) of the file. Below is the script for file in /home/test/bharat/*.RET do # Process file echo "File Name=" $file #l_fileName="${file##*/}" ...

LEARN ABOUT OSX

colrm

COLRM(1)						    BSD General Commands Manual 						  COLRM(1)

NAME

     colrm -- remove columns from a file

SYNOPSIS

     colrm [start [stop]]

DESCRIPTION

     The colrm utility removes selected columns from the lines of a file.  A column is defined as a single character in a line.  Input is read
     from the standard input.  Output is written to the standard output.

     If only the start column is specified, columns numbered less than the start column will be written.  If both start and stop columns are spec-
     ified, columns numbered less than the start column or greater than the stop column will be written.  Column numbering starts with one, not
     zero.

     Tab characters increment the column count to the next multiple of eight.  Backspace characters decrement the column count by one.

ENVIRONMENT

     The LANG, LC_ALL and LC_CTYPE environment variables affect the execution of colrm as described in environ(7).

EXIT STATUS

     The colrm utility exits 0 on success, and >0 if an error occurs.

SEE ALSO

     awk(1), column(1), cut(1), paste(1)

HISTORY

     The colrm command appeared in 3.0BSD.

BSD
								  August 4, 2004							       BSD

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Using sed to replace specific character and specific position

Discussion started by: programmer22

2. Shell Programming and Scripting

Find and replace a string a specific value in specific location in AIX

Discussion started by: techmoris

3. Shell Programming and Scripting

how to replace specific character , if possible using sed

Discussion started by: mady135

4. Shell Programming and Scripting

Replace spaces at a specific Location

Discussion started by: Praveenkulkarni