Perl 初心者コーナー Part23

>>951
require './data/data_1.cgi';
require './data/data_2.cgi';
>>951の質問はこれにて終了しました。
↓次の方どうぞ

何度もすいませんが
ファイルの内容を
while( <FILE> ){print;}でテキストエリアに渡した場合は、Windows改行になるのでしょうか？

処理系依存かな

>>954
処理系依存、といいますと、ｸﾗｲｱﾝﾄのOSに影響するということですか？

>>955
そのスクリプトが実行されるOS。
どうような違いがあるかは、>>943を参照

>>956
そうですか。。。
Linuxの鯖なのに
if($r_code eq "lf"){$body =~ s/\x0D\x0A$/\x0A/;}
elsif($r_code eq "cr"){$body =~ s/\x0D\x0A$/\x0D/;}
で変換できているので、CR+LFで出力されていることになりますが、、、
UNIXはLFだと思ったんだけど、意外だ・・・・

>>953
そのファイルがどの環境で作られたのかによるんじゃない？
Windows環境で書いたファイルであれば、どこに持っていこうがCRLFのまま。
これをUNIX系環境で１行読み込んだ場合、LFの前のCRは「文字列の一部」として
そのまま読み込まれるだけだと思うんだが。

なんか、読み込んだ時点で自動的に変換されるとか、１行書き込むとUNIX環境では
自動的にLF改行になるとか、そんな感じに勘違いしてない？

それと、あなたの実行環境ってローカルで動かしてるサーバーだよね？
間違ってもレンタルサーバーとかプロバイダスペースじゃないよね？
なんか会話が噛みあってないから。

置換処理で困っています。

掲示板で(^-^)などの顔文字があればそれを画像にすりかえるために
IMGタグに置換しようとしていますが、あらかじめ配列に顔文字のリストを
入れて置換してもうまくいきません。

顔文字のリストは
@list = (
"(^-^)", "kao1.gif",
"(T-T)", "kao2.gif",
);

という感じで、実際に置換している部分は

for($i = 0; $i < @list + 0; $i+=2){
　　　　$msg =~ s/($list[$i])/<IMG src=\"$list[$i+1]\" 〜略〜 alt=\"$list[$i]\">/g;
}

としています。まったく置換してくれません。
試しに顔文字のリストの顔の部分をOKなどにしてみると置換されました。
特殊な文字だから置換がうまくいかないのでしょうか？
どうすれば解決できるか教えてください、お願いします。

>>958
>なんか、読み込んだ時点で自動的に変換されるとか、１行書き込むとUNIX環境では
>自動的にLF改行になるとか、そんな感じに勘違いしてない？
へ？ぜんぜん思ってませんよ。。。

>>958

えと、つまり
Windows環境で、テキストエリアに入力した文字をcgiに送って
$body =~ s/\x0D\x0A$/\x0A/;
こうしても、LFにならないってことでしょうか？

>>959
顔文字が正規表現のメタ文字として解釈されているんでない？
顔文字のメタ文字を\でエスケープするか、もし面倒ならquotemetaであらかじめ
変換しておくとか。（\Q \Eって使えたかな…どなたか助言求む）
できればソースを書きたいんだけど、いま手元に実行環境がないんで勘弁して。

>>961
いい加減うぜぇ。２ちゃんは学校じゃねぇ。
質問等はまとめて話せ。少しは自分で調べて話せ。
＞こうしても、LFにならないってことでしょうか？
やってみろﾊﾞｶ。プログラムに実験はつきものだ。

>>963
やってみました。
if($file =~ /(.*)\x0D\x0A$/){$code = "CR+LF (Win)";}
elsif($file =~ /(.*)\x0A$/){$code = "LF (UNIX)";}
elsif($file =~ /(.*)\x0D$/){$code = "CR (Mac)";}
こいつで正確に改行コードがえられるのかだけ教えてくれませんか？

>>964
それは何も変わらないだろ？チェックしてるだけだ。
もう質問は止めてPerlの超初心者本を読むことをお勧めする。

