Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Regular expression to find the length of a field
Top Forums Shell Programming and Scripting Regular expression to find the length of a field Post 302455721 by aigles on Wednesday 22nd of September 2010 09:46:14 AM
Old 09-22-2010
Try and adapt the following script :
Code:
awk '

function fmtSize( fmt, typ   ,s) {
   if (! fmt) return 0;
   if (sub("^" typ "*\\(", "", fmt)) {
      s = fmt+0
   } else {
      match(fmt, "^" typ "*");
      s = RLENGTH;
   }
   return s
}

NF>=3 {
   column = $2;
   format = toupper($3);
   gsub(/^[SZ]|\.$/, "", format);
   type   = substr(format, 1, 1);
   split(format, f, /V/);
   if (type == "9")
      size = fmtSize(f[1], type) + fmtSize(f[2], type);
   else if (type == "X")
      size = fmtSize(f[1], type);
   else
      next;
   printf "Column=%s Format=%s Size=%d\n", column, $3, size;
}

' inputfile

With your sample inputfile, the output is:
Code:
Column=col1 Format=s9(10)V99. Size=12
Column=Col2 Format=s9(10)V9(3). Size=13
Column=Col3 Format=XXXX. Size=4
Column=Col4 Format=X(3). Size=3
Column=Col5 Format=S999999. Size=6
Column=Col6 Format=s999V99. Size=5
Column=Col7 Format=Z9(9). Size=9

Jean-Pierre.
This User Gave Thanks to aigles For This Post:
ahmedwaseem2000
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How To Find Length of a Field in XML File

Hi I have a xml file with below data...have to find the length of the filedvalues... <?xml version="1.0" encoding="ISO-8859-15" standalone="no"?><abc xmlns:xsi="http://www.w3.org/2000/XMLSchem... (3 Replies)
Discussion started by: naughty21
3 Replies

2. UNIX for Dummies Questions & Answers

using regular expression for directories in find command

Hi, I want to find the files available in a directory /var/user/*/*/data/. I tried using the command "find /var/user/ -path '*/*/data/ -name '*' -type f" it says find: 0652-017 -path is not a valid option and then i tried using "find /var/user/ -name '*/*/data/*' -type f" but its not... (3 Replies)
Discussion started by: vinothbabu12
3 Replies

3. UNIX for Dummies Questions & Answers

grep regular expression to find = not ==

I suspect this is commonly done, but haven't found the right combination of search terms to find the answer. I want to grep for lines in .cpp files that contain only 1 '=' sign in an if statement. e.g., if (a = b) -- find this if (a==b) -- don't find this My attempt: egrep... (7 Replies)
Discussion started by: offkilter
7 Replies

4. Shell Programming and Scripting

Using grep and regular expression to find class references in a c++ file

I'm trying to math all class references in a C++ file using grep with regular expression. I'm trying to know if a specific include is usuless or not, so I have to know if there is a refence in cpp. I wrote this RE that searches for a reference from class ABCZ, but unfortunately it isn't working... (0 Replies)
Discussion started by: passerby
0 Replies

5. Shell Programming and Scripting

Find, regular expression, anyway to simplify this find command?

Hello everyone, first post here, trying to learn scripting on my own and this forum as been really helpful so far. I made few little scripts working great but I m facing some problems with RE. I have a bunch of files in many subdirectories called *001.ext *002.ext OR simple *.ext or *01.ext... (7 Replies)
Discussion started by: Sekullos
7 Replies

6. Programming

Perl: How to read from a file, do regular expression and then replace the found regular expression

