有关Perl问题的讨论请到这里

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

我觉得问题应该出在:

1. my $filename = shift;
2. 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脚本不错~~~,