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);