Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Accessing Windows Path from Perl script

by VinsWorldcom (Prior)
on Aug 13, 2010 at 14:22 UTC ( #854916=note: print w/replies, xml ) Need Help??


in reply to Accessing Windows Path from Perl script

I think your problem is the interpolation and non-interpolation with double versus single quotes. You don't need to escape your backslashes and dollar sign in your %typehash as you're using single quotes.

This worked (printed the right path) for me:

#!C:\perl\bin\perl use strict; use warnings; my %typehash = ( 'tomcat' => '\d$\logs\tomcat', 'tomcatweb' => '\d$\logs\web', 'apache' => '\d$\logs\Apache' ); sub getLog { my ($a,$type)=@_; my $server=$a; my $dir = "\\\\$server".$typehash{$type}; print "\n $dir "; chomp(my $meh = `dir /b /O:D $dir`); print $meh; } &getLog("test.control.com",'tomcat');

And executed:

{Z} \\vmware-host\Shared Folders > perl script.pl \\test.control.com\d$\logs\tomcat The network path was not found.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://854916]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2021-05-06 01:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Perl 7 will be out ...





    Results (69 votes). Check out past polls.

    Notices?