Re: Support for hash comments on a line

Another way to do it is to take advantage of prematch ($`):

use strict;
while (<DATA>) {
   chomp;
   $_ = $` if /#/;
   print "$_\n" if $_;
}

__DATA__
### Hello
99:88:77

100:11# This is a comment
abc:def ### Comments also
999
[download]

--Jim

Update: shortenned conditional after chomp;

Comment on Re: Support for hash comments on a line Select or Download Code

Replies are listed 'Best First'.
Re: Re: Support for hash comments on a line by shotgunefx (Parson) on Nov 02, 2001 at 09:37 UTC
Just a thought, using the prematch and postmatch at all will slow down all regular expressions as the engine will have to save them for every regex in your program. -Lee "To be civilized is to deny one's nature."	[reply]
Re3: Support for hash comments on a line by blakem (Monsignor) on Nov 02, 2001 at 10:10 UTC
After reading chapter 5 of japhy's book, you'll be able to rewrite prematch as: `substr($string, 0, $-[0])` [download] For example: `#!/usr/bin/perl -wT use strict; while (<DATA>) { chomp; $_ = substr($_, 0, $-[0]) if /#/; print "$_\n" if $_; } __DATA__ ### Hello 99:88:77 100:11# This is a comment abc:def ### Comments also 999` [download] -Blake	[reply] [d/l] [select]