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


我就是想把獲得的日期的中間加上“-”，請(qǐng)問一下第一種為什么前面有一個(gè)“-”，謝謝。

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

我來試著解釋一下
首先先用個(gè)例子來解釋一下split 中使用group capture
1.

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

output:

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

這里可以看到, 我們得到3個(gè)元素被\s分開的helloworld和被(\s)捕獲的' '

知道了這個(gè)就不難理解你的那個(gè)程序了
\d{4})\d{2}\d{2}對(duì)'20090314'進(jìn)行分割返回的是''
由于你使用了() 那么split在返回一個(gè) ' '的同時(shí)會(huì)返回()所捕獲的2009 03 14
join '-',  ('', 2009, 03, 14)第一個(gè)元素是空串所以開頭就是一個(gè)-

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后的元素個(gè)數(shù)為什么是4個(gè)，前面的空是怎么產(chǎn)生的，我就只有三個(gè)括號(hào)��？？？

churchmice

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

output:

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

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

gaoquanlong

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

hotsnow

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

output:

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

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

dream3401

原帖由 hotsnow 于 2009-3-16 19:08 發(fā)表


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

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

hotsnow

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