首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > perl python >

perl习题解决思路

2012-03-02 
perl习题小骆驼书上的,我想问这程序#! C:\strawberry\perl\bin#test.pl$^I.bakwhile (){if (/^#!/){

perl习题
小骆驼书上的,我想问这程序
#! C:\strawberry\perl\bin
#test.pl
$^I=".bak";
while (<>){
if (/^#!/){
$_.="## Copyright(C) 2010\n";
}
}


.\test.pl a

这里的$^I是什么意思,作用在那个目录

[解决办法]
$^I中的字符串会作为备份文件的扩展名,为空时是undef.

Perl code
#!C:\Perl\bin\perl.exe -w#test.pl$^I=".bak";while (<>){    if (/^#!/)    {        $_.="## Copyright(C) 2010\n";    }    print;#这里加一个输出...} 

热点排行