Help for this page

Select Code to Download


  1. or download this
    my $ext='c';
qx("perl -p -i -e \"s/(\@Filetyp\\s*?:)/\\1$ext/\" /path/test.c")
  2. or download this
    perl -p -i -e "s/(@Filetyp\s*?:)/\1c/" /path/test.c