☰

既存の光学ドライブをすべて一覧表示するには？

tag-icon • tag-icon linux shell perl drivers udev
既存の光学ドライブをすべて一覧表示するには？

インストールされているすべてのオプティカルドライブを一覧表示する方法ウデブそれとも他のコアベースのツールがありますか（Perlも良いでしょう）？

PS：このコマンドを知っているがwodim --devices歓迎されない依存関係です。

ベストアンサー1

Perlが好きなら、このサンプルコード確立されたこの問題はCPANで解決できます。また、依存性が低い。あなたに必要なライブラリは機器 - Cdio。

use strict;

BEGIN {
    chdir 'example' if -d 'example';
    use lib '../lib';
    eval "use blib";  # if we fail keep going - maybe we have installed Cdio
}

use Device::Cdio;
use Device::Cdio::Device;
use Device::Cdio::Track;
use vars qw($0 $program $pause %opts);

sub print_drive_class($$$) {
    my ($msg, $bitmask, $any) = @_;
    my @cd_drives = Device::Cdio::get_devices_with_cap($bitmask, $any);
    print "$msg...\n";
    foreach my $drive (@cd_drives) {
    print "Drive $drive\n";
    }
    print "-----\n";
}
my @cd_drives = Device::Cdio::get_devices($perlcdio::DRIVER_DEVICE);
foreach my $drive (@cd_drives) {
    print "Drive $drive\n";
}
print "-----\n";
print_drive_class("All CD-ROM drives (again)", $perlcdio::FS_MATCH_ALL, 0);

おすすめ記事