| 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');
|
|---|
