perl 语言求解释

81358458

#!/usr/bin/perl
open PRP,"</etc/squid/proxypasswd";
while(<RP>){
        s/:.+$//;
        print;
}
close PRP;

chasye

while(<RP>){
#非EOF时读取PRP
s/:.+$//;
#去除每行:及其后内容
print;
#输出处理后的结果
}