Hi all, How am I read a file, find the match regular expression and overwrite to the same files. open DESTINATION_FILE, "<tmptravl.dat" or die "tmptravl.dat"; open NEW_DESTINATION_FILE, ">new_tmptravl.dat" or die "new_tmptravl.dat"; while (<DESTINATION_FILE>) { # print... (1 Reply)
Discussion started by: jessy83
1 Replies

7. Shell Programming and Scripting

Regular Expression in Find command [KSH]

Hello, I am trying to use regex wtih find command in KSH. For some reason it is not working as expected. Input: comm_000_abc_0102.c comm_000_abc.c 456_000_abc_1212.cpp 456_000_abc_.cpp Expected Output: comm_000_abc_0102.c kkm_000_abc_8888.cpp (Basically I want to find all... (6 Replies)
Discussion started by: vinay4889
6 Replies

8. Shell Programming and Scripting

How to find out whether a file exists with the help of regular expression?

Hi all I have a list of file names in array. But this file names are not exact. so i want to search whether a file exists or not using regular expression. code snippet: if ; then echo "File exists" else echo "File does not exits" fi over here "*EQST*" should be treated as a regular... (4 Replies)
Discussion started by: Ganesh_more
4 Replies

9. UNIX for Dummies Questions & Answers

How to using Regular expression to find file.?

Hi Gurus, I need to identify the file with below format: ABC20110101.DAT ABCD2011010103.DAT If I use ABC*\.DAT, it get two file. I want to get file after "ABC' then number, the ".DAT". I tried ABC* but it doesn't work. Thanks in advance. (9 Replies)
Discussion started by: ken6503
9 Replies

10. Shell Programming and Scripting

How to find regular expression for two files?

I have files: sum_<INPUT FILENAME>.YYYYMMDDhhmmss.csv and sum_details_<INPUT FILENAME>.YYYYMMDDhhmmss.csv I have no idea, what is input filename, but in the code I would like to catch them in case I process them in the loop above case statement for *.${Today}.*.txt... (3 Replies)
Discussion started by: digioleg54
3 Replies

LEARN ABOUT DEBIAN

imgsize

IMGSIZE(1p)						User Contributed Perl Documentation					       IMGSIZE(1p)

NAME

       imgsize - read the dimensions of an image in several popular formats

USAGE

	imgsize [ -r | -a | -f fmt ] file [ file ... ]

DESCRIPTION

       No-brainer to size an image supplied on the command-line. All the real work is done in Image::Size.

REQUIRED ARGUMENTS

       imgsize expects file names on the command-line. If more than one file is provided, the file name will be included in the output:

	   % imgsize dot.gif
	   width="16" height="16"
	   % imgsize dot.gif dash.gif
	   dot.gif: width="16" height="16"
	   dash.gif: width="32" height="8"

OPTIONS

       By default, the width and height are returned as attributes for an IMG tag in HTML, essentially "width="40" height="30"" or similar. The
       following options may be used to return alternate formats (all report width first, then height):

       "-r"
	   Return "raw" format data. Just the numbers separated by a single space.

       "-a"
	   Return a Perl-style list of attributes suitable for passing to the "img()" method of the CGI module (see CGI).

       "-f" fmt
	   Pass the string specified in fmt to "sprintf" and thus use it to format the results to your taste. "sprintf" will be passed two
	   numbers, so any other formatting directives will be lost. The numbers are passed as width first, then height.

EXIT STATUS

       imgsize always exits

BUGS

       Please report any bugs or feature requests to "bug-image-size at rt.cpan.org", or through the web interface at
       http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Image-Size <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Image-Size>. I will be notified,
       and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

       o   RT: CPAN's request tracker

	   http://rt.cpan.org/NoAuth/Bugs.html?Dist=Image-Size <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Image-Size>

       o   AnnoCPAN: Annotated CPAN documentation

	   http://annocpan.org/dist/Image-Size <http://annocpan.org/dist/Image-Size>

       o   CPAN Ratings

	   http://cpanratings.perl.org/d/Image-Size <http://cpanratings.perl.org/d/Image-Size>

       o   Search CPAN

	   http://search.cpan.org/dist/Image-Size <http://search.cpan.org/dist/Image-Size>

       o   Project page on GitHub

	   http://github.com/rjray/image-size <http://github.com/rjray/image-size>

LICENSE AND COPYRIGHT

       Copying and distribution are permitted under the terms of the Artistic License 2.0
       (http://www.opensource.org/licenses/artistic-license-2.0.php <http://www.opensource.org/licenses/artistic-license-2.0.php>) or the GNU LGPL
       2.1 (http://www.opensource.org/licenses/lgpl-2.1.php <http://www.opensource.org/licenses/lgpl-2.1.php>).

SEE ALSO

       Image::Size

AUTHOR

       Randy J. Ray "<rjray@blackperl.com>".

perl v5.14.2							    2012-06-08							       IMGSIZE(1p)
All times are GMT -4. The time now is 03:42 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy