Perlコーディング初心者質問スレ Part 51
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/07/27(木) 17:04:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0756nobodyさん
2006/08/27(日) 06:54:57ID:???ファイルから読んだ情報を同じファイルに書き戻しているように見えるのは気のせいですか。
# おまけ1: インデントはちゃんと揃えよう。
# おまけ2: 貼るコードの行の途中に全角空白を入れないで。
0757nobodyさん
2006/08/27(日) 09:49:03ID:???0760752
2006/08/27(日) 10:32:46ID:wHycBp2fすいません、まじで困ってます。
どこをどうすればいいか教えてください。m(_ _)m
0762751
2006/08/27(日) 13:32:18ID:???あ゛…
すみません、ご指摘の通りです。
頂いた情報を調整して無事出来ました。
ありがとうございました〜
# おまけの１，２の方はすみません。>>1の文を読み違えていた為あの書き方となってしまいました。申し訳ございません。
0763nobodyさん
2006/08/27(日) 13:37:46ID:???・そのスクリプトはPHPなのでこのPerlスレで聞くのはスレ違い。
・お前は前にPHPのくだ質スレで同様の質問をして既に解答を得ている。
・そもそも件のスクリプトは無断での再配布を禁止されており、
例え質問のためであっても本体をうｐろだに上げるのは規約違反。
お前はPHPのくだ質スレで既にそれを指摘されている。
・にもかかわらずお前はちゃっかりソースから該当部分を削って
素知らぬ顔で再度うｐしてここで聞き直した。
削除された部分：
> //================================================================
> // 【Form Mail】
> // Script by yosuke [http://www.yo-chan.com]
> // Design by noriko [http://www.cryforthemoon.com]
> //
> // ※このフォームメールの著作権は、yosuke、及び norikoにあります。
> // 無断でこのフォームメールを再配布することは禁止します。
> //================================================================
それを踏まえた上でどうすれば良いのか教えてやろう。
お前のような糞野郎にそのスクリプトを使用する資格はない。
2chにはお前のような糞野郎の相手をする暇人も居ない。
こっちは全部お見通しだ。そのまま死ぬまで困れやこのヴォケが。
0765nobodyさん
2006/08/27(日) 16:18:21ID:???宿題は済んだ？
0766nobodyさん
2006/08/27(日) 17:16:25ID:hx6g770Y「x（半角エックス）」を「×（記号）」に変換して「(数字)×(数字)」という形にしたいと思い、
if(($hoge =~ /\dx\d/)||($hoge =~ /\dX\d/)){$hoge =~ s/X|x/×/g;}
と書いてみたんですが、これだと「(数字)x(数字)」が1箇所でもあれば
その条件以外の「x(X)」も置換されてしまいます。
ダメ元で、
$hoge =~ s/\dx\d/\d×\d/g;
$hoge =~ s/\dX\d/\d×\d/g;
としてみたんですが、やっぱりダメでした...。
何か良い方法はないでしょうか？
0768nobodyさん
2006/08/27(日) 17:27:25ID:???iつけたほうがいい
0770766
2006/08/27(日) 17:50:25ID:???$hoge =~ s/(\d)x(\d)/$1×$2/ig;
言われた通りの方法でできました！
括弧で括るとグループとして扱われるんですね。
大変勉強になりました。
ありがとうございました！
>>769
こちらの方法でもできました！
「前後読み」についてはちょっと分からなかったので
改めて調べてみようと思います。
まだ全然理解できていませんが、自分の中で
ものすごく幅が広がるような気がします。
ありがとうございました！
やっぱり正規表現は時間を見つけてしっかりと勉強しないといけないですね。
高くて今まで二の足を踏んでいましたが、思い切って
あのフクロウの表紙の本買ってみようと思います。
0772nobodyさん
2006/08/28(月) 07:03:02ID:???> あのフクロウの表紙の本買ってみようと思います。
フクロウも読んでおいたほうが良いのは確かだけれど、Perl をやるならラクダの表紙の本もどうぞ。Perl の正規表現について充分に詳細な説明が載っています。
「前後読み」に関しては、邦訳 P.234「5.10.1 ルックアラウンドアサーション」でほぼ完全な解説が得られます。
Perl 付属の perlrequick, perlretut, perlre の各オンラインドキュメントも参照。
0773nobodyさん
2006/08/28(月) 20:16:32ID:???use encoding 'shift-jis';
use open OUT => ":encoding(utf8)";
open O,">test.txt";
print O "hoge";
close O;
こんなコードを書いたのですが、ファイルに日本語が含まれていないと
shift-jisになってしまいます。半角英数字だけのファイルでもutf8に
するにはどうすればいいんでしょうか。
(.＿＿_,,,... -ｧァﾌ|
|i i| }! }} /／|
|l､{ j} /,,ｨ//｜
i|:!ヾ､_ﾉ／ u {:}//ﾍ
|ﾘ u' } ,ﾉ _,!V,ﾊ |
／´fト､_{ﾙ{,ィ'ｅﾗ , ﾀ人
/' ヾ|宀| {´,)⌒`/ |<ヽﾄiゝ
,ﾞ ／ )ヽ iLﾚ u' | | ヾｌﾄﾊ〉
|／_／ ﾊ !ニ⊇ '／:} V:::::ヽ
/／ 二二二7'T'' ／u' __ /:::::::/｀ヽ
/'´r -―一ｧ‐ﾞＴ´ '"´ ／::::／-‐ ＼
/ // 广¨´ /' ／:::::／´￣｀ヽ ⌒ヽ
ﾉ ' / ノ:::::`ー-､___／:::::／/ ヽ }
_／｀丶 /::::::::::::::::::::::::::￣`ー-{:::... ｲ
0775nobodyさん
2006/08/28(月) 20:39:31ID:???英語だけならASCIIでもShift-JISでもUTF-8でも全く同じだから。
英語だけのファイルを、お前の使ってるエディタがShift-JISとして認識するようになってるだけ。
と、エスパー回答してみる。
0776nobodyさん
2006/08/28(月) 20:53:01ID:???ありがとうございます。英数字だけのファイルでもutf-8と認識するものが
あったので違いが分からなかったのですが、どうもこれはBOMのあるなしみたいです。
0777nobodyさん
2006/08/28(月) 20:59:37ID:???質問させて頂いてもよろしいでしょうか
CREATE TABLE TblDiary(
parano int4
order_no int4
belong_dno int4
have_illustno int4
PRIMARY KEY(parano)
);
CREATE TABLE TblIllust(
illustno int4
illust_name text,
PRIMARY KEY(illustno)
);
上記の「TblDiary」と「TblIllust」という2つのテーブルがあって、
TblDiary.have_illustnoとTblIllust.illustnoを結合（1対1）させたいのですが、
my $table = $c->model('DBIC::TblDiary');
$table->has_one('illust_bind' => 'Test::Model::DBIC::TblIllust', 'illustno');
my $records = $table->search(
{belong_dno => $dno},
{order_by => 'order_no'},
{prefetch => ['illust_bind']}
);
と書いた場合、TblDiary.paranoとTblIllust.illustnoが結合してしまいます。
これを、本来望んでいるTblDiary.have_illustnoとTblIllust.illustnoを
結合するにはどのようにコーディングすればよろしいでしょうか。
お手数をおかけしますが、どうかご教授の程、よろしくお願いいたします。
0778777
2006/08/28(月) 21:06:47ID:???指定したいのですが、どのように指示を出せば良いのか途方にくれております。
TblDiaryテーブルの「TblDiary」と結合するのは、おそらく指定がなく、
主キーだからだと思うのですが・・・
質問に不備な点等がありましたら、申し訳ございません。
その場合は、ただちに訂正・修正をさせて頂きます。
0779777
2006/08/28(月) 21:09:41ID:???申し訳ないです
→TblDiaryテーブルの「parano」
の間違いでございます。
0781nobodyさん
2006/08/28(月) 23:33:39ID:???レスありがとうございます。
searchの引数指定が変ですか・・・
第1引数にwhere、第2にorderだと思いましたが、
prefetchを入れる順や書き方などに問題があるでしょうか？
今の状態でも動いてはいますが、怖いので確認してみます。
テーブル名とカラム名がキモくて申し訳なく・・・
0782windows恐るべし
2006/08/29(火) 00:32:33ID:f+0FCMVu状況：
以前までUNIXサーバーでPerlを使っていたのですが、
新しくWindows2003ServerのIIS6.0へCGIプログラムを移動することになり問題発生です。
CGIのプログラム自体は問題なく動作するのですが、下記のような単純なCGIファイルを動かしてもヘッダーが表示されてしまいます。
--------------------------------------------
#!/usr/local/bin/perl
print "Content-type: text\/plain\n\n";
print "テスト表示";
--------------------------------------------
Perlではお決まりの＜Content-type: text\/plain\n\n＞が表示されてしまい困っています。
消してしまえばいいのかもしれませんが、ローカル環境でPerlが動かなくなってしますので消したくありません。
どうかよろしくお願いいたしますm(._.)m
0783nobodyさん
2006/08/29(火) 00:50:42ID:???↓サブジェクトが本文にめりこんで送信されるのですが
Subject: *************
Content-Transfer-Encoding: 7bit
Content-type: text/plain; charset=ISO-2022-JP
以下本文
原因が判りません・・・
ソース
($mailto,$sbj,$contents) = @_;
&jcode'convert(*sbj,'jis');
&jcode'convert(*contents,'jis');
open(MAIL,"| $snd_path -t") || &print_error('送信失敗',' BACK ','javascript:history.back()');
print MAIL "Return-Path: $snd_from\n";
print MAIL "From: $snd_from\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $sbj\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n\n";
print MAIL "$contents\n";
close(MAIL);
0784nobodyさん
2006/08/29(火) 01:00:32ID:???0785nobodyさん
2006/08/29(火) 01:00:41ID:???すごいあてずっぽうに言っちゃうけど、
print "Content-type: text/html\n\n" if $ENV{PERLXS} ne "PerlIS";
とかじゃだめなのかね？
>>783
とりあえず、変数じゃなくて直に書いて一回試してみれば？
それで普通に送れたら変数の中身の問題だし、それでもだめならそこだけじゃわからなそう。
0786783
2006/08/29(火) 01:17:39ID:???明日頭をクリアにして試してみます。
0787782
2006/08/29(火) 01:29:42ID:UjdAC5jX無事問題解決しました。
勉強になりましたｗ
0788nobodyさん
2006/08/29(火) 01:51:15ID:???0789nobodyさん
2006/08/29(火) 02:08:44ID:???0790windows恐るべし
2006/08/29(火) 03:35:02ID:UjdAC5jX0791windows恐るべし
2006/08/29(火) 04:00:17ID:UjdAC5jXご指摘ありがとうございました。
0792777
2006/08/29(火) 16:08:32ID:???>>777の件ですが、望む通りの動きをするコーティングができました。
my $table = $c->model('DBIC::TblDiary');
$table->belongs_to(illust_bind => 'Test::Model::DBIC::TblIllust', 'have_illustno');
my $records = $table->search(
{
belong_dno => $dno
},
{
order_by => 'order_no',
prefetch => ['illust_bind']
}
);
「belongs_to」にて最後に繋げたい、主キーではないカラム名を指示するだけだったようです。
お見苦しい質問をいたしまして、本当に申し訳ございませんでした。
0793nobodyさん
2006/08/29(火) 17:11:56ID:???0794nobodyさん
2006/08/31(木) 13:13:45ID:???-------------
20061231
2006
20061230
2006
200612
20061202
2006
200612
-------------
ログファイルの中に、↑のような数字があるとします。
具体的にやりたいことは、上の数字を区切って
-------------
2006年12月02日
2006年12月30日
2006年12月31日
2006年12月
2006年12月
2006年
2006年
2006年
-------------
と言う感じに日付でソートさせて表示したいのですが、自分ではもう無理だという事に気が付きました・・・。
日付で区切る方法は分かるのですが、上の様に日付でソートさせることって可能でしょうか？
よろしくお願いします・・・ orz
0795nobodyさん
2006/08/31(木) 13:21:32ID:???末尾から9を消す
0797nobodyさん
2006/08/31(木) 16:29:21ID:???くっつけてcmpすりゃいいだけじゃないか。
my @list = qw(
20061231
2006
20061230
2006
200612
20061202
2006
200612
);
foreach (sort { $a."Z" cmp $b."Z" } @list) {
print $_, "\n";
}
0798nobodyさん
2006/08/31(木) 16:30:03ID:???0800nobodyさん
2006/08/31(木) 18:23:37ID:???ならないか？ それともいい関数があるのかなあ。
普通に
sort { length $b <=> length $a or $a <=> $b } @list
でいいじゃん。or 797 のやり方。
############ お試しソース ############
use Time::Local ;
sort { &conv($a ) <=> &conv ($b) } @list ;
sub conv ($) {
my $uru = sub { # 閏年の計算。
return $_[0] % 400 == 0 ? 1 : $_[0] % 100 == 0 ? 0 : $_[0] % 4 == 0 ? 1 : 0 ;
} ;
my @dat = # ソートの優先順位を付けるための小細工。
length $_[0] == 8 ? ( $_[0] =~ /^(¥d{4})(¥d{2})(¥d{2})$/, 0, 0, 0 ) :
length $_[0] == 6 ? ( $_[0] =~ /^(¥d{4})(¥d{2})$/, 0, 23, 59, 58 ) : # 日付まで分かってるものよりも後にするため。
( $_[0] =~ /^(¥d{4})$/, 12, 0, 23, 59, 59 ) ; # 月まで分かってるものよりも後にするため。
my $day = ( 31, $uru->($dat[0]) ? 29 : 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 30 )[$dat[1] - 1] ;
$dat[2] = $day if $dat[2] == 0 ; $dat[0] -= 1900 ;$dat[1] -= 1 ;
return timelocal reverse @dat ;
}
0801nobodyさん
2006/08/31(木) 21:04:32ID:???適当に書くんじゃなかった orz...
0802nobodyさん
2006/08/31(木) 22:15:24ID:???そういえば元の例にないからわからないが、年や月が違うのが混じってたときは
どの順番にするつもりなのだろうか。
797だとこうなるが、
2005
20061102
200611
20061202
200612
2006
800の1行の奴だとこうなるはず
20061102
20061202
200611
200612
2005
2006
0803800
2006/08/31(木) 23:07:28ID:???ああ、そうですね。想定してませんでした。どっちだろ？
# 当方のエポック変換の結果は 797 に沿う。
# 同じ挙動を書いたつもりが… 大恥 orz...
0804nobodyさん
2006/09/01(金) 00:12:23ID:gD6GWfb40805nobodyさん
2006/09/01(金) 00:54:37ID:???さらにxを付加し、さらにそのあとに付加した0の数を書く。
2006 → 20060000x4
200612 → 20061200x2
とする。
で、ソート後にx以降の桁分だけ0を削除を削除すればいい
0807nobodyさん
2006/09/01(金) 13:34:36ID:???0809nobodyさん
2006/09/01(金) 18:44:03ID:???0810794
2006/09/01(金) 20:03:39ID:???皆様方のお力で、無事解決致しました・・・ orz
本当にありがとうございました・・・。 orz
0811nobodyさん
2006/09/02(土) 22:53:43ID:???ページを表示させるさいに
デフォルトのチェックボックスはチェックした状態にしておき、
チェックボックスのチェックを外してsubmitするとチェックオフ。
またチェックしなおしてsubmitでチェックした状態に戻る。
というプログラムを作りたいのですが
print "<input type=\"checkbox\" name=\"test\" value=\"checked\" checked />";
と書いてしまうとチェックを外してsubmitしてもまたチェックされた状態で表示されてしまうし
print "<input type=\"checkbox\" name=\"test\" value=\"checked\" $test />";
こういうふうに書くと最初に表示したときにチェックがされてない常態になってしまいます。
どういった処理の仕方をすればうまくいくのでしょうか。
0812nobodyさん
2006/09/02(土) 22:59:18ID:???<input type="submit" name="submit" value="submit" />
として、name=submit の値がなく、test がなかったらチェック、submit の値があったら ノーチェック、でいいんじゃない？
0813nobodyさん
2006/09/02(土) 23:10:37ID:???どのような意味でしょうか。
検索してはみたのですが
「成功か失敗を返す、繰り返し使うべきでない」
のような説明でよく分かりませんでした。
0814811
2006/09/02(土) 23:26:42ID:???おお！出来ました！どうもありがとう。
というか<input type="submit">にもnameつけることが出来たんですね。
htmlの勉強からやり直してきます。
0815nobodyさん
2006/09/02(土) 23:37:41ID:???0816nobodyさん
2006/09/03(日) 00:09:56ID:???ゼロ幅表明自体が分からないという事？
ゼロ幅表明の、単語境界(¥b)とか、直前のマッチ位置(¥G)とかは、
マッチングはするけど、¥w, ¥d とかと違って文字幅が無い。
マッチングが成功しても、注目している文字の位置は変わらない。
繰り返し使うなっていうのは、
位置を変えずにいくらでもマッチできるから(/¥b¥b¥b¥b¥b/)
オートマトンの注目位置が動かなくて非効率って事だと思う。
説明あまり良くないかも知れないけど、多分そんな感じ。
0818nobodyさん
2006/09/03(日) 06:31:32ID:???半角空白をはじめとする空白文字 (Perl の正規表現で言うところの /\s/ にマッチする各文字) はデフォルトでは正規表現のメタキャラクタではありません。
パターン中にそのまま書けばそのままそのものとして解釈されます。
というかこの程度は既に自力で解決してそうね。
0820nobodyさん
2006/09/03(日) 14:12:46ID:???厨な俺だと日本語かどうかを判別する方法って、
if($hogehoge !~ /\W+/) { エラーメッセージ表示のサブルーチンへ }
しか思いつかない。
もう少ししっかり日本語を判別できる方法ってある？
0821nobodyさん
2006/09/03(日) 14:20:55ID:???0822nobodyさん
2006/09/03(日) 16:08:59ID:???うまく動かない（予期しない動作に）状態になってしまいました。
そこで、デバッグしようと思うのですが、
ロギングするようなライブラリはないでしょうか。
printfデバッグを助けてくれるようなものでよいのですが。
0823nobodyさん
2006/09/03(日) 16:16:07ID:UFgEMuAohttp://d.hatena.ne.jp/rainydaidoh/20060702
0824nobodyさん
2006/09/03(日) 16:19:06ID:UFgEMuAoでも、日本語の情報すくねーヽ(`Д´)ノ ウワァァン！！
http://search.cpan.org/~mschilli/Log-Log4perl/
0825nobodyさん
2006/09/03(日) 17:05:04ID:???0827nobodyさん
2006/09/03(日) 23:40:40ID:FWwio3vAperlにて中規模サイトを構築しようとしているのですが、オブジェクト指向で
作りたいと思っています。
その時にクラス（パッケージ）間で共通して使いたい変数をどう扱えばいいのか
が分かりません。
イメージとしては
use vars qw( '$dbh' , '$conf' );
のような感じで、パッケージのどこからでも参照できる方法があれば教えて下さい。
やはり名前空間を越える事は出来ないのでしょうか
0828nobodyさん
2006/09/03(日) 23:50:49ID:???0830nobodyさん
2006/09/04(月) 00:10:36ID:???これはないなｗｗｗ
0831nobodyさん
2006/09/04(月) 00:13:49ID:???Perlはほんの少しの小細工でOOPを実装してるから、入るだけなら逆に易しいと思うよ。
ハッシュリファレンスくらい理解してる必要があるけど。
0832nobodyさん
2006/09/04(月) 00:18:45ID:kGmJ+csQパッケージのどこからでも参照できる方法
0833nobodyさん
2006/09/04(月) 00:31:17ID:???「$パッケージ::hoge」 とかじゃだめなの？
0834nobodyさん
2006/09/04(月) 00:41:37ID:???$ cat Foo.pm
#!/usr/bin/env perl
use Exporter ;
use vars qw( $foo $bar @ISA @EXPORT );
@ISA = qw( Exporter );
@EXPORT = qw ( $foo $bar );
$foo = $bar = 1 ;
1;
$ cat var.pl
#!/usr/bin/env perl
use Foo ; # ライブラリパスは通せよ
print $foo . $bar . "\n" ;
という風な感じでアクセス変更可能。
同一ファイル内だったら use varsもしくは our したうえで
$Foo::foo にアクセスする事ができるはず。
0836nobodyさん
2006/09/04(月) 00:52:53ID:???$ cat Foo.pm
package Foo;
use Exporter ;
use vars qw( $foo $bar @ISA @EXPORT );
@ISA = qw( Exporter );
@EXPORT = qw ( $foo $bar );
$foo = $bar = 1 ;
1;
0837nobodyさん
2006/09/04(月) 00:53:14ID:???完全修飾名でアクセスさせるのが良い作法っぽい気がするよ。
また、どちらを選ぶにしてもドキュメントにその旨書いておくことを強く推奨。
0838nobodyさん
2006/09/04(月) 01:05:41ID:???シングルトンなConfig.pmとかでいいんでないの？
0839nobodyさん
2006/09/04(月) 01:23:41ID:kGmJ+csQ毎回ファイルごとに読み込む感じになるようですね。
なんか手間がかかるので正しい方法じゃないように感じていたのです。
こうゆう状況って絶対発生しますよね？
0840nobodyさん
2006/09/04(月) 01:27:25ID:???0841nobodyさん
2006/09/04(月) 01:35:30ID:kGmJ+csQ0842nobodyさん
2006/09/04(月) 07:51:08ID:???セルが３×３で次の表ができるように組んでいるんですが、
最後の表が、９に満たない場合、空白セルで埋めるようにしたいと思ってます。
で、
$bはデータが存在した最終セルのセル個数＋１です。
for($a = $b;$a/9 =~ /\./;$a++){
空白のセルを生成する内容
}
セルにふられたナンバーが９で割って小数点が含まれる場合、空白のセルを生成する、という形なんですが、
これだとfor構文にマッチしてないようです。
どこが問題なのでしょうか？
お教えくださいますようお願いします。
0843nobodyさん
2006/09/04(月) 08:36:50ID:???数値と文字列を混同してるからじゃないの？
普通は9で割った時に余りがあるかどうかで判断するだろう。
for($a = $b;$a % 9 > 0;$a++)
$bが+1されとるのもよく分からんが…。
0844nobodyさん
2006/09/04(月) 08:41:19ID:???ありがとうございます。
整数かどうかは%なんですね。
それがわからなかったから無茶苦茶な処理をしてました。
+1してる理由は、1セル目が0として計算されてるからでした。
本当に有難う御座いました。
0847nobodyさん
2006/09/04(月) 21:34:50ID:uUuOcfs4Perl5.8以降についてくるFile::statとかがんがんExportしてるよ
とかよけいな事を言ってみる
0848perl初心者
2006/09/05(火) 01:27:41ID:cFDKud4F学んだんですけど、その本には、sendmail.iniの設定を変える必要があると
のことですが、ホスティング(ロリポップやさくら）の場合、単に、
$sendmail = '/usr/sbin/sendmail';みたいな感じで設定して終わりでいいんでしょうか？
sendamil.iniをいじるのは、自分でサーバを持っているときとかのみですか？
0849nobodyさん
2006/09/05(火) 02:33:24ID:???0850nobodyさん
2006/09/05(火) 02:55:37ID:???ツッコミさんくー。
File::stat を見てみたら、デフォルトのエクスポートは関数オーバーライドだけだけれど、エクスポート可能な変数はたくさんあるね。
デフォルトではない (明示的に指定しなければインポートされない) ので、この文脈では問題ないんじゃないかな。
しかし perl は訳解りません.
そんなわけで基本処理は JavaScript でやることにして
log 書き込みだけを perl でやる hybrid 掲示板を作ってます.
んで, server が nifty なので logfile が cgi-bin にあると
Ajax の読み込みに失敗するようです.
なので "homepege" directory に logfile を置く必要があります.
perl で このようなことが可能でしょうか ?
(調べた限りでは このようなことをやってる CGI は見当たらないので)
もし可能なら ちょこっとアドバイスなど おねげぇ〜しますだ.
おありがとうごぜぇ〜ますだ !
0854nobodyさん
2006/09/05(火) 20:39:43ID:???open "path/to/homepege/logfile";
というように読み書きするファイルのパスを指定すればOK。
ご親切にどうも ありがとうございます.
MacPerl で local check をやっている関係で
delimiter の違いが (思い違いの) 原因でした.
"できる" と解っただけで方向性が決まりました.
んで, (骨組みだけ) 無事成功しました !
■ このスレッドは過去ログ倉庫に格納されています