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'進(jìn)行分割返回的是''
由于你使用了() 那么split在返回一個 ' '的同時(shí)會返回()所捕獲的2009 03 14
join '-',  ('', 2009, 03, 14)第一個元素是空串所以開頭就是一個-

BTW: 在處理定長數(shù)據(jù)是unpack通常是更好的選擇
如果用正則的話可以直接使用group capture 或者用正則進(jìn)行替換。 不需要split

gaoquanlong

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

謝謝！

不過還是要問一下，我的第一種split后的元素個數(shù)為什么是4個，前面的空是怎么產(chǎn)生的，我就只有三個括號��？？？

churchmice

原帖由 DQP 于 2009-3-13 11:16 發(fā)表
我來試著解釋一下
首先先用個例子來解釋一下split 中使用group capture
1.
my $str = 'hello world';
print Dumper split(/(\s)/, $str);

output:

這里可以看到, 我們得到3個元素被\s分開的helloworl ...

贊
是這么個道理
如果分隔模式加了()的話，split還會將捕獲的內(nèi)容返回

gaoquanlong

現(xiàn)在明白，那個''是split的返回值。

hotsnow

原帖由 DQP 于 2009-3-13 11:16 發(fā)表
我來試著解釋一下
首先先用個例子來解釋一下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 發(fā)表


請問這里為什么三個引用才返回一個空？還有，為什么返回的空是在最前面返回？而不是中間？
這里split的返回是怎么定義的？

你可以看一下split的說明:perldoc -f split
里面有很詳細(xì)的說明

hotsnow

已經(jīng)看過來敢回來問的，不過沒有看懂。