Convering a command output into hash

[MoshiachNow]

HI,
my winshares.cmd command returns the following structure:
ows shares for KDI-PGY2500

ADMIN$ D:\WINNT
AraxiHome D:\Prinergy
AraxiPreps D:\Prinergy\CreoAraxi\AraxiPreps
AraxiTemp_KDI-PGY2500_E E:\AraxiTemp
AraxiVolume_KDI-PGY2500_J J:\
C$ C:\

I need to convert it inro a hash.I know how to do it using a file.But how do I do it without the file?

Starting by:
my $shares=`winshares.cmd`;

Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[stevexff]

use strict;
use warnings;

my @shares = qx{winshares.cmd};
chomp @shares;

my %winshares;

foreach (@shares) {
   my ($shname, $shpath) = split(/\s+/, $_);
   $winshares{$shname} = $shpath;
}

Warning: if your paths have spaces in, this won't work...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[MoshiachNow]

Thanks,great

If some paths have spaces,what would be a solution?
Like:

LinkTemp D:\Program Files\SynapseLink\2.1\yoho\bin\Temp


Long live king Moshiach !

http://www.7for70.com/

 

[MoshiachNow]

say,splitting by more then 2 spaces ?

Long live king Moshiach !

http://www.7for70.com/

 

[MoshiachNow]

Actualy,the above code does not work - it prints nothing...

for (sort keys %winshares) {
print "SHARE=$_=\n";
}

prints:
SHARE==

Long live king Moshiach !

http://www.7for70.com/

 

[stevexff]

No, because you can have any number of contiguous spaces in a path name. Something like

foreach (@shares) {
   my @temp = split(/\s/, $_);
   my $shname = shift(@temp);
   my $shpath = join(" ", @temp);
   $shpath =~ s/^\s*(.*)$/$1/;
   $winshares{$shname} = $shpath;
}

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[MoshiachNow]

thanks.will try

Long live king Moshiach !

http://www.7for70.com/

 

[stevexff]

Is the winshares.cmd producing any output? Does it need a path? Try printing out the contents of @shares...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]