perl文件夾存在
⑴ perl判斷文件是否存在
print-e'C:windows eadme.txt';
如果存在文件，就會輸出1，否則沒有輸出。
-e表示文件存在，判斷是否存在目錄要用 -d。
⑵ perl中怎麼獲取當前pl文件所在文件夾
#首先定義四種鹼基的數量為0
$count_A=0;
$count_T=0;
$count_C=0;
$count_G=0;
#首先要先把序列進行合並成一行
#先確定所要處理的文件的路徑及文件名（在windows系統下面要按照這樣的例子寫
#f:\\perl\\data.txt
print
"please input the Path just like this
f:\\\\perl\\\\data.txt\n";
chomp($dna_filename=<STDIN>);
#打開文件
open(DNAFILENAME,$dna_filename)||die("can
not open the file!");
#將文件賦予一個數組
@DNA=<DNAFILENAME>;
#以下兩步要把所有的行合並成一行，然後去掉所有的空白符
$DNA=join('',@DNA);
$DNA=~s/\s//g;
#將DNA分解成，然後賦值到數組
@DNA=split('',$DNA);
#然後依次讀取數組的元素，並對四種鹼基的數量進行統計
foreach $base(@DNA)
{
if ($base eq
'A')
{
$count_A=$count_A+1;
}
elsif ($base eq
'T')
{
$count_T=$count_T+1;
}
elsif ($base eq
'C')
{
$count_C=$count_C+1;
}
elsif ($base eq
'G')
{
$count_G=$count_G+1;
}
else
{
print
"error\n"
}
}
#輸出最後的結果
print "A=$count_A\n";
print
"T=$count_T\n";
print "C=$count_C\n";
print
"G=$count_G\n";
⑶ 如何用perl獲取某一文件所在路徑
用perl獲取某一文件所在路徑，參考代碼如下：
use Cwd 'abs_path';
print abs_path($0)."\n";
man Cwd
NAME
Cwd - get pathname of current working directory
SYNOPSIS
use Cwd;
my $dir = getcwd;
use Cwd 'abs_path';
my $abs_path = abs_path($file);
⑷ 我用perl打開一個文件處理存在另一個新文件里，現在我要打開該文件夾里的多個文件怎麼弄
問題在哪裡？
可以寫一個循環，遍歷所有需要處理的文件
需要考慮一個輸入文件一個輸出文件，還是所有輸入文件一個輸出文件
⑸ perl.exe的介紹
perl.exe是oracle資料庫帶的Perl語言解釋器程序的語言解釋進程。在運行電腦的時候會出現次進程佔用很多的CPU，如果是開發人員的話不能亂刪perl文件夾，因為在開發的時候會用到，如果刪除，運行程序的時候會報錯。
⑹ perl 文件夾問題
你應該先找出某些文件，然後獲取路徑 在明確路徑的情況下對你需要操作的文件進行操作 如果要對整個文件夾內的文件進行操作 可以使用 opendir
⑺ perl 如何創建文件夾下包含文件夾
比如創建 D:\tmpA\tmpB 這樣的目錄，那麼可以用命令：
mkdir("D:\\tmpA") unless(-d "D:\\tmpA"); #創建 D:\tmpA
mkdir("D:\\tmpA\\tmpB ") unless(-d "D:\\tmpA\\tmpB"); #創建D:\tmpA\tmpB
註：
mkdir("D:\\tmpA") unless(-d "D:\\tmpA"); 整體的意思表示如果不存在目錄D:\\tmpA 那麼創建目錄 D:\\tmpA。
-d "D:\\tmpA「 表示目錄是否存在，如果存在則為真，不存在為假。
如果要判斷文件是否存在 則用 -e
⑻ WIN10運行Perl時顯示存在同名文件怎麼辦
if(-e "$path"){
unlink "$path";
}
這樣就可以了