user@hopper> perl -w use strict; use Cwd; my $sandbox = "/tmp/frontier"; test("$sandbox"); sub test() { my $directory = "@_"; my $pwd = getcwd; print "Directory is: $directory\nYou path is: " . getcwd ."\n"; if ( "$pwd" eq "$directory" ) { print "You are not in the same directory as $directory!\n"; } else { print "You are in $directory\n"; } } Sandbox is: /tmp/frontier Your pwd is: /u20/home/user You are in /tmp/frontier
----------
- Jim
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |