源程序

use Cwd;
my $count=0;
my $dir=getcwd;
print "$dir\n";
open(IN,"<Makefile") or print "$!";
print "开始读取\n";
while(<IN>)
{$count+=1;print $_;
}
print "\n一共有 $count 行!";
close IN;

逐行解析

首先我们需要使用Cwd模块。

定义count变量用于计算读取到的行数。

定义变量dir，用于存储当前位置信息。

打印变量dir的内容。

简单打印一个语句“开始读取”

open函数，用来打开文件。

1：读：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必须已经存在，否则会返回0，出错信息在$!中。
2：写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。
3：追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。
4：读写：open(文件句柄,"+<文件名")，通过“+<”模式，你可以既可以读文件，又可以写文件。你可以通过tell() 函数在文件内部移动，通过seek()函数进行定位。如果文件不存在，就会被创建。如果文件已经存在，原来的数据不会被清除。

使用while循环迭代IN，输出读取到的每一行。

$_表示默认输入和模式匹配内容。

最后输出count值，并关闭文件句柄。

要读取的文件

要读取的文件Makefile，一共是8行。

运行结果

结果与真实情况一致！

Perl读取文件信息相关推荐

STM32挂载SD卡基于Fatfs文件系统读取文件信息
STM32挂载SD卡基于Fatfs文件系统读取文件信息
perl读取文件夹下的文件
#!usr/bin/perl-w use strict; my $file_name;#文件名 my $num_1; my $num_2; my $num_3; my $num_4; my @resu ...
pytest 9 pytest-datadir读取文件信息
安装:pip install pytest-datadir 介绍:用于操作测试数据目录和文件的插件.pytest-datadir他会寻找包含测试模块名字的文件夹或者全局的一个文件夹名字为data下的数 ...
python设置ini文件中的值_PyCharm设置python文件模板，自动读取文件信息。
#!/usr/bin/env python # -*- coding:utf-8 -*- '''================================================= @P ...
Perl读取文件的两种常用方式
整体读入,逐行处理 open(FILE,"<","/home/chenmi/.bashrc")||die"cannot open the fil ...
以命令行的格式读取音频文件信息，并将读取的内容写到输出文件中
文章目录 c语言实现代码运行结果总结: 输入: wavinfo -i xxx.wav -o output.txt 输出:(格式规范)xxx=yyy rate(Hz)=16000 length=32 ...
MacOS 开发 — 读取文件/视频信息
macOS 开发 - 读取文件/视频信息在开发过程中我们或许需要,在文件未打开的情况下读取文件信息.或者在视频加载前读取视频编码格式,以及视频的尺寸等等.以下提供三种Object-c macOS下 ...
原创-含泪贡献：Revit二次开发，从零开始，利用socket实现Revit的远程调用，读取rvt文件信息
我是一名Java开发程序员,在一家建筑企业担任软件开发工作.大家都知道,建筑行业离不开画图软件,像CAD.Revit等画图建模软件时常使用.一个月前,接到领导的一个任务,要求提供一个接口,供用户远程调 ...
Servlet读取文件的最好的方式
在java web 开发的时候不可避免的会读取文本信息,但是方式不同,所付出的代价也是不一样的,今天学到了一个比较好的实用性的技巧,拿来与大家分享一下. 读取属性配置文件之所以说成是读取属性(pro ...
python操作文件的库_Python使用pyshp库读取shapefile信息的方法
通过pyshp库,可以读写Shapefile文件,查询相关信息,github地址为 https://github.com/GeospatialPython/pyshp#reading-shapefil ...

Perl读取文件信息

源程序

逐行解析

要读取的文件

运行结果

Perl读取文件信息相关推荐

最新文章

热门文章