显示bios时间代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】显示bios时间

作者:work24 / 发布于2014/1/17/ 755

#! perl



# Check command line arguments (none required)

if($ARGV[0] ) {

Syntax();

}



# Create temporary DEBUG script

$dbg="D FFFF:0005 L 8\nQ\n";

open( DBGSCR,"> biosdate.dbg") ||die("Cannot open temporary DEBUG script: $!");

printDBGSCR$dbg;

closeDBGSCR;



# Run DEBUG script and filter output;

# improved DEBUG output filtering by Uri "Talentix"

`debug.exe < biosdate.dbg` =~ /(\d\d\/\d\d\/\d\d)/;

print"\nBIOS date: ".$1."\n";



# Delete temporary DEBUG script

`DEL biosdate.dbg >NUL 2>&1`;





subSyntax {

print"\nBIOSDate.pl, Version 1.10 for DOS, Windows & OS/2\n",

"Display BIOS date of local computer\n\n",

"Usage: BIOSDATE.PL\n\nThis script uses ",

"DEBUG.EXE to read the information from BIOS.\n",

"Tested in Windows 2000 only.\n\nWritten by ",

"Rob van der Woude\nhttp://www.robvanderwoude.com\n\n",

"Improved DEBUG output filtering by Uri \"Talentix\"\n\n",

"Original idea by ComputerHope\n",

"http://www.computerhope.com/rdebug.htm\n\n\n";

}

试试其它关键字

　bios时间　

同语言下

可能有用的

work24贡献的其它代码(2)