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内置函数到底是做什么的呀?十分的感谢您！！！

[此贴被 drckness(drckness) 在 5月20日23时57分编辑过]

[此贴被 drckness(drckness) 在 5月20日23时41分编辑过]

[此贴被 drckness(drckness) 在 5月20日23时55分编辑过]

地主发表时间: 5/20 23:10

回复: kert_t8 [kert_t8]

论坛用户

运行以下程序
#!usr/bin/perl
print;
$_="You are a bad boy!!";
print;

当print函数没有指定输出内容是，$_作为默认值被输出

我知道的大概就这么多

B1层发表时间: 07/24 20:19

论坛: 编程破解