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

最新推荐文章于 2012-10-20 19:04:01 发布

ThinkHY

最新推荐文章于 2012-10-20 19:04:01 发布

阅读量945

点赞数

分类专栏：代码之美开源软件 Perl 文章标签： perl cmd python vim 2010 c

本文链接：https://blog.csdn.net/ThinkHY/article/details/5146436

版权

开源软件同时被 3 个专栏收录

45 篇文章 0 订阅

订阅专栏

Perl

44 篇文章 0 订阅

订阅专栏

代码之美

43 篇文章 0 订阅

订阅专栏

#! 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 " ;