perl-我的第一个程序
1.问题描述:
总共90位长度的位流数据,其中只有5位的数据为1,其余位全部为0。统计好多组5位的简化数据(每一位之间空格隔开,每一组一行),将其扩展到90位。
#!D:/EDA/Perl/bin
$path_in = "weiliu.txt";
$path_out = ">weiliu.dat";
open(FILE_IN,$path_in)||die"can not open the file: $!";
open(FILE_OUT,$path_out)||die"can not open the file: $!";
while ($eachline =<FILE_IN>) {
chomp $eachline;
@line = split(/\s+/,$eachline);
@line_91 = () x ;#初始化一个91位的全为0的数组
print("@line_91\n"); my $count=;
while($count <@line){ # ($count <@line)表示的是数组的元素个数
$line_91[$line[$count]-] = ;# @line中的值指示了@line_91中的对应位变为1.
$count++; # 数组中具体变量用:$数组名[索引值] 来表示.
}
print("@line_91\n"); my $line_new = join('',@line_91); #产生的90位数据之间不应该有空格,将空格合并掉.
print("$line_new\n");
print FILE_OUT ($line_new,"\n");
}
close FILE_IN;
close FILE_OUT;
print("hello world");
其中:
$path_in = "weiliu.txt";
$path_out = ">weiliu.dat";
变量$path_in和$path_out分别指向要被读出来进行操作并最终写回的文本文件的路径。当然路径的话可以取绝对路径,不指出绝对路径,则默认是在当前目录下。
windows下路径用反斜杠(/)。如:"D:/Perl/test/example.pl"。或者"D:\\Perl\\test\\example.pl"
UNIX下用斜杠(\),双引号。
>表示写,一旦文件以写方式打开,他的内容将被删除,若要对文件进行追加内容,应该用>>。
open(FILE_IN,$path_in)||die"can not open the file: $!";
open(FILE_OUT,$path_out)||die"can not open the file: $!";
perl通过文件句柄对文件进行操作 open(file_handle,file_name)。
while ($eachline =<FILE_IN>) {
读入文件的每一行。保存在变量$eachline中。直到读出所有行,循环才结束。
@line = split(/\s+/,$eachline);
my $line_new = join('',@line_91);
split用于将一行文本拆分为数组,对数组的每个元素即可进行单独处理。
join将数组变量合并为变量。
print("$line_new\n");
print FILE_OUT ($line_new,"\n");
通过句柄将变量输出到文件的每一行。
chomp $eachline;
chomp函数用于去掉字符串结尾的换行,chop用于去掉字符串最后一个字符(包括换行符)(记忆:m相当于加了约束,所以只去掉换行符)。
2.运行结果
3.总结
第一次写perl脚本,花了3个多小时,从print函数开始,到文件操作,基本上熟悉了基本的语法。终于完成了一个工作。以后的工作和学习中会继续探索Perl的用法。
perl-我的第一个程序的更多相关文章
- Android开发-之第一个程序:HelloWorld!
小编觉得不管学习什么编程的时候,第一个程序都是要求打印输出一个"HelloWorld!",那就从最简单的HelloWorld开始吧!哈哈~~~~ 一.创建一个Android工程 1 ...
- [Fluent NHibernate]第一个程序
目录 写在前面 Fluent Nhibernate简介 基本配置 总结 写在前面 在耗时两月,NHibernate系列出炉这篇文章中,很多园友说了Fluent Nhibernate的东东,也激起我的兴 ...
- rails再体验(第一个程序)
掌握redmine plugin开发的目标在2016年未实现,2017年继续. 选择<Ruby on Rails Tutorial>教程,windows安装railsinstaller,该 ...
- OpenGL学习笔记1——第一个程序
学习的参考书基本是按照GL编程指南,如果有消息机制概念,对于GLUT的理解是很自然的.下面就按照自己写的第一个程序详细解释一下GL,还是比较容易上手的. 程序实现的功能是,根据当前随即种子摇出来的结果 ...
- Android 第一个程序 及 环境搭配
一. JDK配置 1.找到jdk安装路径 2.配置环境变量(建议配置在系统变量里面) 1).配置JAVA_HOME变量 2).配置 CLASSPATH 环境变量 CLASSPATH=.;%JAVA_H ...
- unix 网路编程(卷一)第一个程序编译过程
unix卷一去年暑假买的到现在才开始看无比惭愧,而且惭愧第一个程序就断断续续弄了几天,要好好写程序了,马上要找工作了,下面介绍下把本书第一个程序跑起来的过程: 搜各种博客 我用系统的是ubuntu 1 ...
- Hadoop学习历程(三、第一个程序)
根据之前的操作,我们已经可以正常的启动Hadoop了,关于真正的集群我会在之后进行说明.现在我们来看一下第一个程序吧 1. 在eclipse上建立一个java项目 2. 将 /usr/hadoop/s ...
- Python2.7.3 学习——第一个程序 Hello Python World
Hello World 每学一门语言开始的第一程序都是Hello World ,当然了Python也不例外,下面开始我们的Python第一个程序编写: 1,命令行: (1)打开终端,输入python, ...
- 【 D3.js 入门系列 — 1 】 第一个程序 HelloWorld
记得以前刚上大一学 C 语言的时候,写的第一个程序就是在控制台上输出 HelloWorld .当时很纳闷,为什么要输出这个.老师解释说所有学编程入门的第一个程序都是在屏幕上输出 HelloWorld, ...
- 【C语言探索之旅】 第三课:你的第一个程序
内容简介 1.课程大纲 2.第一部分第三课:你的第一个程序 3.第一部分第四课预告:变量的世界 课程大纲 我们的课程分为四大部分,每一个部分结束后都会有练习题,并会公布答案.还会带大家用C语言编写三个 ...
随机推荐
- <基础> PHP 进阶之 流程控制(Process)
do-while $sum = 0; $i = 10; do{ $sum += $i; $i--; }while($i > 0); //当这里的值为 false 时跳出循环 echo $sum; ...
- 交叉编译zookeeper的C库
原创文章,转载请正确注明本文原始URL及作者. 今天要编译一个zookeeper的C接口,要编译一个TK1版本. 事情经过这这样的:原来用的是zookeeper-3.4.6版本,但是源码中有个函数是汇 ...
- Dubbo的优化 --- 开发时使用
开发时的三个优化: 1.开发者在本地开发的时候启动Dubbo比较麻烦,所以采用直接连接的配置: 2.开发者本地开发时会打断点调试,会超过Dubbo默认的超时时间1s,所以需要全局设置超时时间: 3.开 ...
- HBuilder开发APP自动登录时跳过"登录页面"
刚接触开发公司APP项目,用HBuilder开发工具. manifest.json中的入口页面就是"登录页面",现在获取到自动登录状态是true,但是真机联调时"登录页面 ...
- BlockingQueue之DelayQueue的学习使用
DelayQueue 是一中阻塞队列,需要实现接口Delayed定义的方法.做下使用记录和心得吧, @Datapublic class DelayQueueExample implements Del ...
- DMA/Zero copy
DMA: 直接内存访问,是一种不经过CPU而直接从内存存取数据的数据交换模式.在DMA模式下,CPU只须向DMA控制器下达指令,让DMA控制器来处理数据的传送,数据传送完毕再把信息反馈给CPU,这样就 ...
- Turn the Rectangles 1008B
output standard output There are nn rectangles in a row. You can either turn each rectangle by 9090 ...
- dependencies与dependencyManagement的区别
1.DepencyManagement应用场景 当我们的项目模块很多的时候,我们使用Maven管理项目非常方便,帮助我们管理构建.文档.报告.依赖.scms.发布.分发的方法.可以方便的编译代码.进行 ...
- Haskell语言学习笔记(75)Conduit
安装 conduit $ cabal install conduit Installed conduit-1.3.0.3 Prelude> import Conduit Prelude Cond ...
- [cocos2d-x]游戏开发基础(图)
FreeMind的.mm文件下载: http://yunpan.cn/cfL3f5PXRfikP (提取码:90f1)