udev 规则中的参数未传递到 perl 脚本

Question

我正在尝试创建一个隐藏大小小于 64 GB 的块设备（即 USB 驱动器）的 udev 规则

规则如下：

BUS=="usb", SUBSYSTEM=="block", ACTION=="add", PROGRAM="/data/diskSizeCheck.pl %k", RESULT!="ok", ENV{UDISKS_PRESENTATION_HIDE}="1", GOTO="usb_mount_end"

usb_mount_end 只是我的规则文件末尾的一个标签。 %k 应该是设备内核（即 sdb）。但即使我将“sdb”硬编码为参数，该参数也不会出现在我的 perl 脚本中，并且即使磁盘足够大，磁盘也总是无法通过大小检查。但是，当我通过命令行传入 sdb 时，它可以工作。

这是我正在使用的 perl 脚本：

#!/usr/bin/perl
use strict;
my $MINIMUM_DISK_SIZE = 64000000000;
my $kernel = $ARGV[0];
my $diskSize = `blockdev --getsize64 /dev/$kernel`;
chomp($diskSize);

if ($diskSize > $MINIMUM_DISK_SIZE) {
    print "ok";
} else {
    print "no";
}

脚本被标记为可执行和所有内容，但是当我将$kernel 写入文本文件时，文本文件出现空白，让我相信变量从未传入。

如何将%k 传递给我的 perl 脚本？

编辑添加：我以 root 身份运行所有内容。

编辑以进一步补充：我认为真正的问题是 RESULT 由于某种原因没有正确捕获我的脚本的输出。

Answer 1

使用

KERNEL=="sdc", SUBSYSTEMS=="block", ACTION=="add", PROGRAM="/usr/local/diskSizeCheck.pl %k", RESULT!="ok", ENV{UDISKS_PRESENTATION_HIDE}="1"

使用diskSizeCheck.pl：

#!/usr/bin/perl
use strict;
use warnings;
open FH,">/tmp/diskSizeCheck";
print FH "Disk Size Check\n"; 

my $MINIMUM_DISK_SIZE = 64000000000;
my $kernel = $ARGV[0];
my $diskSize = `sudo blockdev --getsize64 /dev/$kernel`;
chomp($diskSize);

print FH "kernel = $kernel, $diskSize\n";

if ($diskSize > $MINIMUM_DISK_SIZE) {
    print FH "ok\n";
} else {
   print FH "no\n";
}

在插入 U 盘时，我得到了 /tmp/diskSpaceSize：

Disk Size Check
sdc, 2005925888
no