perl输出系统错误码

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之间有什么内幕？
问题二：我想用perl实现C语言中strerror()函数的功能，应该用什么函数？

跪求答案

laputa73

直接输出$!不就好了,干吗转%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

$!是存放的系统错误信息，
printf("%d\n", $!) 这样是强制把字符转为数字了吧。

wsxedcer

$! 本来还是字符串，却被你强制弄成整数类型

chenjintao_ii

回复 2# laputa73


    环境需要。。。底层C代码输出系统错误代码，上层perl根据这个错误代码输出对应的错误信息

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


    $!是指什么呢？它是系统产生的一些可读的信息。通常，当系统拒绝了我们的请求 （如打开文件），$!将告诉你原因 （可能是 “权限不够(permission  denied)”或者 “(文件不存在)file not found”）。这个字符串和你在C 或者类似的语言中通过perror 得到的是一样的。如果使用die 来表明错误，但此错误不是系统请求失败引起的，则不要使用$!，因为其包含的信息和实际的问题无关。它所包含的信息，仅对系统请求失败时有效。

chenjintao_ii

回复 7# wsxedcer


    谢谢你的回答。

我主要的目的是想用perl实现C语言中strerror()函数的功能，但是google了很长时间，就发现这个语句：
# 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文件内执行？

laputa73

use POSIX;
print strerror(1).

chenjintao_ii

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

正解啊，非常感谢。