20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: perl请教？！！！！

作者: drckness [drckness]

论坛用户

#！usr/bin/perl
$string="this is a string";
@array=split(//,$string);
foreach(@array){
if($_ne"a"){
$upcase=ork($_)&0xdf;
$string2.=chr($upcase);
}else{
$string2.=$_;
}
}
请问：我看书上说
在ascii表中，大写字符的区别在于第六位，小写字符的第六位是1，而对就大写字符的第六位是0。所以将小写字符用ord函数转换成数字，然后将该数字第六位转换成0。最后将数字用chr函数转换字符，于是得到对应的大写字符。
请问那位perl高手能给我讲一下，上面到底说的是什么意思呀$_这个perl内置函数到底是做什么的呀?十分的感谢您！！！

地主发表时间: 05/20 23:11

回复: nightcolor [nightcolor]

版主

呵呵，，，老大，，你的业务来了~

B1层发表时间: 05/20 23:16

回复: drckness [drckness]

论坛用户

老大的做perl 出身的吗，那可找对人了，太谢谢你们了，我学perl学得这几天头都大了！！

B2层发表时间: 05/20 23:18

回复: drckness [drckness]

论坛用户

夜色兄的水平真是高！高人。呵呵
我看过你的贴子很服气的

B3层发表时间: 05/20 23:19

回复: liuandy207 [liuandy207]

论坛用户

$_可看作是一个系统变量,也是一个缺省变量。在这个例子的foreach循环中，$_主要是代表数组@array中每一项的值。

B4层发表时间: 05/21 10:23

回复: drckness [drckness]

论坛用户

老大们我问的可是ASCII里面的问题呀，真的就没有人给我帮忙吗。哎

B5层发表时间: 05/22 08:04

回复: h2o [h2o]

论坛用户

   我也在学PERL，想问一下你在那下载的软件，可以告诉我吗？
谢谢了。

                                             蓝精灵



[此贴被蓝精灵(h2o) 在 5月25日15时34分编辑过]

B6层发表时间: 5/25 15:53

回复: drckness [drckness]

论坛用户

没有问题的网上做PERL的软件很多的哟，你到处可以找到的。我想如果你要用的话最好用那个ULTRAEDIT我想这个才是做起来最好的哟，还有如果你还要做　CGI的话那么你可以用OMINHTTPD这个用起来也是很不错的现在CGI的程序员都　　用这个的。呵呵。好了吗。
欢迎你去我的网站
http://drckness.51.net(程序员驿站）

B7层发表时间: 05/26 22:02

论坛: 编程破解