AAARGH, MY EYES!!!! ;o)
Use a forward slash! It should work no problem in Win.
system("copy \"C:\\Documents and Settings\\ryang\\Start
Menu\\Programs\\Yardi 4.3\\*.*\" \"\\\\$comp\\c\$\\winnt\\profiles\\all
users\\start menu\\programs\\Yardi 4.3\\\"") || print "Failed!" && next;
Would become:
system("copy \"C:/Documents and Settings/ryang/Start
Menu/Programs/Yardi 4.3/*.*" "//$comp/c\$/winnt/profiles/all
users/start menu/programs/Yardi 4.3/\"") || print "Failed!" && next;
Then, simplify more:
system(qq{copy "C:/Documents and Settings/ryang/Start
Menu/Programs/Yardi 4.3/*.*" "//$comp/c\$/winnt/profiles/all
users/start menu/programs/Yardi 4.3/"}) || print "Failed!" && next;
I find all of the slashes make things VERY confusing, especially if you
have to come in and maintain the code...
Note: I did NOT test out the above code. It should work, but I may have a
typo in there somewhere..
Brent
Ryan Guy
<RGuy@oxford- To: "'[EMAIL PROTECTED]'"
<[EMAIL PROTECTED]>
pgh.com> cc:
Subject: Why cant perl resolve this
address?
01/25/02
01:13 PM
I am trying to copy files into users start menus because of an installation
gone awry. The files goto different places depending on the os.
networked computers are referred to as:
\\(computername)\(driveletter)$
john doe's machine name:
\\doej\c$ (for the c drive)
\\doej\d$ (for the d drive)
<snip>
open(FILE,"c:\\data.txt");
@compNames=<FILE>;
close(FILE);
foreach $comp (@compNames){
print "\n";
if($comp~=/nt/){
print "$comp is an NT system ... attempting to copy ... ";
system("copy \"C:\\Documents and Settings\\ryang\\Start
Menu\\Programs\\Yardi 4.3\\*.*\" \"\\\\$comp\\c\$\\winnt\\profiles\\all
users\\start menu\\programs\\Yardi 4.3\\\"") || print "Failed!" && next;
print "Success ...";
}
elsif($comp~=/2k/){
print "$comp is a 2000 system ... attempting to copy ... ";
system("copy \"C:\\Documents and Settings\\ryang\\Start
Menu\\Programs\\Yardi 4.3\\*.*\" \"\\\\$comp\\c\$\\Documents and
Settings\\ryang\\Start Menu\\Programs\\Yardi 4.3\\\"") || print "Failed!"
&&
next;
print "Success ..."
}
}
<\snip>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
