Help with understanding this regex in a Perl script parsing a 'complex' string Post: 303035080

Sponsored Content

Top Forums UNIX for Beginners Questions & Answers Help with understanding this regex in a Perl script parsing a 'complex' string Post 303035080 by RudiC on Tuesday 14th of May 2019 03:36:54 AM

05-14-2019

Registered User

My perl is non-existent, so no help possible here. But - why not a simple awk solution, like

Code:

awk '
match ($4, "SERVICE_NAME=" SRV) {if (match ($4, /PROGRAM=[^)]*/)) P  = substr ($4, RSTART, RLENGTH)
                                 if (match ($4, /USER=[^)]*/))    U  = substr ($4, RSTART, RLENGTH)
                                 if (match ($4, /HOST=[^)]*/))    H  = substr ($4, RSTART, RLENGTH)
                                 if (match ($6, /HOST=[^)]*/))    IP = substr ($6, RSTART, RLENGTH)
                                 print P, H, U, IP
                                }
' SRV="fail_app" OFS="\t" file2
PROGRAM=C:\Windows\system32\exec01.exe    HOST=MNLAPP01    USER=!sysadmin01    HOST=10.11.11.123
PROGRAM=C:\Windows\system32\exec02.exe    HOST=MNLAPP01    USER=!sysadmin01    HOST=10.11.11.123
PROGRAM=C:\Windows\system32\exec03.exe    HOST=MNLAPP01    USER=!sysadmin01    HOST=10.11.11.123
PROGRAM=C:\Windows\system32\exec01.exe    HOST=MNLAPP01    USER=!sysadmin01    HOST=10.11.11.123

EDIT: or

Code:

awk '
function chop(FLD, STR)          {if (match ($FLD, STR "=[^)]*")) return substr ($FLD, RSTART, RLENGTH)
                                 }
match ($4, "SERVICE_NAME=" SRV)  {print chop(4, "PROGRAM"), chop(4, "USER"), chop(4,"HOST"), chop(6, "HOST")
                                 }
' SRV="fail_app" OFS="\t" file2

Last edited by RudiC; 05-14-2019 at 05:31 AM..

These 2 Users Gave Thanks to RudiC For This Post:

RudiC

View Public Profile for RudiC

Find all posts by RudiC

10 More Discussions You Might Find Interesting

1. Programming

Parsing a string in PERL

I have an extractfile (with fields delimited by pipes '|') and I want to prepend a counter based on the below requirements: - The counter starts at 3. - The counter increments only if the date (67th field of the extractfile) is different. Below is what I started off with: $cnt=2;...

2. Shell Programming and Scripting

Perl Regex string opperation

I'm working on a basic log parser in perl. Input file looks like: len: 120713 foo bar file size of: testdir1/testdir1/testdir1/testdir1/testfile0 is 120713Of course there are tens of thousands of lines... I'm trying to compare the len and filesize values. #!/usr/bin/perl use strict; use...

3. Shell Programming and Scripting

Need help understanding perl script error

I solicited this site earlier this week and got a good answer for a perl Script so I made this script from what understood from the answers But now I have a bug and I'm stump. It doesn't parse correctly the Output it stays on the first line My $f2 and reprints in a endless loop I'm sure there...

4. Shell Programming and Scripting

Perl REGEX - How do extract a string in a line?

Hi Guys, In the following line: cn=portal.090710.191533.428571000,cn=groups,dc=mp,dc=rj,dc=gov,dc=br I need to extract this string: portal.090710.191533.428571000 As you can see this string always will be bettween "cn=" and "," strings. Someone know one regular expression to...

5. Shell Programming and Scripting

Perl: Regex, string matching

Hi, I've a logfile which i need to parse and get the logs depending upon the user input. here, i'm providing an option to enter the string which can be matched with the log entries. e.g. one of the logfile entry reads like this - $str = " mpgw(BLUESOAPFramework):...

6. UNIX for Dummies Questions & Answers

Use Regex to identify / format a complex string

