topic Re: Perl: How to delete a paragraph fromtext file in Operating System - Linux

Perl: How to delete a paragraph fromtext file

Junior C. — Fri, 01 Jun 2007 10:54:23 GMT

I'm looking for the syntax to delete a paragraph using perl.

Example:

file.txt

1. This forum is for discussing both general and technical issues regarding Linux OS.TXT distributions running on or utilizing Hewlett-Packard products.

2. forum is for discussing both general and technical issues regarding Linux OS distributions running on or utilizing Hewlett-Packard products.

3. The forum is for discussing both general and technical issues regarding Linux OS distributions running on or utilizing Hewlett-Packard products.TXT

If any line contain .TXT I want to delete that paragraph and print the remaining paragraph to newfile.txt

from above newfile.txt should only have (prag 2.)

while (<>) {
print unless m/\b.TXT/i;

not working.

-JC.

Re: Perl: How to delete a paragraph fromtext file

James R. Ferguson — Fri, 01 Jun 2007 15:08:29 GMT

Hi JC:

# perl -nle 'BEGIN{$/=""};next if m{\.TXT};print' file

Regards!

...JRF...

Re: Perl: How to delete a paragraph fromtext file

Junior C. — Fri, 01 Jun 2007 15:41:42 GMT

James,

Thanks for the reply.

I'm not sure how do I open/read the file, and then apply perl -nle 'BEGIN{$/=""};next if m{\.TXT};print' file

Thanks,

-JC.

Re: Perl: How to delete a paragraph fromtext file

Sergejs Svitnevs — Fri, 01 Jun 2007 15:51:51 GMT

Hi,

may be this script can solve your problem?

----file.pl----
#!/usr/bin/perl -w
open (LIST,"file.txt") || die "where is file?\n";
$^I = '';
$/ = '';
while () {
next if /^.*\.TXT.*\n/;
print;
}
close (LIST);
--------------

# ./file.pl > newfile.txt

BR
Sergejs

Re: Perl: How to delete a paragraph fromtext file

James R. Ferguson — Sat, 02 Jun 2007 10:41:00 GMT

Hi (again) JC:

> I'm not sure how do I open/read the file, and then apply perl -nle 'BEGIN{$/=""};next if m{\.TXT};print' file

Well, my command-line script did it all for you. Adding your requirement for case-insensitive matching and a boundry (\b):

# perl -nle 'BEGIN{$/=""};next if m{\b\.TXT}i;print' file

Simply paste the line above and substitute the name of your 'file' for 'file', or drop the 'file' argument and pipe an output stream to Perl.

Notice that a "." signifies any character unless escaped.

Regards!

...JRF...

Re: Perl: How to delete a paragraph fromtext file

Junior C. — Mon, 04 Jun 2007 15:04:28 GMT

Thread Close