Perl实验 结合数组和文件读取 2019/9/23.

Presentation on theme: "Perl实验 结合数组和文件读取 2019/9/23."— Presentation transcript:

1 Perl实验 结合数组和文件读取 2019/9/23

2 大小写转换 $str = lc($str); $str = uc($str);
2019/9/23

3 open CONFIG, “filename”; open CONFIG, “<filename”;
1：文件的读写 open CONFIG, “filename”; open CONFIG, “<filename”; open BEDROCK, “>filename”; open LOG,“>>filename”; 当Perl 内部发生了一个严重错误(fatal error)，无法打开文件，可以利用die函数来返回发生错误的信息. 2019/9/23

4 例如：读取路径F:\教学课程\Per语言\perl理论\lesson4文件夹下的chr1.fa文件可以用语句：
open IN,“ F:\\教学课程\\Per语言\\perl理论\\lesson4 \\chr1.fa" or die "can't open the data$!\n"; open IN,“< F:\\教学课程\\Per语言\\perl理论\\lesson4 \\chr1.fa" or die "can't open the data$!\n"; 2019/9/23

5 打开文件句柄以后，读取文件是应用钻石符号加上文件句柄，例如<IN>，一个<IN>代表文件的一行。
实验题目：读取ch1.fa文件的前10行，用print打印出来。(尝试用while循环，for循环，foreach循环分别实现程序)提示：perl中跳出循环是用last，和C语言中的break应用是一样的。 2019/9/23

6 例如：想把运行结果写到文件result.txt当中.
分两种情况：1：比如本地已经有result.txt文件，且result.txt文件当中本来也有内容，想把运行结果放到原来文件的内容的后面，可以用语句 open OUT,“>>F:\\教学课程\\Per语言\\perl理论\\lesson4 \\result.txt” or die “can‘t open the data$!\n”;（文件的追加） 2：如果本地没有result.txt文件，那么想自动创建result.txt文件并把运行结果保存进去，用语句 open OUT,“>F:\\教学课程\\Per语言\\perl理论\\lesson4 \\result.txt” or die “can‘t open the data$!\n”;（创建文件并写文件） 2019/9/23

7 提示：perl中跳出循环是用last，和C语言中的break应用是一样的。
实验题目：将ch1.fa文件的前10行字母改为小写字母，并将结果写到文件result.txt（用文件追加和创建并写文件两种方式，体会两种方式的差别）。 提示：perl中跳出循环是用last，和C语言中的break应用是一样的。 2019/9/23

8 实验题目：输出chr1.fa文件中所有不是全为N（其中N不区分大小写）的行，将结果保存到result1.txt当中。
2019/9/23

9 如何只读取文件的某列数据呢？ 2019/9/23

10 因为perl读文件是一行一行进行读取的，所以读取某列的文件就相当于是循环读取每行的这列数据。
如： while(<IN>){ } 2019/9/23

11 实验题目：输出chr1.txt文件中的第2列和第3列数据，将结果保存到本地当中（文件名自取）。
2019/9/23

12 实验题目：输出position.txt文件中的第3列数据，将结果保存到本地当中（文件名自取）。
2019/9/23

13 实验题目：根据实验课给的position.txt文件和chr1.txt文件，计算position文件中每行区间的平均甲基化水平。
提示：解该题的时候要注意把两个文件当中的哪个文件先存为数组，然后再通过循环依次计算每个区域的平均甲基化水平。 2019/9/23