AnySQL.net

    前几年在上海时, 一直想有一个招商银行信用卡的, 想使用招行的唯一原因是它的网上功能做得很好, 可是前后去办了两次, 周边的兄弟都一个一个办下来了, 就我一直没有办下来. 不知道是那个地方出问题了, 也许是我的RPWT. 所以一直没有机会体验信用卡消费是什么样的感觉. 早想租个独立的DreamHost空间, 也因为没有信用卡不好支付而搁置.

    到杭州来后, 据说在现在这个公司, 办信用卡是没有办不下来的, 天天和很行有业务往来, 因此是公司的人员, 都能办下来的. 在办之前我还是怀疑, 是不是我真的有很不良的信用记录, 会被拒绝, 还特意告诉银行的人, 以前有两次没有办下来的经历. 银行的人也只能劝我试试吧.

    办下来的当天, 就去吃饭刷卡了, 请了公司同事吃饭的, 第二天也去刷卡的, 请的淘宝的Ningoo吃牛排的. 随后周末去华联世纪买东西时, 也习惯于刷信用卡了. 用它花钱, 还真没有花钱的感觉, 没有拿出现金那么心痛. 因此第一个月就消费了2000元.

    年费是不用交了, 已消费了8次了. 信用卡一定程度上是促进了消费, 就是不经意间让人去没有计划地花钱, 信用额度还真是不易给得过高. 现在人品没有问题了, 有信用卡了.

    公司运维部某未婚男生的感言如下:

    公司内部或外部的未婚女生, 回答一下吧.

    差不多四个月前发了一篇Oracle DUL不行就用AUL, 是为广东惠州公安局所作的一次数据恢复的经历, 他们某系统中用CLOB来存放了很多的法律, 法规以及批文信息, 因为存贮上的某种原因, 导致了系统表空间出现了很多的坏块, 因而需要用AUL这样的软件来恢复数据.

    一开始找的并不是我, 人家要的是Oracle原厂的服务, 因为原厂的DUL工具, 没有考虑变长字符集中CLOB数据的问题, 因此没有办法处理大量CLOB中的中文信息, 在Oracle恢复了不包含CLOB列的表后, 某技术服务公司的工程师向他们推荐了我. 去年也为其他地方公安局提供过类似服务, 都是很顺利地恢复出数据, 然后支付相应的旨用.

    此次也是一样, 一科长级别的人与我电话构通的, 说就这么点服务费没有问题, 不用担心. 其实就这点费用, 的确不算什么, 组织几个人在国内参观/开会一次的费用也大大超过这个数了, 所以也没有什么担心, 再说牵线的那公司还是很有名的, 国内一流的Oracle技术服务提供商. 一向认为事情会以简单的方式去处理掉, 就不想什么其他先提供服务再说了, 毕竟人家的数据已经好几天没能访问了, 也就不先预收点劳务费了.

    但后来的事情发展还是出于意料的, 本月初我打那课长的电话还是接的, 这几天则无论如何打都不接了, 这分明是想赖帐了. 因为请的原厂的恢复费用他们也没有给, 更别说我的了. 不过一个公安科长级别的人物, 没有什么理由不接这样的电话的, 服务公司也找不到他们, Oracle原厂的服务是他们出面请的, 那个费也没有给呢.

    其实直接说不付也行, 说公安系统要你免费提供支持也行, 这不接电话就不对了. 被迫免费也行啊, 谁让我们做技术的单纯, 容易被骗呢? 借那次经验, 完善了AUL恢复软件对于中文的支持, 也是好事, 解决了中文的问题, 繁体或韩文或日文都一起解决了, 也算有所得了.

    估计这一页或本站会被GFW掉.

    活运活用, 用Perl写了一个看AIX主机网卡流量的脚本, 差不多和"Hello, World"一样简单了.

#!/home/oracle/dbaperl/bin/perl -w
#
use AIX::Perfstat;

my $nettotal = AIX::Perfstat::netinterface_total();

my $preipkt = $nettotal->{ipackets};
my $preopkt = $nettotal->{opackets};
my $preibyt = $nettotal->{ibytes};
my $preobyt = $nettotal->{obytes};

while(1)
{
  sleep(10);
  $nettotal = AIX::Perfstat::netinterface_total();
  print($nettotal->{ipackets} - $preipkt,",");
  print($nettotal->{ibytes} - $preibyt, ",");
  print($nettotal->{opackets} - $preopkt,",");
  print($nettotal->{obytes} - $preobyt, "\n");
  $preipkt = $nettotal->{ipackets};
  $preopkt = $nettotal->{opackets};
  $preibyt = $nettotal->{ibytes};
  $preobyt = $nettotal->{obytes};
}

    输出的样本数据, 前面加个时间就更好了.

209293,25449294,179547,45651583
217798,26535501,188151,47684198
204486,25331561,175493,45920902
204652,25110514,175301,45952904
205024,25172192,176165,46227715
202194,24638398,172954,45765479

    只能一步一步来了. 好象需要加上Int64位运算支持, 才能准确显示数据.