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";
}
这样就可以了