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

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         #運(yùn)行腳本
2
open error: No such file or directory


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

問題一：不能直接給$!賦值嗎？$!和die之間有什么內(nèi)幕？
問題二：我想用perl實(shí)現(xiàn)C語言中strerror()函數(shù)的功能，應(yīng)該用什么函數(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
沒有那個(gè)文件或目錄
open error: 沒有那個(gè)文件或目錄
-bash-3.00$

cu_little_bird

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

wsxedcer

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

chenjintao_ii

回復(fù) 2# laputa73


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

chenjintao_ii

回復(fù) 4# wsxedcer


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

wsxedcer

回復(fù) 6# chenjintao_ii


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

chenjintao_ii

回復(fù) 7# wsxedcer


    謝謝你的回答。

我主要的目的是想用perl實(shí)現(xiàn)C語言中strerror()函數(shù)的功能，但是google了很長(zhǎng)時(shí)間，就發(fā)現(xiàn)這個(gè)語句：
# 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


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

laputa73

use POSIX;
print strerror(1).

chenjintao_ii

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

正解啊，非常感謝。