小编pil*_*row的帖子

在Oracle中,用于表示网络地址的适当数据类型或技术是什么,哪些地址可能是IPv4或IPv6？

背景:我正在转换一个表记录网络活动,使用PostgreSQL inet数据类型构建,以在同一个表中保存v4和v6地址.

但是,没有行包含v4和v6地址.(也就是说,记录来自机器的v4堆栈或机器的v6堆栈.)

有什么方法可以快速简便地纠正TIMESTAMP WITH TIME ZONE在错误的时区内意外输入的时区字段？

在我的情况下,以下记录错误地以UTC而不是美国/太平洋输入:

           t0           |           t1           |     what
------------------------+------------------------+---------------
 2011-06-01 13:00:00+00 | 2011-06-01 13:10:00+00 | recalibrating
 2011-06-01 13:10:00+00 | 2011-06-01 13:45:00+00 | verifying
 2011-06-01 13:45:00+00 | 2011-06-01 13:55:00+00 | FAULT

幸运的是,没有任何错误的记录跨越夏令时边界,所以UTC的2点可以简单地修正为太平洋2点.

在代码中解释最简单:

require 'timeout'

puts "this block will properly kill the sleep after a second"

IO.popen("sleep 60") do |io|
  begin
    Timeout.timeout(1) do
      while (line=io.gets) do
        output += line
      end
    end
  rescue Timeout::Error => ex
    Process.kill 9, io.pid
    puts "timed out: this block worked correctly"
  end
end

puts "but this one blocks for >1 minute"

begin
  pid = 0
  Timeout.timeout(1) do
    IO.popen("sleep 60") do |io|
      pid = io.pid
      while (line=io.gets) do
        output += line
      end
    end
  end
rescue Timeout::Error => ex
  puts …

在以下代码中:

use strict;
use warnings;
use Data::Dumper;

my %hash = %Whatever::whatever;
my @array = @Whatever::whatever;
print Dumper \@array;
print Dumper \%hash;

我的理解是@Whatever ::无论是什么访问符号​​表,并且不会产生错误消息,因为符号表是一个哈希.但为什么至少没有用于访问不存在元素的警告消息？

有人可以解释BULK INSERT如何在内部工作,为什么它比正常的INSERT操作快得多？

此致,Shishir.

特定

# package main;
our $f;
sub f{}
sub g {}
1;

我怎样才能确定$f,但是没有$g宣布？关闭袖口,我认为*{main::g}{SCALAR}可能是未定义的,但它是一个真正的 SCALAR参考.

背景:我想将一个变量导入main::,但是如果已经声明了该变量,则将carp或croak 导入.

编辑添加了一个f子程序来响应@ DVK的初始答案.

答案(2010-07-27)

这并不容易,但有可能.

一种eval技术是最便携的,工作在早于5.10的perls上.在最近的perls中,内省模块喜欢Devel::Peek和B可以区别对待.

请考虑下表:

SELECT id, value FROM table ORDER BY id ASC;
+-----+---------+
| id  | value   |
+-----+---------+
| 12  | 158     |
| 15  | 346     |
| 27  | 334     |
| 84  | 378     |
| 85  | 546     |
+-----+---------+

该id列自动递增但包含间隙.该value列是数字.

我想value通过设置上面value的value两行来查看随时间的增加.这是针对行id=85我想要设置与行(334)相关value的行id=85(546 ).因此,要计算行的值为546/334 = 1.63473.valueid=27id=85

这是我想要实现的结果:

SELECT id, value, ...;
+-----+---------+---------------------+
| id  | value   | value/lag(value, 2) …

我们正在构建一个查询来计算每天每小时的事件数.大多数日子都有几个小时没有任何活动,因此在运行查询的地方,每小时的活动数量会显示,但是存在间隙,查询会排除这些.我们仍然希望显示没有活动的小时数并显示零,以便可以绘制零值.我们使用的查询看起来像这样......

select datepart(Year, dev_time) as Year,
    datepart(Month, dev_time) as Month,
    datepart(Day, dev_time) as Day,
    datepart(Hour, dev_time) as Hour,
    count(tdm_msg) as Total_ACTIVITES
from TCKT_ACT
where tdm_msg = ‘4162? and dev_time >= DATEADD(day, - 1, GETDATE())
group by datepart(Year, dev_time) ,
    datepart(Month, dev_time) ,
    datepart(Day, dev_time),
    datepart(Hour, dev_time)
order by datepart(Year, dev_time) asc,
    datepart(Month, dev_time) asc,
    datepart(Day, dev_time) asc,
    datepart(Hour, dev_time) asc

哪些SQL数据库(如果有)支持CHECK约束中的子查询？

目前,据我所知,Oracle,MySQL和PostgreSQL都没有.

编辑

(根据初步答案澄清.)我正在寻找这样的事情:

CREATE TABLE personnel (
  ...,
department VARCHAR(64) NOT NULL,
salary NUMERIC NOT NULL,
CHECK (salary >= (SELECT MIN(p.salary) FROM payranges p WHERE p.dept = department)
        AND
       salary <= (SELECT MAX(p.salary) FROM payranges p WHERE p.dept = department)
)

UPDATE

MS Access和Firebird都支持此功能.

题

如何在XS函数中支持autovivified文件句柄参数？

我是XS包装一个返回文件描述符的C函数,我想以open()的方式将该文件描述符呈现为perl文件句柄参数.例如,

myfunc(my $fh) or die "Error: $!";
do_something_with_fh($fh);

到目前为止我做了什么

现在我在XS函数的顶部使用perl包装器:

# -- in perl
sub myfunc {
    my $fd = _myfunc();
    return open($_[0], '+<&=', $fd) if defined($fd);
}

/* -- in XS */
SysRet
_myfunc()
    CODE:
    RETVAL = some_c_function_returning_an_fd();

    OUTPUT:
    RETVAL

这适用于Just Fine(tm),但是,我再次将实现完全转移到XS中.

到目前为止,我已经尝试sv_2io了一个类型为mapmap的参数SV *,但是在未定义的标量上引发了一个异常.我没有尝试将第一个参数映射到一个FILE *或一个PerlIO *对象,因为我不知道我将如何"fdreopen"(如果你愿意)这些对象.