perl輸出系統(tǒng)錯誤碼

chenjintao_ii

# cat test.pl       #查看腳本
#!/usr/bin/perl
open( FILE, "/tmp/not-exist-file" ) or printf("%d\n", $!) and die "open error: $!\n";

# ./test.pl         #運行腳本
2
open error: No such file or directory


腳本里面的$!的值為2，通過die輸出了一段字符串
我試著die "open error: 2\n";輸出為：
open error: 2

問題一：不能直接給$!賦值嗎？$!和die之間有什么內(nèi)幕？
問題二：我想用perl實現(xiàn)C語言中strerror()函數(shù)的功能，應該用什么函數(shù)？

跪求答案

laputa73

直接輸出$!不就好了,干嗎轉(zhuǎn)%d?
#!/usr/bin/perl
open( FILE, "/tmp/not-exist-file" ) or printf("$!\n") and die "open error: $!\n";

-bash-3.00$ perl t.pl
沒有那個文件或目錄
open error: 沒有那個文件或目錄
-bash-3.00$

cu_little_bird

$!是存放的系統(tǒng)錯誤信息，
printf("%d\n", $!) 這樣是強制把字符轉(zhuǎn)為數(shù)字了吧。

wsxedcer

$! 本來還是字符串，卻被你強制弄成整數(shù)類型

chenjintao_ii

回復 2# laputa73


    環(huán)境需要。。。底層C代碼輸出系統(tǒng)錯誤代碼，上層perl根據(jù)這個錯誤代碼輸出對應的錯誤信息

chenjintao_ii

回復 4# wsxedcer


    為什么“No such file or directory”這個字符串通過print("%d")就變成2？
printf("%d\n", "No such file or directory")輸出可是為0的。

wsxedcer

回復 6# chenjintao_ii


    $!是指什么呢？它是系統(tǒng)產(chǎn)生的一些可讀的信息。通常，當系統(tǒng)拒絕了我們的請求 （如打開文件），$!將告訴你原因 （可能是 “權(quán)限不夠(permission  denied)”或者 “(文件不存在)file not found”）。這個字符串和你在C 或者類似的語言中通過perror 得到的是一樣的。如果使用die 來表明錯誤，但此錯誤不是系統(tǒng)請求失敗引起的，則不要使用$!，因為其包含的信息和實際的問題無關。它所包含的信息，僅對系統(tǒng)請求失敗時有效。

chenjintao_ii

回復 7# wsxedcer


    謝謝你的回答。

我主要的目的是想用perl實現(xiàn)C語言中strerror()函數(shù)的功能，但是google了很長時間，就發(fā)現(xiàn)這個語句：
# perl -MPOSIX -e 'print strerror(3)."\n";'
No such process
# perl -MPOSIX -e 'print strerror(2)."\n";'
No such file or directory
# perl -MPOSIX -e 'print strerror(1)."\n";'
Operation not permitted


這個是在控制臺輸入的命令，基本能滿足我的要求，但應該怎么樣把它放進perl文件內(nèi)執(zhí)行？

laputa73

use POSIX;
print strerror(1).

chenjintao_ii

laputa73 發(fā)表于 2013-01-15 13:07
use POSIX;
print strerror(1).

正解啊，非常感謝。