共勉:perl实现同win32 ::OnDeviceChange一样的功能

2010-03-13 10:26:16 124 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

华为云CodeHub保姆级教程：从零开始，5分钟搞定本地代码上传（含常见报错解决）本文提供华为云CodeHub的保姆级教程，从零开始5分钟完成本地代码上传，涵盖环境准备、仓库创建、远程连接及常见报错解决。特别适合新手开发者快速掌握Git命令与云端协作流程，确保代码安全高效上传。阅读详情

用perl 实现同win32 ::OnDeviceChange一样获取系统中磁盘信息的功能：

#vicky finished by 10-03-13 22:10
#!/usr/bin/perl
#use Win32::kernel32;
use win32;
use win32::api;
use Win32API::File 0.08 qw( :ALL );

my $total_disk=GetLogicalDriveStrings(4*26+1,$osBuffer);
my $len=length $osBuffer;
print "$len- $osBuffer\n";
my $rec_diskinfo="*** logical disk info ***\n";

for(my $index=0;$index<$len; $index += 4)
{
my $getdrive= substr($osBuffer, $index, 2);
$rec_diskinfo .="$getdrive-->";
my $type = GetDriveType($getdrive);
if( $type==1)

{ $rec_diskinfo .="The root directory does not exist\n";next; }
if( $type==2){ $rec_diskinfo .="floppy drive\n";next; }
if( $type==3){ $rec_diskinfo .="fixed drive\n"; $savdisk=$getdrive;next;}
if( $type==4){ $rec_diskinfo .= "remote (network) drive\n";next; }
if( $type==5){ $rec_diskinfo .="CD-ROM drive\n";next; }
if( $type==6){ $rec_diskinfo .="A RAM disk\n";next; }
if( $type<=0||$type>6){ $rec_diskinfo .= "UNKNOWN Disk\n";next; }
}

open DRVIF,">f:\\logicaldisk.inf"||die "can save logical disk info";
printf DRVIF $rec_diskinfo ;
close DRVIF;

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lhy2199/archive/2010/03/13/5377573.aspx

...全文