Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Regexp and sed problem
Top Forums Shell Programming and Scripting Regexp and sed problem Post 302354625 by durden_tyler on Friday 18th of September 2009 11:50:47 PM
Old 09-19-2009
Using a different approach:

Code:
$ 
$ cat f1
DELETE FROM /*<workDB>*/epd_test./*<multi>*//*<version>*/epd_tbl1 ALL;
$ 
$ ##
$ perl -ne 'BEGIN{undef $/} chomp($m=$_); while(/\/\*<(.*?)>\*\//msg){push @x,$1}
>           END{$m =~ s#\*/.*?./\*#*/\${$x[0]}./*#;
>               $m =~ s#\*/([^*]*?) #*/\${$x[1]}\${$x[2]}_$1 #;
>               print $m;
>              }' f1
DELETE FROM /*<workDB>*/${workDB}./*<multi>*//*<version>*/${multi}${version}_epd_tbl1 ALL;
$ 
$ 
$ cat f2
DELETE FROM /*<abcDB>*/epd_test./*<multi>*//*<version>*/epd_tbl1 ALL;
$ 
$ ##
$ perl -ne 'BEGIN{undef $/} chomp($m=$_); while(/\/\*<(.*?)>\*\//msg){push @x,$1}
>           END{$m =~ s#\*/.*?./\*#*/\${$x[0]}./*#;
>               $m =~ s#\*/([^*]*?) #*/\${$x[1]}\${$x[2]}_$1 #;
>               print $m;
>              }' f2
DELETE FROM /*<abcDB>*/${abcDB}./*<multi>*//*<version>*/${multi}${version}_epd_tbl1 ALL;
$ 
$

tyler_durden
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

GnuWin32 sed 4.1.4 regexp matching

I am using GnuWin32 sed and am having trouble with the regexp - i.e., they don't behave the same way as in UNIX (POSIX and and all that). I have a stream of data, e.g.: 11111'222?'22'33?'333'44444'55555' I want to insert a \n after those apostrophes that are *not* preceded by a ?. ... (2 Replies)
Discussion started by: Simerian
2 Replies

2. Shell Programming and Scripting

regexp with sed again!!!

please help: I want to add 1 space between string and numbers: input file: abcd12345 output file: abcd 1234 The following sed command does not work: sed 's/\(+\)\(+\)/\1 \2/' file Any ideas, please Andy (2 Replies)
Discussion started by: andy2000
2 Replies

3. Shell Programming and Scripting

Help regarding behavior sed regexp query

Hi all, I have one question regarding sed regexp (or any regexp in general), I have some path like this C:/Abc/def/ghi/jkl in a file file1 Now if i use following code cat file1 | sed 's#\(.*\)/.*#\1#' Now it give me following output C:/Abc/def/ghi, which is fine But i just... (2 Replies)
Discussion started by: sarbjit
2 Replies

4. Shell Programming and Scripting

sed regexp

Hi, I am not that good with reg exp and sed. But I was just looking at something the other day and came across a situation. When I ran the below command: echo "123 word" | sed 's/*/(&)/' the op was: (123) word But when I ran: echo "123 word" | sed 's/*/(&)/g' the o/p was: (123)... (4 Replies)
Discussion started by: King Nothing
4 Replies

5. UNIX for Dummies Questions & Answers

sed before and after regexp

Dear all i have the code which print 1 line of context before and after regexp, with line number sed -n -e '/regexp/{=;x;1!p;g;$!N;p;D;}' -e h the code work well but any one can tell me what each letter mean {=;x;1!p;g;$!N;p;D;} also how i can print 2 line before and onle line after ... (2 Replies)
Discussion started by: soly
2 Replies

6. Shell Programming and Scripting

Help with Regexp replace in vim/sed

Hi! I have a file with multiple lines following this format: <a href="xxx.aaa_bbb_ccc.yyy">xxx.aaa_bbb_ccc.yyy</a> The goal is to replace the title (not modifying the href) so the new lines looks like this: <a href="xxx.aaa_bbb_ccc.yyy">Aaa bbb ccc</a> The number of underscores in the... (2 Replies)
Discussion started by: ericjohansson
2 Replies

7. Shell Programming and Scripting

sed with multiple regexp

Dealing with Linux servers script would be in korn or bash shell syntax file is /etc/fstab I want to insert something if regex is matched to all matched lines in the /etc/fstab file and print out entire /etc/fstab file with the changes example 58.228.111.111:/my/file/system... (5 Replies)
Discussion started by: snoman1
5 Replies

8. Shell Programming and Scripting

Need help with sed and regexp

Hi everyone, I would really appreciate any help I could get on the following topic. I am not very familiar with reg expressions nor with sed, I just know the basic uses. What I am trying to do is the following: I have a huge text file where I would like to replace all occurnces of a certain... (13 Replies)
Discussion started by: Boxtuna
13 Replies

9. Shell Programming and Scripting

sed regexp teaser

G'day, Here's a teaser for a sed guru, which I surely am not one, as even my basic sed skills are rusted from years of not practising ... lol Ok ... we have a string of digits such as: 632413741610252847552619172459483022433027602515212950543016701812771409213148672112 we want it split... (9 Replies)
Discussion started by: naderra
9 Replies

10. UNIX for Beginners Questions & Answers

sed with regexp in Linux

OFF 00280456 - 2014|1|2020_STATUS|GROUP_NAME|SUBGROUP_NAME|CLASS_NAME|GROUP_ID|SUBGROUP_ID I have above header in file. I need to replace 2020_STATUS with STATUS. 2020_STATUS is not always same but the column name will have STATUS all of the time. For instance column name might be 2019_STATUS... (1 Reply)
Discussion started by: jmadhams
1 Replies

LEARN ABOUT DEBIAN

http::proxy::bodyfilter::tags

HTTP::Proxy::BodyFilter::tags(3pm)			User Contributed Perl Documentation			HTTP::Proxy::BodyFilter::tags(3pm)

NAME

       HTTP::Proxy::BodyFilter::tags - A filter that outputs only complete tags

SYNOPSIS

	   use HTTP::Proxy::BodyFilter::tags;
	   use MyFilter;    # this filter only works on complete tags

	   my $filter = MyFilter->new();

	   # note that both filters will be run on the same messages
	   # (those with a MIME type of text/html)
	   $proxy->push_filter(
	       mime	=> 'text/*',
	       response => HTTP::Proxy::BodyFilter::tags->new
	   );
	   $proxy->push_filter( mime => 'text/html', response => $filter );

DESCRIPTION

       The HTTP::Proxy::BodyFilter::tags filter makes sure that the next filter in the filter chain will only receive complete tags.

METHOD

       This class defines two methods, that are called automatically:

       filter()
	   Buffer incomplete tags to ensure that subsequent filters will only receive complete HTML tags.

       will_modify()
	   This method returns a false value, thus indicating to the system that it will not modify data passing through.

SEE ALSO

       HTTP::Proxy, HTTP::Proxy::BodyFilter.

AUTHOR

       Philippe "BooK" Bruhat, <book@cpan.org>.

COPYRIGHT

       Copyright 2003-2006, Philippe Bruhat.

LICENSE

       This module is free software; you can redistribute it or modify it under the same terms as Perl itself.

perl v5.12.4							    2011-07-03					HTTP::Proxy::BodyFilter::tags(3pm)
All times are GMT -4. The time now is 11:13 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy