That unwanted "<VirtualHost>" is there because the /VirtualHost>/ pattern matches both the opening and closing markup. That causes { /VirtualHost>/!{ $!{ N; bt } } to not be executed for the first line of the block, hence that first "<VirtualHost>" will always be emitted by the implicit print at the end of the sed script since -n is not used. This also means that there's a logic error: /name/d will attempt to find a match after the first line of each block in addition to after the full block has been accumulated (which is what is intended).
To fix this problem, tighten up the regular expressions. The following should be better (I am not writing it on one line since my sed does not support the gnu extensions which allow labels to be followed by anything other than a newline):
Regards,
Alister
#! /bin/sed -nf
# Remove C and C++ comments, by Brian Hiles (brian_hiles@rocketmail.com)
# Sped up (and bugfixed to some extent) by Paolo Bonzini (bonzini@gnu.org)
# Works its way through the line, copying to hold space the text up to the
# first special character (/, ", '). The original... (1 Reply)
Hi,
Can anyone pls explain me the below SED code in detail.
sed -e :a -e '$!N;s/\n//;ta' -e P -e D
When this code is executed with a file(has 1lac records), it is taking very long time to process.
So I wanted to modify this SED code with equivalant AWK code.
Thanks,
Sri (1 Reply)
Thanks to this forum I have managed to work out a solution to my problem and actually understand most of it, but one thing is confusing me and I am sure someone here can explain.
I need to insert a piece of txt into a file. This txt is
awk '{ sub(/$/,"\r"); print }' $JCL_WBB50103_EFTOUT >... (2 Replies)
Can anyone explain the below sed oneliner?
sed -e ':a' -e '$q;N;11,$D;ba'
It works same as tail command.
I just want to know how it works.
Thanks
---------- Post updated at 11:42 PM ---------- Previous update was at 11:37 PM ----------
Moderators,
Can you please delete this thread?... (0 Replies)
can anyone please explain this code?
sed ':a;N;$!ba;s/]\n//g' file
it replaces lines ending with "]" and concatenates with the next line so that
line1]
line2
becomes
line1line2
i don't understand this part: :a;N;$!ba;
I have noted that I can replace "a" with any letter:
... (1 Reply)
I came across this sed expression, and it does exactly what I want.
However I haven't got the faintest clue how it does it and thus do not feel capable of using it.
Can someone please explain how this expression works?
(I used it to remove html tags in a html file I was converting to text)
... (3 Replies)
Hello All,
I'm trying to extract the lines between two consecutive elements of an array from a file.
My array looks like:
problem_arr=(PRS111 PRS213 PRS234)
j=0
while } ]
do
k=`expr $j + 1`
sed -n "/${problem_arr}/,/${problem_arr}/p" problemid.txt
---some operation goes... (11 Replies)
I am learning SED and just following the shell scripting book, i have trouble understanding the grep and sed statement,
Question : 1
__________
/opt/oracle/work/antony>cat teledir.txt
jai sharma 25853670
chanchal singhvi 9831545629
anil aggarwal 9830263298
shyam saksena 23217847
lalit... (7 Replies)
Discussion started by: Antony Ankrose
7 Replies
LEARN ABOUT DEBIAN
graphics::primitive::insets
Graphics::Primitive::Insets(3pm) User Contributed Perl Documentation Graphics::Primitive::Insets(3pm)NAME
Graphics::Primitive::Insets - Space between things
DESCRIPTION
Graphics::Primitive::Insets represents the amount of space that surrounds something. This object can be used to represent either padding
or margins (in the CSS sense, one being inside the bounding box, the other being outside)
SYNOPSIS
use Graphics::Primitive::Insets;
my $insets = Graphics::Primitive::Insets->new({
top => 5,
bottom => 5,
left => 5,
right => 5
});
METHODS
Constructor
new Creates a new Graphics::Primitive::Insets.
Instance Methods
as_array
Return these insets as an array in the form of top, right, bottom and left.
bottom
Set/Get the inset from the bottom.
equal_to
Determine if these Insets are equal to another.
left
Set/Get the inset from the left.
right
Set/Get the inset from the right.
top Set/Get the inset from the top.
zero
Sets all the insets (top, left, bottom, right) to 0.
AUTHOR
Cory Watson, "<gphat@cpan.org>"
SEE ALSO perl(1)COPYRIGHT & LICENSE
Copyright 2008-2010 by Cory G Watson.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.12.3 2010-08-21 Graphics::Primitive::Insets(3pm)