Perlコーディング初心者質問スレ Part 56
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001nobodyさん
2007/09/16(日) 19:49:43ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ ttp://pc11.2ch.net/test/read.cgi/php/1180492441/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0813nobodyさん
2008/01/24(木) 00:05:46ID:???ttp://www.tohoho-web.com/wwwxx011.htm
0814nobodyさん
2008/01/24(木) 00:28:39ID:???ヒント
・UNIXではLF、WindowsではCRLF。
・\nはLR、\r\nがCRLF。
・FTPのアスキーモードで転送すると自動相互変換してくれる。
0815プログラミング歴２ヶ月
2008/01/24(木) 00:53:36ID:+24Wb9Pu解決しました。ありがとうございました！
マジに感謝してます。
0816nobodyさん
2008/01/24(木) 10:27:32ID:???例えばxyzzyみたいに、改行コードを確認したり、変更できる
テキストエディタを入れておいたほうがいいよ。
0817nobodyさん
2008/01/24(木) 10:41:34ID:???0818nobodyさん
2008/01/26(土) 19:03:18ID:???0819nobodyさん
2008/01/28(月) 12:09:42ID:fVIm37qB簡単なPerl/CGIのプログラム（掲示板など）が書ける程度のレベルです。
mod_perlの超初心者向けの解説本、ウェブサイトがあれば教えてください。
できれば日本語でお願いします。
あと、今は退社された方が書いたらしい、現在稼動中のプログラムのソースを入手したんですが、
ソースの最後に
exit;
って思いっきり書いてたりするんですが、これって大丈夫なのでしょうか？
0820nobodyさん
2008/01/28(月) 12:53:50ID:???0821nobodyさん
2008/01/28(月) 15:21:58ID:eRROoQGzこれに関して、オーバーライドを利用したコードを書いているとき、
ある関数（この場合はexit）が、どのパッケージに属しているかを調べる方法があればお願いします。
0822nobodyさん
2008/01/28(月) 16:14:02ID:Fd8GryNXたとえば、TeraTermPro with SSHの設定でcodepageというのがあります。
ほかにもありますがこれを例にとります。
ヘルプやgoogle検索で調べても引っかからないのでここでおたずねします。
locale=japanese codepage=932
だとどうもShift-jisの設定をなんらかの形でやるみたいです(付属ヘルプ)。
locale=japanese codepage=65001
だとutf-8みたいです。
それで、私のマシンはWindowsなので、codepage=932で統一しておけばいいんでしょうか。
ケースバイケースなのでしょうか。
相手マシンがFreeBSDで通信することがあるのですが、その場合は、
設定の漢字受信/送信ともutf-8でokですか??
unixだとeucとも聞きますが、最近はutf-8化したほうがいいようなことも聞きます。
ので、よくわかりません。
もちろん、ソースを何で書くかはケースバイケースなのは知っています。
分からないのは、TeraTermの設定で
漢字受信/送信 と codepage という2つのよく分からない項目がある点です。
TeraTermは有名なので当然スレがあるかと思ったらありませんでした。
それにperlプログラミングでよく登場するので、ここで質問させていただきました
0823nobodyさん
2008/01/28(月) 16:22:56ID:???実はそう言われてるけど逆で、exit(0)はダメだけどexitなら問題ない、
最近のヤツはどっちでもいい（具体的なバージョンはか書かれてない）、
色々と情報が混ざってて、調べれば調べるほど混乱してきた orz
0824nobodyさん
2008/01/28(月) 17:37:21ID:???0825nobodyさん
2008/01/28(月) 18:19:41ID:???0826nobodyさん
2008/01/28(月) 18:33:58ID:???思うように行きません。
$name =~ tr/ぁ-ん/ァ-ン/
一度、sjisやらecuやらに変換して、文字コードで置換させないと駄目でしょうか
0827nobodyさん
2008/01/28(月) 18:39:31ID:???0828nobodyさん
2008/01/28(月) 18:55:50ID:???そんなことはない。
use utf8してないとかdecodeしてなくて$nameがバイトのままとか
そういうあたりじゃねーの?
use utf8;
binmode STDOUT, ":encoding(utf8)";
foreach (ord('ぁ') .. ord('ん')) {
my $h = my $k = chr($_);
$k =~ tr/ぁ-ん/ァ-ン/;
printf "%x %s %s\n", $_, $h, $k;
}
0829nobodyさん
2008/01/28(月) 19:04:20ID:???> TeraTermは有名なので当然スレがあるかと思ったらありませんでした。
テラターム
http://pc11.2ch.net/test/read.cgi/linux/1012915309/
0831nobodyさん
2008/01/28(月) 21:13:04ID:???0832nobodyさん
2008/01/30(水) 17:37:10ID:irpAKk1Dその処理結果をファイルにしてデスクトップ上に出力したいのですが、
デスクトップまでのパスをどう取得すればいいか分かりません。
ログインユーザ毎にデスクトップのパスが変わってしまうので、
そのあたりを上手く解決できる方法があれば知りたいです。
0833nobodyさん
2008/01/30(水) 18:10:39ID:???0834nobodyさん
2008/01/30(水) 18:43:24ID:???use Win32::OLE;
my $sh = Win32::OLE->new('WScript.Shell');
print $sh->SpecialFolders("Desktop");
use strict;use warnings;
use Win32 qw/CSIDL_DESKTOP/;
print Win32::GetFolderPath( &CSIDL_DESKTOP );
0835nobodyさん
2008/01/30(水) 21:04:32ID:FClDhuIRは通るんですが、
no strict 'refs'; require "Hoge";
が通りません。Can't locateとなります。
文字列からrequireするにはどう書いたらよいでしょうか。
0836nobodyさん
2008/01/30(水) 21:12:10ID:???0837nobodyさん
2008/01/30(水) 21:17:18ID:???Hogeはあるつもりなんですが、前者と後者は同じものを指してないですか？
0838nobodyさん
2008/01/30(水) 21:29:04ID:???0839832
2008/01/30(水) 21:59:46ID:???システム環境変数とユーザー環境変数ってやつですよね。
ここにあらかじめデスクトップへのパスを設定するという事でしょうか？
>>834
ソースありがとうございます。
実際に実行してみたんですが、CGIとして実行すると
SYSTEM ユーザ名義で実行され、ログインユーザでのパスが取れませんでした。
DOS窓から実行するとバッチリなんですが…。
少し調べた所、WMIで実現できそうな気がしてきたので
そちらを当たってみようと思います。ありがとうございました。
0840nobodyさん
2008/01/30(水) 22:29:21ID:???以前は日本語の検索の時、EUCを使わなくてはいけないとかあったと
思いますが、普通にshift-jisで書いて、パターンマッチも問題なし
だったのですが、今のバージョンのPerlは文字コードとか気にしなくて
良くなりました？それともたまたま文字化けしなかっただけ？
0842nobodyさん
2008/01/30(水) 23:05:02ID:???だめっすね。
まだjcode.plとか使ってるんですかね。
実は全てunicodeで問題なくなったりしてますか？
日本語のパターンマッチで注意することとかまとめた
いいページ知ってたら教えてください。
0843nobodyさん
2008/01/30(水) 23:12:08ID:???一部の文字列を使う時だけ注意をして、POSTで受け取った文字列を
jcode.pl 使うという程度でも、Shift-JISでいけることはいける。
ttp://www.shtml.jp/mojibake/sjis_cgi.html
0844nobodyさん
2008/01/30(水) 23:19:37ID:???thxです。しばらく離れていましたが、少し思い出しました。
結局Perlはその間進化していなかったのね。
0845nobodyさん
2008/01/30(水) 23:19:46ID:???システムでも記号とか入力しようとすると駄目な場合もあるからな。
シビアに全部に対応とか考えなくても良いのではと思ったり。
0846nobodyさん
2008/01/30(水) 23:22:28ID:???Perl は 5 が出てから結構経っているはずだよ。
3 年前に触ったのも 5 じゃないかな？
そこまで大きな変化が無いからこそ、という
メリットももあるんだけどね。
次に 6 には、構文とか大きな変化があるらしいから
そっちに期待だなｗ
0847nobodyさん
2008/01/30(水) 23:45:06ID:???「This」にマッチしたら、
htmlの色のタグを付けて<font color>This</font>と置換する場合、
これをやると次に「This is」に色を付けたい場合マッチしなくなる
のですが、上手いやり方あります？ 先に「This is」の置換を
する位しか思いつかない。
0848nobodyさん
2008/01/31(木) 01:44:59ID:???Thisにマッチしたとき、
いきなり This → <tag>This</tag> と変換するのではなく、例えば「1番目の単語にマッチした」という情報だけ保存しておく。
で、最後にまとめて置換する。
Perlの持つ強力な文字列操作が活かされないという欠点はあるが。
0849nobodyさん
2008/01/31(木) 07:23:10ID:???$out_str = '<font color="red">' . $in_str . "</font>";
ここで $str に検索対象の文章を入れる。
$str =~ s/$in_str/$out_str/g;
0850nobodyさん
2008/01/31(木) 09:05:07ID:???それ同一箇所を何度も置換する場合でも大丈夫？
0852nobodyさん
2008/01/31(木) 09:59:40ID:???<tag>This</tag> is a pen.
が$strに入ったら、次にThis isは一致しないでしょ？
0853nobodyさん
2008/01/31(木) 10:21:21ID:???その優先度はあなた次第だもの。
0854nobodyさん
2008/01/31(木) 12:45:35ID:???一括してやるなら長い方を先にすればいい
0855nobodyさん
2008/01/31(木) 13:03:27ID:???↓
<tag>This is</tag> a pen.
このあとに、「tag」というフレーズで検索する可能性は否定できない。
いや、細かくマッチ条件つければ別だろうけど。
0856nobodyさん
2008/01/31(木) 21:12:55ID:ZyBf2Z6K以下のようにやってもだめでした。
&subtest(@arr,$str,@arr2);
function () {
my (@arr,$str,@arr2) = @_;
}
0857nobodyさん
2008/01/31(木) 22:22:57ID:???(@arr,$str,@arr2)は新しい配列として扱われるので、サブルーチン側では区切りが分からん。
arrとarr2は参照を渡すとか、要素数が分かってるならサブルーチン側で@_をspliceするとかがいいかも
0858nobodyさん
2008/02/01(金) 00:10:05ID:???長い方を先にした場合、
ThisとThis isとis a penがあって、
結論は<font>This is a pen</font>に色を付けたいのだ。
848の方法かなぁ。
ただ、入力テキストが100M位、マッチする検索リストが1万個とかなので、
動かせるか・・・。
Perlよりwordマクロとかの方がいいのかなぁ。
wordなら何度重なって色付けても問題ないし・・・。
08601/2
2008/02/01(金) 03:03:29ID:???途中まで書いてまじめにやると面倒だという事は分かった。
あとは頑張ってくれ。
#!/usr/bin/perl -w
use strict;
my $str = 'This... This is, This is a pen.';
my @target = ('This', 'This is', 'is a pen');
my $tag_o = '<font color="#ffff00">';
my $tag_c = '</font>';
my $tag_r = qr|</?font[^>]*>|;
my $tag_e = qr/(?:(?!$tag_r).)*/s;
for (@target) {
my $re = join qr/(?:$tag_r)*/o, split /(\s+)/;
$str =~ s/($re)/add_tag($1)/eg;
}
print $str;
08612/2
2008/02/01(金) 03:04:31ID:???my $substr = $_[0];
if ($substr !~ /$tag_r/o) {
$substr = "$tag_o$substr$tag_c";
} elsif ($substr !~ /\Q$tag_o\E/o) {
$substr =~ s/(\Q$tag_c\E)/$1$tag_o/go;
$substr .= $tag_c;
} elsif ($substr !~ /\Q$tag_c\E/o) {
$substr =~ s/(?=\Q$tag_o\E)/$tag_c/go;
substr($substr, 0, 0) = $tag_o;
} elsif ($substr =~ /^($tag_e)\Q$tag_c\E($tag_e)\Q$tag_o\E($tag_e)\z/o) {
$substr = "$1$2$3";
} elsif ($substr =~ /^($tag_e)\Q$tag_o\E($tag_e)\Q$tag_c\E($tag_e)\z/o) {
$substr = "$tag_o$1$2$3$tag_c";
} else {
die $substr; # ココを頑張ってくれ。
}
$substr =~ s/\Q$tag_c$tag_o\E//go;
$substr;
}
0862nobodyさん
2008/02/01(金) 04:53:15ID:hS8kNEG7{
$page_dsp .= <<"EOM";
<tr>
<td colspan="2" >
<form action="????.cgi" method="post" onSubmit="return send_check()">
<select name=ku class=slc>
<option value="no">
EOM
＃この中の条件式(ifの条件付オプション)は省略
{$page_dsp .= "<option value=\"1\">\n"; }
$page_dsp .= <<"EOM";
</select>
<input type=hidden name=back value="no">
<input type=hidden name=id value="$kid">
<input type=hidden name=pass value="$kpass">
<input type=hidden name=mode value="ku">
<input type=submit class=btn value="オン">
</td></form></tr>
EOM
}
else{$page_dsp .= "<tr><td colspan=2 align=center>終わり</td></tr>\n";
}
以上のように、最初の5つの条件
(各々全部の、左の数値が右の数値と同じかそれ以上の時にセレクトを非表示)
で動かしたいのですけど、5つの条件中3つの条件しか満たしてないのに非表示に
なります。
条件が5つ揃ってから非表示にするにはどうすればいいですか？
ご教授お願いします。
0863nobodyさん
2008/02/01(金) 05:30:16ID:???0865nobodyさん
2008/02/01(金) 16:52:45ID:hS8kNEG7最初の5つの命令との相性が悪かったからかもしれませんね。
省略した部分内には、最初の5つの命令を一個ずつ(計5個)指定して、条件が満たされるごとに
オプション項目が一つずつ消えていき、全部満たしたら最初の5つの命令でセレクト
ごと非表示にするつもりでいたんです。
0866nobodyさん
2008/02/01(金) 16:54:10ID:???0867nobodyさん
2008/02/01(金) 16:55:34ID:???相性が悪かったということだな
0869nobodyさん
2008/02/02(土) 05:09:34ID:???今年に入ってからいろいろと求人情報を集めてみたところperlの仕事少ないですね
噂には聞いてましたが、僕は何が何でもperlを仕事にしたいのです
まあそれはおいといて、perlを仕事としてみたときどんな感じですかね？
皆さま先輩方の多くはperlを仕事としていらっしゃると思ったので、
是非とも業務内容、他言語と比べたときの待遇、仕事のやりがいなどなど、
ポジティブな意見(勧め)もネガティブな意見(愚痴)も生の声としてお聞かせ願えればと存じます。
仕事の中でperlを使うことはたくさんの現場であるです。
おいらは今、製造業の中でperlを利用しています。
昨今の機器はLANでデータを採取できたりします。
それを高ぁーいWindows専用のアプリでデータ加工することなく、unix(含むlinux)なサーバにてcronでデータ採取・計算・加工してDB(DB_Fileで充分)に登録。(もちろんperlで)
そいつを拾ってエクセルに貼り付けるだけ(もしくはSpreadsheet::Writeで書き込むも良し)でもデータの共有が出来たりします。
記録計のようなグラフを作るにしてもGDだけで充分。
部品の計測をするのでも、今時のマイクロメータは数値をUSBで送ってくれる物があったりします。(USBテンキーみたいな出力をしたりする)
それをExcelにちまちま放り込むよりか、単純テキスト(csvでも良いけれども)で保存して、perlを使っていろんな形や計算をさせることも出来たりします。
以前勤めていたWEB屋(主にデザインやHTML書き)でも、Excelのデータを1件1HTMLファイルに変換する作業がありました。
(その求人に応募したのだ（照）)
3000件近いデータを変換すると云うことで、2-3か月近い工程を組まれていたことがありました。
どうやら手動で書き換え作業をと目論んでいたようです。
けれどもデータ構造と特性を見極めるのに2日、それを変換するperlスクリプトを2日、変換作業たったの10秒って事がありました。
その当時、その部署の長は目を丸くしていましたです。
まだまだperl=CGIっていう感覚で居られたからです。
その後、ちまちまと元データ(Excel)の修正が入ってきても数秒で修正完了。
デザイン変更があってもテンプレートを書き換えるだけでおしまい。
あまった2-3か月の期間、他の仕事を色々とこなしていました。
ようは仕事に使う道具の１つとしてperlというのを持っていればどんな業種にでも使えるんじゃないかな。
そんなこともあって製造業の現場であるにもかかわらず、おいらのところにだけは使い慣れたMacOSX(iMacG5)なんてのを無理を聴いて貰って備え付けましたですです♪
0871nobodyさん
2008/02/02(土) 11:18:13ID:???高卒で十分な土方に好き好んで修士雇う経営者がいるのか?
0872nobodyさん
2008/02/02(土) 11:21:37ID:???そんなこともわからないのか？
0873nobodyさん
2008/02/02(土) 12:03:51ID:???高卒で足りる仕事には高卒の賃金しか払わないという事だよ。
0875nobodyさん
2008/02/02(土) 13:33:00ID:???0876nobodyさん
2008/02/02(土) 13:46:46ID:???個人的にはなにがなんでもPerlとかいってるPerl使いは嫌だけど
0877nobodyさん
2008/02/02(土) 14:25:02ID:???>>874
それ公務員ね。試験区分に対象の学歴があってそれに沿うことが望ましいとされてるから。
というかこれマ板のネタだろ。
0878perl好き情報３回生(本物) ◆qqt5.0NxB6
2008/02/02(土) 14:40:08ID:???僕はWebprog板に>>869と同一内容の書き込みをした者です。
>>869は偽者であって僕がマルチポストをしたのではないことを明言しておきます。
トリップをつけたので本物しか相手をしないようお願いいたします。
迷惑をおかけして申し訳ありません。
お騒がせしました。
0879nobodyさん
2008/02/02(土) 15:45:41ID:???一部の記号（それも機種依存文字含む）が文字化けします。
－ → \x{ff0d}
㎜ → \x{339c}
機種依存文字に関しては、根本的に対応することに意味があるのか疑問ですが、せめてwindowsな環境で
文字化けしないようにしたいのです。どうしたらいいでしょうか？
あんまし分かっていませんが、重要そうな部分だけ。
use XML::RSS;
use LWP::Simple;
use encoding 'euc-jp', STDOUT => 'euc-jp';
use open IN => ":encoding(euc-jp)";
use open OUT => ":encoding(euc-jp)";
binmode OUT => ":encoding(euc-jp)";
my $rss = new XML::RSS;
$rss->parsefile($site_file);
my $item_list = $rss->{'items'};
$item = ${$item_list}[0];
my $desc = $item->{'description'};
#一応対策っぽいことをやって一部の記号には対応できた
$desc =~ tr/\x{005C}\x{00A5}\x{2014}\x{203E}\x{2225}\x{FF0D}\x{FF5E}\x{FFE0}\x{FFE1}\x{FFE2}/
\x{FF3C}\x{FFE5}\x{2015}\x{FFE3}\x{2016}\x{2212}\x{301C}\x{00A2}\x{00A3}\x{00AC}/;
0880879
2008/02/02(土) 15:48:16ID:???～ → \x{FF5E} に化ける問題は、一番下に書いた置換で解決したのですが、\x{FF0D}は何故かそのまま
文字化けしたままです…
0882879
2008/02/02(土) 15:57:31ID:???hogehoge.cgi: "\x{ff0d}" does not map to euc-jp at hogehoge.cgi line 183.
0883nobodyさん
2008/02/03(日) 01:13:34ID:???perl使ってるところはライブドアとかはてなとか高レベルに使いこなしてるところばっかり。
初～中級のところは全部ＰＨＰになってしまった。
0884nobodyさん
2008/02/03(日) 03:35:42ID:???0885nobodyさん
2008/02/03(日) 11:14:58ID:???あとはPEARとかを使いこなせればいいわけだから、Perlの基礎がある
のなら、１週間程度で、出来るといえるんでね？
Perlで作ったコードをPHPに移植して、これ、私が作りました、みたいな。
0886nobodyさん
2008/02/03(日) 12:57:34ID:???0887質問
2008/02/03(日) 13:04:56ID:34/ZwImQ項目を選択しボタンをクリックすると、あるページには選択した項目の画像ファイルを表示し、
もうひとつのページにはその選択した項目を表示させたいのですがどうしたらよいでしょうか？
最初のページには
<form action="A.cgi" target="表示させたいページ">
を埋め込んでいるのですが、当たり前ですがこれだと"表示させたいページ"にしか表示できません。
A.cgiのなかでさらにこの部分だけは他のページへ表示させるとかできませんか？
0889nobodyさん
2008/02/03(日) 14:12:18ID:???それは、Perlの話じゃなくて、htmlの話じゃないの？
フレームタグを使って区切るか、テーブルタグを使って全部を表示させる方法がある。
板違いなので、これ以上の質問はしないように。
0890nobodyさん
2008/02/04(月) 03:22:50ID:???メッセージのとおりで、変換表に該当するものがないんでしょ。
euc-jpMSとか使わないといけないんじゃないの?
0891nobodyさん
2008/02/07(木) 12:55:00ID:???CentOS 5.1
「out of memory」のときのエラーハンドリングの方法を教えてください。
dieのときは
$::SIG{__DIE__} = sub {～～～};
でいけることまではわかったのですが
「out of memory」がハンドリングできないのです。
よろしくおねがいします
0892nobodyさん
2008/02/07(木) 15:49:01ID:???それができないのなら、OSの制限上げる。メモリ積む。
0893nobodyさん
2008/02/07(木) 19:10:28ID:???my @value=(0,1,3,8); #任意のkey
my @hoge=('hoge1','hoge2','hoge3'....); #表示用配列
my $disp;
foreach (@value)
{
$disp .= ',' if $disp;
$disp .= $hoge[$_];
}
という処理をしているんですが、これってJOINでできませんか？
map使ってもこれより簡単に書けないですよね？
0894nobodyさん
2008/02/07(木) 19:28:15ID:???my @value = (0, 1, 3, 8);
my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9');
print join ',', @hoge[@value];
0896nobodyさん
2008/02/08(金) 09:47:17ID:???my $value = "0,1,3,8";
my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9');
これは
join ',',@hoge[sprit',',$value];
ですよね？
splitしてjoinして勿体無い感じ。。
0897nobodyさん
2008/02/08(金) 10:08:10ID:???0898nobodyさん
2008/02/09(土) 18:24:58ID:???0899nobodyさん
2008/02/11(月) 09:15:09ID:7AZat8M4my $endline = $. while (<FH>);
としてとりえず取得できたんですが、
その後
seek FH,0,0;
として、また１行目から別の処理したいんですがうまくできません。
seekの戻り値をprintしてみると1を返してますが、先頭には戻ってないようです。
windows環境なのが原因でしょうか？
0900nobodyさん
2008/02/11(月) 09:31:45ID:???seekしても$.はリセットされないから先頭に巻き戻したら$.= undefとかすればいい
0901nobodyさん
2008/02/11(月) 11:26:23ID:???>局所化
あ、ほんとだ。ミスってました。
undef $.;
reset $.;
それぞれ試してみましたが変化ありませんでした。
その後に
while (<FH>) {
if ($. == $bigin .. $. == $end) {
といった処理をしたいんですが、どうもうまくいきません。
0902nobodyさん
2008/02/11(月) 11:49:03ID:???ありがとうございました。
0903nobodyさん
2008/02/12(火) 21:28:15ID:???utf-8から7bitJISへの変換なのですが、（メール送信のため）
Encode.pmもJcode.pmもローマ数字をJISにしてくれません。
Encodeでは「\x{2160}」と変換不可の場合のユニコード値に変換され、
Jcodeでは「?」になります
Ⅰ（ローマ数字１）
\xE2\x85\xA0 utf8 → \x1B\x24\x42\x2D\x35 JIS
と手動で変換してやれば良いのですが、escシーケンスの処理がどうしたものかと・・・
0904nobodyさん
2008/02/12(火) 23:23:01ID:???のように相対パスを使うと出来るけど
use lib '/i/cgi-bin/lib';
のように絶対パスを使うと動かなくなります
サーバーの設定によって絶対パスだと読み込めなかったりするんでしょうか
普通のリンクだと絶対パスでリンクできます
0906nobodyさん
2008/02/13(水) 02:37:13ID:???perlから使う絶対パスはwebサイト上の絶対パスじゃないよ。
・ http鯖がルートとして扱うディレクトリからの絶対パス
・ 鯖のOSの絶対パス
の違いを理解しような。
0907nobodyさん
2008/02/13(水) 02:39:50ID:???JISとかISO-2022-JPにはローマ数字はないから。
Encode::EUCJPMS - Microsoft Compatible Encodings for Japanese - search.cpan.org
http://search.cpan.org/~naruse/Encode-EUCJPMS-0.07/EUCJPMS.pm
あたりをいれて、cp50220 とか cp50221 で変換する。
0908906
2008/02/13(水) 10:48:35ID:???調べてみます
0910nobodyさん
2008/02/13(水) 12:25:12ID:???ありがとうございます
Encode::EUCJPMSモジュールをいれて、
use Encode::EUCJPMS;
use Encode;
my $cp50220_str = Encode::from_to( $utf8_str , "UTF8" , "CP50220" );
で良いのでしょうか？
実はフォーム入力はShiftJISでして、CP932からutf-8に一旦エンコードしています。
これで問題はないでしょうか？
0912nobodyさん
2008/02/14(木) 10:56:12ID:AY3pAm1W#!/usr/bin/perl
use strict;
print "IEを起動します...\n";
system("C:/Program Files/Internet Explorer/iexplore.exe");
exit;
__END__
上のようにすると、IEは起動するのですが、コマンドプロンプトは残ったままで
タスクマネージャーにも perl.exeｔが残っています。（残るというか待ってるようですが…）
IEを起動したあとはPerlも終了して欲しくて検索したらexecというのがあったので
exec("C:/Program Files/Internet Explorer/iexplore.exe");としたら起動しませんでした。
IE起動後速やかにPerlを終了させるにはどうすれば良いでしょうか。
PerlはActivePerl 5.8.8をインストールしました。
もう一つは、my $url = 'http://www.google.co.jp/'; とした時に
IEにこの$urlを開かせるにはどうすればよいのでしょうか。よろしくお願いします。
レス数が900を超えています。1000を超えると表示できなくなるよ。