Perlコーディング初心者質問スレ Part 57at PHPPerlコーディング初心者質問スレ Part 57 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト52:nobodyさん 08/03/05 05:02:04 yN6MH4LB ファイルパスを引数として受け取り 受け取ったファイルパスにファイルを作るサブルーチンを作りたいんですが、 ファイルパスが正しいかチェックするための正規表現がどうしてもかけません。 マッチする条件として ・ドットで始まるファイルは不可 ・拡張子は必須/\.[a-z]+$/ ・チルダ不可 ・先頭のみ./は許可。../は不可。 ・ディレクトリ、ファイル名は/[A-Za-z0-9\-]/にマッチ ・連続するスラッシュ、ドットは不可 ・m|^/|も許可 書いてみてもものすごく長くなって、結局破綻してしまいます。 たすけて 53:nobodyさん 08/03/05 05:08:29 追記 open(FH,">",$file); で作れるファイル名なら問題ないです。 ただし、カレントディレクトリ以下です。 54:nobodyさん 08/03/05 05:42:23 ImwXiBY3 use lib qw( ./lib ); use Data::Alias; で Can't locate loadable object for module Data::Alias と言われます。 ./lib/Data/にAlias.pmをポコッと置いてるだけなんですけど 何が足りないんでしょうか？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch