|
|
|
|
 新手问一个字符处理的问题 - EndlessRain [ 2005-01-17 13:55 | 839 byte(s)]
 Re: 新手问一个字符处理的问题 - EndlessRain [ 2005-01-18 08:21 | 50 byte(s)]
|
|
|
|
[Original]
[Print]
[Top]
|
我有一个文件:sent.box
内容是:
base64
(空行)
d2VpZmVpOTkxNKOsxPq6w6OhDQoNCgloaSwgcGVybCxpdCdz
IGp1c3QgYSB0ZXN0Lg0KDQqhoaGh
(空行)
结束
我现在想做的是将空行之间的内容写入一个变量中
我所写的代码如下:
open FH,"sent.box" or die "$!
";
my $string;
my $i==0;
while($string=<FH>){
if($i==1){
print $string;
}
if($string=~/base64/){
$i++;
}
}
这样的输出多了两个空行。
怎样才能将它们去掉呢?
我想的一种方法是空行之间的字符最多每行有40个
怎样写一个变量让它去判断0<$_<40时,输出它?
请各位大侠指教,多谢。
|
|
|
[Original]
[Print]
[Top]
|
|
|