アカウント名:
パスワード:
CentOS5環境$ echo "test" > test$ echo "file" > file$ echo "test_file" > test\ file$ cat test\ filetest_file$ cat test.pl#!/usr/bin/perl
$filename="test file";if (-f $filename ){ open(FILE,$filename); $str=; print $str; close(FILE);}if (-f "$filename"){
> $str=;ここは$str=<FILE>;と書こうとしたのでしょうか。それはともかく、Windows XP上のStrawberry Perlでもosakanataroさんと同じ結果になりました。testとfileがあって"test file"がないときは何も表示されない(-f $fileで正しくファイルなしと判定される)し、testとfileがなくて"test file"があるときはtest_fileが2行表示される(-f $fileで正しくファイルありと判定される)ことも確認しました。どんな腐った環境だと「二つのファイルがあるかどうか検査しようとする」のか、どうやってそのことを確認したのかむしろこっちが質問したいですね。
あ・・・そうです、タグ扱いされて消えてましたね
より多くのコメントがこの議論にあるかもしれませんが、JavaScriptが有効ではない環境を使用している場合、クラシックなコメントシステム(D1)に設定を変更する必要があります。
クラックを法規制強化で止められると思ってる奴は頭がおかしい -- あるアレゲ人
その環境腐ってない? (スコア:1)
CentOS5環境
$ echo "test" > test
$ echo "file" > file
$ echo "test_file" > test\ file
$ cat test\ file
test_file
$ cat test.pl
#!/usr/bin/perl
$filename="test file";
if (-f $filename ){
open(FILE,$filename);
$str=;
print $str;
close(FILE);
}
if (-f "$filename"){
Re: (スコア:0)
> $str=;
ここは$str=<FILE>;と書こうとしたのでしょうか。
それはともかく、Windows XP上のStrawberry Perlでもosakanataroさんと同じ結果になりました。testとfileがあって"test file"がないときは何も表示されない(-f $fileで正しくファイルなしと判定される)し、testとfileがなくて"test file"があるときはtest_fileが2行表示される(-f $fileで正しくファイルありと判定される)ことも確認しました。
どんな腐った環境だと「二つのファイルがあるかどうか検査しようとする」のか、どうやってそのことを確認したのかむしろこっちが質問したいですね。
Re:その環境腐ってない? (スコア:1)
あ・・・そうです、タグ扱いされて消えてましたね