__END__和__DATA__

wertyu

原帖由 flw 于 2008-12-28 13:03 發(fā)表
一定要學會查文檔。
    The two control characters ^D and ^Z, and the tokens __END__ and
    __DATA__ may be used to indicate the logical end of the script before
    the actual end of file. An ...

剛剛沒看到flw和churchmice兩位的回復，非常感謝

[ 本帖最后由 wertyu 于 2008-12-28 13:12 編輯 ]

MMMIX

原帖由 flw 于 2008-12-28 10:30 發(fā)表

我一直認為，這些細微之處，反應了一個人是否適合搞編程。

沒錯。編程可是細致活，尤其是你想要寫好的時候。

machine

做個實驗就明白了：
#!/usr/bin/perl -w
package test;
while(<main::DATA>;){
  print;
}

__END__
test
test1
test2
test3

＃正常運行


#!/usr/bin/perl -w
package test;
while(<DATA>;){
  print;
}

__END__
test
test1
test2
test3

＃不能運行

[ 本帖最后由 machine 于 2008-12-28 16:12 編輯 ]

machine

#!/usr/bin/perl -w
package test;
while(<DATA>){
  print;
}

__DATA__
test
test1
test2
test3

＃正常運行


#!/usr/bin/perl -w
package test;
while(<main::DATA>){
  print;
}

__DATA__
test
test1
test2
test3

＃不能運行

[ 本帖最后由 machine 于 2008-12-28 16:18 編輯 ]

MMMIX

原帖由 flw 于 2008-12-28 13:03 發(fā)表
一定要學會查文檔。
    The two control characters ^D and ^Z, and the tokens __END__ and
    __DATA__ may be used to indicate the logical end of the script before
    the actual end of file. An ...

你要是再說說這個在什么地方就更好了，例如 perldoc perldata 然后搜索 __DATA__ 及 __END__ 或 Special Literals

machine

#!/usr/bin/perl -w
while(<DATA>){
  print;
}

__DATA__
test
test1
test2
test3

＃正常運行


#!/usr/bin/perl -w

while(<DATA>){
  print;
}

__END__
test
test1
test2
test3

＃正常運行

yangchaohi

學習了.._END_是不是shell里延伸來的啊?我只知道_DATA_可以句柄,沒用過_END_ .哈