や��
���ディレクトリ構造を���る。 / abc�/デフ/ ghi /
���列�格����。
�れ�����ディレクトリ�移動�る�������簡������列を開�機能��。
������よ��分割���管������。

@ディレクトリ\u003d分割（ / \ / / � $ DirectoryVarialbe ）

��doest動作���。他�エスケープシーケンスを指定�る必���り���？

親切�役立���。

や��
�れ�正常�動作�る必���り��。��以下�����...

#!/usr/bin/perl -w
use strict;

# Program to accept a file path and store it in a array

my $dir = "/abc/def/ghi/";

my @Dir = split(/\//, $dir);

pop(@Dir);

my $PreviousDir = join("/", @Dir);
print "The original Directory is $dir\n";
print "The new Directory is $PreviousDir\n";

��仕事をThakns �

何�簡��方法�親ディレクトリ��る必���る。
"似�よ��.."??�CD

支�者 Perl� 5.6.1テストコード��作�：

#!/usr/local/bin/perl -w

my $DirectoryVariable="/abc/def/ghi";

my @Directory = split(/\//, $DirectoryVariable);

print "@Directory";

����最���素�中�実行���る" / "���題���undef ？

�返信�����り��������。エスケープシーケンス���。当���もsclar変数�フィールドspliting�����列を読�込む������。��歩��エラー�試����。�����今����れ�忘れ�����。