[原创]三两句写一个实用程序.

[这个贴子最后由damnyou在 2005/09/30 03:10pm 第 2 次编辑]

use Digest::MD5;   #使用MD5算法模块
    my $file = shift || die "Usage:fmd5 filename\n";  #获取参数(文件名),如果没有参数,则输出帮助,程序使用方法.
    open(FILE, $file) or (print "Can';t open ';$file';: $!" and exit);#打开文件句柄
    binmode(FILE);           #以二进制方式打开.
    print "[√]$file ---MD5-->",Digest::MD5->new->addfile(*FILE)->hexdigest,"\n";   #输出我们需要的 文件的MD5值.

   ------------------------------
   以上 是用perl,使用Digest::MD5模块,计算某文件的MD5值的程序代码.以上代码其实可以更加精简,只是为了大家方便看,所以多写点.
   perl是很方便的语言,而且有很多丰富的  模块.简单的语句,可以写出很多实用的程序.
    [DISABLELBCODE]

和linux中的shell编程差不多
变量都是用$

是一次面试的时候问到的,当时真晕,什么都问了(4个人问我),2个小时把偶的底细全摸到了,郁闷!

[这个贴子最后由damnyou在 2005/10/02 09:54am 第 1 次编辑]

$$?两个$$?这个好象是内置变量吧.
   我猜你的意思是指一个$后面带任意字符$anystr这个吧,就是变量的意思
   比如说:
   $str="Hello!";
   print $str,"\n";
   结果就是屏幕显示:Hello![DISABLELBCODE]

晕,不懂perl也,
请教下在perl下$$代表什么意思呀

再来一句
  perl -MLWP::Simple -e "getstore(';http://host/any.htm';,';any.htm';)"
  意思就是使用LWP::Simple模块,把网页';http://host/any.htm';,保存为any.htm,当然也可以是保存成任意文件名。