split的问题

gaoquanlong

#!/usr/bin/perl my ($date_old,$date_new); $date_old='20090314'; $date_new=join "-",split /(\d{4})(\d{2})(\d{2})/,$date_old; print $date_new;

打印：
-2009-03-14

#!/usr/bin/perl my ($date_old,$date_new); $date_old='2009 03 14'; $date_new=join "-",split /\s+/,$date_old; print $date_new;

打印：
2009-03-14


我就是想把获得的日期的中间加上“-”，请问一下第一种为什么前面有一个“-”，谢谢。

cobrawgl

print scalar split /(\d{4})(\d{2})(\d{2})/,$date_old;


你这么写很别扭啊

cobrawgl

$date_old =~ s/(\d{4})(\d{2})(\d{2})/$1-$2-$3/;

DQP

我来试着解释一下
首先先用个例子来解释一下split 中使用group capture
1.

my $str = 'hello world'; print Dumper split(/(\s)/, $str);

output:

$VAR1 = 'hello';
$VAR2 = ' ';
$VAR3 = 'world';

这里可以看到, 我们得到3个元素被\s分开的helloworld和被(\s)捕获的' '

知道了这个就不难理解你的那个程序了
\d{4})\d{2}\d{2}对'20090314'进行分割返回的是''
由于你使用了() 那么split在返回一个 ' '的同时会返回()所捕获的2009 03 14
join '-',  ('', 2009, 03, 14)第一个元素是空串所以开头就是一个-

BTW: 在处理定长数据是unpack通常是更好的选择
如果用正则的话可以直接使用group capture 或者用正则进行替换。 不需要split

gaoquanlong

原帖由 cobrawgl 于 2009-3-13 11:09 发表
$date_old =~ s/(\d{4})(\d{2})(\d{2})/$1-$2-$3/;

谢谢！

不过还是要问一下，我的第一种split后的元素个数为什么是4个，前面的空是怎么产生的，我就只有三个括号啊？？？

churchmice

原帖由 DQP 于 2009-3-13 11:16 发表
我来试着解释一下
首先先用个例子来解释一下split 中使用group capture
1.
my $str = 'hello world';
print Dumper split(/(\s)/, $str);

output:

这里可以看到, 我们得到3个元素被\s分开的helloworl ...

赞
是这么个道理
如果分隔模式加了()的话，split还会将捕获的内容返回

gaoquanlong

现在明白，那个''是split的返回值。

hotsnow

原帖由 DQP 于 2009-3-13 11:16 发表
我来试着解释一下
首先先用个例子来解释一下split 中使用group capture
1.
my $str = 'hello world';
print Dumper split(/(\s)/, $str);

output:

这里可以看到, 我们得到3个元素被\s分开的helloworl ...

请问这里为什么三个引用才返回一个空？还有，为什么返回的空是在最前面返回？而不是中间？
这里split的返回是怎么定义的？

dream3401

原帖由 hotsnow 于 2009-3-16 19:08 发表


请问这里为什么三个引用才返回一个空？还有，为什么返回的空是在最前面返回？而不是中间？
这里split的返回是怎么定义的？

你可以看一下split的说明:perldoc -f split
里面有很详细的说明

hotsnow

已经看过来敢回来问的，不过没有看懂。