各位大虾帮一把!

望尘莫及

刚学了两天perl, 问下各位大虾下面几个语句的意思


chomp( @buf = <>; ) ;
($ip) = ( $buf[10] =~ /Framed-IP-Address\s*=\s*(\d+\.\d+\.\d+\.\d+)/ ) ;

在这里$ip的值是什么,是在$buf[10]中找到的(\d+\.\d+\.\d+\.\d+)/ )吗?
例如ip=192.168.1.1

$hstr =~ s/(.)/sprintf("%02x",ord $1)/eg ;
这里是指将@hstr中的16进制数字符转换成对应字符的ASCII码吗?

($pw) = ( $buf[10] =~ /Ascend-Send-Passwd\s*=\s*"(.+?)"/ ) ;
这里$PW的值是不是找到的(.+?)例如pw =; $pw = abc;(.+?)是指0个或多个任意字符(换行不算)吧?

$buf[2] =~ s/\.$/-out/ ;
这里是将$buf[2]中的最后一个"."字符换成"-out"吗?

我不知道理解得如何,忘各位指正,谢谢!

superdoctor

基本上都是正则的问题,找learnning perl看就可以了

第二个是将$1($hstr中的任意字符)的ascii码值转化为十六进制
其他的基本理解正确

望尘莫及

谢谢你的回复!
你说的书我也看过了, 我找了不少网上的资料, 对ord持描述都是:
函数名        ord
调用语法        asciival = ord (char);
解说        返回单个字符的ASCII值，与PASCAL中同名函数类似。
下面的代码:
$hstr = "outbound:addr=$ip" ;
$hlen = length($hstr) ;
$hstr =~ s/(.)/sprintf("%02x",ord $1)/eg ;

你的意思是说先用ord将$hstr的所有字符转换为ASCII码后,再由sprintf()这个
函数将其全转换为16进制数, 要是这样的话我觉得好像说不通呀
如果$ip的值为 192.168.1.1那$hstr的值为 outbound:addr=192.168.1.1
要是全换的话那结果是什么? 刚学两天, 有不少地方还不是很了解,说错的地方还忘指正,谢谢啦!

望尘莫及

才刚接触perl, 现在下了" Perl Builder 2.0"但还不会用
要不运行下就知道结果了, 现在只能纸上谈兵了
在xp系统用哪个perl编译工具好些呀

flw

请将标题修改得更加有意义一些。

yilong777jp

我也是刚学的，你用ActivePerl 看看，希望对你有帮助

望尘莫及

我看到很多文章建议不要用ActivePerl
所以没下,也不知XP系统能不能用

yilong777jp

ActivePerl  在xp可以用的，有什么不好？

jeff_gu

第二个是将$1($hstr中的任意字符)的ascii码值转化为十六进制,显示为2位数，不足二位的前面用0补足

望尘莫及

多谢各位帮忙!
($ip) = ( $buf[10] =~ /Framed-IP-Address\s*=\s*(\d+\.\d+\.\d+\.\d+)/ ) ;
$ip = ( $buf[10] =~ /Framed-IP-Address\s*=\s*(\d+\.\d+\.\d+\.\d+)/ ) ;
这两句有什么区别?