file1:
Text hi this is just a test
text1 text2 text3 text4 text5 text6
Text hi another text
data1 data2 data3 data4 data5 data6
Output:
Text hi this is just a test
text5 text4 text1 text2 text3 TEXT6_willbe replaced_by_BOOK
Text hi another text
data5 data4 data1 data2 data3 DATA6_willbe replaced_by_BOOK
I need to replace the line containing "STAGE_DB" with the line
"STAGE_DB $DB # database that contains the table being loaded ($workingDB)"
Here $DB is passed during the runtime.
How can I do this?
Thanks,
Kousikan (2 Replies)
Hi,
I am looking for any script which can do the following.
have to read a pattern from fileA and copy it to fileB.
fileA:
...
...
Header
...
...
..p1
...
...
fileB:
....
....
Header (3 Replies)
I need this.
aaa
OOOOO
bbb
ccc
OOOOO
ddd
fff
ggg
OOOOO
iii
OOOOO
I need all OOOOO replaced with PPPPP, but only change after the pattern ggg. So the first two OOOOO should not be changed.
OUTPUT should be :-
aaa (2 Replies)
I have a pattern
username:x:32005:32006::/usr/local/user:/bin/bash
I need to match the line containing username and replace /bin/bash with /usr/local/my/bin/noshell
So it becomes
username:x:32005:32006::/usr/local/user:/usr/local/my/bin/noshell (7 Replies)
Hi How Are you?
I am doing fine!
I need to go now?
I will see you tomorrow!
Basically I need to replace the entire line containing "doing" with a blank line:
I need to the following output:
Hi How Are you?
I need to go now?
I will see you tomorrow!
Thanks in advance.... (1 Reply)
I have
2013-06-11 23:55:14 1Umexd-0004cm-IG <= user@domain.com
I need sed/awk operation on this, so that it should print the very next pattern only after the the pattern mach <=
ie only print user@domain.com (7 Replies)
Hello Experts , require help . See below output:
File inputs
------------------------------------------
Server Host = mike
id rl images allocated last updated density
vimages expiration last read <------- STATUS ------->... (4 Replies)
For an Output like below
Input : <Subject A="I" B="1039502" C="2015-06-30" D="010101010101">
Output : <Subject D="010101010101" B="1039502" C="2015-06-30" A="I">
I have been using something like below but not getting the desired output :
awk -F ' ' '/Subject/ BEGIN{OFS=" ";}... (19 Replies)
I am trying to combine lines with these conditions:
1. First line starts with text of "libname VALUE db2 datasrc" where VALUE can be any text.
2. If condition1 is met then continue to combine lines through a line that ends with a semicolon.
3. Ignore case when matching patterns and remove any... (5 Replies)
Discussion started by: Wes Kem
5 Replies
LEARN ABOUT DEBIAN
text::flow::wrap
Text::Flow::Wrap(3pm) User Contributed Perl Documentation Text::Flow::Wrap(3pm)NAME
Text::Flow::Wrap - Flexible word wrapping for not just ASCII output.
SYNOPSIS
use Text::Flow::Wrap;
# for regular ASCII usage ...
my $wrapper = Text::Flow::Wrap->new(
check_width => sub { length($_[0]) < 70 },
);
# for non-ASCII usage ...
my $wrapper = Text::Flow::Wrap->new(
check_width => sub { $pdf->get_text_width($_[0]) < 500 },
);
my $text = $wrapper->wrap($text);
DESCRIPTION
The main purpose of this module is to provide text wrapping features without being tied down to ASCII based output and fixed-width fonts.
My needs were for sophisticated test control in PDF and GIF output formats in particular.
METHODS
new (%params)
This constructs a new Text::Flow::Wrap module whose %params set the values of the attributes listed below.
wrap ($text)
This method will accept a bunch of text, it will then return a new string which is wrapped to the expected width.
Attribute Accessors
check_width (&code)
This attribute is required, and must be a CODE reference. This will be used to determine if the width of the text is appropriate. It
will get as an argument, a string which is should check the width of. It should return a Boolean value, true if the string is not
exceeded the max width and false if it has.
line_break ($str)
This is the line break character used when assembling and disassembling the text, it defaults to the newline character "
".
paragraph_boundry ($str)
This is the paragraph boundry marker used when disassembling the text, it defaults to the string "
".
paragraph_break ($str)
This is the paragraph breaker used when re-assembling the text, it defaults to the string "
".
word_boundry ($str)
This is the word boundry marker used when disassembling the text, it defaults to a single space character.
word_break ($str)
This is the paragraph breaker used when re-assembling the text, it defaults to a single space character.
Paragraph Disassembling
These methods deal with breaking up the paragraphs into its parts, which can then be processed through the re-assembling methods.
These methods are mostly used internally, but more sophisticated tools might need to access them as well (see Text::Flow).
disassemble_paragraph
disassemble_paragraphs
Paragraph Reassembling
These methods deal with putting the paragraph parts back together after the disassembling methods have done thier work.
These methods are mostly used internally, but more sophisticated tools might need to access them as well (see Text::Flow)
reassemble_paragraph
reassemble_paragraphs
Introspection
meta
Returns the Moose meta object associated with this class.
BUGS
All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to
cpan-RT.
AUTHOR
Stevan Little <stevan@iinteractive.com>
COPYRIGHT AND LICENSE
Copyright 2007 by Infinity Interactive, Inc.
<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2007-05-21 Text::Flow::Wrap(3pm)