(´-`).｡ｏＯ(やってみればぁ、、、)

>>962
メタ文字を\でエスケープしたりquotemetaもやってみましたがだめでした。
なんでかなぁ・・・。

>>965
ぃゃ、チェックできるのかを質問してるのに
チェックしかできないって怒られても……

>>964
すまん。
＞改行コードがえられるのかだけ
が
＞改行コードかえられるのかだけ
に見えてた。

末尾の改行に関してはそれでいける。
でも>>966の言うようにやってみれば分かるだろ。
CR+LF,LF,CRなファイルを用意してやってみればいいんだから。

>>969
if($r_code eq ﾞlfﾞ){$body =~ s/\x0D\x0A/\x0A/g}
elsif($r_code eq ﾞcrﾞ){$body =~ s/\x0D\x0A/\x0D/g}
でLF改行とCR+LF改行での新規作成はできるんですがCRだけうまくいかないんですよね。それにチェックするスクリプトも一行目の改行コードを調べているので不安なんですが、一つのファイルに改行コードが複数あるってことはないんでしょうか？
それと昨日もらったレスでは/sがいらないみたいなこと言ってましたが一行目だけをLFにするとのこりもLFになるんでしょうか？

http://homepage.mac.com/hiroyuki43/jaz09.html

追記
さっきの/sは/gの間違いでした。
で、/gなんですけど、試したところ複数行の文字は/gがないとコードが変わりませんでした。
たぶん/gを省いてくれた人はチェック時のことをいってくれてたんですね。

chmod(0666,"$logfile");
和鳥でこれが使えないのでデリったら書き込みができなくなった
なんか方法はありまつか?

>>963
お前頼むからスレタイよく読んでから書き込んでくれ。
http://up.2chan.net/d/src/1054780479575.jpg

>>970
＞if($r_code eq ﾞlfﾞ){$body =~ s/\x0D\x0A/\x0A/g}
＞elsif($r_code eq ﾞcrﾞ){$body =~ s/\x0D\x0A/\x0D/g}
＞でLF改行とCR+LF改行での新規作成はできるんですがCRだけうまくいかないんですよね。
意味が分かりません。
＞チェックするスクリプトも一行目の改行コードを調べているので
意味が分かりません。
＞一つのファイルに改行コードが複数あるってことはないんでしょうか？
モノによる。普通は有り得ないが作れないことも無い。
＞それと昨日もらったレスでは/s（=>/g）がいらないみたいなこと言ってましたが一行目だけをLFにするとのこりもLFになるんでしょうか？
意味が分かりません。
正規表現の$の意味は？

改行コードが何物かをもうちょっと勉強してみればわかると思うよ。
UNIXでCRがどういう意味を持ってるかってこと。

>>975
>＞if($r_code eq ﾞlfﾞ){$body =~ s/\x0D\x0A/\x0A/g}
>＞elsif($r_code eq ﾞcrﾞ){$body =~ s/\x0D\x0A/\x0D/g}
>＞でLF改行とCR+LF改行での新規作成はできるんですがCRだけうまくいかないんですよね。
>意味が分かりません。
フォームに入力した文字を、ラジオボタンに押されたものによって、
上のif文で改行コード変更するスクリプトなんです。
LFとCR+LF形式には変換できたのですが、
CR形式に変換できないんです。

＞チェックするスクリプトも一行目の改行コードを調べているので
意味が分かりません。
改行コードをチェックするスクリプトです。

# 改行コードの取得
open(FILE, "$name");
$file = <FILE>;
close(FILE);

if($file =~ /(.*)\x0D\x0A$/ && $bin !=~ /40/){$code = "CR+LF (Win)";}
elsif($file =~ /(.*)\x0A$/ && $bin !=~ /40/){$code = "LF (UNIX)";}
elsif($file =~ /(.*)\x0D$/ && $bin !=~ /40/){$code = "CR (Mac)";}
else{$code = "";}
このように先頭行だけをとって調べています。

>＞それと昨日もらったレスでは/s（=>/g）がいらないみたいなこと言ってましたが一行目だけをLFにするとのこりもLFになるんでしょうか？
>意味が分かりません。
>>933で、下で/gがなくなっているので・・・

&& $bin !=~ /40/
これは無視しちゃってください。
ファイル一覧取得するスクリプトの一部分で、
こいつで、ディレクトリ以外の改行コードの取得ってことです。。
すいません。

本当にもうしわけありません。
CR改行の件ですが、ローカルではできたのにレン鯖ではできなかったんです。
で、ただたんにスクリプトを更新していなかっただけでした。すいません。

(´-`).｡ｏＯ(こんなけ引っ掻き回しておいてそういうオチに持ってくるのかぁ、、、勉強になるなぁ。)

>>980
やっぱりできませんでした。
CRの場合、最後の行を改行しないと認識してくれませんねぇ。。。

>>967
どうやってできなかったのかな？うちでは両方できたけど。
%list = (
    '(^-^)', 'kao1.gif',
    '(T-T)', 'kao2.gif',
);
$msg =~ s/\Q$_\E/$list{$_}/g for(keys %list);

>>982
あぁ・・・書き忘れてました。\Qと\Eのは書き方はわからなかったのです。
たぶんquotemetaの書き方も間違っていたんだと思いますけど。

できました。教えていただいてありがとうございました。

ディレクトリが存在するかどうか確認する方法ってありますか？
何層も下の場合でも使えるの・・

>>984
http://www.google.co.jp/search?q=%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%83%86%E3%82%B9%E3%83%88%E6%BC%94%E7%AE%97%E5%AD%90&ie=UTF-8&oe=UTF-8&hl=ja&lr=lang_ja

>>985
ファイルテスト演算子ってディレクトリに使ってもいいんですか？

>>986
http://www.google.co.jp/search?q=%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%83%86%E3%82%B9%E3%83%88%E6%BC%94%E7%AE%97%E5%AD%90&ie=UTF-8&oe=UTF-8&hl=ja&lr=lang_ja

IPやホスト名を2chのIDみたくしたいです。
誰か教えてください。

つまり、>>987は「聞く前に試してみろ」と言いたいのだな.。

>>988
crypt

>>988
くりんぷと

>>989
違う。
>>985がファイルテスト演算子って言いたいだけだったら
わざわざGoogleへのリンクを貼らないだろう。

>>986は>>985のリンク先を一つも見てないからもう一度貼ったまで。
http://www.google.co.jp/search?q=%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%83%86%E3%82%B9%E3%83%88%E6%BC%94%E7%AE%97%E5%AD%90&ie=UTF-8&oe=UTF-8&hl=ja&lr=lang_ja
の一番上のリンク見るだけで解決する話なのに。まあ>>986は氏ねってこった。

初心者で申し訳ないのですが、Perlモジュールのアンインストールは
どうやればよいのでしょうか。
調べてもこれといったものが見つからなかったため、教えていただき
たい次第です。

>>989
・・・あんまり回答になってなかった。
「聞く前に試してみろ」と言いたいのではなく、「聞き返す前に読め」といいたい。
せっかく答え返ってきてるのに、何のために聞き返すのかｻﾊﾟｰﾘ。まあ>>986は氏ねってこった。

次スレは?

うむ、>>986は氏ねってことには同意だ。

>>993
スレ違い

そろそろ新スレ立てたほうが良いのでは？

Perlは死滅。次スレは要りません。

C1000タケダ

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。