Search from 1st match and end 2nd match Post: 302965480

Sponsored Content

Top Forums Shell Programming and Scripting Search from 1st match and end 2nd match Post 302965480 by Aia on Friday 29th of January 2016 02:22:46 PM

01-29-2016

Registered User

I wonder if this does what you want?

Code:

perl -00 -ne '/vlan\s+\/Common\/VLAN2(15|33)/ and next; s/\s+\/Common\/VLAN2(15|33)//g; print' djzah.vlan

Code:

net route-domain /Common/0 {
    id 0
    vlans {
        /Common/Interconnect
        /Common/Sync-Failover
        /Common/VLAN221
        /Common/VLAN252
        /Common/VLAN216
    }
}

net stp /Common/cist {
    interfaces {
        1.1 {
            external-path-cost 20000
            internal-path-cost 20000
        }
    }
    trunks {
        Bonded.Pair {
            external-path-cost 20000
            internal-path-cost 20000
        }
    }
    vlans {
        /Common/Interconnect
        /Common/Sync-Failover
        /Common/VLAN216
        /Common/VLAN221
        /Common/VLAN252
    }
}

net route-domain /Common/0 {
    id 0
    vlans {
        /Common/Interconnect
        /Common/Sync-Failover
        /Common/VLAN221
        /Common/VLAN252
        /Common/VLAN216
    }
}

net stp /Common/cist {
    interfaces {
        1.1 {
            external-path-cost 20000
            internal-path-cost 20000
        }
    }
    trunks {
        Bonded.Pair {
            external-path-cost 20000
            internal-path-cost 20000
        }
    }
    vlans {
        /Common/Interconnect
        /Common/Sync-Failover
        /Common/VLAN216
        /Common/VLAN221
        /Common/VLAN252
    }
}

net route-domain /Common/0 {
    id 0
    vlans {
        /Common/Interconnect
        /Common/Sync-Failover
        /Common/VLAN221
        /Common/VLAN252
        /Common/VLAN216
    }
}

Aia

View Public Profile for Aia

Find all posts by Aia

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Regular Expression - match 'b' that follows 'a' and is at the end of a string

Hi, I'm struggling with a regex that would match a 'b' that follows an 'a' and is at the end of a string of non-white characters. For example: Line 1: aba abab b abb aab bab baa I can find the right strings but I'm lacking knowledge of how to "discard" the bits that precede bs....

2. Shell Programming and Scripting

exact string match ; search and print match

I am trying to match a pattern exactly in a shell script. I have tried two methods awk '/\<mpath${CURR_MP}\>/{print $1 $2}' multipath perl -ne '/\bmpath${CURR_MP}\b/ and print' /var/tmp/multipath Both these methods require that I use the escape character. I am guessing that is why...

3. Programming

sed no match word end with hyphen

Hi, This is my first post.It has two parts first part: I want to match a line that starts with whitespace tab or similar followed by must start with specific word and not match same word start with hyphen like this: grep height file1: height: 150px; line-height: 1.5em; height:...

4. Shell Programming and Scripting

Pattern match till the end of the file.

I have a file which is like this ……………………………………….. ………………………………… ………………………………… …………………………………… ……………………………………. ……………………………… <<<from_here>>> ……………………………… ………………………………. I want a script which would fetch the data starting from <<<from_here>>> in the file till the end...

5. Shell Programming and Scripting

Conversion if 1st column is match (awk '{s+=$1} END

Hi im trying to add numbers, got no problem with it im using awk '{s+=$1} END {print s, "MB"}', but what if the numbers are like mention below. who will i add them 2000 KB 1 MB Answer: 2001 Desired: 2000 KB 1 MB Answer: 3000

6. Shell Programming and Scripting

Grep from match to the end of file

Hi i have this script : #!/bin/bash DATE=$(date '+%Y-%m-%d %H:%M' -d "1 hour ago") PASS=$(grep -A99999999999 '$DATE' /var/log/asterisk/full| grep -i 'Wrong password') it a script that ment to go over log file a hour back from now until the end of file. right now im using...

7. Shell Programming and Scripting

sed print from last occurrence match until the end of last occurrence match

Hi, i have file file.txt with data like: START 03:11:30 a 03:11:40 b END START 03:13:30 eee 03:13:35 fff END jjjjjjjjjjjjjjjjjjjjj START 03:14:30 eee 03:15:30 fff END ggggggggggg iiiiiiiiiiiiiiiiiiiiiiiii I want the below output START

8. Shell Programming and Scripting

Search file containing ps results for a match "my.cnf" and then for a second match . "ok:" and

I need to find two matches in the output from ps. I am searching with ps -ef |grep mysql for: my.cnf /bin/sh /usr/bin/mysqld_safe --defaults-file=/data/mysql/master/agis_core/etc/my.cnf after this match I want to search back and match the hostname which is x number of lines back, above the...

9. UNIX for Beginners Questions & Answers

Compare 1st column from 2 file and if match print line from 1st file and append column 7 from 2nd

hi I have 2 file with more than 10 columns for both 1st file apple,0,0,0...... orange,1,2,3..... mango,2,4,5..... 2nd file apple,2,3,4,5,6,7... orange,2,3,4,5,6,8... watermerlon,2,3,4,5,6,abc... mango,5,6,7,4,6,def....

10. UNIX for Beginners Questions & Answers

Data match 2 files based on first 2 columns matching only and join if match

Hi, i have 2 files , the data i need to match is in masterfile and i need to pull out column 3 from master if column 1 and 2 match and output entire row to new file I have tried with join and awk and i keep getting blank outputs or same file is there an easier way than what i am...

LEARN ABOUT DEBIAN

regexp::common::whitespace

Regexp::Common::whitespace(3pm) 			User Contributed Perl Documentation			   Regexp::Common::whitespace(3pm)

NAME

       Regexp::Common::whitespace -- provides a regex for leading or trailing whitescape

SYNOPSIS

	   use Regexp::Common qw /whitespace/;

	   while (<>) {
	       s/$RE{ws}{crop}//g;	     # Delete surrounding whitespace
	   }

DESCRIPTION

       Please consult the manual of Regexp::Common for a general description of the works of this interface.

       Do not use this module directly, but load it via Regexp::Common.

   $RE{ws}{crop}
       Returns a pattern that identifies leading or trailing whitespace.

       For example:

	       $str =~ s/$RE{ws}{crop}//g;     # Delete surrounding whitespace

       The call:

	       $RE{ws}{crop}->subs($str);

       is optimized (but probably still slower than doing the s///g explicitly).

       This pattern does not capture under "-keep".

SEE ALSO

       Regexp::Common for a general description of how to use this interface.

AUTHOR

       Damian Conway (damian@conway.org)

MAINTAINANCE

       This package is maintained by Abigail (regexp-common@abigail.be).

BUGS AND IRRITATIONS

       Bound to be plenty.

       For a start, there are many common regexes missing.  Send them in to regexp-common@abigail.be.

LICENSE and COPYRIGHT
       This software is Copyright (c) 2001 - 2009, Damian Conway and Abigail.

       This module is free software, and maybe used under any of the following licenses:

	1) The Perl Artistic License.	  See the file COPYRIGHT.AL.
	2) The Perl Artistic License 2.0. See the file COPYRIGHT.AL2.
	3) The BSD Licence.		  See the file COPYRIGHT.BSD.
	4) The MIT Licence.		  See the file COPYRIGHT.MIT.

perl v5.14.2							    2010-02-23					   Regexp::Common::whitespace(3pm)