小编sid*_*com的帖子

我怎么能这样做echo？

perl -E 'say "=" x 100'

从'$ @'数组中的每个参数中删除尾部斜杠的最简单方法是什么,以便rsync按名称复制目录？

rsync -a --exclude='*~' "$@" "$dir"

标题已更改以澄清.要了解有关多个尾部斜杠的注释和答案,请参阅编辑历史记录.

在diff手册页上我找到了这些退出值:

    0     No differences were found. 
    1     Differences were found.
   >1     An error occurred.

对于不同的错误,是否有不同的退出值高于1？

声明给了我日期和时间.

我怎样才能修改语句,使其仅返回日期？

SELECT to_timestamp( TRUNC( CAST( epoch_ms AS bigint ) / 1000 ) );

我该怎么用__DATA__两次？

#!/usr/local/bin/perl
use warnings;
use 5.012;

while ( <DATA> ) {
    print;
}

while ( <DATA> ) {
    chomp if $. == 1;
    print scalar reverse;
    print "\n" if eof;
}

__DATA__
one
two
three
four
five
six

当应用于同一HTML文档时,这三个规则有何不同？

html {
    color: black;
    background-color: white;
}

body {
    color: black;
    background-color: white;
}

* {
    color: black;
    background-color: white;
}

在目录"data"中是这些文件:

command-1.9a-setup
command-2.0a-setup
command-2.0c-setup
command-2.0-setup

我想对文件进行排序以获得此结果:

command-1.9a-setup
command-2.0-setup
command-2.0a-setup
command-2.0c-setup

我试过这个

find /data/ -name 'command-*-setup' | sort --version-sort --field-separator=- -k2 

但输出是

command-1.9a-setup
command-2.0a-setup
command-2.0c-setup
command-2.0-setup

我找到的唯一方法给了我想要的输出

tree -v /data

我怎样才能按需要的顺序对输出进行排序？

Perl6是否具有类似于Perl5 -T文件测试的功能来判断文件是否为文本文件？

什么是"双生活"模块？它在perldelta中为Perl 5.14提到过.

为什么我得到"autodie"不同的输出？

#!/usr/bin/env perl
use warnings;
use 5.012;
use utf8;
use open ':encoding(utf-8)';
use open ':std';

open my $fh, '>', 'test.txt' or die $!;
say $fh 'käse';
close $fh;

open my $fh1, '<', 'test.txt' or die $!;
while ( my $row = readline( $fh1 ) ) {
    print $row;
}
close $fh1;

use autodie;

open my $fh2, '<', 'test.txt';
while ( my $row = readline( $fh2 ) ) {
    print $row;
}
close $fh2;

# Output:
# käse
# käse