| 1 | #! perl |
|---|
| 2 | use Cwd 'abs_path'; |
|---|
| 3 | use Data::Dumper; |
|---|
| 4 | use File::Spec; |
|---|
| 5 | my $inter; |
|---|
| 6 | $inter = "Cwd->abs_path(F:testpl.cmd)"; |
|---|
| 7 | print "\ninter=",$inter,"\n"; |
|---|
| 8 | print "\ninter=",Dumper($inter),"\n"; |
|---|
| 9 | my @inter; |
|---|
| 10 | @inter=("\nCwd->abs_path(F:testpl.cmd) = ", Cwd->abs_path('F:testpl.cmd'),"\n"); |
|---|
| 11 | print "\n\inter=",Dumper(@inter),"\n"; |
|---|
| 12 | print "\nCwd->abs_path(F:testpl.cmd) = ", Cwd->abs_path('F:testpl.cmd'),"\n"; |
|---|
| 13 | print "\nCwd->abs_path(G:testpl.cmd) = ", Cwd->abs_path('G:testpl.cmd'),"\n"; |
|---|
| 14 | print "\nCwd->abs_path(H:testpl.cmd) = ", Cwd->abs_path('H:testpl.cmd'),"\n"; |
|---|
| 15 | print "\nCwd->abs_path(testpl.cmd) = ", Cwd->abs_path('testpl.cmd'),"\n"; |
|---|
| 16 | print "\nCwd->abs_path(\\testpl.cmd) = ", Cwd->abs_path('\testpl.cmd'),"\n"; |
|---|
| 17 | print "\nCwd->abs_path(\\\\server\\testpl.cmd) = ", Cwd->abs_path('\\server\testpl.cmd'); |
|---|
| 18 | print "\n"; |
|---|
| 19 | |
|---|
| 20 | print "\nFile::Spec->rel2abs(F:testpl.cmd) = ", File::Spec->rel2abs('F:testpl.cmd'); |
|---|
| 21 | print "\nFile::Spec->rel2abs(G:testpl.cmd) = ", File::Spec->rel2abs('G:testpl.cmd'); |
|---|
| 22 | print "\nFile::Spec->rel2abs(H:testpl.cmd) = ", File::Spec->rel2abs('H:testpl.cmd'); |
|---|
| 23 | print "\nFile::Spec->rel2abs(testpl.cmd) = ", File::Spec->rel2abs('testpl.cmd'); |
|---|
| 24 | print "\nFile::Spec->rel2abs(\\testpl.cmd) = ", File::Spec->rel2abs('\testpl.cmd'); |
|---|
| 25 | print "\nFile::Spec->rel2abs(\\\\server\\testpl.cmd) = ", File::Spec->rel2abs('\\server\testpl.cmd'); |
|---|
