代码之家 › 专栏 › 技术社区 › Rachel

Perl文件处理问题?

scripting file perl

Rachel · 技术社区 · 14 年前

output.txt 但我没有 folderpath 在里面 输出.txt 文件。例如,如果 filename = test.txt 以及它的 folderpath=/usr/local/bin 比在 输出.txt 文件,我只有 filename as test.txt

输出.txt 文件有许多项 filename

移动所有存在的文件 输出.txt Perl Script ?
删除中存在的所有文件从实际位置,使用 文件夹路径 ,例如,脚本应该首先移动 test.txt 到其他文件夹的位置, /usr/local/test/data/test.txt 删除测试.txt从它的实际位置使用folderpath信息,即脚本应该删除 /usr/local/bin/test.txt

下面的脚本读取输出.txt并获取每个文件的大小以及输出.txt

my $folderpath = 'the_path';
open my $IN, '<', 'path/to/infile';
my $total;
while (<$IN>) {
    chomp;
    my $size = -s "$folderpath/$_";
    print "$_ => $size\n";
    $total += $size;
}
print "Total => $total\n";

礼貌: RickF Answer

输出.txt

2304_2328_Test Data November 19 2003 - Test Tele.xls
2344_2341_Data Dummy Test 12-17.doc
2343_2342_Dummy Test Test 12-17.doc

我的输出.txt文件还有一些文件的名称包含特殊字符,例如, 63551_IBM &#253 ;软件交付和实现(Div-61)数据IPS 08-20-2010 v3.xlsm

如果你看到上面的文件有编码值 & 但我的文件名有实际的特殊字符符号,所以将复制或移动我的这个文件也考虑和移动文件。

1 回复 | 直到 7 年前

AndyG 7 年前

一个建议是使用perl的 rename 移动像这样的文件:

use 5.012;
use warnings;

my $folderpath = '/some/where/';   # is it really "/usr/local/bin"? be careful now!!
my $tofolder   = '/usr/local/test/data';  # must have permissions to use this and $folderpath

my @files = ('test.txt', 'someotherfile.txt');

for my $file (@files) {
    rename "$folderpath/$file", "$tofolder/$file"
        or warn "Couldn't move $file";
}

推荐文章

7BeholdeR7 · 文件夹的重量超过其中的文件(六倍)

2 年前

Clownpiece · 如何在python 3.8中反转txt文件?[已关闭]

2 年前

ColorfulYoshi · 如何在Tkinter中只打开一种格式的文件

2 年前

Kemper Lee · JAVAutil。扫描仪拒绝接受下一个(或任何)输入(已解决)

2 年前

Tomás Jullier · 我需要用python替换SQL文件中的某个数字

2 年前

ilteris · 为什么程序在fscanf后崩溃

2 年前

Peaceful · 使用fscanf读取C中具有未知行数的文件

2 年前

NOCi · 如何将Tensorflow的结果记录到CSV文件

2 年前

Oakzeh · 如何在字符串索引之前读取文件并删除字符

2 年前

Harjinder Singh · 将文件附加到Netsuite中的记录

2 年前