在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
查看: 1858|回复: 1

[求助] 【求助】求一个脚本,对文本内容进行处理

[复制链接]
发表于 2014-11-21 16:13:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
我现在有这样一个文本,里面有0和1以及换行符等其他非数字非字母的字符现在我需要把这个文本中的所有的0和1按顺序提取出来,然后每80个放一行,重新生成一个文件
请问这个脚本应该怎么写
发表于 2014-11-28 12:45:56 | 显示全部楼层
my $file = "";
open(FIN, "<in.txt");
{
    local $/ = undef;
    $file = <FIN>;
}
close(FIN);

$file =~ s/[^0^1]//sg;     #删除非0非1的字符
$file =~ s/\^//sg;             #删除^

open(FOUT, ">out.txt");
my $tmp = "";
my $i = 0;
my $len = length($file);
while($len - $i > 80){
    print FOUT substr($file,$i,80) . "\n";   #每80个打印一个回车符
    $i += 80;
}
print FOUT substr($file,$i);      #输出剩下的所有字符
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

×

小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-3-29 20:41 , Processed in 0.020837 second(s), 8 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表