まあ、私は試みて失敗したので、ここに再びいます。
腹筋のパス パターンを一致させる必要があります。
/public_html/mystuff/10000001/001/10/01.cnt
私は汚染モードなどです..
#!/usr/bin/perl -Tw
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;
$ENV{PATH} = "bin:/usr/bin";
delete ($ENV{qw(IFS CDPATH BASH_ENV ENV)});
同じファイルを 2 回以上開く必要があり、毎回ファイル名の汚染を取り除かなければなりません。他に間違ったことをしているかもしれませんが、今後の参考のために、このパターンを構築するための支援が必要です。
my $file = "$var[5]";
if ($file =~ /(\w{1}[\w-\/]*)/) {
$under = "/$1\.cnt";
} else {
ErroR();
}
私の初心者の試みから、私が無知に近いことがわかります。
$1うまく構築されていないが機能している正規表現のため、スラッシュと拡張子を追加する必要がありました。
だから、表現を修正する方法を学ぶ助けが必要です$1。/public_html/mystuff/10000001/001/10/01.cnt
誰かがここで私の手を握って、作り方を教えてくれませんか?
$file =~ /(\w{1}[\w-\/]*)/ 私の絶対パスと一致します/public_html/mystuff/10000001/001/10/01.cntか?
ご協力ありがとうございます。