Perlについての質問箱 5箱目

952 ：デフォルトの名無しさん：03/08/12 00:32

>>950
もともとPerlで使われてた手法だろ。

953 ：ハッカ飴：03/08/12 00:57

CPANモジュールのAlgorithm::Diffってちゃんと動く？
少なくとも俺の環境では正しい結果を返さないんだが。

954 ：デフォルトの名無しさん：03/08/12 01:00

なにやっても動かぬ。

955 ：デフォルトの名無しさん：03/08/12 01:04

そうですか。

956 ：ハッカ飴：03/08/12 01:08

そんなわけあるか。
ドキュメントにある
a x b y c z p d q
a b c a x b y c z
でさえ
a x b y c z p d q
a b c a x b y c z
になっちゃうんだぜ？

957 ：デフォルトの名無しさん：03/08/12 01:13

へー・・

958 ：ハッカ飴：03/08/12 01:14

違う違う、こうだこうだ。
a　　　 x b y c z p d q
a b c a x b y c z

959 ：デフォルトの名無しさん：03/08/12 01:16

ほー・・・

960 ：デフォルトの名無しさん：03/08/12 01:16

ハッカ飴って人は、ただ単にメルフレ募集の人だね。
寂しそう。

961 ：ハッカ飴：03/08/12 01:18

上手くいかないな。
じゃあ、こう。.は空白だと思ってくれ。

a.......x.b.y.c.z.p.d.q
a.b.c.a.x.b.y.c.z

サンプルスクリプトも載せようか？
俺はググってもこの話が見つからないことが不思議でしょうがないんだ。
何か教えてくれるなら、労力は惜しまないぞ。

962 ：ハッカ飴：03/08/12 01:20

>>960
俺のポリシーだ。
それにここに書き込む話じゃない。

963 ：デフォルトの名無しさん：03/08/12 01:27

以上、使えぬﾃﾞｼｬﾊﾞﾘさんですた。

ここ、スレッドあぼーんするかな。

964 ：デフォルトの名無しさん：03/08/12 01:28

夏。

965 ：デフォルトの名無しさん：03/08/12 01:33

>>963
どっちが使えないんだか分からん

966 ：デフォルトの名無しさん：03/08/12 01:35

>>963
このスレッドに恨みでもあるの？

967 ：デフォルトの名無しさん：03/08/12 01:39

　　　∧＿∧　
　　（　´Д｀）＜みなさーん、お茶が入りましたよ～　
　　／　　　＼　
　　|　l　　　l　| 　　　 ..,. ., .,
　　|　|　　　 | _|｡.:_:：゜｡-.;.:゜｡:.:;。
　　ヽ＼_　.｡'ﾟ/　　　`｡:､｀；゜:;.::.｡:.:。　
　　 /＼_ﾝ∩ｿ＼　　　 ::..゜:: ﾟ｡:.:.::.。.｡:.　　
.　 /　 /`ｰ'ｰ'＼＼　　゜: ::..゜:: ﾟ｡:.:.:，｡:.:.
　〈　く　　　　　/　/　::..゜:: ﾟ｡:.:.:，.:.:.:｡:.:，
.　＼　L　　　./　/　＿::..゜:: ﾟ｡:.:.:，.:.:，.:.:.:，
　　　〉　）　（　.::旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦.
　　（_,ノ　　　 .`ー'旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦旦.

968 ：２バイト文字に対応したカレントディレクトリを取得するには？：03/08/12 12:44

getcwd()で、カレントディレクトリ名を得る時、
カレントパス名に、文字化けする40種の文字列
(「表」「能」等、所謂「\」コードを含む文字列)
があると、正しく処理されないのですが…

Windows のActive State Perlで、
例えばカレントが
　C:\表示\
である場合、

　use Cwd;
　print getcwd();
の結果は

C:/・示
となります。

どうしたら回避できるでしょう？
(２バイト文字を含むカレントパスを正しく得られるgetcwd
等はないのでしょうか？)
(EUCで書いても同じです。jperlはNGです)

969 ：デフォルトの名無しさん：03/08/12 12:52

