文件读取实验.ppt.pptVIP

* Perl实验 结合数组和文件读取 大小写转换 $str = lc($str);$str = uc($str); * 1：文件的读写 open CONFIG, “filename”; open CONFIG, “filename”; open BEDROCK, “filename”; open LOG,“filename”; 当Perl 内部发生了一个严重错误(fatal error)，无法打开文件，可以利用die函数来返回发生错误的信息. * 例如：读取路径F:\教学课程\Per语言\perl理论\lesson4文件夹下的chr1.fa文件可以用语句： open IN,“ F:\\教学课程\\Per语言\\perl理论\\lesson4 \\chr1.fa or die cant open the data$!\n; open IN,“ F:\\教学课程\\Per语言\\perl理论\\lesson4 \\chr1.fa or die cant open the data$!\n; * 打开文件句柄以后，读取文件是应用钻石符号加上文件句柄，例如IN，一个IN代表文件的一行。 实验题目：读取ch1.fa文件的前10行，用print打印出来。(尝试用while循环，for循环，foreach循环分别实现程序)提示：perl中跳出循环是用last，和C语言中的break应用是一样的。 * 例如：想把运行结果写到文件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”;（创建文件并写文件） * 实验题目：将ch1.fa文件的前10行字母改为小写字母，并将结果写到文件result.txt（用文件追加和创建并写文件两种方式，体会两种方式的差别）。 提示：perl中跳出循环是用last，和C语言中的break应用是一样的。 * 实验题目：输出chr1.fa文件中所有不是全为N（其中N不区分大小写）的行，将结果保存到result1.txt当中。 * my @a=split(/\t/,$_); my @a=split(/\s+/,$_); 如何只读取文件的某列数据呢？ * 因为perl读文件是一行一行进行读取的，所以读取某列的文件就相当于是循环读取每行的这列数据。 如： while(IN){ my @=split(/\s+/,$_);//$a[0]第一列，$a[1]第二列 } * 实验题目：输出chr1.txt文件中的第2列和第3列数据，将结果保存到本地当中（文件名自取）。 实验题目：将chr1.txt文件中的第2列和第3列数据保存到数组当中，在循环数组将结果保存到本地当中（文件名自取）。 * 实验题目：输出position.txt文件中的第3列数据，将结果保存到本地当中（文件名自取）。 实验题目：将position.txt文件中的第3列数据保存到数组当中，并通过循环数组将结果保存到本地当中（文件名自取）。 * * 实验题目：根据实验课给的position.txt文件和chr1.txt文件，计算position文件中每行区间的平均甲基化水平。 提示：解该题的时候要注意把两个文件当中的哪个文件先存为数组，然后再通过循环依次计算每个区域的平均甲基化水平。