[KornLee]

777兄,咱们版这里目前perl的水平还是比较低的,不过我推荐你到下列站点先看看,
http://www.yuzi.net/perl5/
http://www.huixinyi.com/hxschool/perllesson/
http://www.perlchina.net
祝你好收成!

[devel]

#!/usr/bin/perl
# A Political evaluation script
$a = "A";
$b = "B";
if ($a > $b){
print "$a wordinake a better Presideut\n";
}
if ($a < $b){
print "$b word make a betler Presiclent\n";
}
if ($b = $a){
print "$a or $b, tlere's no Diflereue\n";
}

# perl 1.pl
A or A, tlere's no Diflereue
#
在这个程序中，为什么会看做$a与$b相等，
为什么会把$a的值附给$b呢，

[KornLee]

第三个if块,应该用"==",而不能用"=",因为在perl里,=是赋值的意思,只有==才是判断两个变量是否相等的运算符!,实际上最后你把$a赋值给了$b

[Kevin]

< > ==这些都是用于数字比较的，而字符比较需要运用lt gt eq等等，

另外=是用来附值的，==才是用来比较是否等于的，

[roby]

今天才知道linuxsir里面有讨论perl的地方
但是我觉得都在一个主题里面实在是很不方便
不妨单独开一个perl版
毕竟perl在linux中是非常流行的

[KornLee]

兄弟说的没错!...等论坛升级之后,稳定啦,我想管理员会考虑的!

[roby]

最初由 javalee 发表
兄弟说的没错!...等论坛升级之后,稳定啦,我想管理员会考虑的!

期待呀
毕竟国内讨论perl的地方不是很多
我也就去去cu和perlchina
其他地方都冷的很

linuxsir如果开了perl版
就又多了一个地方了

[KornLee]

最初由 roby 发表
期待呀
毕竟国内讨论perl的地方不是很多
我也就去去cu和perlchina
其他地方都冷的很

linuxsir如果开了perl版
就又多了一个地方了

希望roby兄常来这里"灌水"

[angelp_9312]

CU的perl不错，如果能把CU上的apile兄请来，和java兄一起做perl版版主那我们可就有福了，

[trinity]

错误信息如下：
Use of uninitialized value in string eq at /usr/local/bin/smime_keys line 937.
Use of uninitialized value in string eq at /usr/local/bin/smime_keys line 942.
代码如下，部分略：
sub newfile ($;$$) {
# returns a file name which does not exist for tmp file creation
my $filename = shift;
my $option = shift;
937-> if (! $tmpdir and ($option eq "temp")) {
$tmpdir = mutt_Q 'tmpdir';
$tmpdir = newfile("$tmpdir/smime");
mkdir $tmpdir, 0700 || die "Can't create $tmpdir: $!\n";
}
942-> $filename = "$tmpdir/$filename" if ($option eq "temp");
my $newfilename = $filename;
my $count = 0;
while (-e $newfilename) {
$newfilename = "$filename.$count";
$count++;
}

[KornLee]

我觉得问题应该出在:

my $filename = shift;
 my $option = shift;

[trinity]

请教详情

[KornLee]

最初由 trinity 发表
请教详情

我也刚刚学习perl,给我的感觉,应该有存放命令行参数的@ARGV吧~~
(还是把源码帖出来吧~~)

[devel]

一个二进制转为十进制的脚本。忙，同时还在弄BSD，在BSD还不能上网。
datel四 10月 23 19:82:39 CST 2003
--------------------------------------------------------------
#!/usr/bin/perl
#author:devel
print "input a 2 format number :\n";
chomp($a=<STDIN>);
if ( $a >=10) {
while ( $a >= 10)
{
$A=&yu ($a);
$result += 2**$A;
$a -=10**$A;
}
$result += $a % 10 ;
print "$result\n";
}
else {
print "$a\n";
}
sub yu {
$k=$a,$i=0;
while ( $k >= 10 )
{
$e= $k % 10;
exit if ( $k !~ /[01]/ );
$k -= $e;
$k/=10;
++$i;
}
return "$i";
}
-------------------------------------------------

[KornLee]

devle兄的perl脚本不错~~~,