- 1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]
- このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
- 791 名前：755 mailto:sage [2008/01/31(木) 09:14:13 ID:???]
- >790
それはSTDINの改行を取るためですね。
>789
入力する文章は日本語と英語が混じったものです。
検索する単語も適当にでっちあげて下さいよ。
- 792 名前：755 mailto:sage [2008/01/31(木) 09:26:00 ID:???]
- 別件なのですが、マッチした単語を@match_wordsに一度格納しているのですが、
いつの間にか先頭にARRAY(0x35e08)というのが入り込みます。
これは何ですか？
- 793 名前：nobodyさん mailto:sage [2008/01/31(木) 09:42:51 ID:???]
- で、何が問題なのだろうか。
実行してみたら、以下のように３つ表示されたぞ。
（具体的な文字列は省略している）
line:3
line:7
line:8
- 794 名前：nobodyさん mailto:sage [2008/01/31(木) 09:44:56 ID:???]
- ひょっとして、検索用語を複数同時に指定したいとか？
探索する文字列を指定してください：2ch, AA, モナ
見たいな感じに
- 795 名前：nobodyさん mailto:sage [2008/01/31(木) 09:47:25 ID:???]
- >>792
その別件のソースを出さないことには分からないと思う件
- 796 名前：755 mailto:sage [2008/01/31(木) 09:58:21 ID:???]
- >794
その通りです。
>795
Aから並べた単なる単語の羅列です。どんな文字列でもARRAY(0x35e08)
がマッチした文字列の一番最初に入ってしまう。
ARRAY(0x35e08) ←これは何？
（以下例）
acceptance
accompanying sheet
account
- 797 名前：nobodyさん mailto:sage [2008/01/31(木) 10:46:42 ID:???]
- おまいらよろしくお願いします。
CGI::Liteを使ったファイルアップロードで、漢字を含むファイル名を扱ってます。
特定の条件でファイル名がアップ時と変わってしまうのです。
条件は分かったんですが、どうすればファイル名を正常に扱えるかわかりません。
Perlのバージョン：5.8.2
クライアント：WindowsXP
発生条件：表、ソ、十などをファイル名に含む
現象：表などの文字より前が消えてしまう
例）画面表示内容.jpg が、 示内容.jpg に変わる。
ヒントください。
- 798 名前：nobodyさん mailto:sage [2008/01/31(木) 11:02:46 ID:???]
- >>797
jcode.plで変換するしかないかと。
あと、これ
ttp://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FCGI%3A%3ALite#i5
- 799 名前：nobodyさん mailto:sage [2008/01/31(木) 14:37:56 ID:???]
- 文字列検索プログラムを書いたぞ。phpだけど。
このファイルと同じディレクトリに[in.txt]という名前で文書ファイルがあるものとする。
<html><body>
<form method="POST" action="test.php"><input type="text" name="key" size=30>
<input type="submit" value="送信"></form>
<hr>
<?php
if($_POST["key"] == ""){
echo "</body></html>";
exit;
};
$key = $HTTP_POST_VARS["key"];
echo "検索キー：$key<br>";
// 検索キーを空白スペースで分割する。
$key2 = split(" ", $key);
// 要素数を出す。
$key2_cnt = count($key2);
$INFILE = fopen("in.txt","r");
$line_num = 1;
$cnt = 0;
- 800 名前：nobodyさん mailto:sage [2008/01/31(木) 14:39:01 ID:???]
- つづき
while($cnt < $key2_cnt){
echo "検索キー：$key2[$cnt]<br>";
while(!feof($INFILE)){
$line = fgets($INFILE, 1024);
$search_flg = strpos( $line , $key2[$cnt] );
if( $search_flg !== false ){
$out_line = "line " . $line_num . " : " . $line . "<br>";
echo $out_line;
}else{
// echo "この行にはありません。: $line<br>";
}
$line_num = $line_num + 1;
}
rewind( $INFILE );
$cnt=$cnt+1;
}
fclose($INFILE);
?>
</body></html>
- 801 名前：nobodyさん mailto:sage [2008/01/31(木) 15:20:34 ID:???]
- 質問者は検索キーワードが複数でも対応ということだけど、
出力結果を具体的にどうしたいのかは分からないよな。
（例１）検索キー：モナー AA
[モナー]
line 3 :
line 5 :
[AA]
line 2 :
line 3 :
（例２）検索キー：モナー AA
[モナー]と[AA]を含む。
line 3 :
- 802 名前：nobodyさん mailto:sage [2008/01/31(木) 19:00:55 ID:???]
- >801
（例１）でお願いします。
- 803 名前：nobodyさん mailto:sage [2008/01/31(木) 19:06:46 ID:???]
- >>802
だったら、>>799-800のソースを動かしてみればいいぞ。
[test.php]のファイル名で保存して実行すればおｋ
- 804 名前：nobodyさん mailto:sage [2008/01/31(木) 19:09:54 ID:???]
- 大体、例１を作る必要性って何だろうか。
そのキーワードの数だけプログラムを実行すればいい話なのに。
例２ならば分かるが。
- 805 名前：nobodyさん mailto:sage [2008/01/31(木) 20:14:39 ID:???]
- 別の言語を持ち出すやつは、スレタイ読めないのか
- 806 名前：nobodyさん mailto:sage [2008/01/31(木) 22:10:29 ID:???]
- 別の言語だけど、表記がほとんど似ているものだろ。
質問者はロジックを聞きたかったわけから、これで解決じゃね？
- 807 名前：755 mailto:sage [2008/02/01(金) 00:06:19 ID:???]
- > 803
俺のサーバーPHP動きません。
>804
1000回プログラム動かせんから、ループで自動でやりたいと言ってるっしょ。
質問をもっと具体的にすれば良かったかしら。
「781のサンプルプログラムをループで動かす方法を教えて」
です。
- 808 名前：nobodyさん mailto:sage [2008/02/01(金) 00:55:46 ID:???]
- >>807
サーバでないといけない理由ってあるの？
ローカルで動かせばいいじゃん。XAMPPとかあるんだし。
- 809 名前：nobodyさん mailto:sage [2008/02/01(金) 00:58:10 ID:???]
- >>807
具体的に言えといわれて、具体例を出さないからこうなったんだと思う。
- 810 名前：nobodyさん mailto:sage [2008/02/01(金) 01:07:14 ID:???]
- 質問者は>>799-800をPerlに移植すれば良いのかどうかの
事は言わないんだよな。
実際に出来上がってみて、あーだこーだいうんだろうな。
そんな態度だから最初に質問した時からおちょくられてるんだと思う。
- 811 名前：perl好き情報４回生 mailto:sage [2008/02/01(金) 13:26:52 ID:???]
- 修士出たら就職を考えている現在3回生の情報の学生でperlが一番すきですが、
今年に入ってからいろいろと求人情報を集めてみたところperlの仕事少ないですね
噂には聞いてましたが、僕は何が何でもperlを仕事にしたいのです
まあそれはおいといて、perlを仕事としてみたときどんな感じですかね？
皆さま先輩方の多くはperlを仕事としていらっしゃると思ったので、
是非とも業務内容、他言語と比べたときの待遇、仕事のやりがいなどなど、
ポジティブな意見(勧め)もネガティブな意見(愚痴)も生の声としてお聞かせ願えればと存じます。
- 812 名前：perl好き情報３回生 mailto:sage [2008/02/01(金) 13:31:25 ID:???]
- 間違えました。名前欄は３回生が正解です。
- 813 名前：nobodyさん mailto:sage [2008/02/01(金) 13:45:35 ID:???]
- >>811
確か、mixiとか、はてなは、perlじゃなかったかな。
で、お前は一体何年なんだ？ｗ
修士を出てからということは、あと２年後に就職活動を
やり始めるということかな？
合計あと３年数ヶ月は親のすねをかじって学生をやると。
- 814 名前：nobodyさん mailto:sage [2008/02/01(金) 13:49:55 ID:???]
- 人に情報をくれといってないで、まずは君の作った実績を出してみたら
どうだ。例えば>>755に対する答えのソースを作るとか。
- 815 名前：nobodyさん mailto:sage [2008/02/01(金) 15:10:24 ID:???]
- Perl大好きっていう気持ちはわかるけど、
Perlしかまともに出来ない人に就職口はないかと
というか回りから軽蔑される
- 816 名前：nobodyさん mailto:sage [2008/02/01(金) 15:17:27 ID:???]
- >>815
凡人に対しては同意だけど、とことんやってる人においては
その限りではないと思う。
- 817 名前：nobodyさん mailto:sage [2008/02/01(金) 16:03:32 ID:???]
- やれる人というのは、大抵その企業のやり方に会わなかったり、
自分が上に立ってやろうという考えを持つようになったりして、
会社員としてやっていくよりも、起業して社長としてやる場合が多い。
なので、君の場合は「良い所に就職する」ということよりも、
投資家を説得するプレゼンをするとか、誰もが納得できるような
システムを作る方向でやっていったほうがいいと思う。
Perlは、アクセスカウンタ、掲示板、チャット、ブログ、
ショッピングモールと発展してきたけれど、この次にあたるもの
を作るのを考えると良いだろう。
修士までいくのであれば、そのまま博士まで行って、松本氏のように
純粋に言語をやる道もある。
- 818 名前：nobodyさん mailto:sage [2008/02/01(金) 19:19:56 ID:???]
- 人工知能とか？
- 819 名前：perl好き情報３回生 mailto:sage [2008/02/01(金) 23:20:23 ID:???]
- 皆様、予想外の多いレスに大変驚いてます。
ありがとうございます。
>>813 3を押し間違えただけです。3回生に相違ありません。w
> 合計あと３年数ヶ月は親のすねをかじって学生をやると。
そうなんです。そうした生ぬるい環境でありますが、全身全霊で取り組む覚悟です。
>>814
>人に情報をくれといってないで、まずは君の作った実績を出してみたら
魅力的な人材であることを立証できないです。僕はまだまだです。
>>815
>Perlしかまともに出来ない人に就職口はないかと
そう言われるとつらいものがありますが、C++を今からしっかりやって実力をつければ
重宝されるのではないかと考えています。
>>817
>投資家を説得するプレゼンをするとか、誰もが納得できるようなシステムを作る方向で
では後者でやります。Web上のプラットフォームの開発が出来たらいいなあとは思っています。WebOSとか。
- 820 名前：nobodyさん mailto:sage [2008/02/02(土) 00:24:29 ID:???]
- プロトコルが必要な今のネット、NGNも新しいプロトコルを使用することがすでに決まっており、WebOSha机上の空論だということすら知らないのでは無理かと・・・
- 821 名前：nobodyさん mailto:sage [2008/02/02(土) 01:14:38 ID:???]
- >>811
Perlも道具に過ぎない。
就職から定年まで約40年間ずっと同じプログラム言語を使い続ける事はまず不可能。
管理職になってプログラミングから足を洗えるのはごく一部。
学生の時点で言語にこだわるより、考え方・分析方法・設計方法を学ぶ道具だと割り切った方が良い。
そう言ってる漏れも、学校じゃPascalやらCやってて、就職してからはC、C++、VBやって、
独立してからは最初はDelphi使ってたが今はVBAとPerlとJavaScriptとSQLをやってる。
今後JavaやPHPもやることになると思う。
- 822 名前：nobodyさん mailto:sage [2008/02/02(土) 05:18:25 ID:???]
- >>818
新しく言語を作っていくという意味さ。
今のPerlはオブジェクト指向が完全でないとか、日本語で一部文字化けするとか
あるわけで、それを改善していくという方向はどうかなという提案です。
ja.wikipedia.org/wiki/%E3%81%BE%E3%81%A4%E3%82%82%E3%81%A8%E3%82%86%E3%81%8D%E3%81%B2%E3%82%8D
ま、アスペクト指向とかもあるからそっちへPerlを持っていくのも良いかもね。
- 823 名前：perl好き情報３回生 mailto:sage [2008/02/02(土) 09:07:03 ID:???]
- >>820
そうだったんですか！大学にそういう専門の先生がいて、僕も影響を受けて
この一年いろいろ構想を練りつつ勉強を重ねてきたのですが、、、
>>821
いろんな言語を使いこなせないといけないんですね。
僕はC,C++,Perl,Java,Javascriptがお遊び程度に使えます。
が、perlはともかく、他の4つは本当に中途半端です。
perlスレだからもう少しはperlを主軸にして生計を立てられるという意見があるかと
思いましたが、皆さん違うようですね。現実は厳しいということでしょうか。
- 824 名前：nobodyさん mailto:sage [2008/02/02(土) 11:57:53 ID:???]
- Perl6 はがらりと仕様が変わるらしいから、それが一般に浸透すると
また状況が変わってくるかもしれないよ。
- 825 名前：nobodyさん mailto:sage [2008/02/02(土) 12:00:31 ID:???]
- Perlが好きだの書いてて、いかにも得意なもののように思える言い方だったが、
実際には、「Perlしか知らない」の間違いじゃないのか？ｗ
- 826 名前：nobodyさん mailto:sage [2008/02/02(土) 12:16:08 ID:???]
- >>822
オブジェクト指向じゃないとだめって先入観は捨てましょう。
文字化けはどの言語でも日本語に限ったわけじゃないんだけど・・・
>>824
正規表現がすごいぞ
>>825
あえて誰も言わなかったことをｗ
- 827 名前：nobodyさん mailto:sage [2008/02/02(土) 12:17:50 ID:???]
- じゃ、「何言ってるんだ？」じゃなくて、よいしょする方向でｗ
- 828 名前：perl好き情報３回生 [2008/02/02(土) 13:36:26 ID:9aX3NPkq]
- >>824
2010年以降になりそうですが、その頃はまさに僕が現役ですね。
例えば、どんな変化が予想されますか？
>>825
僕なんて落ちこぼれもいいとこです。perlしかできないどころかperlも満足にできないです。
ですが一身上の都合により毎日猛勉強しているので
そのうちいろんな言語を使いこなせるようになるよとは先生に言われました。
ただ、先生は業界のことを全くご存知ない方なので、こうやって情報集めしています。
- 829 名前：nobodyさん mailto:sage [2008/02/02(土) 13:47:22 ID:???]
- コンピュータ言語を毎日猛勉しなきゃならないなら、この業界は見込み無いから諦めたほうが良い。
使ったことない言語でも言語仕様書を4-5日読めば使えるのが普通。
毎日猛勉するなら英語を勉強したほうが10万倍役に立つ。
- 830 名前：nobodyさん mailto:sage [2008/02/02(土) 13:51:33 ID:???]
- >>828
今は Perl が下火で PHP や java が主流だけど、
これからは PHP や java が下火となり Perl が主流となる。
- 831 名前：nobodyさん mailto:sage [2008/02/02(土) 13:53:43 ID:???]
- 「業界のことを全く知らない先生」の言う事を、
信じているのか、いないのか良く分からない件
- 832 名前：perl好き情報３回生 mailto:sage [2008/02/02(土) 13:53:53 ID:???]
- >>829
そうなんです。僕はある事情で人より頑張らないと追いついていけないみたいです。
つくづく才能がないなあと思います。学校では出来る人を目の前にすると凹みっぱなしです。
大学に入ってから自分の才能のなさに気づきました
でも親に申し訳が立たないので猛勉強してついていこうとしています。
猛勉強なんて偉そうな言葉使ってごめんなさい。
- 833 名前：perl好き情報３回生 mailto:sage [2008/02/02(土) 13:59:49 ID:???]
- 連投すみません。
>>930
perl6になるとそういうふうになるのですか。
最近perlをやってていいのか不安になっていたので心が落ち着きました。
>>931
先生は非常に尊敬しているし、その先生の「そのうち出来るよ」という言葉も僕
には大きな支えになっています。
でも、就職情報は先生に聞くのでなく自分で収集する学生が多いです。
- 834 名前：nobodyさん mailto:sage [2008/02/02(土) 14:54:59 ID:???]
- >>833
君は、他の言語を学ぶ必要性についてはどう思ってるの？
- 835 名前：nobodyさん mailto:sage [2008/02/02(土) 15:13:04 ID:???]
- ＞833
藻前、なにか勘違いしてないか？
プログラミングってのは、コンピュータに呪文を唱えて仕事をさせる事じゃないぞ。
コンピュータという、言われた事しか出来ないモノに、指示を出して仕事をさせる事だ。
コンピュータはあいまいさがある人間の言葉で指示されても理解できないから、専用の言葉・文法を使う。
プログラミングを学ぶ上で一番大切なのは、自分が出したい指示をあいまいさなく、的確に表現できる能力を身につけることだ。
文法や単語（命令）なんかは、分からなきゃ辞典(リファレンス)を見ればいい。
- 836 名前：nobodyさん mailto:sage [2008/02/02(土) 15:46:15 ID:???]
- Perlを使った仕事をしたいのなら、不安だのいってないで、
まっすぐにその方向に進めばいいんでないの？
情報処理の資格を取ろうと思っている人が、突如法律の勉強を
したりしないのと同じ。
絶対に完璧で将来がある選択肢なんてないわけで、自分の思う方向、
好きな事に一生懸命に取り組むかどうか。
- 837 名前：nobodyさん mailto:sage [2008/02/02(土) 17:14:06 ID:???]
- 本当にプログラムやりたいなら、データベースもやらなきゃいかんよ。
今業務でやってるのはPHP＋MySQL
ちなみに、Perlはもちろんこと、Ruby、C／Ｃ＋＋、VB、Java等も勉強した。
趣味で組むのはPerlかな。
- 838 名前：nobodyさん mailto:sage [2008/02/02(土) 18:01:41 ID:???]
- いや、この人の場合は、SEやプログラマーとして仕事をやりたいとかじゃなくて、
「Perlをやりたい」んじゃないかなぁ。
- 839 名前：nobodyさん mailto:sage [2008/02/02(土) 18:06:49 ID:???]
- 天才的な感があるヤツ以外、母国語が得意じゃないヤツはプログラミングを仕事にするのは難しい。
Perlを使った仕事をすると言っても今からPerlを使いこなせるようになっている必要は無いだろう。
まずは本を読め。次に数学(離散数学系）を学べ。
それが出来るのは学生のうちだけだ。
- 840 名前：perl好き情報三回生 ◆qqt5.0NxB6 mailto:sage [2008/02/02(土) 21:53:31 ID:???]
- >>834 現段階ではc/c++をよく学ぶつもりですが僕のような経験不足な人間には到底分からないです。
>>835 なるほど、要求を的確に表現する能力が大切なんですね。とてもためになります。
>>836 僕の場合その突如があるので危なっかしいです。
それに一生懸命すぎて身を滅ぼしがちなアンバランスな人間だと思います。
>>837 MySQLですか。実務的なDBの経験はほとんどないので、机上に留まらず精進します.
>>838 というよりもperl的な文化が好きです。ネットや身の回りでperlerに親しみを感じるので、
こうした人たちとこうした文化を創っていきたいと思ったんです。
>>839 高2と高3の頭は大学数学の本を読んでいたので、数学は得意です。
本は一応月に20冊くらい読みますが、やはり周りの人がすごすぎるので、
今の5倍は読みたいです。
- 841 名前：perl好き情報三回生 ◆qqt5.0NxB6 mailto:sage [2008/02/02(土) 21:55:40 ID:???]
- ちょっと修正です。連投失礼します。
>>834 現段階ではc/c++をよく学ぶつもりですが、僕のような経験不足な人間には
いろんな言語を学ぶ必要性など到底分からないです
- 842 名前：nobodyさん mailto:sage [2008/02/02(土) 23:48:00 ID:???]
- プログラム言語に依存した考え方を学ぶのは、現場に入ってからで十分。
Perlも道具の一つだと認識し、道具選びは適材適所だって事を理解しろ。
ついでに言えば、学習用のプログラム言語は1個に絞っても桶だ。
ただ、面接対応で考えりゃPerlだけじゃ押しが弱い気もする。
- 843 名前：nobodyさん mailto:sage [2008/02/03(日) 00:09:50 ID:???]
- 学部3年で進学希望かつその後は将来ソフトウェア開発の仕事を希望していて
今から独学でperl学ぶの？ なんか色々矛盾してるな… 専攻変更したって言うことか?
- 844 名前：nobodyさん mailto:sage [2008/02/03(日) 11:27:58 ID:???]
- COBOLプログラマが大量に解雇されたという話知ってる？
- 845 名前：perl好き情報三回生 ◆qqt5.0NxB6 mailto:sage [2008/02/03(日) 23:32:26 ID:???]
- 皆様、アドバイスありがとうございます。
>>842 面接を考えるとperlだけじゃ弱いんですね。perl, c/c++, javascript, java, perl,
lisp, vbは勉強する予定です。そのうち、最初の2つ(perl, c/c++)に力点を置く予定です。
perlをとくに絶対視・唯一視しているわけでもないです。
言語に依存しない考えをいまのうちによく勉強することが大切なんですね。
>>843 専攻変更ではないですが、最初は数学科に行く予定でしたが、土壇場で情報に変えました。
将来perlの仕事につきたいという思いはもちろんありますが、それほど決まっていなくて、
今は情報収集しています。どこか矛盾していますか？
>>844 聞いた気もしますが、全然知りません。
- 846 名前：nobodyさん mailto:sage [2008/02/03(日) 23:40:34 ID:???]
- とりあえず、大文字小文字の使い分けから始めない？
COBOLはシステムを切り替えられる資金のあるところは人の入れ替えしてるが、無いところは細々と雇い入れてる。
まぁ、SIは先が無いので、エンドに引き抜かれないかぎり先は無いね。
- 847 名前：nobodyさん mailto:sage [2008/02/03(日) 23:42:52 ID:???]
- 全体像が見えていないとかいいながら、異様にPerlにこだわっている
感があって、なんか良く分からないな。
PHPやC#は、あえてはずしているというよりも、その存在を知らないのかもな。
で、このスレはPerlのくだすれであって、お前の人生相談用スレではないので、
スレ違いの話をするつもりなら、出て行ってくれないか？マ板でやったらどうだ。
- 848 名前：nobodyさん mailto:sage [2008/02/04(月) 00:06:37 ID:???]
- どのスレに移動するかを教えてくれたら、俺はついていくぞ。
- 849 名前：nobodyさん mailto:sage [2008/02/04(月) 12:48:01 ID:???]
- １０年前からperlなんか廃れるとか仕事にならないとか言われ続けてるけど
いまだに仕事になってるから死ぬまではなんとかなるんじゃないかな
中小企業のＷＥＢ屋でいいならperlの仕事はあるぞ
- 850 名前：nobodyさん mailto:sage [2008/02/04(月) 14:03:12 ID:???]
- Ajax の例とかもあるしな。どうなるかは誰もわからない。
- 851 名前：nobodyさん [2008/02/05(火) 14:08:38 ID:ke8bjavM]
- phpをperlに書き換えて欲しいです。
わかる人お願いします。
<?php
//パラメータの取り出し
$CID = $_GET['cid'];
$cc = $_GET['cc'];
$SID = $_GET['sid'];
$CH = $_GET['ch'];
$C1 = $_GET['c1'];
//パラメータ判別
/*処理*/
//処理
header("Content-Type: text/plain; charset=Shift_JIS");
print"rc=0\r\n";
print"u1=www.abc.jp/OK.php\r\n";
/*処理*/
print"c1=AAA\r\n";
print"u2=www.abc.jp/err.php\r\n";
print"END\r\n";
?>
- 852 名前：nobodyさん mailto:sage [2008/02/05(火) 14:15:13 ID:???]
- >>851
CGI.pmつかってもいいの？
- 853 名前：nobodyさん [2008/02/05(火) 14:23:16 ID:ke8bjavM]
- <?php から ?>までをそのままperlに書き換えるのが不可能なら構わないです。
- 854 名前：nobodyさん mailto:sage [2008/02/05(火) 16:02:31 ID:???]
- www.abc.jp/
- 855 名前：nobodyさん mailto:sage [2008/02/05(火) 22:54:03 ID:???]
- use CGI;
my $q = new CGI;
my $cid = $q -> param( 'cid' );
後同じ
print "Content-type: text/plain; charset=Shift_JIS\n\n";
print "rc=0\n";
後同じ
- 856 名前：nobodyさん mailto:sage [2008/02/05(火) 23:10:03 ID:???]
- Perlの世界には $_GET['cid']; とか $_POST['cid']; とかないからね。
受け取った文字列を & で split して、さらに = で split して。という
処理から始まる。
CGI.pm使わないと同じような構文にはならないだろうね。
- 857 名前：nobodyさん [2008/02/05(火) 23:13:32 ID:LtG8FBU3]
- windows xpで、perlからwindowsのアプリケーション(例えば
電卓のcalc.exe)を終了させるにはどうやればいいですか?
perlに関する知識はttp://www.rfs.jp/sb/perl/こちらのサイト
を読み終えたくらいです。
- 858 名前：nobodyさん mailto:sage [2008/02/05(火) 23:23:42 ID:???]
- Perlでそんなこと出来るの？
- 859 名前：nobodyさん mailto:sage [2008/02/05(火) 23:37:33 ID:???]
- WindowsAPI使えば、プロセスの終了とかできるかも
- 860 名前：857 [2008/02/05(火) 23:49:41 ID:LtG8FBU3]
- >>857です。
>>858
返信ありがとうございます。windowsプログラミングについてもさっぱりなんですが
>>859さんのおっしゃるようにwin32api系のものを使えば出来そうな気がしたんですが。
linuxとかだとsystem(kill〜って感じでそのまま出来るんですかね。
>>859
返信ありがとうございます。
プロセスの終了も良く分かってないんですが、その辺の仕組みを僕くらいの低レベルでも
わかるように紹介されてるページとかご存知でしたらご紹介頂けたら幸いです。
- 861 名前：nobodyさん mailto:sage [2008/02/06(水) 00:20:44 ID:???]
- 残念ながらそれはwebprog板では板違いなのだ。
- 862 名前：nobodyさん mailto:sage [2008/02/06(水) 10:22:36 ID:???]
- Kent
CGI.pm
Mason
Sledge
Catalyst
Jifty
Reaction
間にいろいろハサんで欲すぃ
- 863 名前：nobodyさん mailto:sage [2008/02/06(水) 10:35:41 ID:???]
- おっとCGI::Applicationを忘れていた
Kent
CGI.pm
CGI::Application
Mason
Sledge
Gantry
Catalyst
Jifty
Reaction
- 864 名前：nobodyさん mailto:sage [2008/02/06(水) 11:59:40 ID:???]
- system "taskkill /im calc.exe";
- 865 名前：nobodyさん mailto:sage [2008/02/06(水) 16:07:31 ID:???]
- ん？しりとりでもやりたいのか？ｗ
- 866 名前：nobodyさん [2008/02/06(水) 17:39:26 ID:z242xw4+]
- すいません、質問お願いします。
一行テキスト と テキストエリア と 送信ボタン と hiddenがいくつか のフォームを作りました。
jcode.plを通して、デコードする仕組みにしました。
テキストエリアに、６００文字以下の、少ない全角文字を入力し、送信ボタンをクリックすると、
ログファイルに記載され、意図した表示になるのですが。
テキストエリアに沢山の文字（662文字以上）を入れ、送信ボタンを押しても反応しません。
perlには、フォームに入力する文字制限などがあるのでしょうか？
600文字程度ですと、使用目的では文字数が足りないので、なんとか直したいのですがどうしたらよいでしょう？
- 867 名前：866 [2008/02/06(水) 17:42:41 ID:z242xw4+]
- 追記です。
IE6だと、ボタンをクリックしても無反応なのですが。
FireFoxだと、一応書き込みができました、
しかし、やはり全角文字600文字程のところから後が切れて、ログファイルに記録されます。
また、全てが半角の数字を入力した場合には、何文字でも入力できる感じです。
宜しくお願いします。
- 868 名前：866 [2008/02/06(水) 17:50:10 ID:z242xw4+]
- すいません。訂正です。
半角数字でも、１０００文字程度しか書き込みができませんでした。
- 869 名前：nobodyさん mailto:sage [2008/02/06(水) 17:50:25 ID:???]
- method="POST"
- 870 名前：nobodyさん mailto:sage [2008/02/06(水) 17:51:53 ID:???]
- enctype="multipart/form-data"
- 871 名前：866 [2008/02/06(水) 18:04:28 ID:z242xw4+]
- >>869,870
ありがとうございます
メソッドをポストにしたら出来ました！
- 872 名前：nobodyさん mailto:sage [2008/02/08(金) 17:15:00 ID:???]
- #!/usr/local/bin/perl
eval { $test=; };
print "fin"
この三行スクリプトを実行するとfinが表示されずに
syntax error at test.pl line 2, near "=;"
Execution of test.pl aborted due to compilation errors.
が表示されるのは正常なActivePerl(forWin)およびevalの振る舞いですか？
- 873 名前：872 [2008/02/08(金) 17:24:04 ID:ZczohSgB]
- 上げ忘れ。
ActivePerlのperl -vはPerl v.5.8.8 / build817です。
- 874 名前：872 mailto:sage [2008/02/08(金) 18:04:44 ID:???]
- わかた(´д｀)y-~~シンタックス系のいわゆるコンパイルエラーはevalで拾えないようで、
拾えそうなｲｷﾌﾝで記述してあるリファレンスが誤りです。大変ありがとうございました。
- 875 名前：nobodyさん mailto:sage [2008/02/08(金) 18:57:59 ID:???]
- eval q{ $test=; };
$@
- 876 名前：797 mailto:sage [2008/02/14(木) 15:20:19 ID:???]
- おまいら解決したので報告します。
実は>>798が教えてくれたページを参考に作ったプログラムだったのですが、そこに罠があったのです。
ファイル名をSJISにするということで、アップページの文字コードもSJISにしていたのですが、
SJISで特定の文字(表、ソ、十など)にはWindowsでパスの区切りに使う\のコードが入っているので、
その部分が区切りと解釈されて、ファイル名が切られていたのです。
そこで、アップページの文字コードをUTF8にした所、切られることなく正常動作するようになりました。
おまけ
最近遭遇し一応解決したネタを１つ。
なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、
途中のファイル名が取得できません。ダミーで<INPUT type="hidden">を挟むと大丈夫です。
- 877 名前：nobodyさん mailto:sage [2008/02/14(木) 16:19:19 ID:???]
- おまそれはPerlの一番最初に習う、しかも新規の人は既に誰も使わな（ry
>なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、
あーわかるわかる。初心者にありがちなバグだね。
おれもHTTP拡張のバウンダリ周りで苦労した。10年ぐらい前に。
- 878 名前：nobodyさん [2008/02/18(月) 22:53:11 ID:b8HgX1gh]
- お願いします。
配列、@listの中には5つの要素が入っています。
そのなかの3つ目を削除するにはどうすれば良いですか？
$list[3] = ''; だと中身が空のまま要素数は変わりません…。
- 879 名前：nobodyさん mailto:sage [2008/02/18(月) 23:31:32 ID:???]
- splice @list, 2, 1;
- 880 名前：878 mailto:sage [2008/02/19(火) 00:10:37 ID:???]
- >>879さん、ありがとうございました。
- 881 名前：nobodyさん mailto:sage [2008/02/20(水) 18:43:38 ID:???]
- ここって超初心者の板じゃないの？
モジュール関係の質問見ると引くぞ
>>878のスレ見て少しホッとしたけど
- 882 名前：nobodyさん mailto:sage [2008/02/20(水) 18:51:36 ID:???]
- 板とスレ
スレとレス
間違えてるぞ
- 883 名前：nobodyさん [2008/02/20(水) 20:04:29 ID:AT7Ymvry]
- 掲示板で書き込んだ人のIPを取得するにはどうしたら良いのでしょうか？
$〇〇 = $ENV{'REMOTE_ADDR'};
でIPを取得したのはわかったんですが、ﾌｫｰﾑの中に<input type=hidden name=△△ value=$○○>などで他人に書き込みさせても自分のIPが表示されてしまいます
色々ググったりしたんですが良く分かりません
優しい解説お願いします
- 884 名前：nobodyさん mailto:sage [2008/02/20(水) 20:25:09 ID:???]
- >>883
hiddenタグでやろうとしていることがいまいち分からないが、
通常は、書き込んだ時にログファイルに一緒にIPアドレスを
書き込むものなんだが。
- 885 名前：nobodyさん mailto:sage [2008/02/20(水) 20:30:56 ID:???]
- >>884
スクリプトは時刻表示とコメントだけの、一行掲示板の簡易なものです
一緒にとはどういうことなのでしょうか？
ログファイルには時刻とコメントしか載りません
超初心者ですいませんm(_ _)m
- 886 名前：nobodyさん mailto:sage [2008/02/20(水) 20:42:58 ID:???]
- >>885
その、時刻とコメントを書き込むファイルに、IPアドレスも一緒に
書き込む方法があるでしょといいたいのだよ。
表示する際はそのデータは必ずしも出す必要は無いのだから。
それが嫌ならば、書き込みをしたときに内部的に別なファイルにも
IPアドレスと時刻を書き込ませるようにプログラムを書けばよい。
- 887 名前：nobodyさん mailto:sage [2008/02/20(水) 20:55:23 ID:???]
- >>885
フォームにセットしなくても、書き込んだ人のIPはこれで取り出せるよ → $ENV{'REMOTE_ADDR'}
- 888 名前：nobodyさん mailto:sage [2008/02/20(水) 20:55:38 ID:???]
- >>886
IPｱﾄﾞﾚｽを一緒に書き込むﾌﾟﾛｸﾞﾗﾑの書き方を知りたいんです(；∇；)/~~色々ググって、配布されてるｽｸﾘﾌﾟﾄから該当する部分を抽出して頑張ったんですが...良く分からなかったんです、
- 889 名前：nobodyさん mailto:sage [2008/02/20(水) 20:57:55 ID:???]
- >>887
レスありがとうございますm(_ _)m
それでIPは表示されるのは分かったんですが、それをどこに設置すればログに書き込んだ人のIPが表示されるかが分からないんです(；∇；)/~~
- 890 名前：nobodyさん mailto:sage [2008/02/20(水) 21:04:58 ID:???]
- >>889
open(OUT,">> log.txt");
$line = $ENV{'REMOTE_ADDR'};
print OUT $line;
close(OUT);
- 891 名前：nobodyさん mailto:sage [2008/02/20(水) 21:07:00 ID:???]
- >>889
コメントの後ろにくっ付けちゃえｗ
|
 |