First of all, please have mercy on me. I am not a noob to programming, but I am about as noob as you can get with regex. That being said, I have a problem. I've got a string that looks something like this: Publication - Bob M. Jones, Tony X. Stark, and Fred D. Man, \"Really Awesome Article...

7. Shell Programming and Scripting

Complex Regex Perl

Hi the below perl snippet will replace any three letter string in the beginning with a two letter string which is specified..but if i want to modfiy only certain characters for eg.. ABC - AB CAB - AB AAA - No Modifcations 1AB - AB AB8 - AB Whatever coming before or after of AB only have...

8. Shell Programming and Scripting

perl regex string match issue..kindly help

i have a script in which i need to skip comments, and i am able to achieve it partially... IN text file: {**************************** {test : test...test } Script: while (<$fh>) { push ( @data, $_); } if ( $data =~ m/(^{\*+$)/ ){ } With the above match i am...

9. Shell Programming and Scripting

Parsing expect_out using regex in expect script

Hi, I am trying to write an expect script. Being a newbie in expect, maybee this is a silly doubt but i am stuck here. So essentially , i want the o/p of one router command to be captured . Its something like this Stats Input Rx : 1234 Input Bytes : 3456 My expect script looks ...

10. Shell Programming and Scripting

Help understanding perl script

Hello, A former sys admin placed this script on one of our boxes and it needs to be adjusted, but I'm not familiar with perl. Can someone help break this down for me? I'm particularly interested in the -mtime function. What's the time frame being referenced here. ...

LEARN ABOUT DEBIAN

pperl

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

NAME

       PPerl - Make perl scripts persistent in memory

SYNOPSIS

	 $ pperl foo.pl

DESCRIPTION

       This program turns ordinary perl scripts into long running daemons, making subsequent executions extremely fast. It forks several processes
       for each script, allowing many processes to call the script at once.

       It works a lot like SpeedyCGI, but is written a little differently. I didn't use the SpeedyCGI codebase, because I couldn't get it to
       compile, and needed something ASAP.

       The easiest way to use this is to change your shebang line from:

	 #!/usr/bin/perl -w

       To use pperl instead:

	 #!/usr/bin/pperl -w

WARNINGS

       Like other persistent environments, this one has problems with things like BEGIN blocks, global variables, etc. So beware, and try checking
       the mod_perl guide at http://perl.apache.org/guide/ for lots of information that applies to many persistent perl environments.

Parameters
	 $ pperl <perl params> -- <pperl params> scriptname <script params>

       The perl params are sent to the perl binary the first time it is started up.  See perlrun for details.

       The pperl params control how pperl works. Try -h for an overview.

       The script params are passed to the script on every invocation. The script also gets any current environment variables, the current working
       directory, and everything on STDIN.

Killing
       In order to kill a currently running PPerl process, use:

	 pperl -- -k <scriptname>

       You need to make sure the path to the script is the same as when it was invoked.

       Alternatively look for a .pid file for the script in your tmp directory, and kill (with SIGINT) the process with that PID.

ENVIRONMENT

       pperl uses the PPERL_TMP_PATH environment variable to determine the directory where to store the files used for inter-process
       communication.  By default, the subdirectory .pperl of the user's home directory is used.

BUGS

       The process does not reload when the script or modules change.

       $^S is not represented identically with respect to perl, since your script will be run within an eval block

AUTHOR

       Matt Sergeant, matt@sergeant.org. Copyright 2001 MessageLabs Ltd.

SEE ALSO

       perl. perlrun.

perl v5.14.2							    2011-11-15								 PPERL(1p)

10 More Discussions You Might Find Interesting

1. Programming

Parsing a string in PERL

Discussion started by: ChicagoBlues

2. Shell Programming and Scripting

Perl Regex string opperation

Discussion started by: dkozel

3. Shell Programming and Scripting

Need help understanding perl script error

Discussion started by: Ex-Capsa

4. Shell Programming and Scripting

Perl REGEX - How do extract a string in a line?

Discussion started by: maverick-ski