Is there any module to get the cdrom infomation?

[lofenee]

I want to check whether a cdrom node under /dev actually exists.

 

[npc]

I want to check whether a cdrom node under /dev actually exists.

search cpan for 'cdrom.' there appear to be several.

perldoc -q cpan

 

[O]

I want to check whether a cdrom node under /dev actually exists.

Win32::AdminMisc

GetDrives([$Type])

This will return an array of drive roots. If no parameters are passed
then the list will be all drives (cdroms, floppy, fixed, net, etc.).
If you specify $Type the list will only contain drive roots that are
of the specified type.
The types are:

DRIVE_FIXED
DRIVE_REMOVABLE
DRIVE_REMOTE
DRIVE_CDROM
DRIVE_RAMDISK

Example:

@Drives = Win32::AdminMisc::GetDrives();
@CDROMs = Win32::AdminMisc::GetDrives( DRIVE_CDROM );

 

[Joost Diepenmaat]

I want to check whether a cdrom node under /dev actually exists.

Well, the *node* exists if "-e $path_to_node" returns true. Do you
also care if there is an actual drive there or if there's a readable
drive in the disc?

I'm assuming linux behaviour, here.

 

[Jens Thoms Toerring]

I want to check whether a cdrom node under /dev actually exists.

Win32::AdminMisc

GetDrives([$Type])

Do you guys on Windows nowadays also have a /dev directory with
device files?
Just curious, Jens

 

[RedGrittyBrick]

Well, the *node* exists if "-e $path_to_node" returns true. Do you
also care if there is an actual drive there or if there's a readable
drive in the disc?

I'm assuming linux behaviour, here.

In which case reading 'files' like /proc/ide/hdc/model might help.

 

[cmic]

Hello

I want to check whether a cdrom node under /dev actually exists.

maybe ioctl could help ?
(quick and dirty, sorry ...)

.....
open(CDROM, "< /dev/cdrom");
$media = ioctl(CDROM, 0x5327, $status='');
close(CDROM);

if($media eq 101) {
#media is present whith info
....
}

Regards