removing <br> from my output

yskmonk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: removing <br> from my output by Utilitarian (Vicar) on May 19, 2009 at 16:06 UTC
Did you read/try Polyglot's response to your earlier question?	[reply]
Re: removing <br> from my output by ack (Deacon) on May 19, 2009 at 16:40 UTC
The `<br>` character is undoubtedly at the end of each line in your OUTFILE. You are printing into FINAL exactly whatever was read from OUTFILE. If you don't want the `<br>` at the end of each line then you have to explicitly remove it right after you read each line from OUTFILE. For example, if each line in OUTFILE has a line return at the end, then you would normally `chomp($_)` in your `while...` block before you do the `print` tests. ack Albuquerque, NM	[reply] [d/l] [select]
Re: removing <br> from my output by raisputin (Scribe) on May 19, 2009 at 17:43 UTC
`while (<OUTFILE>) { s/<br>//gi; print FINAL if /(line1)/; print FINAL if /(line2)/; print FINAL if /(line3)/;` [download] my input file reads: `This is line1<br> This is line2<br> This is line3<BR>` [download] results in: `$ cat final.txt This is line1 This is line2 This is line3` [download]	[reply] [d/l] [select]
Re^2: removing <br> from my output by Anonymous Monk on May 19, 2009 at 18:42 UTC
Yes it worked.Thank you so much! I have 2 more questions: 1. here is how my outfile.html looks `line1=10 line3=20 line3=30 line4=Mon May 18 02:28:58 EDT 2009 line5=60` [download] and here is how my code looks for extracting lines like line1=10,line2=20 `print FINAL if /(line1=\d+)/; print FINAL if /(line2=\d+)/;` [download] but as my outfile.html has also some thing like below : `line4=Mon May 18 02:28:58 EDT 2009` [download] how can I extract this line? 2.my final output has few lines repeating since my outfile.html has lines repeating.how can I make it extract these lines only once?	[reply] [d/l] [select]
Re: removing <br> from my output by bichonfrise74 (Vicar) on May 20, 2009 at 05:03 UTC
Try this... `#!/usr/bin/perl use strict; while (<DATA>) { s/<br>$//; print if /(line[123])/; } __DATA__ line4<br> line1<br> test<br> line2<br> line3<br>` [download]	[reply] [d/l]
Re^2: removing <br> from my output by Anonymous Monk on May 20, 2009 at 14:10 UTC
Non of the above suggested methods are working... Please advise me further on this Thanks!	[reply]
Re^3: removing <br> from my output by Anonymous Monk on May 20, 2009 at 14:16 UTC
yskmonk? Is that you? yskmonk said repeately that it is working for him.	[reply]
Re^4: removing <br> from my output by raisputin (Scribe) on May 20, 2009 at 15:18 UTC
Re^5: removing <br> from my output by yskmonk (Initiate) on May 20, 2009 at 18:47 UTC
Some notes below your chosen depth have not been shown here
Re: removing <br> from my output by mboudreau (Acolyte) on May 19, 2009 at 20:55 UTC
Try this: `print FINAL "$1\n" if /(line1)/;` [download]	[reply] [d/l]
Re^2: removing <br> from my output by raisputin (Scribe) on May 20, 2009 at 14:55 UTC
This does not address where the line reads line1=Mon as asked above	[reply]
Re: removing <br> from my output by Anonymous Monk on May 19, 2009 at 19:04 UTC
Yes it worked.Thank you so much! I have 2 more questions: 1. here is how my outfile.html looks `line1=10 line3=20 line3=30 line4=Mon May 18 02:28:58 EDT 2009 line5=60` [download] and here is how my code looks for extracting lines like line1=10,line2=20 `print FINAL if /(line1=\d+)/; print FINAL if /(line2=\d+)/;` [download] but as my outfile.html has also some thing like below : `line4=Mon May 18 02:28:58 EDT 2009` [download] how can I extract this line? 2.my final output has few lines repeating since my outfile.html has lines repeating.how can I make it extract these lines only once?	[reply] [d/l] [select]
Re: removing <br> from my output by yskmonk (Initiate) on May 19, 2009 at 19:11 UTC
Yes it worked.Thank you so much! I have 2 more questions: 1. here is how my outfile.html looks `line1=10 line3=20 line3=30 line4=Mon May 18 02:28:58 EDT 2009 line5=60` [download] and here is how my code looks for extracting lines like line1=10,line2=20 `print FINAL if /(line1=\d+)/; print FINAL if /(line2=\d+)/;` [download] but as my outfile.html has also some thing like below : `line4=Mon May 18 02:28:58 EDT 2009` [download] how can I extract this line? 2.my final output has few lines repeating since my outfile.html has lines repeating.how can I make it extract these lines only once?	[reply] [d/l] [select]
Re^2: removing <br> from my output by raisputin (Scribe) on May 19, 2009 at 20:28 UTC
`while (<OUTFILE>) { s/<br>//gi; print FINAL if /(line\d=(\d\|\|[A-Za-z]{3}).)/; }` [download] May be fugly (guys?) but that extracts the lines as you show them anyway. As for not having duplicates. I am not sure, but I will see if I can come up with something. I'm kinda a newb at perl, so...	[reply] [d/l]