in reply to replace java code when not commented

#!/usr/local/bin/perl
while(<DATA>) {
  $_ =~ s/^(public[^\n]+)/\/\*$1\*\//si;
  print $_;
}
__DATA__
/**
* public void method1();
* is deprecated
*/
public void method1();

[download]

Replies are listed 'Best First'.
Re^2: replace java code when not commented
by zer (Deacon) on Mar 28, 2006 at 05:58 UTC
    this is good! Use gubes method. heres my extention applied to it. 
    while(<DATA>) {
  $_ =~ s/^\s*((public|private)[^\n]+)/\/\*$1\*\//si;
  print $_;
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom