小编use*_*234的帖子

在SQL Server中,查询

SELECT custid, country, region, city
FROM Sales.Customers
WHERE region = N'WA'

where子句中'N'的含义是什么？我删除它,得到相同的结果.

在perl中,如何读取两个标记之间的内容.像这样的源数据

START_HEAD
ddd
END_HEAD

START_DATA
eee|234|ebf
qqq|              |ff
END_DATA

--Generate at 2011:23:34

那么我只想获取"START_DATA"和"END_DATA"之间的数据.这该怎么做 ？

sub readFile(){ 
    open(FILE, "<datasource.txt") or die "file is not found";

    while(<FILE>){      
        if(/START_DATA/){           
            record(\*FILE);#start record;
        }
    }
}

sub record($){
    my $fileHandle = $_[0];

    while(<fileHandle>){
        print $_."\n";      
        if(/END_DATA/) return ;         
    }
}

我写这段代码,它不起作用.你知道为什么吗 ？

谢谢

谢谢

如果今天是2012年1月1日,如何返回一串日期"20120101"？

sub getDateStr{
    my $date = shift;
    print $date->year.$date->month.$date->day."\n";
    return $date->year.$date->month.$date->day; 
}

谢谢

在java中,如何编写这种日期格式？

Dec 17 2011 07:37:55:000PM
SimpleDateFormat sdf = new SimpleDateFormat("M W yyyy hh:mm:ss:SSSa"); // failed

我试过这种格式,它不起作用.

请帮忙,谢谢.

试图用OOP编写一个perl模块,但它可以向数组中添加一个对象,当我使用Dump方法时,它会输出这样的错误数据.我的错误在哪里？

谢谢

bless( {
                 '_name' => 'CUSIP',
                 '_validation_array' => [],
                 '_seq' => '1'
               }, 'Field' );

源代码:

 package Field;

    sub new {
    my $class = shift;
    my $self = {
        _name => shift,
        _seq => shift,
        _validation_array => [ @_ ],
    };

    bless($self, $class);
    return $self;
};

sub pushValidation(){
    my $validation = shift;   
    push(@{$self->{_validation_array}}, $validation);     
};

sub dump(){
    foreach my $validation (@{$self->{_validation_array} })   {
        #print Dumper($validation);#will work, 
        print $validation->{name}; #error, Use of uninitialized value
    }
}        
    1;

这是我调用此方法的方式:

my $validationObj …

可能重复:
在Perl中,如何查找给定日期的上一个星期一的日期？

在perl中,如何编写函数来获取上周四的日期？今天(11月21日),我想得到11/17.如何确定某个特定日期是否为星期日？

在Oracle中,我们可以使用

FOR employee_rec in (select id from mytbl)
LOOP
    DBMS_OUTPUT.PUT_LINE(employee_rec.id);
END LOOP;

在SQL Server中,我们有类似的东西吗？如果没有,如何进行此循环？

如何使用Perl使XML数据可读？来源是一线的.我需要格式化它.例如:

<data><project>1234</project></data>

转换成

<data>
    <project>
       1234
    </project>
</data>

谢谢

在java中,如何以有效的方式删除数字的数字？例如,我有13位数字,我想删除前3位数字:

一些代码:

long largeNumber = 1234567890123L;
long finalNumber = removeFirstDigits(largeNumber, 3); // finalNumber == 4567890123L

我有关于java equals和hashcode的声明.

如果我们将这样的Integer对象用于HashMap中的键,我们将无法可靠地检索关联的值

这是什么意思 ？为什么它说"不可靠"？我写了一个测试程序,它始终有效.

public class Test1 {

    public static void main(String[] args){
        Map<Integer, Student> map = new HashMap<Integer, Student>();

        map.put(1, new Student("john"));        
        map.put(2, new Student("peter"));

        Student s1 = map.get(1);
        Student s2 = map.get(1);
        Student s3 = map.get(2);
        System.out.println("s1:"+s1+" s2:"+s2+" s3:"+s3);

        System.out.println(s1==s2);
        System.out.println(s1==s3);
        System.out.println(s1.equals(s3));
        System.out.println(s1.equals(s2));
    }   
}

class Student{
    private String name;
    public Student(String name){        
        this.name = name;       
    }

    public String getName(){
        return this.name;
    }   
}