|
|
Sponsored Content
Top Forums
Shell Programming and Scripting
Pattern matching problem in PERL script
Post 302246755 by ganapati on Tuesday 14th of October 2008 10:21:19 AM
10-14-2008
Pattern matching problem in PERL script
Hi Friends,
As my old friends knows, I'm old to shell script but very new to perl script, currently I'm writing
a PERL script with the following functionality:
I've multiple product directories, like BUSS, FIN, SALES, MKT etc., :
/export/home/GLK/BUSS,
/export/home/GLK/FIN,
/export/home/GLK/SALES,
/export/home/GLK/MKT
etc..,
Above all directories will have one report file with the same name 'missing_party.rpt'.
This report file contains a lot of information, out of which I need to extract
only the lines which has the pattern "My dear boss(.....some info...) Thanks".
I've to redirect only the above pattern line into a output file "/export/home/OUTPUT/output.txt"
by discarding the remaining line.
I've written the below script, with the help of google
#!/usr/bin/perl
use File::Find;
use strict;
my $directory = "/export/home/GLK";
my $out_filename = "/export/home/GLK/output.txt";
find (\&process, $directory);
sub process
{
my @outLines; #Data we are going to output
my $line; #Data we are reading line by line
# Only parse files that end in .html
if ( $File::Find::name =~ /\missing_party.rpt$/ ) {
open (FILE, $File::Find::name ) or die "Cannot open file: $!";
open( OUTFILE, "> " . $out_filename ) or die "Cannot open file: $!";
# print "\n" . $File::Find::name . "\n";
while ( $line = <FILE> ) {
$line =~ m/"My dear boss(.....some info...) Thanks"/ ;
push(@outLines, $line);
print ( OUTFILE @outLines );
}
close FILE;
close ( OUTFILE );
undef ( @outLines );
}
}
The problem with the above script is, I need to extract only the information "My dear boss(.....some info...) Thanks" from the entire line. But current code is extracting complete line.
I dont know how to implement it.....
Could any one help me ... also is it possible to fine tune the above code...? Even though I'm new, requirement is for the optimal code.
Thanks in advance... / Mysore Ganapati.
As my old friends knows, I'm old to shell script but very new to perl script, currently I'm writing
a PERL script with the following functionality:
I've multiple product directories, like BUSS, FIN, SALES, MKT etc., :
/export/home/GLK/BUSS,
/export/home/GLK/FIN,
/export/home/GLK/SALES,
/export/home/GLK/MKT
etc..,
Above all directories will have one report file with the same name 'missing_party.rpt'.
This report file contains a lot of information, out of which I need to extract
only the lines which has the pattern "My dear boss(.....some info...) Thanks".
I've to redirect only the above pattern line into a output file "/export/home/OUTPUT/output.txt"
by discarding the remaining line.
I've written the below script, with the help of google
#!/usr/bin/perl
use File::Find;
use strict;
my $directory = "/export/home/GLK";
my $out_filename = "/export/home/GLK/output.txt";
find (\&process, $directory);
sub process
{
my @outLines; #Data we are going to output
my $line; #Data we are reading line by line
# Only parse files that end in .html
if ( $File::Find::name =~ /\missing_party.rpt$/ ) {
open (FILE, $File::Find::name ) or die "Cannot open file: $!";
open( OUTFILE, "> " . $out_filename ) or die "Cannot open file: $!";
# print "\n" . $File::Find::name . "\n";
while ( $line = <FILE> ) {
$line =~ m/"My dear boss(.....some info...) Thanks"/ ;
push(@outLines, $line);
print ( OUTFILE @outLines );
}
close FILE;
close ( OUTFILE );
undef ( @outLines );
}
}
The problem with the above script is, I need to extract only the information "My dear boss(.....some info...) Thanks" from the entire line. But current code is extracting complete line.
I dont know how to implement it.....
Could any one help me ... also is it possible to fine tune the above code...? Even though I'm new, requirement is for the optimal code.
Thanks in advance... / Mysore Ganapati.
Last edited by ganapati; 10-14-2008 at 11:23 AM.. Reason: to correct the mistake
|
|
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
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
2. Shell Programming and Scripting
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
3. Shell Programming and Scripting
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
4. Shell Programming and Scripting
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
5. Shell Programming and Scripting
Hi experts,
I have many occurances of the following headers in a file. I need to grep for the word changed/inserted in the header, calculate the difference between the two numbers and list the count incrementally.
Headers in a file look like this:
-------------------
---------------------... (6 Replies)
Discussion started by: nmattam
6 Replies
6. Shell Programming and Scripting
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
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
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
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
I have a big perl script need to fix a small pattern matching inside ..
I have patterns like
create unique index
create index
The pattern matching should look for both the pattern in the same statement, The existing matching looks for only "create unique index"
The exising code for this i... (6 Replies)
Discussion started by: greenworld123
6 Replies
LEARN ABOUT FREEBSD
ddb
DDB(8) BSD System Manager's Manual DDB(8) NAME
ddb -- configure DDB kernel debugger properties SYNOPSIS
ddb capture [-M -core] [-N -system] print ddb capture [-M -core] [-N -system] status ddb script scriptname ddb script scriptname=script ddb scripts ddb unscript scriptname ddb pathname DESCRIPTION
The ddb utility configures certain aspects of the ddb(4) kernel debugger from user space that are not configured at compile-time or easily via sysctl(8) MIB entries. To ease configuration, commands can be put in a file which is processed using ddb as shown in the last synopsis line. An absolute pathname must be used. The file will be read line by line and applied as arguments to the ddb utility. Whitespace at the beginning of lines will be ignored as will lines where the first non-whitespace character is '#'. OUTPUT CAPTURE
The ddb utility can be used to extract the contents of the ddb(4) output capture buffer of the current live kernel, or from the crash dump of a kernel on disk. The following debugger commands are available from the command line: capture [-M core] [-N system] print Print the current contents of the ddb(4) output capture buffer. capture [-M core] [-N system] status Print the current status of the ddb(4) output capture buffer. SCRIPTING
The ddb utility can be used to configure aspects of ddb(4) scripting from user space; scripting support is described in more detail in ddb(4). Each of the debugger commands is available from the command line: script scriptname Print the script named scriptname. script scriptname=script Define a script named scriptname. As many scripts contain characters interpreted in special ways by the shell, it is advisable to enclose script in quotes. scripts List currently defined scripts. unscript scriptname Delete the script named scriptname. EXIT STATUS
The ddb utility exits 0 on success, and >0 if an error occurs. EXAMPLES
The following example defines a script that will execute when the kernel debugger is entered as a result of a break signal: ddb script kdb.enter.break="show pcpu; bt" The following example will delete the script: ddb unscript kdb.enter.break For further examples, see the ddb(4) and textdump(4) manual pages. SEE ALSO
ddb(4), textdump(4), sysctl(8) HISTORY
The ddb utility first appeared in FreeBSD 7.1. AUTHORS
Robert N M Watson BUGS
Ideally, ddb would not exist, as all pertinent aspects of ddb(4) could be configured directly via sysctl(8). BSD
December 24, 2008 BSD