Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Search & Replace regex Perl one liner to AWK one liner
Top Forums Shell Programming and Scripting Search & Replace regex Perl one liner to AWK one liner Post 302536561 by verge on Wednesday 6th of July 2011 02:04:35 PM
Old 07-06-2011
Hi and thanks Danmero!

Here are a few sample lines ... I only want the lines with red ISA on a new line not the ones in purple ISA ... I know its a bit messy ... I can explain the logic/syntax of the file, if you'd like

Code:
          ISA~00~          ~00~          ~ZZ~SEND  MFG       ~ZZ~RECV MFG       ~110616~2235~U~00200~000003972~0~P~\
GS~FA~SEND  MFG~RECV MFG~20110616~2235~4075~X~004010
ST~997~00001
AK1~SH~4075
AK2~856~000008260
AK5~AISATF
AK9~A~00001~00001~00001
SE~006~00001
GE~00001~4075
IEA~00001~000003972&ISA!00!SEND DATA  !00!SEND DATA  !ZZ!SEND  PDCPO     !ZZ!RECV            !110616!1540!U!00401!000009564!0!P!:
GS!FA!SEND  PDCPO!RECV!20110616!1540!9669!X!004010
ST!997!000021081
AK1!SH!12738
AK9!A!1!1!1
SE!4!000021081
GE!1!9669
IEA~1~00000956`ISA~00~SEND DATA  ~00~SEND DATA  ~ZZ~SEND  PDCPO     ~ZZ~RECV            ~110616~1540~U~00401~000009565~0~P~:>GS~FA~SEND  PDCPO~RECV~20110616~1540~9670~X~004010>ST~997~000021082>AK1~SH~12739>AK9~A~1~1~1>SE~4~000021082>GE~1~9670>IEA~1~000009565

---------- Post updated 07-06-11 at 11:04 AM ---------- Previous update was 07-05-11 at 05:38 PM ----------

Thought I'd add some details on the file.

ISA, GS, ST, AK1, AK2, AK5, AK9, SE, GE, IEA are line headers and generally follow the same order. ISA is the beginning of the record, IEA is the end of the record. There are tens of thousands of records in a given file.

The file also has non-word character field seperators (ie ~ !), it also has line seperators (either a newline or non-word character, later an awk script will change all [\W] to newlines)
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk/perl one-liner assist

In a ~4GB file there are lines like, 13.13.4.3 Googe.com - Jan/23/2011:00:00:00 +0000 "URL Google HTTP/1.1" 45 56 208 - "http://www.gogle.com/webhp?hl=en&tab=nw#hl=en&source=hp&biw=1366&bih=667&q=hello&aq=f&aqi=&aql=&oq=&fp=c432485467934a89" ".Net; Fox" - 13.145.3.3 Goge.com -... (3 Replies)
Discussion started by: gameboy87
3 Replies

2. Shell Programming and Scripting

awk multiple-line search and replace one-liner

Hi I am trying to search and replace a multi line pattern in a php file using awk. The pattern starts with <div id="navbar"> and ends with </div> and spans over an unknown number of lines. I need the command to be a one liner. I use the "record separator" like this : awk -v... (8 Replies)
Discussion started by: louisJ
8 Replies

3. Shell Programming and Scripting

awk: Multiple search patterns & print in an one liner

I would like to print result of multiple search pattern invoked from an one liner. The code looks like this but won't work gawk -F '{{if ($0 ~ /pattern1/) pat1=$1 && if ($0 ~ /pattern2/) pat2=$2} ; print pat1, pat2}' Can anybody help getting the right code? (10 Replies)
Discussion started by: sdf
10 Replies

4. Shell Programming and Scripting

Need an awk / sed / or perl one-liner to remove last 4 characters with non-unique pattern.

Hi, I'm writing a ksh script and trying to use an awk / sed / or perl one-liner to remove the last 4 characters of a line in a file if it begins with a period. Here is the contents of the file... the column in which I want to remove the last 4 characters is the last column. ($6 in awk). I've... (10 Replies)
Discussion started by: right_coaster
10 Replies

5. Shell Programming and Scripting

Replacing Awk with One-liner Perl

can someone help me translate the following command, from: /usr/bin/awk "/^$TOFDAYM $TOFDAYD /,0" $LOGFILE to something like perl -e ..... basically, i want to use perl to do awk functions within a shell script. i want to do the above awk, using perl. any suggestions? (9 Replies)
Discussion started by: SkySmart
9 Replies

6. UNIX for Dummies Questions & Answers

One liner pattern search with awk/sed/grep

I have an array containing bunch of characters. I have to check this array for specific character and if "Not Found than" use a goto statement to go to USAGE set options = (A B C D E F) @ i = 0 while ($i <= ${#options}) if ($options != "F" || $options != "D") then goto USAGE endif @... (1 Reply)
Discussion started by: dixits
1 Replies

7. Shell Programming and Scripting

replace awk with a perl one liner (REGEXP and FS)

hello, I want to replace awk with a perl one liner in unix. i use in awk REGEX and FS ( field separator) because awk syntaxes in different unix os versions have not the same behaviour. Awk, Nawk and GNU Awk Cheat Sheet - good coders code, great reuse i have a file named "file" and want... (5 Replies)
Discussion started by: bora99
5 Replies

8. UNIX for Dummies Questions & Answers

Perl one liner to replace text

Not quite a unix question but problem in a perl command. Taking a chance if someone knows about the error cat 1 a b c d perl -p -e 's/a/b/g' 1 b b c d What is the problem here?? perl -p -i -e 's/a/b/g' 1 Can't remove 1: Text file busy, skipping file. (2 Replies)
Discussion started by: analyst
2 Replies

9. UNIX for Dummies Questions & Answers

What awk 1-liner will replace value in 1stField of a delimited file with the value of '5' ?

Hi, I am a newbie to awk. Here is my problem. Looking for an awk 1-liner to solve it: My Computing Environment: - Solaris10 - I prefer to use csh or sh shells 1. Lets say my input file is File1.dat (delimter = | ) and looks as follows: (File1.dat) ... (1 Reply)
Discussion started by: andy b
1 Replies

10. Shell Programming and Scripting

PERL one liner

hi, I am using PERL one liner for oracle database connection as : $PERL -e "use DBI; DBI->connect(qw(DBI:Oracle:SID user passwd));" is there a way to append select statement to this connection ? i.e. DB connection and select stmt in one line ? how to do sysdba connection using one lines... (1 Reply)
Discussion started by: talashil
1 Replies

LEARN ABOUT DEBIAN

mencal

mencal(1)								 1								 mencal(1)

NAME

       mencal - menstruation calendar

SYNOPSIS

       mencal [options] [file1 file2 ... -c CONF1 -c CONF2 ...]

DESCRIPTION

   Display options:
       -m, --monday
	      draw monday as first weekday (sunday is default)

       -1     current month (default)

       -3     previous, current and next month

       -y [YYYY]
	      all-year calendar (default YYYY is current year)

       -q, --quiet
	      no top information will be printed

       -n, --nocolor
	      noncolored output

       -i, --icolor COLOR
	      intersection color (default red)

	      available colors: red, green, blue, yellow, violet, cyan, shiny, bold

   mencal configuration:
       -c, --config
	      s=[YYYY]MMDD,l=LL,d=DD,n=NAME,f=FILE,c=COLOR

	      The  second argument is a comma separated list of options. No spaces are allowed in this list. If no name is specified, 'Unknown' is
	      used.  Various -c options or filenames can be set.

       s,start=[YYYY]MMDD
	      start day of period (default current day)

       l,length=LL
	      length of period in days (default 28)

       d,duration=D
	      duration of menstruation in days (default 4)

       n,name=NAME
	      name of subject

       f,file=FILE
	      filename to save configuration to (see section FILES)

	      only menstruation related variables will be saved

       c,color=COLOR
	      color used for menstruation days

	      available colors: red, green, blue, yellow, violet, cyan, shiny, bold default color is red, with	'-n'  switch  color  settings  are
	      ignored

   Info options:
       -h, --help
	      print help

       -V, --version
	      print version information

FILES
:
       $HOME/.mencalrc - the default configuration file that is automatically loaded

AUTHOR
:
       (C) 2002 C. McCohy
       e-mail: <mccohy@kyberdigi.cz>
       Word-Wide-Web: http://www.kyberdigi.cz/projects/mencal/english

       This  manual  page  was	written for the Debian GNU/Linux distribution because the original program does not have a manual page (but may be
       used by others).

HISTORY

       22 March 2002 - Originally written by Amaya Rodrigo <amaya@debian.org>.
       24 Apr 2002 - New manpage contributed by Pablo S. Torralba <psanchez@skyrealms.org>.
       Amaya Rodrigo <amaya@debian.org> is now responsible for developing and maintaining this manual page. Comments and suggestions  are  greatly
       wellcome.

mencal							       Menstruation calendar							 mencal(1)
All times are GMT -4. The time now is 04:43 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy