Sponsored Content
Full Discussion: Perl pattern matching!!
Top Forums Shell Programming and Scripting Perl pattern matching!! Post 302357226 by sanjay.login on Tuesday 29th of September 2009 06:28:54 AM
Old 09-29-2009
I dont have much idea about perl so i did in this way . you may need it.
code :

Code:
grep '^-' test|tr '[]-' '   '|sed 's/inserted/inserted to /g'|awk ' NF==3 {print $0,($3+1);next} {print $0}'|tr -s " "|awk '$1 == "changed" {print "numbers of line changed :",($4-$3);next} {print "numbers of line inserted :",($4-$3)}'


hope you wanted this.

regards,
Sanjay

Last edited by sanjay.login; 09-29-2009 at 07:48 AM..
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

pattern matching + perl question

i can only find the first occurance of a pattern how do i set it to loop untill all occurances have changed. #! /usr/bin/perl use POSIX; open (DFH_FILE, "./dfh") or die "Can not read file ($!)"; foreach (<DFH_FILE>) { if ($_ !~ /^#|^$/) { chomp; ... (1 Reply)
Discussion started by: Optimus_P
1 Replies

2. Shell Programming and Scripting

perl pattern matching

hi i am trying to get digits inside brackes from file , whose structure is defined below CREATE TABLE TELM (SOC_NO CHAR (3) NOT NULL, TXN_AMOUNT NUMBER (17,3) SIGN_ON_TIME CHAR (8) TELLER_APP_LIMIT NUMBER (17,3) FIL01 ... (2 Replies)
Discussion started by: zedex
2 Replies

3. Shell Programming and Scripting

Perl Pattern Matching !!! Help

Hello I got the below one from in one of this forums For Ex: Loading File System Networking in nature now i need to extract the patterns between the words File and Networking : i.e. sample output: System cmd used : cat <file> | sed 's/.*File //' | sed 's/Closing.*$//' Actually... (0 Replies)
Discussion started by: maxmave
0 Replies

4. Shell Programming and Scripting

Perl -Pattern Matching help..!

Hi, I got doubt in Pattern matching, could you tell me how the following differs in action ?? if ( $line1==/$line2/ ) if ( $line1=~/$line2/ ) if ( $line1=~m/$line2/) What is the significance of '~' in matching. Thanks in advance CoolBhai (5 Replies)
Discussion started by: coolbhai
5 Replies

5. Shell Programming and Scripting

Perl Pattern Matching

Hello experts, I have a file containing the following text(shortened here). File Begin ---------- < # Billboard.d3fc1302a677.imagePath=S:\\efcm_T4 < Billboard.d3fc1302a677.imagePath=S:\\efcm_T4 --- > # Billboard.d3fc1302a677.imagePath=S:\\efcm_Cassini >... (2 Replies)
Discussion started by: nmattam
2 Replies

6. Shell Programming and Scripting

Perl Pattern matching...

I am doing a file patterhn matching for a text file in PERL I am using this,,, but it says that no file is found $filepattern = '\d{1,4}.*A0NW9693.NDM.HBIDT.*.AD34XADJ.txt'; Can anyone help me out with Perl Pattern Matching concepts and how to do pattern matching for this txt file:... (4 Replies)
Discussion started by: msrahman
4 Replies

7. Shell Programming and Scripting

Pattern Matching in PERL

I have a 2 files in .gz format and it consists of 5 million lines the format of the file would be gzcat file1.gz | more abcde aerere ffgh56 .. .. 12345 gzcat file2.gz | more abcde , 12345 , 67890, ffgh56 , 45623 ,12334 whatever the string is in the file1 should be matched... (3 Replies)
Discussion started by: aravindj80
3 Replies

8. Shell Programming and Scripting

Need help with perl pattern matching

My log file looks as given below, its actually a huge file around 1 GB and these are some of the line: conn=5368758 op=10628050 msgId=64 - RESULT err=0 tag=101 nentries=1 etime=0 conn=7462122 op=-1 msgId=-1 - fd=247 slot=247 LDAPS connection from 10.13.18.12:37645 to 10.18.6.45 conn=7462122... (5 Replies)
Discussion started by: sags007_99
5 Replies

9. Shell Programming and Scripting

Pattern matching in Perl

Hi, I have a list of IP, eg : 192.168.0.15 192.168.0.24 192.168.2.110 192.168.2.200 And I would like the shortest pattern who match with '192.168.0' and '192.168.2' (without the last dot and number). (7 Replies)
Discussion started by: X-Or
7 Replies

10. Shell Programming and Scripting

Perl - Use of *? in Matching Pattern

I am using Perl version 5.8.4 and trying to understand the use of regular expression. Following is my code and output. $string = "Perl is a\nScripting language"; ($start) = ($string =~ /\A(.*?) /); @lines = ($string =~ /^(.*?) /gm); print "First Word (using \\A): $start\n","Line... (4 Replies)
Discussion started by: jnrohit2k
4 Replies
PCSC_SCAN(1)                                                  General Commands Manual                                                 PCSC_SCAN(1)

NAME
pcsc_scan - regularly scans every PC/SC readers connected to the host SYNOPSIS
pcsc_scan [options] DESCRIPTION
This manual page documents briefly the pcsc_scan command. pcsc_scan is a program that regularly scans every PC/SC readers connected to the host When pcsc_scan is started it asks pcscd the list of available smart card readers. The list is printed. A sequence number is printed before each reader. Example: PC/SC device scanner V 1.1.0 (c) 2001-2002, Ludovic Rousseau PC/SC lite version: 1.1.1 0: GemPC410 0 0 1: GemPC430 0 0 When a card is inserted in any reader some information is printed: date and time: Thu Jun 13 18:56:14 2002 reader name: Reader 0 (GemPC410 0 0) card state and occured event: Card state: State has changed, Card inserted, ATR in case of card insertion: ATR: 3B 82 00 86 1E print an ATR analysis if the ATR_analysis command is available: ATR: 3B 82 00 86 1E + TS = 3B --> Direct Convention + T0 = 82, Y(1): 1000, K: 2 (historical bytes) TD(1) = 00 --> Y(i+1) = 0000, Protocol T = 0 ----- + Historical bytes: 86 1E OPTIONS
-h print help -V print version number -n do not print ATR analysis SEE ALSO
pcscd(1), ATR_analysis(1) AUTHOR
Ludovic Rousseau <ludovic.rousseau@free.fr> june 13, 2002 PCSC_SCAN(1)
All times are GMT -4. The time now is 11:51 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy