所以，我需要按日期制作数据的直方图，但我有 xticlabel 重叠的问题，所以，我试图找到一个解决方案，如何跳过 xtic 以避免重叠。考虑到日期不是整数抽动，我试图以这种方式解决它：
.dat 文件
Time Dat 1 Dat 2
1 27-12-2016 12 2
2 28-12-2016 13 7
3 29-12-2016 17 2
4 30-12-2016 9 10
....
是否可以按第一列计算 xtic，但在第二列中显示值而不是在第一列中显示值？
我的代码：
reset
dx=5.
n=2
total_box_width_relative=0.75
gap_width_relative=0.1
d_width=(gap_width_relative+total_box_width_relative)*dx/2.
d_box = total_box_width_relative/n
reset
set term png truecolor font "arial,10" fontscale 1.0 size 800,400
set output "test.png"
set datafile separator "\\t"
set title "Errors"
set print "-"
set xlabel 'x' offset "0", "-1"
set ylabel 'y' offset "1", "-0"
set key invert …所以,我已经阅读了一些关于如何使用Getopt :: Long和类似的库来使用argv选项的指南,并且仍然不知道如何正确使用它,因为完全不清楚(对我来说)文档和指南.我有一个脚本.它有下一个参数:
-qp,
-pr,
-rp,
-vr,其中大部分是文件名.
目前我有使用Getopt :: Long,我发现它是不可变的,因为我需要每次检查选项之后是什么:
for(my $i = 0; $i < @ARGV; $i+=2){
if ($ARGV[$i] eq "-qp"){
unless ($ARGV[$i+1] eq "-vr" or $ARGV[$i+1] eq "-pr" or $ARGV[$i+1] eq "-rp"){
$query_params = $ARGV[$i+1];
}
}
elsif ($ARGV[$i] eq "-pr"){
unless ($ARGV[$i+1] eq "-qp" or $ARGV[$i+1] eq "-pr" or $ARGV[$i+1] eq "-rp"){
$params = $ARGV[$i+1];
}
}
elsif ($ARGV[$i] eq "-vr"){
unless ($ARGV[$i+1] eq "-vr" or $ARGV[$i+1] eq "-qp" or $ARGV[$i+1] eq "-rp"){ …所以,我有一个加载模块的问题require.我们有一个工作目录.该程序加载一个PACKAGE(粗体不会让你困惑)(这是好的 - 多亏了正确的本地命名空间),但它必须从非常不同的目录加载另一个模块.因此,当我听说过,应该不移位到@INC中BEGIN块.但是....这个开始应该采用一个参数(目前来自初始程序),包含一些配置文件的路径,其中包含我需要的参数(模块的路径,我需要取消移位).
BEGINinited,我检查@INC - unshift似乎成功了.然后,在PACKAGE方法中我们需要加载此模块,但是当我尝试执行以下操作时:
eval{
print STDERR "Trying...\n";
my $path = "path/to/module"; # contains "DIR" dir and "Module.pm",
# also tried to write this path as "path/to/module/DIR/Module.pm"
require $path;
DIR::Module->import();
print STDERR "Success\n";
1;
} or {print STDERR "Failed\n";}
my $module = DIR::Module->new();
我得到了"试着......"和"失败".试过全use lib路径 - 什么也没得到.我究竟做错了什么？
我有一个阵列
[ 1, 0, 0, 0, 5, 2, 4, 5, 2, 2 ]
我需要删除大量的重复项.
这意味着,如果一个值在数组中出现偶数次,则将它们全部删除,但如果它出现奇数次,则只保留一个.
上面数组的结果应该是
[ 1, 0, 2, 4 ]
我怎样才能做到这一点？