Well its not expected to work since you initially asked for "I am looking for an option in perl using which i could delete empty lines in a file." and now "i have to get the last non empty line into the variable". Make up your mind before you ask. This should work:
Hi all,
I know the one liner to delete all the lines in a file which matches a pattern
i.e
perl -i.old -ne 'print unless /pattern/' file
Now i need the perl onliner to delete all the lines which doesnt match the pattern. Also what is the difference between perl -i and perl -i.old.
Does... (1 Reply)
I have a file which has the first blank line:
sundev22$cat /t1/bin/startallocs
/t1/bin/startallocsys 123
sundev22$
Is there a command to remove this first blank line? Thanks for help -A (4 Replies)
i have a file called Cleaner1.log . This files have some blank lines also.My requirement is that it should ignore the blank lines and give me the lines that contain some data.
I m using this logic in a script:
below the contents of file :
Maximum Time Taken for Processing(Failed) RR... (4 Replies)
I have a number of files (arranged in directories) which have last line blank,
I am trying to synchronize my code with other env and due to this blank lines, all files error out as different although only difference is that of balnk line at end of file.
Is there a way I can recursively... (2 Replies)
I want to get the blank line number of a file.
example:
9000|9000|WW|1|1|SL|472|472|LC|2272|1072|MTY|niceDay
9000|9000|WW|1|1|SL|470|470|MC|1270|1172|MPVT|nice
9000|9000|WW|1|1|SL|472|472|LC|1072|1672|MBD|Sonice
9000|9000|WW|1|1|SL|473|473|LF|1173|1173|MTY|nice666
I want to get... (5 Replies)
Hi
I nned cmd to which will help me to replace a line in file with blank line
e.g.
file1
a
b
c
d
e
after running cmd I shud get
file1
b
c
d
e (5 Replies)
Hi Guys,
I have a file in which each set of records are separated by two blank line. I want to replace it with a single blank line.
Can you guys help me out?
Regards,
Magesh (9 Replies)
Dear All,
In a CSV file, say that a given column has been extracted. In that column, information is missing (i.e. blank lines appear). I would like to replace the blank lines by the last valid line (not blank) previously read.
For example, consider the extract below:
123
234
543
111... (7 Replies)
lreplace(n) Tcl Built-In Commands lreplace(n)
__________________________________________________________________________________________________________________________________________________NAME
lreplace - Replace elements in a list with new elements
SYNOPSIS
lreplace list first last ?element element ...?
_________________________________________________________________DESCRIPTION
lreplace returns a new list formed by replacing one or more elements of list with the element arguments. first and last are index values |
specifying the first and last elements of the range to replace. The index values first and last are interpreted the same as index values |
for the command string index, supporting simple index arithmetic and indices relative to the end of the list. 0 refers to the first ele- |
ment of the list, and end refers to the last element of the list. If list is empty, then first and last are ignored.
If first is less than zero, it is considered to refer to before the first element of the list. For non-empty lists, the element indicated
by first must exist or first must indicate before the start of the list.
If last is less than first, then any specified elements will be inserted into the list at the point specified by first with no elements
being deleted.
The element arguments specify zero or more new arguments to be added to the list in place of those that were deleted. Each element argu-
ment will become a separate element of the list. If no element arguments are specified, then the elements between first and last are sim-
ply deleted. If list is empty, any element arguments are added to the end of the list.
EXAMPLES
Replacing an element of a list with another:
% lreplace {a b c d e} 1 1 foo
a foo c d e
Replacing two elements of a list with three:
% lreplace {a b c d e} 1 2 three more elements
a three more elements d e
Deleting the last element from a list in a variable:
% set var {a b c d e}
a b c d e
% set var [lreplace $var end end]
a b c d
A procedure to delete a given element from a list:
proc lremove {listVariable value} {
upvar 1 $listVariable var
set idx [lsearch -exact $var $value]
set var [lreplace $var $idx $idx]
}
SEE ALSO
list(n), lappend(n), lindex(n), linsert(n), llength(n), lsearch(n), lset(n), lrange(n), lsort(n), string(n) |
KEYWORDS
element, list, replace
Tcl 7.4 lreplace(n)