Shell Programming and Scripting

I have a perl script which replaces "*" with "|" and "~" with "\n" also it takes the file content starting with ST till record starting with SE written a differnet file, I wanted this to be convereted into KSH script, can anyone help me

perl script:

Code:

perl -e '
$file_counter=0;
$in_record=0;
while(<>){
  s/\*/|/g;
  s/~/\n/g;
  if(/^ST/){
    $in_record=1;
    open (FILE, ">" , "file_$file_counter");
  }
  print FILE $_ if $in_record;
  if (/^SE/){
    close FILE; 
    $in_record=0;
    $file_counter++;
  }
}' <file location>

Moderator's Comments:

Please view this link: How to use [code]...[/code] tags

Did you try my awk suggestion? Did that not work?

Hi, I tried and it worked fine, but here they were telling that not to use awk.

Let me suggest them with this again. But in the awk

Code:

awk -F\* '$1=="ST",$1=="SE"{if($1=="ST"){close(f);f="file" ++i} gsub(/~/,RS); $1=$1; print>f}' OFS=\| $HOME/Bharath/sampleX12

How can I modify the name of the file generated to be along with time stamp, also here I have exclusively hardcoded the file name along with path, how to write a looping that iterates and take the files matching a file name convention and process it 1 by 1 with the above awk? Can you please advice on that.

Who is telling you? Is this homework?

You can assign the current date to a parameter on the command line and use that parameter as part of the filename f. You can specify multiple input files on the command line, so unless you have really many files you do not need a loop..

Yes there will be n number of files to be processed. so how to do the looping part so that it take the file 1 by 1 till the last file.

Let me try for the file name with the date time stamp.

Why don't you answer this question?

For adding time stamp in the file name getting generated, I modified the above awk as highlighted below

DATE=`date +%m%d%y%H%M%S`
file="214_"
awk -F\* '$1=="ST",$1=="SE"{if($1=="ST"){close(f);f=$file_$DATE ++i} gsub(/~/,RS); $1=$1; print>f}' OFS=\| infile

But its throwing me error with "$" sign.