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

Sponsored Content

Top Forums Shell Programming and Scripting replace awk with a perl one liner (REGEXP and FS) Post 302597421 by bora99 on Friday 10th of February 2012 09:20:28 AM

02-10-2012

Registered User

Quote:

Originally Posted by jim mcnamara

Ok, but be aware: perl is NOT POSIX so it is not guaranteed to be on a given unix box.

this is new for me but for me issue : the behaviour of REGEXP is the same at all os versions? right ? i have to test it !

---------- Post updated at 03:20 PM ---------- Previous update was at 03:03 PM ----------

Quote:

Originally Posted by Corona688

Improve your awk script, I'd say... Surely it's possible to make it portable, if it isn't already. The only thing I see which might not be completely portable is the -v. In what way does it not work, and on what particular platform?

Code:

What does (+search_string) mean, anyway?

it is here a example, some i want to search with strings that includes "/" ( like filesystems) . so i use -v . but when i have it in a "awk" variable, it isn't easy to use REGEXP
Try

Code:

awk -F# '$1 ~ search_string { print $1,$2,$3,$4 }' search_string="${search_string}" file

(+search_string) : i want to match zero or more occurrences before the "search_string" like the REGEXP of "grep" .*

how i use REGEXP for awk for following examples :

+++++++++++++++++++++++++++++++++++++++++++++
easy:
awk -F# '$1 ~ search_string { print $1,$2,$3,$4 }' file:
search_string="search_value"

i search with example above , but not including in search "+"
file:
;;search_value1#field1#field2#junk#junk#junk#junk
;;search_value2#field1#field2#junk#junk#junk#junk

+++++++++++++++++++++++++++++++++++++++++++++
search_string="search_value1"
i want to search only "search_value1"

file:
;;search_value1#field1#field2#junk#junk#junk#junk
;;search_value11#field1#field2#junk#junk#junk#junk

+++++++++++++++++++++++++++++++++++++++++++++
search_string="search_value1"
i want to search all with "search_value1*" (example: search_value1,search_value11,search_value111, not search_value121)

file:
;;search_value1#field1#field2#junk#junk#junk#junk
;;search_value11#field1#field2#junk#junk#junk#junk
;;search_value111#field1#field2#junk#junk#junk#junk
;;search_value121#field1#field2#junk#junk#junk#junk

regards

bora99

View Public Profile for bora99

Find all posts by bora99

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 -...

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...

3. Shell Programming and Scripting

Search & Replace regex Perl one liner to AWK one liner

Thanks for giving your time and effort to answer questions and helping newbies like me understand awk. I have a huge file, millions of lines, so perl takes quite a bit of time, I'd like to convert these perl one liners to awk. Basically I'd like all lines with ISA sandwiched between...

4. Shell Programming and Scripting

Advanced AWK Regexp substring to int & Replace

Hi! I have a difficult problem, to step up a unknown version number in a text file, and save the file. It would be great to run script.sh and the version gets increased. Example the content of the textfile.txt hello version = x bye This include three steps 1. First find the char after...

5. 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...

6. 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?

7. Shell Programming and Scripting

awk, sed or perl regexp to print values from file

Hello all According to the following file (orignal one contains 200x times the same structure...) I was wondering if someone could help me to print <byte>??</byte> values example, running this script/command like ./script.sh xxapp I would expect as output: 102 116 112 ./script.sh xxapp2...

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.

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) ...

10. Shell Programming and Scripting

find and Replace String in Perl - Regexp

Trying to find and replace one string with another string in a file #!/usr/bin/perl $csd_table_path = "/file.ntab"; $find_str = '--bundle_type=021'; $repl_str = '--bundle_type=021 --target=/dev/disk1s2'; if( system("/usr/bin/perl -p -i -e 's/$find_str/$repl_str/' $csd_table_path")...

LEARN ABOUT FREEBSD

active

ACTIVE(5)                                                       File Formats Manual                                                      ACTIVE(5)

NAME

       active, active.times - list of active Usenet newsgroups

DESCRIPTION

       The  file  /var/lib/news/active  lists  the newsgroups that the local site receives.  Each newsgroup should be listed only once.  Each line
       specifies one group; their order in the file does not matter.  Within each newsgroup, articles are assigned unique names, which  are  mono-
       tonically increasing numbers.

       If  an article is posted to newsgroups not mentioned in this file, those newsgroups are ignored.  If no valid newsgroups are specified, the
       article is filed into the newsgroup ``junk'' and only propagated to sites that receive the ``junk'' newsgroup.

       Each line consists of four fields specified by a space:

                      name himark lomark flags

       The first field is the name of the newsgroup.  The second field is the highest article number that has been used in  that  newsgroup.   The
       third field is the lowest article number in the group; this number is not guaranteed to be accurate, and should only be taken to be a hint.
       Note that because of article cancellations, there may be gaps in the numbering sequence.  If the lowest article number is greater then  the
       highest  article  number,  then  there  are no articles in the newsgroup.  In order to make it possible to update an entry in-place without
       rewriting the entire file, the second and third fields are padded out with leading zeros to make them a fixed width.

       The fourth field can contain one of the following flags:

              y        Local postings are allowed
              n        No local postings are allowed, only remote ones
              m        The group is moderated and all postings must be approved
              j        Articles in this group are not kept, but only passed on
              x        Articles cannot be posted to this newsgroup
              =foo.bar Articles are locally filed into the ``foo.bar'' group

       If a newsgroup has the ``j'' flag, then no articles will be filed into that newsgroup and local postings to that group should not be gener-
       ated.   If an article for such a newsgroup is received from a remote site, it will be filed into the ``junk'' newsgroup if it is not cross-
       posted.  This is different from not having a newsgroup listed in the file because sites can subscribe to ``j'' newsgroups and  the  article
       will be propagated to them.

       If  the  fourth  field  of a newsgroup starts with an equal sign, then the newsgroup is an alias.  Articles can be posted to the group, but
       will be treated as if they were posted to the group named after the equal sign.  The second and third fields are ignored.   Note  that  the
       Newsgroup  header  is  not  modified  (Alias groups are typically used during a transition, and are typically created with ctlinnd(8)).  An
       alias newsgroup should not point to another alias.

       The file /var/lib/news/active.times provides a chronological record of when newsgroups are created.   This  file  is  normally  updated  by
       innd(8) whenever a ctlinnd ``newgroup'' command is done.  Each line consist of three fields:

              name time creator

       The  first  field  is the name of the newsgroup.  The second field is the time it was created, expressed as the number of seconds since the
       epoch -- i.e., a time_t; see gettimeofday(2).  The third field is the electronic mail address of the person who created the group.

HISTORY

       Written by Rich $alz <rsalz@uunet.uu.net> for InterNetNews.  This is revision 1.13, dated 1996/10/29.

SEE ALSO

       ctlinnd(8), innd(8).

                                                                                                                                         ACTIVE(5)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk/perl one-liner assist

Discussion started by: gameboy87

2. Shell Programming and Scripting

awk multiple-line search and replace one-liner

Discussion started by: louisJ

3. Shell Programming and Scripting

Search & Replace regex Perl one liner to AWK one liner

Discussion started by: verge

4. Shell Programming and Scripting

Advanced AWK Regexp substring to int & Replace

Discussion started by: Beachboy72