Question

perl中的split 函数不加参数是什么意思

perl中的split 函数不加参数是什么意思?

比如：
while (<$dh>){
my @str = split;
}
麻烦再问一下，有追加分
如果 $dh指向的文件包含 chr1 1111 A T
while(<$dh>){
my @str=split(/ /,$_);或者写为my @str = split;
}
chr1与1111之间的多个空格，为什么@str=qw/chr1 1111 A T/呢？split函数会把多个空格符处理成1个空格符吗

Answer 1

split ; 即等於 split /\s+/, $_;
split // 是每一个字猛团符做分割
split /枝态橘 /; 是每一个空格做分割
所以 my @str=split(/ /,$_) 是不等於 my @str = split; 的

$_ = 'chr1 1111 A T';
my @str=split(/ /,$_); # 这个只有闭亩空格
print ">$_$/" foreach @str;

my @str=split; # \s 包括了 space, tab 等等'空白'的字符
print ">$_$/" foreach @str;

Answer 2

split ; 即等於 split /\s+/, $_;
split // 是每一个字猛团符做分割
split /枝态橘 /; 是每一个空格做分割
所以 my @str=split(/ /,$_) 是不等於 my @str = split; 的

$_ = 'chr1 1111 A T';
my @str=split(/ /,$_); # 这个只有闭亩空格
print ">$_$/" foreach @str;

my @str=split; # \s 包括了 space, tab 等等'空白'的字符
print ">$_$/" foreach @str;

Answer 3

把你游郑的上面的代码改成下面，你就可以看懂了：
while(<$dh>){
my @str=split(/ /,$_);
}

再长一点：
while($_ = <$dh>) {
my @str=split(/ /,$_);
}

再长一点点：
while(defined($_ = <$dh>) {
my @str=split(/ /,$_);
}
到这里，你已经完完明白了吧．主要派戚是$_变量．神羡颂

追问

麻烦再问一下，有追加分
如果 $dh指向的文件包含 chr1 1111 A T

while(){
my @str=split(/ /,$_);或者写为my @str = split;
}
chr1与1111之间的多个空格，为什么@str=qw/chr1 1111 A T/呢？split函数会把多个空格符处理成1个空格符吗