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

lhy2199 2010-03-13 10:26:16
用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
...全文
76 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
thy38 2010-03-14
  • 打赏
  • 举报
回复
等我看看《Python Programming on Win32》也用Python实现一下
资源下载链接为: https://pan.quark.cn/s/abbae039bf2a 在计算机科学领域,编译原理是研究如何将编程语言转化为机器可执行代码的理论基础。其中,三地址代码(Three-Address Code,TAC)作为一种中间表示形式,在编译器设计中经常被使用,尤其是在生成目标代码的阶段。本文将深入探讨三地址代码的概念、生成器的工作原理及其在编译过程中的作用。 三地址代码是一种简单的低级抽象语法树(AST)表示,每条指令涉及三个操作数,通常包括两个源操作数和一个目的操作数。这种格式简化了代码优化和目标代码生成的复杂性。例如,一个简单的算术表达式“x = y + z”在三地址代码中可能表示为: 在这个例子中,“t1”是一个临时变量,存储了“y + z”的结果,然后这个结果被赋值给“x”。 生成三地址代码的过程通常发生在编译器的中间阶段,即语法分析之后,语义分析之前。这个阶段称为“代码生成”或“中间代码生成”。编译器通过词法分析器处理源代码,将其转化为标记流;接着,语法分析器根据上下文无关文法将标记流解析成抽象语法树。三地址代码生成器就是在这个阶段介入,它遍历AST,为每个节点生成对应的三地址指令。 在Turbo C3.0这样的编译器环境下,开发者可以实现自己的三地址代码生成器。虽然Turbo C3.0是一款较老的编译器,但其C语言编译器设计原理依然适用于现代编译器开发。开发过程中,我们需要考虑如下关键点: 符号表管理:符号表记录了程序中所有标识符的类型、作用域和关联地址,对于生成三地址代码至关重要,因为它提供了关于操作数的类型信息。 数据类型转换:编译器必须处理不同数据类型的运算,确保它们在三地址代码中正确表示。例如,整型与浮点型之间的转换需要特别处理。

37,743

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • WuKongSecurity@BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