Sponsored Content
Top Forums Shell Programming and Scripting awk - sub() ---> substr(), match() Post 302188239 by aigles on Wednesday 23rd of April 2008 03:27:02 AM
Old 04-23-2008
Block 1
Code:
# Drive sense data: channel 2
# Also, if the LBA is evenly divisible by 8 (the first sector in
# a controller cache block) will print "*" if not, it will print "-"

else if (!sdata && match($0, /Drive sense data:/)
{
   sub(/^Drive sense data:/, "")
   # $0 = substr($0, 1, RSTART-1) substr($0, RSTART+RLENGTH);
   if ($1 ~ /^[0-9a-f]+$/ )
   {
      $1 = substr($1, 5);
      $2 = substr($2, 1, length($2)-2);
      sdata = $1$2
      if (substr(sdata,8,1) == 0 || substr(sdata,8,1) == 8 )
      {
         cach="*"
      }
         else cach="-"
      }
   }
}

I think that keeping the sub is more readable:
Code:
else if (!sdata && /Drive sense data:/)
{
   sub(/Drive sense data:/, "")

Block 2
Code:
else if (/^ detection point /)
{
   # Example line:
   # EEL information: recovered
   # detection point 00000500 VDD_READ
   # lba 0000848e
   # blocks 00000056
   detectpoint=1;
}
else if (detectpoint && !lba && match($0, / lba /))
{
   $0  = substr($0, 1, RSTART-1) substr($0, RSTART+RLENGTH);
   lba = $0 " ";
}
else if (detectpoint && !vddRepairBlocks && match($0, / blocks /))
{
   $0  = substr($0, 1, RSTART-1) substr($0, RSTART+RLENGTH);
   vddRepairBlocks = $0 " ";
}

Jean-Pierre.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk substr?

Sorry if this has been posted before, I searched but not sure what I really want to do. I have a file with records that show who has logged into my application: 2003-03-14:I:root: Log_mesg: registered servername:userid. (more after this) I want to pull out the userid, date and time into... (2 Replies)
Discussion started by: MizzGail
2 Replies

2. Shell Programming and Scripting

How to use awk substr ?

Hi all, I have a flatfile I would like to get ext = 7950 , how do I do that ? if ($1 == "CTI-ProgramStart") { ext = substr($9,index($9,"Extension")+11,4); But why it is not working ???? Please help . Thanks (1 Reply)
Discussion started by: sabercats
1 Replies

3. UNIX for Dummies Questions & Answers

awk or substr

i have a variable 200612 the last two digits of this variable should be between 1 and 12, it should not be greater than 12 or less than 1 (for ex: 00 or 13,14,15 is not accepted) how do i check for this conditions in a unix shell script. thanks Ram (3 Replies)
Discussion started by: ramky79
3 Replies

4. Shell Programming and Scripting

awk substr

Hi I have multiple files that name begins bidb_yyyymm. (yyyymm = current year month of file creation). What I want to do is look at the files and where yyyymm is older than 1 month I want to remove the file from the server. I was looking at looping through the files and getting the yyyymm... (2 Replies)
Discussion started by: colesga
2 Replies

5. Shell Programming and Scripting

Help with awk and substr

I have the following to find lines matching "COMPLETE" and extract parts of it using substr. sed -n "/COMPLETE/p" 1.txt | awk 'BEGIN { FS = "\" } {printf"%s %s:%s \n", substr($3,17,3),substr($6,4,1), substr($7,4,1)}' | sort | uniq > temp.txt Worked fine until the numbers in 2nd & 3rd substr... (5 Replies)
Discussion started by: zpn
5 Replies

6. Shell Programming and Scripting

awk substr

HI I am using awk and substr function to list out the directory names in the present working directory . I am using below code ls -l | awk '{ if ((substr($1,1,1)) -eq d) {print $9 }}' But the problem is i am getting all the files and directories listed where as the requirement i wrote... (7 Replies)
Discussion started by: prabhu_kumar
7 Replies

7. Shell Programming and Scripting

Substr with awk

Hi to all, I'm here again, cause I need your help to solve another issue for me. I have some files that have this name format: date_filename.csv In my shell I must rename each file removing the date so that the file name is filename.csv To do this I use this command: fnames=`ls ${fname}|... (2 Replies)
Discussion started by: leobdj
2 Replies

8. Shell Programming and Scripting

awk substr

Hello life savers!! Is there any way to use substr in awk command for returning one part of a string from declared start and stop point? I mean I know we have this: substr(string, start, length) Do we have anything like possible to use in awk ? : substr(string, start, stop) ... (9 Replies)
Discussion started by: @man
9 Replies

9. Shell Programming and Scripting

HELP : awk substr

Hi, - In a file test.wmi Col1 | firstName | lastName 4003 | toto_titi_CT- | otot_itit - I want to have only ( colones $7,$13 and $15) with code 4003 and 4002. for colone $13 I want to have the whole name untill _CT- or _GC- 1- I used the command egrep with awk #egrep -i... (2 Replies)
Discussion started by: georg2014
2 Replies

10. Shell Programming and Scripting

awk and substr

Hello All; I have an input file 'abc.txt' with below text: 512345977,213458,100021 512345978,213454,100031 512345979,213452,100051 512345980,213455,100061 512345981,213456,100071 512345982,213456,100091 512345983,213457,100041 512345984,213451,100011 I need to paste the first field... (10 Replies)
Discussion started by: mystition
10 Replies
MouseX::NativeTraits::Str(3pm)				User Contributed Perl Documentation			    MouseX::NativeTraits::Str(3pm)

NAME
MouseX::NativeTraits::Str - Helper trait for Str attributes SYNOPSIS
package MyHomePage; use Mouse; has 'text' => ( traits => ['String'], is => 'rw', isa => 'Str', default => q{}, handles => { add_text => 'append', replace_text => 'replace', }, ); my $page = MyHomePage->new(); $page->add_text("foo"); # same as $page->text($page->text . "foo"); DESCRIPTION
This module provides a simple string attribute, to which mutating string operations can be applied more easily (no need to make an lvalue attribute metaclass or use temporary variables). Additional methods are provided for completion. PROVIDED METHODS
These methods are implemented in MouseX::NativeTraits::MethodProvider::Str. It is important to note that all those methods do in place modification of the value stored in the attribute. inc Increments the value stored in this slot using the magical string autoincrement operator. Note that Perl doesn't provide analogous behavior in "--", so "dec" is not available. append($string) Append a string, like ".=". prepend($string) Prepend a string. replace($pattern, $replacement) Performs a regexp substitution ("s" in perlop). A code references will be accepted for the replacement, causing the regexp to be modified with a single "e". "/smxi" can be applied using the "qr" operator. replace($pattern, $replacement) Performs a regexp substitution ("s" in perlop) with the "g" flag. A code references will be accepted for the replacement, causing the regexp to be modified with a single "e". "/smxi" can be applied using the "qr" operator. match($pattern) Like "replace" but without the replacement. Provided mostly for completeness. chop "chop" in perlfunc chomp "chomp" in perlfunc clear Sets the string to the empty string (not the value passed to "default"). length "length" in perlfunc substr "substr" in perlfunc. We go to some lengths to match the different functionality based on "substr"'s arity. METHODS
meta method_provider_class helper_type SEE ALSO
MouseX::NativeTraits perl v5.14.2 2011-12-04 MouseX::NativeTraits::Str(3pm)
All times are GMT -4. The time now is 10:20 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy