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

最新推荐文章于 2025-12-11 20:49:41 发布

最新推荐文章于 2025-12-11 20:49:41 发布 · 85 阅读

文章标签：

#python #开发工具

本文介绍了一段Perl脚本，该脚本用于根据关键字搜索Xtreme控件的示例代码。Xtreme控件是用于创建GUI界面的组件集合，提供了丰富的功能和灵活性。

#! 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 $arg f: // 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 " )
or die " Couldn't open $filename for writing: $! " ;
print LOG1 " @line " ;