develooper Front page | perl.macperl.forum | Postings from November 2003

chdir to "root" in MacPerl 5.2.0r4 vs MacPerl 5.6.1r2

From:
The Roschkes
Date:
November 27, 2003 16:37
Subject:
chdir to "root" in MacPerl 5.2.0r4 vs MacPerl 5.6.1r2
Message ID:
3FC62CCC.E0499B87@frii.com
I'm running OS 9.2.2.  In MacPerl 5.2.0r4 I was able to "chdir" to "::"
from the volume level and operate as if I was above the volume level --
e.g. <*> would return a list of volumes (e.g. hard drive and CD name).

This doesn't seem to work in MacPerl 5.6.1r2.  Is there some syntax I
can use other than 'chdir "::"' that will allow me to chdir to "above
the volume level" in MacPerl 5.6.1r2?

Thanks.

//dave

Details: Here is the output from the same script run under each version
of MacPerl:

===============================================================================

MacPerl 5.2.0r4 Application, Perl version 5.004

pwd is: iMac 700 HD: OurData:Dave:Perl scripts
$newpwd is: ::::

Attempting to: chdir "::::"
Success! `pwd` returns: "iMac 700 HD:
"

Attempting to: chdir "::"
Success! `pwd` returns: "
"
List of files (volumes) at this level with <*>:
iMac 700 HD:
Photos - Nadine/Juanita/Dad:

===============================================================================

MacPerl 5.6.1r2 Application, Perl version 5.006001

pwd is: iMac 700 HD: OurData:Dave:Perl scripts:
$newpwd is: ::::

Attempting to: chdir "::::"
Success! `pwd` returns: "iMac 700 HD:
"

Attempting to: chdir "::"
# No such file or directory

===============================================================================

and here's the MacPerl script that generated that output:

#!perl -w

print "=" x 79, "\n";

print qq|MacPerl $MacPerl::Version, Perl version $]\n\n|;

print "pwd is: ", `pwd`;

chomp($newpwd = `pwd`);
# Add trailing : if not returned by `pwd` for diffs in MacPerl versions.

$newpwd =~ s/$/:/ unless ($newpwd =~ /:$/);
# Eliminate everything in the path but the colons, to get to the volume.

$newpwd =~ s/[^:]*(:)[^:]*/$1/g;

print qq|\$newpwd is: $newpwd\n|;
print qq|\nAttempting to: chdir "$newpwd"\n|;
if (chdir "$newpwd") {
  print qq|Success! \`pwd\` returns: "|, `pwd`, qq|"\n|;
} else {
  warn "$!\n";
}

print qq|\nAttempting to: chdir "::"\n|;
if (chdir "::") {
  print qq|Success! \`pwd\` returns: "|, `pwd`, qq|"\n|;
  # Print results of a glob if chdir was successful to "root".
  print "List of files (volumes) at this level with <*>: \n";
  print map { "$_\n" } <*>;
} else {
  warn "$!\n";
}

print "\n";





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About