Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Extracting lines between 2 strings only if the pattern patches
Top Forums Shell Programming and Scripting Extracting lines between 2 strings only if the pattern patches Post 302187763 by Yogesh Sawant on Tuesday 22nd of April 2008 02:45:08 AM
Old 04-22-2008
using Perl:
Code:
#!/usr/local/bin/perl
# find_default_tags.pl
my $filename = shift;
open (X_FILE, '<', $filename)  or  die "Failed to read file $filename : $!";
{
    local $/;
    while (<X_FILE>) {
        while (m#(<init-param>.*?>default<.*?</init-param>)#gs) {
            print $1 . "\n";
        }
    }
}
close (X_FILE);

run this scritpt as:
Code:
perl find_default_tags.pl filename.xml

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Extracting strings

Hi, How do I extract the bytes size string from the ls -l command. (1 Reply)
Discussion started by: hugow
1 Replies

2. Shell Programming and Scripting

Extracting the lines between 2 strings of a file

Hi, I have a sql file and i need to extract the table names used in the sql file using a unix script. If i can extract the lines between the keywords 'FROM' and 'WHERE' in the file, my job is done. can somebody tell me how to do this using a shell script. If u can just let me know, how to... (2 Replies)
Discussion started by: babloo
2 Replies

3. Shell Programming and Scripting

extracting numbers from strings

Hello all, I am being dumb with this and I know there is a simple solution. I have a file with the follwing lines bc stuff (more)...............123 bc stuffagain (moretoo)............0 bc stuffyetagain (morehere)......34 failed L3 thing..............1 failed this... (2 Replies)
Discussion started by: gobi
2 Replies

4. Shell Programming and Scripting

extracting lines from a file1 which maches a pattern in file2

Hi guys, Can you help me in solving ths problem? I have two files file1 and file2 as following: ===FILE1==== >LOC21 MASSKFCTVLSLALFLVLLTHANSAELFSFNFQTFNAANLILQGNASVSSSGQLRLTEVKSNGEPKVASL VASFATAFTFNILAPILSNSADGLAFALVPVGSQPKFNGGFLGLFQNVTYDP >LOC05... (11 Replies)
Discussion started by: smriti_shridhar
11 Replies

5. Shell Programming and Scripting

help extracting a matching pattern and next lines of match

Hi there, i'm having some problems just making an awk script (i've tried this way, but other way can be posible for sure), for the next file file.txt <register> <createProfile> <result>0</result> <description><!]></description> <msisdn>34661461174</msisdn> <inputOmvID>1</inputOmvID>... (6 Replies)
Discussion started by: vicious
6 Replies

6. Shell Programming and Scripting

Extracting N lines match number X of a pattern

Hi All, as the title says I need to extract N lines after match number X of a pattern. e.g. 111 xxx xxx 111 yyy yyy 111 www www 111 zzz zzz I would like to extract the two lines after the second 111 occurrence. I tried with grep but I didn't find any options to do that. Any... (11 Replies)
Discussion started by: f_o_555
11 Replies

7. Shell Programming and Scripting

Extracting the strings matching a pattern from a word

Hi All , I need to extract the strings that are matching with the pattern : CUST.<AnyStringOfAnyLength>.<AnyStringOfAnyLength> from a file and then write all these string into another file. e.g. If a file SOURCE contains following lines : IF(CUST.ABCD.EFGH==1) THEN CUST.ABCD.EFGH =... (7 Replies)
Discussion started by: swapnil.nawale
7 Replies

8. Shell Programming and Scripting

Delete lines in file containing duplicate strings, keeping longer strings

The question is not as simple as the title... I have a file, it looks like this <string name="string1">RZ-LED</string> <string name="string2">2.0</string> <string name="string2">Version 2.0</string> <string name="string3">BP</string> I would like to check for duplicate entries of... (11 Replies)
Discussion started by: raidzero
11 Replies

9. Shell Programming and Scripting

Searching for a pattern and extracting records related to that pattern

Hi there, Looking forward to your advice for the below: I have a file which contains 2 paragraphs related to a particular pattern. I have to search for those paragraphs from a log file and then print a particular line from those paragraphs. Sample: I have one file with the fixed... (3 Replies)
Discussion started by: danish0909
3 Replies

10. Shell Programming and Scripting

sed -- Find pattern -- print remainder -- plus lines up to pattern -- Minus pattern

