[技术学习]我的第一个Perl程序

mouse

#! f:/perl/bin/perl.exe – w
##################################################
# 之前折腾过Python，很不适应其过于死板的风格，
# 直到开始学习Perl，我才感觉到作为程序员的自由。
# Perl也许不优美，但如同VIM一般，它能成为创造力之源。
# 我的美妙的Perl之旅将扬帆启航了。
##################################################
# 最近在用codejock的Xtreme控件实现GUI界面，
# Xtreme的控件是有条件开源的，例程也非常多，
# 为了更有效率的利用这些代码，我花半小时写了下面几
# 行Perl代码,功能是根据关键字查找Xtreme控件的例程。
# Create by thinkhy
# 2010/01/06
##################################################
$arg=$ARGV[0];
chomp($arg);
print"Argument: $arg/n";

$cmd= "grep $argf://xtp_Samples -R";

@line=`$cmd`;

foreach(@line) {
s#^/s*/.#f:/xtp_Samples#g
}

foreach(@line) {
s/^/s*Binary.*$//g
}


$filename="c:/gx";
open(LOG1, ">$filename")
ordie"Couldn't open $filenamefor writing: $!";
printLOG1"@line";