[Win32] Laufwerksbuchstaben auslesen (Allgemeines zu Perl)

renee

2008-09-30 00:22

User since
2003-08-04
14371 Artikel
ModeratorIn

Hallo,

ist es möglich, mit Perl die existierenden Laufwerksbuchstaben bei Windows auszulesen? In der Registry habe ich unter HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices zwar Laufwerksbuchstaben gefunden, allerdings werden dort auch Laufwerke aufgelistet, die es zur Zeit nicht gibt.

Renee

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

MatthiasW

2008-09-30 01:01

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Hier ein Beispielskript, das die Laufwerkskennbuchstaben auflistet:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Win32::API;

my $function = Win32::API->new( 'kernel32', 'GetLogicalDriveStringsA', 'NP', 'N' );

my $drivestr = ' 'x1024;
my $ret = $function->Call( 1024, $drivestr );

print "'$_'\n" for split "\0", substr( $drivestr, 0, $ret );
<STDIN>;

__END__

In $ret steht die Anzahl an Bytes, die benötigt wurden um die Laufwerkskennbuchstaben abzuspeichern und in $drivestr stehen alle Laufwerkskennbuchstaben mit \0 separiert.

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

renee

2008-09-30 01:07

User since
2003-08-04
14371 Artikel
ModeratorIn

Super, danke!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/