The intended result should be : PDF converters 'empty line' gpdftext and pdftotext?xml version="1.0"?> xml:space="preserve"><note-content version="0.1" xmlns:/tomboy/link" xmlns:size="http://beatniksoftware.com/tomboy/size">PDF converters gpdftext and pdftotext</note-content>... (9 Replies)
Discussion started by: Klasform
9 Replies

LEARN ABOUT DEBIAN

pmload

PMLOAD(1p)						User Contributed Perl Documentation						PMLOAD(1p)

NAME

       pmload - show what files a given module loads at compile time

DESCRIPTION

       Given an argument of a module name, show all the files that are loaded directly or indirectly when the module is used at compile-time.

EXAMPLES

	   $ pmload IO::Handle
	   /usr/local/devperl/lib/5.00554/Exporter.pm
	   /usr/local/devperl/lib/5.00554/Carp.pm
	   /usr/local/devperl/lib/5.00554/strict.pm
	   /usr/local/devperl/lib/5.00554/vars.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/DynaLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Handle.pm
	   /usr/local/devperl/lib/5.00554/Symbol.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/File.pm
	   /usr/local/devperl/lib/5.00554/SelectSaver.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/Fcntl.pm
	   /usr/local/devperl/lib/5.00554/AutoLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Seekable.pm

	   $ cat `pmload IO::Socket` | wc -l
	      4015

	   $ oldperl -S pmload Tk
	   /usr/lib/perl5/site_perl/Tk/Pretty.pm
	   /usr/lib/perl5/Symbol.pm
	   /usr/lib/perl5/site_perl/Tk/Frame.pm
	   /usr/lib/perl5/site_perl/Tk/Toplevel.pm
	   /usr/lib/perl5/strict.pm
	   /usr/lib/perl5/Exporter.pm
	   /usr/lib/perl5/vars.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Wm/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Widget/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk.pm
	   /usr/lib/perl5/i386-linux/5.00404/DynaLoader.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Frame/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Toplevel/autosplit.ix
	   /usr/lib/perl5/Carp.pm
	   /usr/lib/perl5/site_perl/auto/Tk/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk/CmdLine.pm
	   /usr/lib/perl5/site_perl/Tk/MainWindow.pm
	   /usr/lib/perl5/site_perl/Tk/Submethods.pm
	   /usr/lib/perl5/site_perl/Tk/Configure.pm
	   /usr/lib/perl5/AutoLoader.pm
	   /usr/lib/perl5/site_perl/Tk/Derived.pm
	   /usr/lib/perl5/site_perl/Tk/Image.pm
	   /usr/lib/perl5/site_perl/Tk/Wm.pm
	   /usr/lib/perl5/site_perl/Tk/Widget.pm

NOTE

       If the programmers used a delayed "require", those files won't show up.	Furthermore, this doesn't show all possible files that get opened,
       just those that those up in %INC.  Most systems have a way to trace system calls.  You can use this to find the real answer.  First, get a
       baseline with no modules loaded.

	   $ strace perl -e 1 2>&1 | perl -nle '/^open("(.*?)".* = [^-]/ && print $1'
	   /etc/ld.so.cache
	   /lib/libnsl.so.1
	   /lib/libdb.so.2
	   /lib/libdl.so.2
	   /lib/libm.so.6
	   /lib/libc.so.6
	   /lib/libcrypt.so.1
	   /dev/null

	   $ strace perl -e 1 2>&1 | grep -c '^open.*= [^-]'
	   8

       Now add module loads and see what you get:

	   $ strace perl -MIO::Socket -e 1 2>&1 | grep -c '^open.*= [^-]'
	   24

	   $ strace perl -MTk -e 1 2>&1 | grep -c '^open.*= [^-]'
	   35

SEE ALSO

       Devel::Loaded, plxload(1).

AUTHORS and COPYRIGHTS
       Copyright (C) 1999 Tom Christiansen.

       Copyright (C) 2006-2008 Mark Leighton Fisher.

       This is free software; you can redistribute it and/or modify it under the terms of either: (a) the GNU General Public License as published
       by the Free Software Foundation; either version 1, or (at your option) any later version, or (b) the Perl "Artistic License".  (This is the
       Perl 5 licensing scheme.)

       Please note this is a change from the original pmtools-1.00 (still available on CPAN), as pmtools-1.00 were licensed only under the Perl
       "Artistic License".

perl v5.10.1							    2010-02-22								PMLOAD(1p)
All times are GMT -4. The time now is 11:23 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy