[DietyFiend]

刚来呢,
感觉~~
风景无限!

[加布]

$ Perl -MO=Deparse, -p -e '$a=5*6+4;'
($a=34);
-e syntax ok

第一行社么意思特别是加粗的地方

foreach $key(keys %monthstonum)
{
printf "Month $monthstonum{$key} is $key \n};
}

我比较熟悉c,c++所以这个哈希调用keys 是设么意思后面更%monthstonum我不是很清楚

while(<data>)
{
if (s#\\s#)
{
s_.=<data>;
redo;
}
}
那个加起来好奇怪帮我解释一下

[加布]

my $packtring="a8a4a12ssss1";

my $reclength=length(pack($packstring));

my @uy_types=qw(EMPTY RUN_LVL BOOT_TIEM OLD_TIME NEW_TIME INIT_PROCESS LOGIN_PROCESS USER_PROCESS DEAD_PROCESS ACCOUNTING);

open(D,"</var/adm/wtmp")or die "Couldn't open wtmp,$!";<R

while(sysread(D,my $rec,$reclength))

{

my ($user,$userid,$line,$pid,$type,$eterm,$eexit,$time)

=unpack($packstring,$rec);

print("$user,$userid,$line,$pid,$ut_types[$type],",

"$eterm,$eexit,",scalar localtime($time),"\n");

}

close(D) or die "Couldn't close wtmp,$!";

一句话实在是太看不懂了拜托了，特别是那个D我就想不同那几个符号设么意思
还有就是;号后面的<R设么意思啊我快崩溃了
“反引用“
我看了半天还是搞不明白，谁可以帮忙解释一下大师们啊

[tojeff]

最初由 加布 发表
$ Perl -MO=Deparse, -p -e '$a=5*6+4;'
#写完的脚本可以使用Perl的B和O模块对脚本进行转化的，上面是使用内置的编
#译器和优化器对代码优化的意思
($a=34);
-e syntax ok

第一行社么意思特别是加粗的地方

foreach $key(keys %monthstonum)
{
printf "Month $monthstonum{$key} is $key \n};
}

我比较熟悉c,c++所以这个哈希调用keys 是设么意思后面更%monthstonum我不是很清楚

#%hash是一种C/C++里面没有的数据类型，是建立在键=>值的散列数组，我举个简单的列子
# #!/usr/bin/perl -w
# %hash = (
# one => 'I am one',
# two => 'I am two',
# three => 'I am three'
# );

# print $hash{'one'};#输出 I am one
# keys(%monthstonum)返回所有的%monthstonum键

while(<data>)
{
if (s#\\s#)
{
s_.=<data>;#连接所有符合s#\\s#结构的行
redo;
}
}
那个加起来好奇怪帮我解释一下

[tojeff]

最初由 加布 发表
my $packtring="a8a4a12ssss1";

my $reclength=length(pack($packstring));

my @uy_types=qw(EMPTY RUN_LVL BOOT_TIEM OLD_TIME NEW_TIME INIT_PROCESS LOGIN_PROCESS USER_PROCESS DEAD_PROCESS ACCOUNTING);

open(D,"</var/adm/wtmp")or die "Couldn't open wtmp,$!";<R

while(sysread(D,my $rec,$reclength))

{

my ($user,$userid,$line,$pid,$type,$eterm,$eexit,$time)

=unpack($packstring,$rec);

print("$user,$userid,$line,$pid,$ut_types[$type],",

"$eterm,$eexit,",scalar localtime($time),"\n");

}

close(D) or die "Couldn't close wtmp,$!";

一句话实在是太看不懂了拜托了，特别是那个D我就想不同那几个符号设么意思
还有就是;号后面的<R设么意思啊我快崩溃了
“反引用“
我看了半天还是搞不明白，谁可以帮忙解释一下大师们啊

open(D,"</var/adm/wtmp")or die "Couldn't open wtmp,$!";<R
是以读方式打开文件/var/adm/wtmp（其中D是文件句柄，相当于读的管道的名称），如果某种原因没有打开的话，跳出并且提示；

执行完毕了，设置在调试器提示前的Perl命令为R

“反引用“ 就是引用的反过来，如果是有一个是引用，例如：
%hash = (
one => 'I am one',
two => 'I am two',
three => 'I am three'
);

$ref = \%hash;
那么，$ref->{'one'}就是反引用了（值为‘I am one’），一般是用来求值的

[ywchen2000]

好东西亚.呵呵

[menggy]

各位大哥,我想请教一下,用PERL写一个简单的留言板的思路是什么啊?实现步骤是什么?不要源代码,给小弟点一下思路谢谢了

[topvshot]

perl之父的。Perl语言编程（第三版）
还是Perl语言入门(第四版)

[hfahe]

$tmpdir哪儿来的。。。

作者: 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++;
}

[wang.zhiguo]

问题：
查找文本中被引号包含的字符串，并且要求字符串中至少有一个中文字符。

正则表达式如下：
\"(.*[\x80-\xFF]{2,}.*)\"

奇怪的是：查不到匹配的内容？？？

[wangsheng0415]

我是新来的，回复一下

[ares_sheng]

为什么不把书直接发成附件呢，这样更好啊！