• Re: 娶了乙肝携带者后生活真的不方便么

    会心里不舒服,但是应该尊重科学,同时尊重孩子的选择

    【 在 Andri (sheva) 的大作中提到: 】

    : 扪心自问,我如果是家长,会如何?

    : 只能一声叹息,愿有情人终成眷属。

    2010-07-13
  • 请问两个问题,很疑惑

    1、我有抗体,女友是小三阳,肝功正常,DNA<500,很多年了,都是如此。上次去医院拿到结果后又咨询了下医生,结果那个医生说:一定要分餐,如果DNA变大病毒复制,一定要隔离不能接触

    问题:很奇怪,看了很多资料都说这种情况应该是传染性低的,而且我有抗体,为啥还要非得分餐而且如果出现异常一定要隔离?

    2、这种情况如果以后结婚生育,母婴阻断率成功率大约有多少?

    谢谢各位 :)

    2010-07-13
  • 关于置底FAQ的问题

      一般建议慢性乙肝病人每三个月做肝功+二对半(定性)+HBV-DNA(定量),每半年做一次B超+AFP(甲胎蛋白),肝硬化病人每3个月做一次AFP,其它同慢性乙肝病人。如果身体感到不适,需要及时检查。如果B超结果有肝纤维化或肝硬化的迹象,最好做肝穿确定程度。

    小三阳DNA为阴性肝功正常的也要做B超和甲胎蛋白的检查么?还得半年一次?

    2010-07-01
  • 什么是病毒变异和病毒耐药检测?

    网上看到一些肝病网说要做这个检测

    这个需要么?好像没怎么听说过

    一般的二对半、DNA和肝功的检测还不够么?

    2010-07-01
  • Re: 请问our的全局变量和shared的线程共享变量有什么区别么?

    呵呵,我的主要意思是问他们的区别何在:)

    【 在 Dieken (风催草低 - 明月何尝不照人) 的大作中提到: 】

    : 啥叫好像啊,你整个例子证明 our 变量其实也是 shared 的,而 shared

    : 的其实也是 our 的不就明白了。

    : 找 perldoc 把两的定义看一遍。

    2010-04-22
  • 请问our的全局变量和shared的线程共享变量有什么区别么?

    好像线程都可以使用吧

    2010-04-16
  • 搜狐也太搞了吧
    loading ...

    2010-02-08
  • 出手报告

    今天过完了户,所以上来报告一下,呵呵

    盛和家园,亚运村区域的,北四环华堂对面,走三分钟到四环,十分钟到五号线惠新西街北口,交通还算方便

    两居室,西向,面积101,单价1.55w,总价157.5w,很遗憾,还是啃老了:(。贷款98w,30年,每个月还4700多,因为公积金目前是上限缴纳的,每个月能有2600多,所以自己每个月负担2100多即可,压力还不算很大

    中介费打了83折,加上税费差不多额外支出了7w多的费用,税费有个税和契税,因为房主的契税票满了两年,所以就免了营业税

    很早就开始看房子,可以追溯到07年,呵呵,只是当时在杭州出差了大半年,耽误了,08年没怎么看

    今年在家人的催促下开始看,从上地看到知春路到北苑。国庆父母来北京玩,偶然的机会中介带着去看房子,上午看,中午就基本定了,感觉买房子真像是买大白菜,当时几天都没回过神儿来,呵呵

    至于房价,不管是买高了还是买低了,买了就买了,反正是自住,不在乎涨跌,家里人也不用为房子总是惦记那么多了,就是图个安心

    至于啃老,其实我一开始也是坚决不啃的,老妈怎么说也不成。后来慢慢开窍了,其实如果父母有足够的退休金,家里再备足余钱,啃就啃了,以后慢慢还吧,虽然父母给我不少,自己几乎不剩什么,但总比看着房价一直往上窜,手里的钞票不断贬值要强

    至于中介,不愿多说,只是建议他们在职业素质,或者说是专业性上再加强一些,至少说话办事儿让人觉得是职业房屋经纪人那么回事儿,呵呵

    来本版很久了,也问了不少问题,得到了大家不少帮助,真是非常感谢!衷心希望大家都能买到自己称心如意的房子^o^

    2009-11-10
  • 请问如何用perl对内存中的字符串进行压缩?

    我看archive::zip都是对特定的文件进行操作

    我现在在内存中放了一个数组,每个元素指向一个大字符串

    为了节省内存,我想将这些字符串压缩一下,这样内存能省下很多

    等到将来需要用这些字符串的时候再解压缩

    能实现么?

    2009-06-24
  • 急问:Sybase 11是不是只能在linux上安装服务器端?

    我看到了很多在windows上安装的client端的安装程序,但始终找不到在windows上安装的服务器端程序,是不是sybase 11只能在linux上安装服务器端呢?

    2009-04-28
  • 发现一个奇怪的问题

    package Webpage;

    sub new {

    my $class = shift;

    my $self = {};

    $self{url} = shift; // 这里的语法应该是有问题的,但是perl编译通过

    bless $self, $class;

    }

    my $abc = {};

    $abc{url} = 'http://www.123.com'; // 这里的语法和上面的问题相同,但是perl编译给出了错误

    为啥同样的错误,编译结果不同呢?

    2009-04-20
  • Re: 这段代码为啥没有效果呢?

    呵呵,已经找到问题所在了。。。

    【 在 tgfbeta (凯珊卓的预言术) 的大作中提到: 】

    : 你的package尾巴1了没?

    2009-04-20
  • 这段代码为啥没有效果呢?

    package Webpage;

    sub new { # constructor

    my $class = shift;

    $class = ref($class) || $class;

    my $self = {};

    ($self{'url'}, $self{'html_tags'}) = @_;

    bless $self, $class;

    }

    然后在我得文件中:

    use strict;

    use Webpage;

    my $a = Webpage->new('abc', 'tag');

    print $a->{'url'};

    理应打印出来abc,但是实际上什么都没有,为啥呢?

    2009-04-20
  • Re: 这样的代码错在哪里?

    到底错在哪里?

    【 在 Andor (柠檬汁) 的大作中提到: 】

    : 你记错了。

    2009-04-16
  • 这样的代码错在哪里?

    use strict;

    my $url = "http://www.abc.com/";

    my $ref_to_links->[0] = [$url];

    Can't use an undefined value as an ARRAY reference at D:\xianwei\test.pl line 4.

    我记得这种用法没有错啊

    2009-04-16
  • 请问解引用的问题

    目的是获取到数组的长度

    use strict;

    my $ref_to_links->[0] = ['a', 'b', 'c', 'a', 'b'];

    print scalar @{$ref_to_links->[0]}; // right

    print scalar @$ref_to_links->[0];   // wrong

    为什么第二种情况中不能省略大括号呢?

    而下面这种却可以:

    print scalar @$ref_to_links;  // right

    print scalar @{$ref_to_links}; // right

    2009-04-15
  • 请教大家一个问题

    这是我的代码,很简单

    use strict;

    use LWP::Simple;

    use LWP::UserAgent;

    use HTTP::Headers;

    my $header = HTTP::Headers->new (

    accept          => '*/*',

    Accept_Language => 'zh-cn',

    Accept_Encoding => 'gzip, deflate',

    User_Agent      => 'Mozilla/4.0 );

    my $url = "http://www.raildoor.com/bbs/";

    my $ua = LWP::UserAgent->new(agent=>'WebTrojan Scan');

    $ua->default_headers($header);

    my $response = $ua->get($url);

    但是我抓包的结果中,HTTP请求中总是带有这个东西:

    GET /bbs/ HTTP/1.1

    TE: deflate,gzip;q=0.3

    ~~~~~~~~~~~~~~~~~~~~~~~~~这个是什么,我没有设置啊,求教!

    Connection: TE, close

    Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*

    Accept-Encoding: gzip, deflate

    Accept-Language: zh-cn

    Host: www.raildoor.com

    User-Agent: WebTrojan Scan

    2009-04-08
  • 今天去了首博

    人太多了,没看成“中国记忆”

    不过其他那几个免费的展览也是不错,看到了吴道子和宋徽宗的真迹

    文物以明清为主,确实很有特色,都属于精工细作那种,很典雅

    想想强大的汉唐该有多少好文物都流失了

    记得在法门寺地宫发现的唐代皇室用品,那个奢华简直让人眼花缭乱

    btw:要想去首博看,准备一整天时间才够,里面很大

    2008-08-02
  • Re: 请问typeglob到底是个啥类型?

    问题在于将一个符号表中的各种类型的集合作为一种变量,和获取文件句柄之间有什么关系么?

    【 在 happierbee (吾生也有涯,而知也无涯) 的大作中提到: 】

    : perl 里所有全局变量都是放到一个符号表里,符号表里的每一个符号可以对应这样

    : 几类数据类型:

    :  1. 标量

    : ...................

    2008-07-23
  • Re: 请问typeglob到底是个啥类型?

    那就是说这种写法比较古老了?

    【 在 chylli (无知) 的大作中提到: 】

    : 1. *FH这个你还是看看advanced perl programing吧,一句话解释不清楚

    : 2. 忘了从哪个版本开始了,局部化的filehandle可以这样写了:

    : { my $fh;

    : ...................

    2008-07-23