Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Help with understanding this regex in a Perl script parsing a 'complex' string
Top Forums UNIX for Beginners Questions & Answers Help with understanding this regex in a Perl script parsing a 'complex' string Post 303035639 by RudiC on Wednesday 29th of May 2019 03:35:23 PM
Old 05-29-2019
OK, let's use the star (*) as the field separator, and don't forget to adapt the SRV variable:
Code:
awk '
function chop(FLD, STR)          {if (match ($FLD, STR "=[^)]*")) return substr ($FLD, RSTART, RLENGTH)
                                 }
match ($0, "SERVICE_NAME=" SRV)  {print chop(2, "PROGRAM"), chop(2, "USER"), chop(2,"HOST"), chop(3, "HOST")
                                 }
' SRV="work_app" FS="\*" OFS="\t" file1
PROGRAM=JDBC Thin Client    USER=mickey    HOST=__jdbc__    HOST=12.123.11.123
PROGRAM=SQL Developer    USER=minnie    HOST=__jdbc__    HOST=10.214.14.29
PROGRAM=JDBC Thin Client    USER=mickey    HOST=__jdbc__    HOST=12.123.11.123
PROGRAM=SQL Developer    USER=minnie    HOST=__jdbc__    HOST=10.214.14.29

Code:
awk '
function chop(FLD, STR)          {if (match ($FLD, STR "=[^)]*")) return substr ($FLD, RSTART, RLENGTH)
                                 }
match ($0, "SERVICE_NAME=" SRV)  {print chop(2, "PROGRAM"), chop(2, "USER"), chop(2,"HOST"), chop(3, "HOST")
                                 }
' SRV="work_app" FS="\*" OFS="\t" file2
philipp@philipp-All-Series:~/MediathekView/playground$ awk '
function chop(FLD, STR)          {if (match ($FLD, STR "=[^)]*")) return substr ($FLD, RSTART, RLENGTH)
                                 }
match ($0, "SERVICE_NAME=" SRV)  {print chop(2, "PROGRAM"), chop(2, "USER"), chop(2,"HOST"), chop(3, "HOST")
                                 }
' SRV="fail_app" FS="\*" OFS="\t" file2
PROGRAM=C:\Windows\system32\exec01.exe    USER=!sysadmin01    HOST=MNLAPP01    HOST=10.11.11.123
PROGRAM=C:\Windows\system32\exec02.exe    USER=!sysadmin01    HOST=MNLAPP01    HOST=10.11.11.123
PROGRAM=C:\Windows\system32\exec03.exe    USER=!sysadmin01    HOST=MNLAPP01    HOST=10.11.11.123
PROGRAM=C:\Windows\system32\exec01.exe    USER=!sysadmin01    HOST=MNLAPP01    HOST=10.11.11.123

 

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;... (3 Replies)
Discussion started by: ChicagoBlues
3 Replies

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... (2 Replies)
Discussion started by: dkozel
2 Replies

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... (3 Replies)
Discussion started by: Ex-Capsa
3 Replies

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... (4 Replies)
Discussion started by: maverick-ski
4 Replies

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 Replies)
Discussion started by: butterfly20
6 Replies

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... (1 Reply)
Discussion started by: egill
1 Replies

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... (2 Replies)
Discussion started by: rajkrishna89
2 Replies

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... (5 Replies)
Discussion started by: avskrm
5 Replies

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 ... (5 Replies)
Discussion started by: ashy_g
5 Replies

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. ... (5 Replies)
Discussion started by: bbbngowc
5 Replies

LEARN ABOUT DEBIAN

oggz-chop

oggz-chop(1)						      General Commands Manual						      oggz-chop(1)

NAME

       oggz-chop -- Extract the part of an Ogg file between given start and/or end times.

SYNOPSIS

       oggz-chop [-o filename  | --output filename ]  [-s start_time  | --start start_time ]  [-e end_time  | --end end_time ]	[-k  | --no-skele-
       ton ] filename

       oggz-chop [-h  | --help ]  [-v  | --version ]

Description
       oggz-chop chops a section of an Ogg file.  It correctly interprets the granulepos timestamps of Ogg CELT, CMML,	Dirac,	FLAC,  Kate,  PCM,
       Speex, Theora and Vorbis bitstreams.  Run oggz-known-codecs(1) for a full list of codecs known by the installed version of oggz.

       The  output  file contains copies of the headers of the input file, and all the codec data required to correctly decode the content between
       the start and end times specified on the commandline. For codecs with data dependencies like video keyframes, the  keyframe  prior  to  the
       starting time will be included in the output.

       Note  that  oggz-chop operates by copying pages of Ogg data; it does not strip partial packets from the first or last data page included in
       the output. It does however ensure to set the end of stream flag on the last page of each logical bitstream.

       Skeleton handling: By default, the output will contain a Skeleton track specifying the start of the chop as presentation time.

Options
       oggz-chop accepts the following options:

   Output options
       -o filename, --output filename
		 Write output to the specified filename instead of printing it to standard output.

       -s start_time, --start start_time
		 Specify the start time of the chopped section to output.

       -e end_time, --end end_time
		 Specify the end time of the chopped section to output.

       -k , --no-skeleton
		 Do NOT include a Skeleton bitstream in the output.

       -h, --help
		 Display usage information and exit.

       -v, --version
		 Output version information and exit.

EXAMPLES

       Extract the first minute of file.ogx:

	      oggz chop -e 1:00 file.ogx

       Extract from the second to the fifth minute of file.ogx:

	      oggz chop -s 2:00 -e 5:00 -o output.ogx file.ogx

       Extract, specifying SMPTE-25 frame offsets:

	      oggz chop -s smpte-25:00:02:03::12 -e smpte-25:00:05:02::04 -o output.ogv file.ogv

Server configuration
       The following configuration for Apache httpd will enable oggz-chop. As with most Apache directives, this may of	course	be  restricted	to
       particular Directories or Locations:

       ScriptAlias /oggz-chop /usr/bin/oggz-chop

       Action application/ogg /oggz-chop

   HTTP/1.1 Cacheability
       oggz-chop generates Last-Modified HTTP headers, and responds correctly to If-Modified-Since conditional GET requests.

AUTHOR

       Conrad Parker	    February 25, 2008;

COPYRIGHT

       Copyright (C) 2008 Annodex Association

SEE ALSO

       oggz-validate(1), oggz-merge(1), oggz-dump(1), hogg(1)

																      oggz-chop(1)
All times are GMT -4. The time now is 05:32 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy