小编eri*_*ar7的帖子

Perl -M标志,未初始化的值?

我编写了一个PowerShell脚本,可生成带有随机时间戳的100个文件:

$date_min   =   get-date -year 1989 -month 7 -day 4
$date_max   =   get-date

for( $i = 0;  $i -le 100;  $i++ )
{
    $file   =   $i.ToString() + ".txt"
    echo ">=|" > $file

    $a  =   get-item $file
    $time = new-object datetime( get-random -min $date_min.ticks -max $date_max.ticks)

    $a.CreationTime     =   $time
    $a.LastWriteTime    =   $time
    $a.LastAccessTime   =   $time
}
Run Code Online (Sandbox Code Playgroud)

使用Perl,我正在尝试根据上次修改时间对这些文件进行排序,如下所示:

use strict;
use warnings;

my $dir     =   "TEST_DIR";
my @files;     

opendir( DIR , $dir ) or die $!;

# Grab all the files in …
Run Code Online (Sandbox Code Playgroud)

powershell perl comparison initialization numeric

2
推荐指数
1
解决办法
158
查看次数

用*vs $定义的Perl变量

使用*与$定义变量之间的区别是什么?例如:

local $var;
local *var;
Run Code Online (Sandbox Code Playgroud)

variables perl

2
推荐指数
2
解决办法
383
查看次数

difflib输出很奇怪,在每个字符上添加额外的空格

我正在使用Python中的difflib,我在使输出看起来很好时遇到了一些困难.出于某些奇怪的原因,difflib在每个字符前添加一个空格.例如,我有一个文件(textfile01.txt),如下所示:

测试没有意义的文本

和textfile02.txt

测试没有意义的文本

但看起来不错

这是一个关于我如何完成比较的小代码示例:

import difflib

handle01 = open(text01.txt , 'r')
handle02 = open(text02.txt , 'r')

d = difflib.ndiff( handle01.read() , handle02.read() )
print "".join(list(diff))
Run Code Online (Sandbox Code Playgroud)

然后,我得到这个丑陋的输出看起来......非常奇怪:

testtextwhichhasnomea nin g-

- b- u- t- - l- o- o- k- s- - n-c-e

如你所见,输出看起来很糟糕.我刚刚在网上找到了基本的difflib教程,根据这些教程,输出应该看起来完全不同.我不知道我做错了什么.有任何想法吗?

python difflib

2
推荐指数
1
解决办法
1308
查看次数