perl中如何实现？[已解决]

damonzhao

如何将文件中所有的begin 到 end区间（包括begin和end）的行首加**子符

示例：
gadgds
dffgfds

begin

  fdafa
   dfasdgf

end

转换后：
gadgds
dffgfds

**begin

**  fdafa
**  dfasdgf

**end

如何用perl实现？

sanxia

加一个变量,比如$comment_flag

$InFile=$ARGV[0] or die "Error! Usage: xxx.pl InFile\n";
$OutFile=$ARGV[1] or ($OutFile=$InFile . "_new") ;
open(readIn, "<$InFile") or die "Can't read the file: $InFile.\n";
open(writeOut,  ">$OutFile") or die "Can't write to the file: $OutFile.\n";

my $comment_flag = 0 ;
while($line=<readIn>){
  $line=~/^\s*begin\s*$/ and $comment_flag = 1 ;
  if($comment_flag==1){
    $line =~ s/^/**/;
  }
  printf( writeOut "$line");
  $line=~/^\s*end\s*$/ and $comment_flag = 0 ;
}

close(writeOut);
close(readIn);

yinchyang

楼上是高手。
解决很流畅而且很规范。
定一个。

wanmin101

学习了，谢谢！

damonzhao

回复 3# yinchyang


    多谢了！

liuhongflyfly

学习了

寂寞咖啡

写的不错~~

极寒领域

高手。。。。。。学习中

xlt9999

加一个变量,比如$comment_flag

$InFile=$ARGV[0] or die "Error! Usage: xxx.pl InFile\n";
$OutFile= ...
sanxia 发表于 2012-3-8 14:58

                               
登录/注册后可看大图

    这个程序会把begin和end之间的空白行也加上“**”，看起来这时楼主所不需要的。我是初学perl啊，自己仿照这位高手也写了一个程序，欢迎大家扔砖，讨论，多交流才能更快进步！
#!perl -w
$^I ="~";
for my $files (@ARGV){
die "no such file" if not -e $files;
}
my $find = 0;
while(<>){
    $find = 1 if /^\s*begin\s*/;
    s/^(\s*\w+\s*)/\*\*$1/ if $find;
    $find = 0 if  /^\s*end\s*/;
    print;
}

icfbicfb

我来写一个， 这种特别好写， 用 .. 操作符，用于某个段落之间，

while ( <> ) {
  if ( /^begin/ ..  /^end/ )  {
       s/^/##/ ;
   }
  print ;
}