Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: print last matched pattern using perl
Top Forums Shell Programming and Scripting print last matched pattern using perl Post 302217484 by Annihilannic on Wednesday 23rd of July 2008 12:11:31 AM
Old 07-23-2008
How about:

Code:
#! /usr/bin/perl -s -wnl
/(aaa|bbb)/ and $last{$1}=$_;
END { print $last{"aaa"}; print $last{"bbb"} }

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

HELP! PERL script to find matched pattern

Hi all, I just learnt Perl and I encountered a problem in my current project. For a verilog file, i am required to write a PERL script that could match pattern to output nitrolink and nitropack. I wont know what name to grep except the pattern below. the verilog file: nitrolink nitrolink... (1 Reply)
Discussion started by: kimhuat
1 Replies

2. Shell Programming and Scripting

SED: delete and print the only exact matched pattern

I am really need help with the regular expression in SED. From input file, I need to extract lines that have the port number (sport or dport) as defined. The input file is something like this time=1209515280-1209515340 dst=192.168.133.202 src=208.70.8.23 bytes=2472 proto=6 sport=80 dport=1447... (6 Replies)
Discussion started by: new_buddy
6 Replies

3. Shell Programming and Scripting

How to print lines till till a pattern is matched in loop

Dear All I have a file like this 112534554 446538656 444695656 225696966 226569744 228787874 113536566 443533535 222564552 115464656 225445345 225533234 I want to cut the file into different parts where the first two columns are '11' . The first two columns will be either... (3 Replies)
Discussion started by: anoopvraj
3 Replies

4. Linux

Perl program to print previous set of lines once a pattern is matched

Hi all, I have a text data file. My aim here is to find line called *FIELD* AV for every record and print lines after that till *FIELD* RF. But here I want first 3 to four lines for very record as well. FIELD AV is some where in between for very record. SO I am not sure how to retrieve lines in... (2 Replies)
Discussion started by: kaav06
2 Replies

5. Shell Programming and Scripting

print the whole row in awk based on matched pattern

Hi, I need some help on how to print the whole data for unmatched pattern. i have 2 different files that need to be checked and print out the unmatched patterns into a new file. My sample data as follows:- File1.txt Id Num Activity Class Type 309 1.1 ... (5 Replies)
Discussion started by: redse171
5 Replies

6. Shell Programming and Scripting

Print only matched pattern in perl

Hi, I have script like below: #!/usr/local/bin/perl use strict; use warnings; while (<DATA>) { ( my ($s_id) = /^\d+\|(\d+?)\|/ ) ; if ( $s_id == 1 ){ s/^(.*\|)*.*ABC\.pi=(+|+)*.*ABC\.id=(\d+|+).*$/$1$2|$3/s; print "$1$2|$3\n"; (2 Replies)
Discussion started by: sol_nov
2 Replies

7. Shell Programming and Scripting

Print line between two patterns when a certain pattern matched

Hello Friends, I need to print lines in between two string when a keyword existed in those lines (keywords like exception, error, failed, not started etc). for example, input: .. Begin Edr ab12 ac13 ad14 bc23 exception occured bd24 cd34 dd44 ee55 ff66 End Edr (2 Replies)
Discussion started by: EAGL€
2 Replies

8. Shell Programming and Scripting

Regex: print matched line and exact pattern match

Hi experts, I have a file with regexes which is used for automatic searches on several files (40+ GB). To do some postprocessing with the grep result I need the matching line as well as the match itself. I know that the latter could be achieved with grep's -o option. But I'm not aware of a... (2 Replies)
Discussion started by: stresing
2 Replies

9. UNIX for Advanced & Expert Users

To print from the first line until pattern is matched

Hi I want to print the line until pattern is matched. I am using below code: sed -n '1,/pattern / p' file It is working fine for me , but its not working for exact match. sed -n '1,/^LAC$/ p' file Input: LACC FEGHRA 0 LACC FACAF 0 LACC DARA 0 LACC TALAC 0 LAC ILACTC 0... (8 Replies)
Discussion started by: Abhisrajput
8 Replies

10. UNIX for Beginners Questions & Answers

Find matched pattern and print all based on certain conditions

Hi, I am trying to extract data based on certain conditions. My sample input file as below:- lnc-2:1 OnePiece tra_law 500 688 1 . . g_id "R792.8417"# tra_law_id "R792.8417.1"# g_line "2.711647"# KM "8.723820"# lnc-2:1 OnePiece room 500 510 1 . . g_id "R792.8417"# tra_law_id "R792.8417.1"#... (7 Replies)
Discussion started by: bunny_merah19
7 Replies

LEARN ABOUT DEBIAN

nuaclgen

NUACLGEN(8)															       NUACLGEN(8)

NAME

       nuaclgen - NUFW acl generator

SYNOPSIS

       nuaclgen  [  --Schema eq|ineq ] [ --Aclname ACLDN ] [ --saddr NETWORK1 ] [ --daddr NETWORK2 ] [ --proto PROTONUMBER ] [ --sport P1[:P2] ] [
       --dport P3[:P4] ] [ --OsName OSNAME ] [ --OsVersion OSVERSION ] [ --OsRelease OSRELEASE ] [ --AppName APPLICATION NAME ] [ --AppSig  APPLI-
       CATION SIGNATURE ] [ --Separator SEPARATOR ] [ --jump [ACCEPT|DROP] ] [ --groups GROUPLIST ]

       nuaclgen [ --List ] [ --groups Id Group ]

       nuaclgen [ --Delete DN ]

       nuaclgen [ --help ]

DESCRIPTION

       This manual page documents the nuaclgen command.

       nuaclgen is an Access control list generator for the ldap backend of Nuauth, the authentication server of the NUFW package.

       Original packaging and informations and help can be found from http://www.nufw.org/

OPTIONS

       --Schema eq|ineq
	      Use equality schema or not (Equality schema requires dport be specified, and is the default.

       --AclName Acl DN
	      Add an acl in the ldap tree with dn Acl DN

       --saddr Network
	      Specify source network for the acl, with network of the form : aaa.bbb.ccc.ddd[/ee]. Default value : 0.0.0.0/0

       --daddr Network
	      Specify destination network for the acl, with network of the form : aaa.bbb.ccc.ddd[/ee]. Default value : 0.0.0.0/0

       --proto Protocol number
	      Specify protocol type for the acl

       --sport Source port
	      Specify source port(s) for the Acl. NNNN:MMMM can be used to specify a port range.

       --dport Destination port
	      Specify destination port(s) for the Acl. NNNN:MMMM can be used to specify a port range.

       --jump Decision
	      Specify decision for the Acl. Has to be ACCEPT or DROP.

       --groups Groups list
	      Specify the user group(s) on which Acl apply. Must be of the form : Group1[,Group2[,...]]

       --List --group Group ID
	      List Acls for the Group ID group

       --Delete Dn
	      Deletes the Acl stored in the provided Dn

       --help Displays a brief resume of available options and quits

SEE ALSO

       nufw(8)

       nuauth(8)

AUTHOR

       Nuauth  was designed and coded by Eric Leblond, aka Regit (<eric@regit.org>) , and Vincent Deffontaines, aka gryzor (<vincent@gryzor.com>).
       Original idea in 2001, while working on NSM Ldap support.

       This manual page was written by Eric Leblond and copyrighted by INL (2003-2005)

       Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version  2	as
       published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts and no Back-Cover Texts.

								   12 mars 2007 						       NUACLGEN(8)
All times are GMT -4. The time now is 01:54 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy