Add delimiter to a file from layout file Post: 302973053

Sponsored Content

Top Forums Shell Programming and Scripting Add delimiter to a file from layout file Post 302973053 by lalitpct on Friday 13th of May 2016 08:31:13 AM

05-13-2016

Registered User

Quote:

Originally Posted by pravin27

using perl

Code:

my $sourceFile="/v/global/user/b/bh/bharade/Programs/Forum_Scripts/Layout.txt";
my $targetFile="/v/global/user/b/bh/bharade/Programs/Forum_Scripts/abc.txt";

open(FH1,"$sourceFile") or die "$!\n";
open(FH2,"$targetFile") or die "$!\n";
my $i=1;
while  (<FH1>) {
  if (/(\d+)\:(\d+)/) {
    my $start=$1;
    my $end=$2;
    if ($. == 1) {
      if ( $start != 1) {
        my $newEnd=$start - 1;
        my $newStart=0;
        $hash{$i}=[$newStart,$newEnd];
        ++$i;
      }
    }
    $hash{$i}=[$start - 1,$end];
    ++$i;
  }
}
my $prevEnd=0;
while (<FH2>) {
  foreach ($j=1;$j<$i;$j++){
    if ( ($hash{$j}->[0] - $prevEnd ) > 1 ) {
      $gapstart=$hash{$j}->[0] - $prevEnd;
      $gapEnd=$hash{$j}->[0] - 1;
      print substr ($_,$gapstart,$gapstart),"~";
    }

    print substr ($_,$hash{$j}->[0],$hash{$j}->[1] - $hash{$j}->[0] ),"~";
    $prevEnd = $hash{$j}->[1];
  }
  if (length($_) != $prevEnd ) {
    print substr ($_,$prevEnd);
  }
}

close (FH1);
close (FH2);

Is it possible to do in only unix Korn shell file???

lalitpct

View Public Profile for lalitpct

Find all posts by lalitpct

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

splitting file with more than one delimiter

Hi, I just wandering how to split a record which has more than one delimiter, i have a file which contains pattern as group separtor and ~ as field separtor, Ultimately I need consider even the groups as a field, So i need to make this multi-delimited file into ~ delimited file. My record...

2. Shell Programming and Scripting

extracting delimiter from a file.

hi, pls someone tell me how to extract delimiters from any file and pass it to a unix script.since, im a beginner in unix i find it little bit difficult.how to use awk to do this?

3. UNIX for Dummies Questions & Answers

How to change delimiter in my file ?

Hi I have a file in which delimiter is ';' However if the delimiter is within "" it is a part of the string and not delimiter. How to get the fields ? I want to replace the delimiter ';' to '|'. The file contains data like this : 11111; �2222 2222�; �3333; 3333�; �4444 ""44444� The file...

4. Shell Programming and Scripting

Creating delimiter file

#/bin/sh sysdate=`date +"%m/%d/%Y"` systime=`date +%r` ps_per=`lsps -s | nawk '{print $2+0}'|tail -1` ps_tot=`lsps -s | nawk '{print $1+0}'|tail -1` lcpu=`vmstat | nawk -F= '/lcpu/ {print $2+0}'` mem_tot=`vmstat | nawk -F= '/mem=/ {print $3+0}'` avm=`vmstat|awk '{print...

5. Shell Programming and Scripting

Delimiter in output file

Hello, I am trying to find the record count in a specific folder, Here is the part of the code =========================== STARTDATE=`date +"%y%m%d%H%M"` for i in `ls *.DAT` do wc -l $i >> /XYZ/SrcFiles/"Record_counts"$STARTDATE.csv ...

6. UNIX for Advanced & Expert Users

File Delimiter

Hi All, I woul like to know with out opening a file in unix ,how we can find out what is the delemeter in that file... Thanks.. edit by bakunin: changed thread title to "delimiter" so it can be found.

7. Shell Programming and Scripting

Help with changing text file layout

Hi there, I am with this one column input text file to change layout, please help. Thanks. I have awk, sed. $ cat input Median 1.0 2.3 3.0 Median 35.0 26.3 45.7 10.1 63.1 Median 1.2 2.3

8. Shell Programming and Scripting

Shell script to put delimiter for a no delimiter variable length text file

Hi, I have a No Delimiter variable length text file with following schema - Column Name Data length Firstname 5 Lastname 5 age 3 phoneno1 10 phoneno2 10 phoneno3 10 sample data - ...

9. UNIX for Dummies Questions & Answers

Getting the folder name and file name after delimiter

Hi, I have a input /dev/cm/test1.txt /qa/tm/hmkr/cc/test2.txt and I need an out like below foldername, filename /dev/cm/,test1.txt /qa/tm/hmkr/cc/,test2.txt I tried with awk $NF, but I'm getting the filenames and not folder names. Please let me know how to achive the above...

10. Shell Programming and Scripting

Perl Code to change file delimiter (passed as argument) to bar delimiter

Hi, Extremely new to Perl scripting, but need a quick fix without using TEXT::CSV I need to read in a file, pass any delimiter as an argument, and convert it to bar delimited on the output. In addition, enclose fields within double quotes in case of any embedded delimiters. Any help would...

LEARN ABOUT MINIX

cut

CUT(1)							      General Commands Manual							    CUT(1)

NAME

       cut - select out columns of a file

SYNOPSIS

       cut [  -b | -c] list [file...]
       cut -f list [-d delim] [ -s]

OPTIONS

       -b     Cut specified bytes

       -c     Select out specific characters

       -d     Change the column delimiter to delim

       -f     Select out specific fields that are separated by the

       -i     Runs of delimiters count as one

       -s     Suppres lines with no delimiter characters, when used

EXAMPLES

       cut -f 2 file	   # Extract field 2

       cut -c 1-2,5 file   # Extract character columns 1, 2, and 5

       cut -c 1-5,7- file  # Extract all columns except 6

DESCRIPTION

       [file...]"  delimiter character ( see delim)" with the -f option. Lines with no delimiters are passwd through untouched"

       Cut  extracts  one  or more fields or columns from a file and writes them on standard output.  If the -f flag is used, the fields are sepa-
       rated by a delimiter character, normally a tab, but can be changed using the -d flag.  If the -c flag is  used,	specific  columns  can	be
       specified.  The list can be comma or BLANK separated. The -f and -c flags  are mutually exclusive.  Note: The POSIX1003.2 standard requires
       the option -b to cut out specific bytes in a file. It is intended for systems with multi byte characters (e.g.  kanji),	since  MINIX  uses
       only  one byte characters, this option is equivalent to -c. For the same reason, the option -n has no effect and is not listed in this man-
       ual page.

SEE ALSO

       sed(1), awk(9).

																	    CUT(1)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

splitting file with more than one delimiter

Discussion started by: braindrain

2. Shell Programming and Scripting

extracting delimiter from a file.

Discussion started by: sureshmit

3. UNIX for Dummies Questions & Answers

How to change delimiter in my file ?

Discussion started by: dashing201

4. Shell Programming and Scripting

Creating delimiter file

Discussion started by: Daniel Gate

5. Shell Programming and Scripting

Delimiter in output file

Discussion started by: Shanks

6. UNIX for Advanced & Expert Users

File Delimiter

Discussion started by: raju4u

7. Shell Programming and Scripting

Help with changing text file layout

Discussion started by: cwzkevin