01-02-2008
Line deletion help using perl -ne
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 perl -i.old archive the existing file?
Your help in this will be appreciated.
Thanks in advance.
Lijju
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello Friends,
I want to delete all the "*.trg" files in a directory but i don't want to do it by
system("rm -r *.trg");
Can i do it thru unlink or by any other mean
Thanks,
Pulkit (1 Reply)
Discussion started by: pulkit
1 Replies
2. Shell Programming and Scripting
Dear All,
I am looking for an option in perl using which i could delete empty lines in a file.
Or
the alternative of sed '/^$/d' <filename> in perl. Sed is not working in my perl script :(
Pls help me out .
Thanks,
VG (4 Replies)
Discussion started by: vguleria
4 Replies
3. Shell Programming and Scripting
Hi,
Can anyone know how to use perl to merge the following multi-line information which beginning with "BAM" into one line. For each line need to delete the return and add a space. Please see the red color line.
******Org. Multi-line)
BAM admin 101.203.57.22 ... (3 Replies)
Discussion started by: happyday
3 Replies
4. Shell Programming and Scripting
Hello,
Did anyone know how to write a perl script to merge the multi-line into a single line where each line with start at timestamp
Input-->
timestamp=2009-11-10-04.55.20.829347;
a;
b;
c;
timestamp=2009-11-10-04.55.20.829347;
aa;
bb;
cc; (5 Replies)
Discussion started by: happyday
5 Replies
5. Shell Programming and Scripting
Hi,
I have a file with four types of lines:
@HWUSI-EAS656_0022:8:1:175:376#0/1
CTCGACACGCTGGTGGAGATCCTCGGCCTGACCGAGGACGACCGGGCCATCTTCGAGCAGCGC
+
BBBBBBBA?AABB;<=B9<===AA1AA==>99===.9?:9A4A956%%%%%%%%%%%%%%%%%
I want to remove the first 6 characters of every second line. This means in... (10 Replies)
Discussion started by: s052866
10 Replies
6. Shell Programming and Scripting
so in unix this command works works and shows me a list of directories
find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt
but when i try running a perl script to run this command
my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies
7. Shell Programming and Scripting
Unix box server version
***********
>uname -r
B.11.00
>echo $SHELL
/usr/bin/ksh
--> in this server, I have the path like /IMbuild/dev/im0serv1
---> in that directory I have the folders startup(.jsp files nearly 100 jsp's ) and scripts(contains .js files nearly 100 files) ... (9 Replies)
Discussion started by: pasam
9 Replies
8. UNIX for Dummies Questions & Answers
I want to delete all the blank lines from a file before a certain line number. e.g.
Input file (n: denotes line number)
1: a
2:
3: b
4: c
5:
6: d
I want to delete all blank lines before line number 3, such that my output is:
a
b
c
d
I see that sed '/^$/d' in_file works... (9 Replies)
Discussion started by: jawsnnn
9 Replies
9. Shell Programming and Scripting
Hi All
I have a .csv file which is showing data as
ESP Client,ESP Engagement,Misc_Projects_120101,DEFAULT,HA,Unknown,No,Unknown,201704,4.1,Unknown,AAA,Collected-Done,"she,joy.",200111,Unknown,Full Time,,Delivery_DONE AMO,Approved,2012-12-03,2012-12-06,2012-12-06,"Occupied Hours ... (7 Replies)
Discussion started by: adisky123
7 Replies
10. Shell Programming and Scripting
I am looking for help in processing of those options: '-n' or '-p'
I understand what they do and how to use them.
But, I would like to use them with more than one file (and without any shell-loop; loading the 'perl' once.)
I did try it and -n works on 2 files.
Question is:
- is it possible to... (6 Replies)
Discussion started by: alex_5161
6 Replies
LEARN ABOUT DEBIAN
regexp-assemble
REGEXP-ASSEMBLE(1p) User Contributed Perl Documentation REGEXP-ASSEMBLE(1p)
NAME
regexp-assemble - Assemble a list of regular expressions from a file
SYNOPSIS
regexp-assemble -abcdfinprsStTuUvw file [...]
DESCRIPTION
Assemble a list of regular expression either from standard input or a file, using the Regexp::Assemble module.
OPTIONS
-a look Ahead. Insert "(?=...)" zero-width lookahead assertions in the pattern, where necessary.
-b Blank. Ignore blank lines.
-c Comment. Basic comment filtering. Strip off perl/shell comments ("s*#.*$/").
-d Debug. Turns on debugging output. See Regexp::Assemble for suitable values.
-i Indent. Print the regular expression using and indent of n to display nesting. A.k.a pretty-printing. Implies -p.
-n No newline. Do not print a newline after the pattern. Useful when interpolating the output into a templating system or similar.
-p Print. Print the pattern. This is the default, however, it is required when the -t switch is enabled (because if you want to test
patterns ordinarily you don't care what the the assembled pattern looks like).
-r Reduce. The default behaviour is to reduce the assembled pattern. Enabling this switch causes the reduction algorithm to be switched
off. This can help you determine how much reduction is performed.
regexp-assemble pattern.file | wc
# versus
regexp-assemble -r pattern.file | wc
-s Statistics. Print some statistics about the assembled pattern. The output is sent to STDERR (in order to allow the generated pattern
to be redirected elsewhere).
-S Statistics only. Like -s, except that the pattern itself is not output. Useful with -d 8 to see the time taken.
-t Test. Test the assembled expression against the contents of a file. Each line is read from the file and is matched against the
pattern. Lines that fail to match are printed. In other words, no output is good output. In this mode of operation, error status is 1
in the case of a failure, 0 if all lines matched.
-T Time. Print statistics on the time taken to reduce and assemble the pattern. (This is merely a lazy person's synonym for "-d 8").
-u Unique. Carp if duplicate patterns are found.
-U Unroll. Transform "a+" et al into "aa*" (which may allow additional reductions).
-v Version. Print the version of the regexp-assemble script.
-w Word/Whole. When testing the contents of a file with "-t", bracket the expression with "^" and "$" in order to match the whole word or
line from the file.
DIAGNOSTICS
Will print out a summary of the problem if an added pattern causes the assembly to fail.
SEE ALSO
Regexp::Assemble
AUTHOR
Copyright (C) 2004-2008 David Landgren. All rights reserved.
LICENSE
This script is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-06-30 REGEXP-ASSEMBLE(1p)