Re: 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]

Comment on Re: replace java code when not commented Download Code

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]


There's more than one way to do things
	PerlMonks