perl 学习 关于文本存放位置的问题
发布网友
发布时间：2024-01-18 21:48
共1个回答
热心网友
时间：2024-12-09 03:29
我个人感觉你的文件读取操作是错的,建议学会使用下面书写句柄操作方式。句柄的各项操作最好在代码的前面就书写完毕，不然你的代码实在是太乱了。
给你我写过的例子，我一般下面这样写
命令参数为：perl get_pcr.pl 路径\samfile 路径\outfile
#!/usr/bin/perl
# get the pcr depth of sequencing of brca
# 2013-09-27
use strict;
use warnings;
@ARGV == 2 or die "usage : <sam> <out>";
my ($samFile, $outFile) = @ARGV;
open my $sam, '<', $samFile or die "error open file : $samFile";
open my $out,'>', $outFile or die "error open file : $outFile";
while（<$sam>）
{
}
close $sam；
close $out；
