使用Perl的File::Basename重命名文件扩展名
Perl的File::Basename模块提供了一种方便的方式来重命名文件扩展名。通过使用该模块，可以获取文件路径的基本名称和扩展名，并根据需要进行修改。
File::Basename模块可以通过以下方式在Perl脚本中使用：
use File::Basename;该模块主要提供了两个函数：
- basename($path, $suffix)：该函数用于获取路径$path中的基本名称。可选参数$suffix用于指定要删除的文件扩展名。
下面是一个示例：
use File::Basename;
my $path = "/path/to/file.txt";
my $basename = basename($path, ".txt");
print "基本名称：$basename\n";输出：
基本名称：file- fileparse($path, @suffixes)：该函数用于获取路径$path中的基本名称和扩展名。可选参数@suffixes用于指定有效的文件扩展名，只有符合其中一个扩展名的文件会被解析。
下面是一个示例：
use File::Basename;
my $path = "/path/to/file.txt";
my ($basename, $dirname, $suffix) = fileparse($path, ".txt");
print "基本名称：$basename\n";
print "目录名称：$dirname\n";
print "扩展名：$suffix\n";输出：
基本名称：file
目录名称：/path/to/
扩展名：.txt这些函数可以与其他Perl语言的功能结合使用，以实现文件重命名的目的。例如，可以使用rename函数来重命名文件。
下面是一个示例，将文件的扩展名从.txt修改为.csv：
use File::Basename;
my $path = "/path/to/file.txt";
my ($basename, $dirname, $suffix) = fileparse($path, ".txt");
my $new_path = $dirname . $basename . ".csv";
rename($path, $new_path) or die "无法重命名文件：$!";
print "文件已成功重命名为：$new_path\n";输出：
文件已成功重命名为：/path/to/file.csv推荐的腾讯云相关产品和产品介绍链接地址如下：
- 腾讯云对象存储（COS）：可用于存储和管理文件，提供高可用性和安全性。详情请查看腾讯云对象存储（COS）。
- 腾讯云函数计算（SCF）：无服务器计算服务，可以运行和管理代码，响应事件触发。详情请查看腾讯云函数计算（SCF）。
请注意，以上产品和链接仅供参考，具体选择和使用根据实际需求进行评估和决策。
相关·内容
这是我写的一个脚本：
将多个文本文件合并到一个CSV中
将源文件的名称附加到每一行数据
这个脚本目前每10,000行读取大约3秒--与一个工作的批处理/Perl脚本相比，这太长了，我想知道我做错了什么。
关于这是否是最好的方法的评论是受欢迎的-任何能让我将一个文件和源文件名附加到每一行的东西都是受欢迎的。我选择使用StreamReader，因为源文件非常大。
Powershell
# Powershell -executionpolicy bypass -file (.ps1 file path)
[System.IO.DirectoryInfo]$ResponsesFolder = (fo
浏览 0提问于2019-05-04得票数 2
2回答
对于许多文件，我希望获取父目录并将其名称附加到文件名中。例如，在以下路径中：
A/B/C/file.zip
我想将file.zip重命名为file_C.zip。
这是我的代码。我必须找到不包含子目录的目录和其中的zip文件，并且我想重命名它以引用父目录。
find ${WORKDIR} -daystart -mtime +3 -type d -links 2 -exec bash -c 'zip -rm "${1%}".zip "$1"' _ {} \;
浏览 1提问于2016-11-17得票数 0
1回答
我有来自INEX的IMDB集合，它由几千个目录中的几百万个XML文件组成，结构如下：
- actors
-- 000
--- person_1000.xml
--- ...
-- 001
--- person_1001.xml
--- ...
...
- movies
-- 000
--- 10000.xml
--- ...
...
我需要将这些文件转换为TRECTEXT格式，这是
<DOC>
<DOCNO> document_number </DOCNO>
<TEXT> XML file goes here. </TEXT>
浏览 0提问于2013-01-07得票数 1
回答已采纳
2回答
当我制作latex文档时，创建了多个具有相同基本名称但不同扩展名的文件。如果我想重命名原始文件，我还必须重命名文件夹中的所有其他文件。
有没有办法做到以下几点？
mv file_basename.* file_newname.[whatever was globbed]
浏览 15提问于2016-09-14得票数 1
回答已采纳
我需要复制带有特定扩展名的文件。但问题是有多个文件具有相同的文件名，我不想覆盖它们，并将它们存储为复制文件_1、file_2等。当我尝试使用unix命令行时，文件被滥用了，尽管我使用了cp -n。有任何方法可以使用命令行或perl来完成这个任务吗？我用的命令是
找到-L。-name "*.txt“-exec cp -n {} -t ~/目的
浏览 2提问于2016-08-19得票数 0
回答已采纳
我找到了以下代码：
Dim sName
Dim fso
Dim fol
'create the filesystem object
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
'get current folder
Set fol = fso.GetFolder(".")
'go thru each file in the folder
For Each fil In fol.Files
'check if the file name co
浏览 1提问于2019-02-25得票数 0
回答已采纳
对于我的perl脚本，一个文件是作为参数传递的。该文件可以是.txt文件或包含.txt文件的.zip文件。
我想要写的代码看起来像这样
if ($file is a zip) {
unzip $file
$file =~ s/zip$/txt/;
}
检查扩展的一种方法是对.进行拆分，然后匹配数组中的最后一个结果(由拆分返回)。
有没有更好的方法？
浏览 2提问于2010-10-15得票数 8
回答已采纳
3回答
我正在尝试将一个文件上传到一个名为directory的文件夹中。我有一个上传表单的HTML代码，一旦我选择了所需的文件并按下upload，PHP代码就会显示在浏览器中，而文件根本不会被上传。
我是PHP新手。我以前做过HTML和CSS。可能有一点Javascript，但不是PHP。我将我的uploader.php放在一个单独的文件中，而不是HTML代码中。它们都如下所示：
myHTML.html：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR
浏览 3提问于2011-10-31得票数 2
我正在构建一个PowerShell脚本，以检查文件夹中的文件扩展名，如果不是，将扩展名重命名为.htm。事实证明，把这一切结合起来更加困难。
我拥有的是：
New-Item -ItemType Directory -Force -Path C:\GP_Services
set-location C:\GP_Services
$root = Get-ChildItem
foreach($file) {
$txtfile =".htm"
$files = gci | Where-Object {$_.extension -eq ".htm"}
else
浏览 1提问于2015-06-04得票数 1
回答已采纳
3回答
我正在尝试实现一种Bash参数扩展技术，以取代Perl脚本中文件的现有扩展名。
这是用于替换文件扩展名的bash代码，该文件扩展名运行良好：
mv "$f" "${f%.*}.png"
另一方面，我试图使用system()在Perl脚本中使用它。
system('mv', "$a/$fileName", "$a/${fileName%.*}".'.png');
$a保存通过命令行参数传递的目录名。
它抛出"syntax error near %"和"missing right
浏览 0提问于2020-04-29得票数 2
回答已采纳
2回答
我使用Windows，并显示一个文件扩展名。
当我用PHP上传一个图片文件时，图片名称image1_big.jpg变成了image1_big.jpg.jpg。
而image2.gif变成了image2.gif.gif。
我不想关闭文件扩展名。
我怎样才能避免这个问题？
function addProduct(){
$data = array(
'name' => db_clean($_POST['name']),
'shortdesc' => db_clean($_POST['shor
浏览 0提问于2009-12-30得票数 0
回答已采纳
我有以下格式的文本文件：
/path1/path2/file.ext:20 ..................
/path1/path2/file2.ext:120 ..................
/path4/file.ext:93 ..................
我想获得以下格式的输出：
file.ext:20 ..................
file2.ext:120 ..................
file.ext:93 ..................
使用perl/awk/sed。
浏览 1提问于2013-09-05得票数 1
回答已采纳
我试图递归地重命名一些文件和文件夹，以格式化名称，并认为find和perl-rename可能是它们的工具。我已经找到了我想要运行的大多数命令，但在最后两个命令中：
我希望将目录名中的每个.替换为_和
对于文件名中的每一个. (除了最后一个)，都要用_替换
所以./my.directory/my.file.extension变成了./my_directory/my_file.extension。
对于第二个任务，我甚至没有命令。
对于第一个任务，我有以下命令：find . -type d -depth -exec perl-rename -n "s/([^^])\./_/
浏览 1提问于2021-03-01得票数 0
1回答
我有一个php脚本来处理上传的图片。
如果我上传一个像file.jpg这样的文件，它工作得很好。
但是如果我尝试上传file.JPG，我就会遇到麻烦，即使是相同的文件被重命名了。
代码：
if(isset($_FILES["arq"])){
@getimagesize($_FILES['arq']['tmp_name']) or $err=5;
($_FILES['arq']['error']==0) or $err=$_FILES['arq']['error']
浏览 3提问于2009-12-17得票数 0
回答已采纳
给定一个字符串文件路径，比如/foo/fizzbuzz.bar，我该如何使用bash来提取字符串的fizzbuzz部分呢？
浏览 0提问于2008-09-24得票数 467
回答已采纳
我只想用数字搜索.jpg图像的全名。
我有一个名为" pictures“的文件夹，在所有图片中都有这样的名称：
100-Lisa_Person1.jpg
150-BillJohnson.jpg
160-BlakeSmith(1).jpg
and so on....
守则：
$contact_lastname = 150;
$files = glob("C:\Pictures\\" . $contact_lastname . "*.jpg"); // Will find my .jpg
// Process through each file
浏览 0提问于2016-03-27得票数 2
回答已采纳
我试图重命名一个文件夹的多个子文件夹中的所有文件，使用powershell。这些文件包含一个32个字符长的字符串序列，然后是'-1‘或'-2’，我不再需要。所以我希望这些文件的新名称仅仅是它们的32个字符。
示例：
BigFolder/ /Subfolder1 /abcabcabcabcabcabcabcabcabcabcab CABCABCABCABCABCABCAB-1，abcabcabcabcabcabcabcabcabcabcab 2，abcabcabcabcabcabcabcabcabcabcab 3，/Subfolder2 /abcabcabcabcabcabcab
浏览 2提问于2020-11-11得票数 0
回答已采纳
2回答
将随机名称附加到文件上载
、、、
我把文件和用户数据一起保存到数据库中的一个表中。现在，一切都很完美，只是我找不到一种有效的方法来将随机名称附加到上传的文件名中。其中文件被重命名为用于查看和在数据库上。这是我目前正在做的事情。
<?php
$target = "files/";
$target = $target . basename( $_FILES['file']['name']);
$title=$_POST['title'];
$description=$_POST['description'];
$usernam
浏览 3提问于2014-07-15得票数 0
3回答
我需要处理文件夹的所有xml文件：
foreach(glob("folder/*.xml") as $file) {
$reader = new XMLReader;
$reader->open($file);
// need to know the filename
}
在处理文件时，我需要知道文件名。也就是说，如果file =“文件夹/file.xml”，我想得到"file“。我该怎么做？我需要使用RegEx吗？
浏览 4提问于2014-10-31得票数 1
回答已采纳
我正在尝试下面的代码来搜索.txt文件并将它们重命名，同时将其复制到不同的目录中。
#!/bin/perl
use File::Basename;
@txtfiles = <*/*.txt>;
foreach my $file(@textfiles){
$dir = dirname($file);
$file = basename($file);
$file =~ s/(\d+)/$dir/; //renaming number with $dir
`mkdir -p summary` unless -d summary;
`cp $file summary
浏览 4提问于2015-04-14得票数 1
回答已采纳
3回答
我有这个变量：
input_file = file.csv
我想将此文件的扩展名从file.csv更改为file.old
我在想像mv $input_file basename $input_file . old这样的东西，但我真的不知道该怎么做
浏览 1提问于2017-07-20得票数 2
我有以下的药剂代码：
defmodule T do
@eex_extension "eex"
@file_separator "."
def get_base_file_name_from_template_name(template_file_name) do
[base, extension, @eex_extension] = String.split(template_file_name,@file_separator)
base <> @file_separator <>
浏览 0提问于2018-01-12得票数 5
回答已采纳
因此，我正在创建一个类，它处理从表单上传的文件。我遇到的问题是在将文件从临时文件重命名为新文件的过程中。我的类允许用户手动指定文件名，或者使用与上传相同的名称。现在，如果手动设置名称，则需要知道要添加到文件中的扩展名。由于临时文件夹不包括扩展，而且，我希望不要在从$file['uploadedfile']['name']开始的时候爆炸它，那么建议我做什么呢？
--我想我的第一个问题是：是否有任何方法来配置服务器/php，这样当文件放在临时文件夹中时，它就不会重命名，所以我可以使用pathinfo()作为扩展名。
浏览 2提问于2011-11-04得票数 0
回答已采纳
8回答
我有一堆需要重命名的文件。
file1.txt needs to be renamed to file1_file1.txt
file2.avi needs to be renamed to file2_file2.avi
正如您所看到的，我需要原始文件名后面的_ folowed。
有很多这样的文件。
浏览 0提问于2009-12-24得票数 6
回答已采纳
我使用for循环，参数i。每个参数在末尾包含".net“，在目录中，它们位于一行中，除以一些空格。现在我需要使用sed的替代来摆脱这些".net“，但是它不起作用。我经历了不同的选择，最近的一次是
sed 's/\.(net)//g' $i;
这显然是不正确的，但我只是在网上找不到这方面的任何东西。
为了说明清楚，让我们假设我有一个目录，其中包含5个文件的名称。
file1.net
file2.net
file3.net
file4.net
file5.net
我希望我的产出是
file1
file2
file3
file
file5
...Could有人给我一
浏览 11提问于2022-05-15得票数 2
4回答
在R中隔离字符串的一部分
、、、、
下面是我摄取到R中的一个字符串的示例：
General\\Contingency\\Import\\Import_Manual\\New\\ADC170001A13_Loc.txt
我试图隔离'ADC170001A13‘我已经尝试的子字符串和一个gsub，以删除除该部分字符串以外的所有内容，但我得到以下错误：
Error in gsub(clean, "", TextLOCfiles) :
invalid regular expression '\\Fs01 \DepartmentFolders$\General\Contingency\Import\Impo
浏览 0提问于2014-01-10得票数 2
如何使用glob()函数获取存储在特定文件夹中的文件的特定名称？我在下面有一个示例源代码，但有不同的输出，它显示文件的完整路径，而不是只显示特定的文件名。如何仅从路径集中检索文件名，或者如何直接访问并获取特定的文件名？谢谢!
@files = glob('/Perl/Assignment/*');
foreach $files(@files){
print "$files\n";
}
输出：
/Perl/Assignment/file1.txt
/Perl/Assignment/file2.txt
/Perl/Assignment/file3.txt
预
浏览 2提问于2015-06-28得票数 4
回答已采纳
3回答
我有以下perl一行程序将/path/to/file.txt转换为/path/to/
echo "/path/to/file.txt" | perl -pe 's{(.*)}{File::Basename->dirname($1)}ge'
但是，我在调用File::Basename->dirname()时遗漏了一些东西，导致了以下错误：
Can't locate object method "dirname" via package "File::Basename" (perhaps you forgot t
浏览 3提问于2016-11-20得票数 0
回答已采纳
2回答
在我的Perl脚本中，我希望将路径字符串分为两个字符串:目录和文件名。
例如，./output/try.txt拆分成./output和try.txt，现在我使用
$path =~ s/(\/?)[^\/]*$/${1}/
可以获取目录部分。对第二部分有点困惑。
我是正则表达式的新手，需要一些帮助。
基于我自己的测试，我找到了一个好方法：
$path = "./output/try.txt"
$dir = $path
$dir =~ s/([^\/]*$)//;
$file = $1
使用s将文件名与^/*$匹配，并将其替换为empty，然后可以得到$dir。与之匹配的$1部分将
浏览 1提问于2014-12-26得票数 0
3回答
我想要获得一个不带路径(如果它是字符串的一部分)和扩展名的文件名。
例如：
/path/to/file/fileName.txt # results in "fileName"
fileName.txt # results in "fileName"
/path/to/file/file.with.periods.txt # results in "file.with.periods"
因此，基本上，我想删除前面的所有内容，包括最后一个"/“(如果存在)和最后一个”“。以及其后的任何元字
浏览 0提问于2010-09-08得票数 36
回答已采纳
4回答
我有一个接受文件夹路径的方法，我希望获取扩展名为“.yml”的所有文件名，并将它们添加到如下所示的对哈希中：
如果文件名为saved_file_1.yml -> {saved_file_1 => "saved_file_1.yml"}
浏览 3提问于2014-02-09得票数 1
回答已采纳
8回答
我有一个目录(带有子目录)，我想找到所有具有".ipynb“扩展名的文件。但是我希望'find‘命令只返回这些文件名，而不需要扩展名。
我知道第一部分：
find . -type f -iname "*.ipynb" -print
但是如何在没有"ipynb“扩展的情况下获得名称呢？任何回复都非常感谢..。
浏览 7提问于2017-01-31得票数 20
回答已采纳
我需要在一个目录及其所有子目录中创建一个文件列表。我用过
find . -type f
来获取文件列表，但是我只需要文件名，而不是通向它的路径。
因此，与其返回这个：
./temp2/temp3/file3.txt
./temp2/file2.txt
./file.txt
我要回去
file3.txt
file2.txt
file.txt
浏览 0提问于2016-03-14得票数 3
回答已采纳
4回答
我在一个目录中有多个文件，例如：linux_file1.mp4、linux_file2.mp4等等。如何使用shell移动这些文件，使其名称为file1.mp4、file2.mp4等。我有大约30个文件要移动到新名称。
浏览 17提问于2011-08-02得票数 65
回答已采纳
我有一个字符串，它包含图像文件的数据和名称，用制表符表示
图像文件的名称长度为41个字符，并以文件扩展名.tif (例如: X1126225548817153725411111_PPPPP_00333.tif)结尾
我想删除符合以下条件的子字符串，但我不确定要使用哪种字符串技巧
浏览 12提问于2016-09-09得票数 0
1回答
我想用清除工具命令描述所有批处理和可执行文件。我可以对一种类型的文件这样做：
cleartool find "Z:\PATH" -name *.bat -exec "cleartool describe %%CLEARCASE_PN%%"
但我找不到任何方法来处理这两种类型的文件。我可以复制行，但由于性能不佳，这不是一个好的解决方案。我尝试过用单引号或双引号、管道或双管来包围，但是什么都不起作用(-name "*.bat，.exe"，-name (.bat \x\ *.exe)等等)。有什么解决办法吗？
谢谢
浏览 3提问于2014-07-04得票数 1
回答已采纳
1回答
如果昨天创建了文件，则更改文件夹中文件的扩展名。
这是将文件扩展名路径从.comh更改为.txt
if ($countFiles.Count -gt 0)
{
foreach ($f in $files)
{
if ($f.CreationTime -gt($(Get-Date).AddDays((-1))))
{
#Changing of extension
}
浏览 0提问于2019-07-10得票数 1
回答已采纳
如何将多个文件夹中的多个文件复制到一个文件夹中，并根据它们从哪个目录复制它们的名称？
初始目录层次结构：
folder1/
file1.gz
filexyz.gz
folder2/
file1.gz
filexyz.gz
folder3/
file1.gz
filexyz.gz
结果：
folder1_file1.gz
folder2_file1.gz
folder3_file1.gz
folder1_filexyz.gz
folder2_filexyz.gz
folder3_filexyz.gz
浏览 0提问于2019-09-30得票数 2
回答已采纳
1回答
嗨，我想要创建一个bash文件，在这里我定义了多个文件(没有设置数字)，脚本检查每个文件是否存在md5哈希，如果没有，就创建一个？我被if循环困住了，如何将可变长度的循环定义为if条件？
COMPARE_FILES=("/folder/file1" "/folder2/file2" "file3" ... "/folderN/fileN")
for i in "${COMPARE_FILES[@]}"
do
base=${i%%.*} # does not work?
浏览 4提问于2017-04-28得票数 0
回答已采纳
我创建了下面的python脚本，它检查源文件夹的内容，将所有.txt文件复制到目标文件夹，并将所有.csv文件移动到目标文件夹。
这是剧本-
import os
import shutil
from pathlib import Path
import time
source = "C:\\Users\\user\\Desktop\\source"
destination = "C:\\Users\\user\\Desktop\\destination"
date = time.strftime("%Y%m%d-%H%M%S")
files =
浏览 4提问于2022-04-13得票数 0
回答已采纳
1回答
我正在研究如何遍历一组文件，并对这些文件执行程序，在扫描hyper-v虚拟硬盘时输出日志和tar文件。 我已经弄清楚的是:在一个卷上收集所有VHDX。将它们放在一个变量中。 然而，我一直在处理foreach，并且有一个灵活的tar文件和日志名的输出。 示例： Get-ChildItem -Path $VDHXPath -Filter $Extension -Recurse -ErrorAction SilentlyContinue -Force | % { $_.FullName } 其中，$VHDXPath表示表示驱动器号的可自定义变量。通过这种方式，我得到一个变量，其中填充了一个或多个V
浏览 202提问于2021-10-18得票数 1
5回答
我试图在转换后将输入文件重命名为.jpg，但由于某种原因，当我真正查找file.jpg时却得到了file.png.jpg
下面是我的代码：
$source = $path . $_POST['username']. "-" . $_FILES['t1']['name'];
$destination = $path . $_POST['username']. "-" . basename($_FILES['t1']['name']) . ".jpg";
浏览 2提问于2013-05-29得票数 1
回答已采纳
2回答
我有一个名为protein.faa的文件，其内容是：
>WP_004066472.1 MULTISPECIES: NADH-quinone oxidoreductase subunit K [Thermococcus]
MIPLQFVTAFLMIFMGIYAFLYKRNLIKLILALNLI
LVLTSIVIGVCVLSLAMALTINAYRHYGTLDVNKLRRLRG
>WP_004066568.1 MULTISPECIES: DNA-directed RNA polymerase subunit P [Thermococcus]
MVEALYKCAKCGKEF
>WP_
浏览 5提问于2021-02-04得票数 2
回答已采纳
我做欧拉计划已经很久了。我有一个项目结构，这使得为下一个问题创建一个新文件夹变得非常容易，而且我有几个样板文件可以开始使用。
ProjectEuler/001/001.go
ProjectEuler/001/001_test.go
ProjectEuler/002/002.go
ProjectEuler/002/002_test.go
...
ProjectEuler/new_question_stub/xxx.go
ProjectEuler/new_question_stub/xxx_test.go
当我创建一个新问题的文件夹时，我运行以下命令：
ProjectEuler $ mkdir 0
浏览 0提问于2018-04-03得票数 2
我是perl的新手，有一件事我有点问题。
我有代码：
$original_file = "y:\\Users\\XXX\\perlScript\\test1.xml";
$new_file = "y:\\Users\\XXX\\perlScript\\summary_test1.xml";
copy($original_file, $new_file) or die "File cannot be copied";
我需要从命令行读取路径(我使用批处理文件)。例如：
>summary.bat c>\path\file_name.xml
浏览 0提问于2012-04-24得票数 0
我有许多名为12345.html，12346.html等的html文件。我需要将"style.css“更改为"style-12345.css”或适当的文件名。我不确定该使用什么工具，推荐吗？
浏览 10提问于2010-06-20得票数 3
回答已采纳
我试图递归地将[Full]附加到所有子目录中没有以]结尾的文件中。
示例：
Untold Story.wav应该重命名为Untold Story [Full].wav
不应将Untold Story [Instrumental].wav重命名为Untold Story [Instrumental] [Full].wav
谢谢!
浏览 0提问于2015-05-31得票数 3
回答已采纳
13回答
ls /home/user/new/*.txt打印该目录中的所有txt文件。但是，它按如下方式打印输出：
[me@comp]$ ls /home/user/new/*.txt
/home/user/new/file1.txt /home/user/new/file2.txt /home/user/new/file3.txt
诸若此类。
我不想从/home/user/new/目录运行ls命令，因此我必须给出完整的目录名，但我希望输出仅为
[me@comp]$ ls /home/user/new/*.txt
file1.txt file2.txt file3.txt
我不
浏览 0提问于2011-12-15得票数 83
回答已采纳
我刚刚意识到我不知道在file.ext中如何调用file。
整个file.ext称为文件或文件名，ext称为扩展名，但是如何调用file.ext的file部分本身呢
例如happy-dog.png。所有的文件/文件名都是happy-dog.png，扩展名是png，但是如何调用happy-dog呢？
它不是基本名称。像翻领毛衣一样吗？还是filepart？有什么想法吗？
浏览 4提问于2015-12-01得票数 0
我有一堆数据存储在按日期标记的子目录中。我使用了Cwd命令来获取当前的工作目录，这样我就可以将它打印到我正在用子目录中恢复的数据编写的vi文件中。我使用Cwd作为数据字符串的前缀。是否有方法只打印当前目录名而不打印路径？
示例：
而不是印刷-
/d2/aschwa/archive_data/METAR_data/20120302KDUX 121255Z.........
有没有办法只打印-
20120302KDUX 121255Z.........
这是我用的密码-
use strict;
use warnings;
use file::find;
use Cwd;
my @folder
浏览 7提问于2013-10-28得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
