in reply to Re: OptiPerls Pattern Replace (Regexpses for one Line)
in thread OptiPerls Pattern Replace (Regexpses for one Line)

Thanks for your fast answer. My Problem is not using the RegExp IN the code but ON the code. (Editing / Generating code in the editor). I know the $ meta-character. But somehow i cound not make it work correctly.

Here is an example, I had something like:
 my $foobar = substr($line,20,30);  # this is :;- a comment
which I changed to 

#*****
# this is :;- a comment
#*****
sub foobar($){
  return substr($_[0],20,30);
}

[download]
for a couple of hundreds of variables.
for matching the comment at the end of the line, I did something like:
 (#[a-zA-Z0-9 -_;:()]+) I think there must be a more elegant way to do this.

Replies are listed 'Best First'.
Re^3: OptiPerls Pattern Replace (Regexpses for one Line)
by tphyahoo (Vicar) on Mar 02, 2005 at 10:12 UTC
    This help? 
    use warnings;
use strict;
while (<DATA>) {

  #everything before the #
  /^[^#]*/;
  print 'everything before the #: ' . "$&\n";
  
  #everything from the # to the end of the line
  /#.*/;
  print '/#.*/: ' . "$&\n";
  print "\n";
}

#outputs: 
#everything before the #: blah 
#/#.*/: #this is a comment
#
#everything before the #: foo blah 
#/#.*/: #this is a comment
#
#everything before the #: foo bar blah blah blah 
#/#.*/: #this is a comment
#
#everything before the #: 
#
#/#.*/: 
#
__DATA__
blah #this is a comment
foo blah #this is a comment
foo bar blah blah blah #this is a comment

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom