如題,想寫一段代碼,通過new()創建新的物件,讀取處理指定檔案,但是一直說找不到檔案。
perl小白,求大神指點TT
這是pm讀取檔案的那部分:
sub new{
my $file_sam=shift;
open IN,"<$file_sam" or die $!;
my (@array,%quality);
while(<IN>){
chomp;
@array=split/\t/,$_;
if(!/^\@/){
$quality{$array[9]}.="$array[4]";
}
close IN;
return bless %quality;
}
}這是腳本中呼叫pm的部分:
#!/usr/bin/perl -w
use strict;
BEGIN {push (@INC,'C:\1217work');}
use sam;
my %object=new sam("sample9.sam");
轉載請註明出處,本文鏈接:https://www.uj5u.com/qita/236754.html