>>968
$path=`cd`;
`はバッククォート。

970 ：デフォルトの名無しさん：03/08/12 13:15

>>969
cdは帰ってこないでしょ

971 ：２バイト文字に対応したカレントディレクトリを取得するには？：03/08/12 13:16

>>969
ごめんなさい。perlappに内包したいので、
例え標準関数でも外部プログラムは使わず、
perlの中だけで済ませたいのですが…
何か方法はないでしょうか？

972 ：デフォルトの名無しさん：03/08/12 13:44

>>968
use Cwd;
use File::Spec;

my $cwd = getcwd();
$cwd = File::Spec->canonpath($cwd);

print $cwd;

973 ：972：03/08/12 13:50

>>972
自分で書いておいてなんだが、いいのか、これで？（ｗ
なんかやばそうな気が。

974 ：972：03/08/12 14:09

Cwd の _os2_cwd と _win32_cwd で \ を / に置換してるのが原因で、
File::Spec(File::Spec::Win32) の canonpath で / を \ に戻してるわけだから、
とりあえずWin32環境では問題なさそう。
他の環境も大丈夫だとは思う。

975 ：デフォルトの名無しさん：03/08/12 15:54

WindowsでPerlによるGUIアプリを組むのにVBのように簡単に作りたいんですが、
探してたらこんなの見つけました（既出だったらごめん）。

http://www.bahnhof.se/~johanl/perl/Loft/

ただこれはソフトもマニュアルも英語なんですよね。
別に英語でもなんとか使えると思いますが、
二本のPerl界の発展のためにソフト・マニュアルのの日本語化を
してくれるような素敵な香具師はいらっしゃいませんか？

（By 日本のPerl界を憂うもの）

976 ：デフォルトの名無しさん：03/08/12 15:56

>>975
二本→日本でした。

977 ：デフォルトの名無しさん：03/08/12 15:58

>>975
あんたがやったら？

978 ：デフォルトの名無しさん：03/08/12 16:02

ActivePerl ver6まだ～？

979 ：デフォルトの名無しさん：03/08/12 16:02

>>977
それ言われると思った。
残念ながら英語に関してはあまり得意ではないので、
誰か英語得意な方にお願いしたいなと思っております。

980 ：ハッカ飴：03/08/12 16:07

diffの件なんだけどさー、Rubyのalgorithm/diffもCygwinのdiffも同じようになるんだが、おかしいよな？
ググっても相変わらずこの話は見つからないし。ホント謎だよ。

例1
テキスト1:
abc
テキスト2:
ababc

結果1
ab[ab]c
（テキスト1のbc間にabを追加しろ）

例2
テキスト1:
a
b
c
テキスト2:
a
b
a
b
c

結果2
a
b
[a]
[b]
c
（テキスト1の3行目にa、次の行にbを追加しろ）

981 ：デフォルトの名無しさん：03/08/12 16:08

>>974
ActivePerl build 805 +WindowsXPでは駄目。
ActivePerlはMS-WindowsでShift-JISが
使われているということを無視してる。

982 ：デフォルトの名無しさん：03/08/12 16:11

>>979
>残念ながら英語に関してはあまり得意ではない

得意になればいいじゃん

983 ：ハッカ飴：03/08/12 16:40

>>974
/ 全てを \ に置き換えてもダメだろう。
シフトJISについて調べて、置き換えるべき / だけを置き換えないと。

シフトJISだから、第1バイトを探すのは簡単。
use Cwd;
$cwd = getcwd();
のあとで、$cwd =~ s%(シフトJISの第1バイトにあうパターン)/%\1\\%g;

984 ：デフォルトの名無しさん：03/08/12 17:01

>>982
いや～誰かにやって欲しいなぁ。
ホント他力本願なんだけど・・・

もう少しでこのスレも6箱目に突入ですなぁ。
（しみじみと）

985 ：ハッカ飴：03/08/12 17:03

>>971
getcwd()だって内部でcdコマンド使ってるんじゃない？

986 ：デフォルトの名無しさん：03/08/12 17:13

Cで使えるPerlライブラリみたいのってありませんか?

987 ：２バイト文字に対応したカレントディレクトリを取得するには？：03/08/12 17:17

>>972
で無事解決しました。感謝ですm(__)m

canonpathというの自体初めて知りました。。
書き込み入れる前にも色々調べはしたんですけど…
こういうのって、何を参考に調べれば良いんでしょう？

988 ：デフォルトの名無しさん：03/08/12 18:16

>>983
シフトJISなら2バイト文字で /(0x2F) が出てくることはないし、
Windowsじゃファイル名に / も使えないから、元々含まれてる
ことはないと判断して単純に全置換でいいと思ったんだけど……なんか抜けてる？

あ、それとも / 区切りのパスを得るために、ってこと？

989 ：デフォルトの名無しさん：03/08/12 18:21

「\x9A」という16進数のデータを「\x9A」という文字列データに
変換したいのですがどうすればいいでしょうか？