CDROM operation : CDROM « File « Perl

1. Perl
2. File
3. CDROM

CDROM operation

     

#!/usr/bin/perl

use warnings;
use strict;

open CDROM, '/dev/cdrom' or die "$!";
ioctl CDROM, 0x5309, 1;   # the ioctl number for CDROMEJECT
close CDROM;

   
    
    
    
    
  

Related examples in the same category