perl文件夾
❶ 如何用PeRL語言創建一個文件夾
mkdir("path/to/your/dir", mask)
第一個參數是你要創建的文件夾名字,mask是許可權,比如0755(0開頭表示8進制)
你也可以使用系統命令
system("mkdir path/to/your/dir")
不明白你的在哪裡寫是什麼意思?已經很具體了啊,大哥,好吧,好事做到底
$new_dir = "my_new_dir";
mkdir( $new_dir, 0777 );
❷ Perl處理文件及文件夾
更多內容,請訪問我的 個人博客 。
❸ perl程序如何刪除文件夾下的所有文件且不刪除文件夾下的文件夾
-f
Entry
is
a
plain
file
-d
Entry
is
a
directory
程序段如下:
opendir(DIR,
"D:/a")
or
die
$!;
while
(my
$file
=
readdir(DIR))
{
if
(-f
"$dir/$file")
{unlink
"$dir/$file";}
}
closedir
DIR;
這段程序經過了成功的試驗。
❹ 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
❼ perl怎麼復制整個文件夾
perl復制整個文件夾的方法
use strict;
use Cwd;
user File::Copy;
my $curPath = getcwd;
my $destPath = ""; # 目標目錄
foreach my $dir(<*>){
if(-d $dir){
move "$curPath/$dir", "$destPath/$dir" or die $!;
}
}
# 試試看吧,是不是你要的
❽ 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);