in reply to win32 drive name

E:\Perl\bin>perl -e" print `vol $ARGV[0]`=~/is \b(.+)\b/" c:
8C87-E163
E:\Perl\bin>perl -e" print `vol $ARGV[0]`=~/is \b(.+)\b/" d:
Winnt
E:\Perl\bin>perl -e" print `vol $ARGV[0]`=~/is \b(.+)\b/" e:
B41D-3949
E:\Perl\bin>

[download]

Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

Replies are listed 'Best First'.
Re: Re: win32 drive name
by xafwodahs (Scribe) on Nov 26, 2002 at 15:58 UTC
    ok. `vol` seems to work for local drives only. I guess I need to be more specific.

    I use Clearcase on windows, and when I start a view, it is assigned a drive letter, usually starting at Z: and going backwards.

    In the explorer window, I see "my_view_name on 'view' (Z:)" Also, if I click Priorities, the same text appears in the 'label' textbox.
    But `vol` just tells me "CCase".

    Maybe there is some abstract clearcase command I need.
[reply]

      In that case, I'd take a look at Win32::DriveInfo::VolumeInfo ( drive ); It comes as a part of the standard AS 5.6.1 distribution. I don't hold out great hope, as from your description, is seems that the info you are seeing is probably some trickery, but it's worth a shot.

      The other possibility would be to try using Win32::OLE and get the info from ClearCase (whatever that is:).

      Good luck.

      Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
      Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
      Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
      Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

[reply]
[d/l]
        hmm, seems 'subst' gives me the info I need.

        A little trickery is required to separate the regular 'subst'd drives from the ones I want, but it's possible with 99% reliability.
[reply]

In Section Seekers of Perl Wisdom