Re^2: Windows Net Use

Thnks hdb .. But when i input the directory as

my $inputDirectory = "\\\\10.81.253.140\\IPC\$";
[download]

It does not return anything. Why??

Comment on Re^2: Windows Net Use Download Code

Replies are listed 'Best First'.
Re^3: Windows Net Use by hdb (Monsignor) on Mar 28, 2013 at 09:51 UTC
You found a material gap in my code. Problem is the escaped $ at the end. The backslash in front of it will be doubly escaped and then the $ will cause trouble. use strict; my $inputDirectory = '\\\\10.81.253.140\\IPC$'; # need to dublicate each \ in string $inputDirectory =~ s\|\\\|\\\\\|g; $inputDirectory =~ s\|\$\|\\x{24}\|g; # replace $ with hex representatio +n my @lines = `net use`; foreach my $line ( @lines ) { next unless $line =~ m\|$inputDirectory\|; $line =~ /(^\S+)/; print $1; } [download]	[reply] [d/l]
Re^4: Windows Net Use by Anonymous Monk on Mar 28, 2013 at 10:08 UTC
@hdb A few more doubts.. What was the exact problem caused when we used /$(dont know ehat is this material gap..)and Also Why are we duplicating \\ to \\\\ (line 3)	[reply]
Re^5: Windows Net Use by hdb (Monsignor) on Mar 28, 2013 at 10:44 UTC
I have to admit that I confused myself a bit. The problem with $ is that in the regular expression it is interpreted as end line and needs to be escaped. The \\ needs to be duplicated to escape it to a double \ again in the regular expression. The WMI approach proposed further down is probably safer...	[reply]
Re^3: Windows Net Use by 7stud (Deacon) on Mar 28, 2013 at 09:45 UTC
\\\\10.81.253.140\\IPC\$ \\\\10.81.253.140\\IPC$	[reply]