＆＃8220;对设备不适当的ioctl＆＃8221;

StackOverflow https://stackoverflow.com/questions/1605195

  •  05-07-2019
  •  | 
  •  

题

我有一个在AIX框中运行的Perl脚本。

该脚本尝试从某个目录打开文件，但由于该文件没有读取权限，因此无法读取该文件，但是我收到了一个不同的错误，指出不适合ioctl for device 。

不应该说没有文件的读取权限或类似的东西吗？

此设备消息的不适当的ioctl是什么意思？

我该如何解决？

编辑：这是我在 strace 时发现的。

open("/local/logs/xxx/xxxxServer.log", O_WRONLY|O_CREAT|O_APPEND|O_LARGEFILE, 
    0666) = 4 _llseek(4, 0, [77146], SEEK_END) = 0
ioctl(4, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbffc14f8) = -1 ENOTTY 
    (Inappropriate ioctl for  device)
有帮助吗？

解决方案

很可能这意味着打开的没有失败。

当Perl打开文件时，它通过发出 TCGETS -T $ fh filetest操作符） > ioctl反对它。如果文件是常规文件而不是tty，则ioctl失败并将errno设置为 ENOTTY （字符串值：“不适当的设备ioctl”）。正如ysth所说，在 $！中看到意外值的最常见原因是在无效时检查它 - 也就是说，其他的任何地方，而不是在系统调用失败后立即检查，因此测试操作的结果代码至关重要。

如果 open 实际上为你返回false，并且你在 $！中找到了 ENOTTY ，那么我会认为这是一个小bug（给出一个无用的 $！值，但我也很好奇它是如何发生的。代码和/或桁架输出会很漂亮。

其他提示

奇怪的错误，例如“设备不适当的ioctl”通常是检查$的结果！在系统调用失败之后的某个时刻。如果你显示你的代码，我打赌有人会迅速指出你的错误。

＆QUOT;文件＆QUOT; * nix类型系统是一个非常抽象的概念。

它们可以是由文件系统组织的磁盘上的区域，但它们同样可以是网络连接，一些共享内存，来自另一个进程的缓冲区输出，屏幕或键盘。

为了让perl非常有用，它会非常密切地反映这个模型，并且不会通过模拟磁带来处理文件，而不是4gls。

所以它尝试了“IOCTL”。在文件句柄上执行'open for write'操作，该句柄不允许对该设备/文件进行不恰当的IOCTL操作的写操作。

最简单的方法是坚持“打开结束时或die'无法打开$ myfile'语句，您可以选择自己有意义的消息。

“不恰当的ioctl for device”是ENOTTY错误的错误字符串。它曾经主要是通过尝试在没有终端（但是，例如，常规文件）的文件描述符上配置终端属性（例如回声模式）来触发，因此是ENOTTY。更一般地说，它是在不支持ioctl的设备上执行ioctl时触发的，因此是错误字符串。

要找出失败的ioctl，以及在什么文件描述符上，运行strace / truss下的脚本。您将识别ENOTTY，然后实际打印错误消息。然后找出使用了什么文件号，以及open（）调用返回该文件号。

我刚修复了这个perl bug。 请参阅 https://rt.perl.org/Ticket/Display.html?id= 124232个

当我们将缓冲层推送到PerlIO并执行失败的isatty（）检查时 显然在所有正常文件上失败，忽略错误的错误ENOTTY。

尤里卡时刻！

之前我遇到过此错误。

您是否通过以下方式调用perl调试器： - 

perl -d yourprog.pl > log.txt

如果是这样，perl调试尝试查询并可能重置终端宽度。 当stdout不是终端时，它会因IOCTL消息而失败。

另一种方法是让你的调试会话永远挂起，因为你没有看到提示说明。

由于这是一个致命错误并且也很难调试，可能修复程序可以放在某处（在提供的命令行中？）：

export GPG_TTY=$(tty)

发件人： https://github.com/keybase/keybase-issues/issues / 2798

今天遇到此错误，同时尝试使用代码删除生活在作为Centos服务器上的共享的Windoze 7盒子上的文件夹/文件。得到了不恰当的icotl设备错误，并尝试了所有想到的。阅读网上与此相关的每篇文章。

显然，问题与Linux服务器上挂载的Windoze共享隔离。看着 在Windoze框的文件权限上，并注意到文件的权限设置为只读。

更改了这些，返回Linux服务器，所有工作都按预期工作。这对大多数人来说可能不是解决方案，但希望能节省一些时间。

我尝试了以下似乎有用的代码：

if(open(my $FILE, "<File.txt")) {
    while(<$FILE>){
    print "
我尝试了以下似乎有用的代码：


<*>";}
} else {
    print "File could not be opened or did not exists\n";
}
许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top