来自udev规则的参数不会传入perl脚本

时间:2015-01-09 22:38:14

标签: linux perl udev

我正在尝试创建一个隐藏大小小于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由于某种原因没有正确捕获我的脚本输出。

1 个答案:

答案 0 :(得分:2)

使用

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";
}

在插入USB记忆棒时,我得到/ tmp / diskSpaceSize:

Disk Size Check
sdc, 2005925888
no