perlでファイルの拡張子を除いた文字列の取得

perlでファイルの拡張子を除いた文字列を取得するにはどうすればいいんでしょうか？

foo.txt --> foo
aaa.pl --> aaa

splitを使用して
@array = split(/./,<filename>)
$value = $array[0]
としてもうまく取得できないんですが。。

よろしくお願いします。

No.1 ベストアンサー 回答者： UsadaYusuke 回答日時： 2005/03/02 16:21

> @array = split(/./,<filename>)

@array = split(/\./,<filename>)
にしてください。

/./は「任意の一文字」です。
\でエスケープすることで「ピリオド」という意味になります。

↓参考URL

参考URL：http://www.tohoho-web.com/wwwperl1.htm#Expr

この回答へのお礼

初歩的なミスでした。
すいません。。。

あっさり解決です。
ありがとうございました。

お礼日時：2005/03/02 17:18