Perl コーディング初心者質問コーナー Part25
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/06/28 01:18ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0035nobodyさん
03/06/28 15:16ID:???print "Content-Type: text/html; charset=EUC-JP\n\n";
print "Content-Type: text/html; charset=Shift_JIS\n\n";
まで出るようになってる。
「kontaiei」の方がはるかに早い。
0036nobodyさん
03/06/28 15:18ID:???なるほど。
まぁ、僕は、自分用のｺﾞﾁｬｺﾞﾁｬしたモジュールんなかにcontentってｻﾌﾞﾙｰﾁﾝ作ってるからそれでいいんだけど。
いちいち日本語に切り替えるのが面倒そう？そうでもない？
0037nobodyさん
03/06/28 15:19ID:???正確に入力できなそうで困らないかな。
0038nobodyさん
03/06/28 15:20ID:???そうでもない。慣れかも。一時的な短いスクリプトをさっと書きたい時とか
いちいちモジュール呼ばないので。
まぁこの辺は好き好きだと思うけど。
0040nobodyさん
03/06/28 16:47ID:???あと、
my($sec, $min, $hou, $day, $mon, $yea, $wek) = localtime();
なんかも入れておくと便利。
0041nobodyさん
03/06/28 16:53ID:???0043あぼーん
NGNG0045nobodyさん
03/06/28 17:53ID:???0048あぼーん
NGNG005025
03/06/28 19:47ID:???タグの閉じ忘れとかやだよー。
ファイルアップロード含む入力の取得でガチャガチャすんのやだよー。
要するに基本的な部分であれこれ悩むのやだよー。
アルゴリズムに労力割きたいよー。
開発時間短いよー。
……まあ、そんな感じでつ。
0051nobodyさん
03/06/29 00:51ID:x7Ccxqe1書けばいいのですか？
添付付きのメールの受信システムを作りたいのですが、ネットで探しても
なかなか情報が無かったためよろしくお願いします
0053nobodyさん
03/06/29 01:21ID:WiALlB7N1からちゃんとやりたいのであれば、
http://www.kt.rim.or.jp/~kbk/perl5.005/perlipc.html#Internet_TCP_Clients_and_Servers
これと、
http://www.ietf.org/rfc/rfc1939.txt
これ。あとは頑張れ。
0054あぼーん
NGNG0055nobodyさん
03/06/29 01:55ID:15+Vm9kHunicodeの文字列をURLエンコードするにはどうすればいいのでしょうか？
JavaScriptのescapeのように、あいうえお->%u3042%u3044%u3046%u3048%u304A
といった感じで変換したいのです。
$value =~ s/(\W)/'%' . unpack 'H2' , $1/eg;
とやっただけではムリでした。
どのようすればいいのでしょうか？
0058nobodyさん
03/06/29 03:58ID:???$value =~ s/(\W)/'%' . unpack 'H2' , $1/eg; が
何をしているか理解できていれば分かりそうなもんだが。
正規表現と pack/unpack について、もうちっと勉強すれ。
$value =~ s/(..)/'%u' . unpack 'H4' , $1/eg;
0059nobodyさん
03/06/29 08:56ID:???while(<FILE>) {
(置換とか)
}
open(WRITE, ">test.txt");
print WRITE <FILE>;
とやったのですがtest.txtにhoge.txtを処理した内容が書き込まれません。
何処が間違っているのでしょうか…。
Win2K、Apache1.3.27、ActivePerl5.6を使用。
0060nobodyさん
03/06/29 09:09ID:???で、***** が使えるかどうか評価する関数ってありますか？
0061nobodyさん
03/06/29 09:18ID:???open(FILE, "hoge.txt");
while(<FILE>) {
(置換とか)
push @new, $_; # ここ追加
}
open(WRITE, ">test.txt");
print WRITE @new; # ここ変更
こうだろ？
0062nobodyさん
03/06/29 09:21ID:???専用の関数はない。
@INCの中に、use（とrequire）がモジュールを探してくるディレクトリが入ってる。
それをreaddirとかで開いて使いたいモジュールがあるかどうかさがしなされ。
0063nobodyさん
03/06/29 10:14ID:???hoge.txt 全てをオンメモリにしたくなければこう。
open IN, '<' . 'hoge.txt' or error();
open OUT, '>' . 'test.txt' or error();
while (<IN>) {
...
print OUT $_;
}
>>60
use Foo @arg; は
BEGIN { require Foo; Foo->import(@arg) } と等価。
BEGIN {
eval { require Foo } or error();
Foo->import(@arg);
}
0065nobodyさん
03/06/29 10:27ID:WiALlB7N>>62
そ、それは面倒くさすぎないか・・・？いつもそうやってんの？
eval("use MODULE");
error("Can't locale MODULE") if $@;
my $ins = new MODULE(xx,yy,zz);
これで済むじゃん。
0067nobodyさん
03/06/29 10:32ID:???ありがとうございます。
今回は61さんの方法でやって上手く行きました。
0069nobodyさん
03/06/29 13:34ID:???0071nobodyさん
03/06/29 14:44ID:???0073nobodyさん
03/06/29 21:22ID:???0074nobodyさん
03/06/29 21:34ID:15+Vm9kH&function($year,$mon,$day,$hour,$sec,$min);
とすると1056889951がリターンされてくるような。
0075nobodyさん
03/06/29 21:36ID:???0076nobodyさん
03/06/29 21:36ID:oIT5F8QqPOSIX::mktime()
ちなみに標準ライブラリ
007755
03/06/29 21:37ID:???>>56-58のみなさん
ありがとうございます。
解決しました。
UNICODEは%uに(4桁の16進数)が組み合わさるので、
Hで16進数、4で4桁ということでいいんですよね…？
007855=74
03/06/29 21:39ID:???>>75-76のお二人
ありがとうございました。
標準ライブラリももっと勉強した方がよさそうです(汗)。
0080あぼーん
NGNG0081119
03/06/29 22:52ID:tnHKF+kRこれをそのままフォームのボタンを押すことで同一のページに返したいのですが、
いちいち<input type="hidden" name="test" value="test">などとしないといけない
のでしょうか。
0082nobodyさん
03/06/30 00:13ID:???0083nobodyさん
03/06/30 00:19ID:???0084nobodyさん
03/06/30 01:01ID:???ググっても分かんないッス･･
0085nobodyさん
03/06/30 01:34ID:???0086nobodyさん
03/06/30 01:58ID:???0087nobodyさん
03/06/30 02:01ID:???>>84
coding
アルゴリズムや処理をコンピュータプログラムとして具現化すること。
または単にプログラムを作成すること。
0088nobodyさん
03/06/30 02:32ID:???0089nobodyさん
03/06/30 03:30ID:???0090nobodyさん
03/06/30 03:35ID:???0092座敷荒氏
03/06/30 06:49ID:???あのあと自分なりに勉強し、パラメータファイルを使用して
ファイル確認することができるように下のように書き換えました。
こちらはうまく動作しています。
#! /usr/bin/perl
while (<>){
($cmd_para) = split;
unless(-e $cmd_para){
exit(100);
}
}
exit(0);
そこで次にファイル削除を作成しようとおもい、
上記の箇所unlessをunlinkに書き換えたところ
シンタックスエラーが発生してしまいます。
どう修正すればいいのでしょうか。
よろしくお願い致します。
0093nobodyさん
03/06/30 07:04ID:???なんか基本がなってないような……
unlessは制御構造。unlinkは関数。名前は似てても、使い方は全く違うものだよ。
前スレ読めないんで、どうやりたいのかもうちょっと具体的に説明して。
それから今回はいいけど、エラーはできるだけ原文をそのまま書いてね。
カタカナで書くと、読み方を間違えていたり、肝心なところ（大抵読み方が分からない単語）を省略してたりして
意味が正しく伝わらないことがあるから。
0094nobodyさん
03/06/30 08:15ID:???0095nobodyさん
03/06/30 08:45ID:???いけないの？
0096座敷荒氏
03/06/30 10:20ID:???92に記載したのは確認したいファイルのフルパスを記載した
パラメータファイルを用意し、そのファイル名を指定して実行すると
ファイルがある場合には０を返して終了し、ない場合には１００を返して終了する、
というプログラムです。
これと同じように、削除したいファイルのフルパスを記載した
パラメータファイルを用紙し、そのファイル名を指定して実行したときに
ファイルが削除できた場合には０を返して、ない場合には１００を返して終了する、
というように動作するものを作りたいと思います。
92に記載したようにunlessをunlinkに書き換えただけで実行すると
syntax error at ./test line 4, near "){"
syntax error at ./test line 5, near "}}"
Execution of ./test aborted due to compilation errors.
と表示されてしまいます。
0097nobodyさん
03/06/30 10:31ID:???0099543
03/06/30 15:38ID:???お教え頂いたように修正しましたが
bash: ./Perltest: bad interpreter: Permission denied
と表示されてしまい、うまく動作しません。
使用したPerlファイル・パラメータファイル・削除対象ファイルの
パーミッションは設定済みです。
0100nobodyさん
03/06/30 16:03ID:???0101nobodyさん
03/06/30 16:05ID:???Content-Lengthが付いて無いファイルのサイズを取得する手段は無いものでしょうか。
0104nobodyさん
03/06/30 16:35ID:???おそらくHTTPヘッダのことを言ってるんだろうけど。
0105nobodyさん
03/07/01 09:06ID:???0106nobodyさん
03/07/01 12:57ID:???0107nobodyさん
03/07/01 13:18ID:???ADSLモデムにアクセス（192.168.1.1）して
Pingを発行しネットワーク接続監視を行う
接続されているのならば接続中の文を表示し
切断されているのならば警告文とアラーム音を鳴らし
知らせる。
最終的には２４時間連続稼動させたい。
ソース
use Net::Ping;
$host = "192.168.1.1";
if (pingecho($host, 10)) {
print "$host is alive.\n";
}else{
print "$host is dead.\a;\n";
}
エラー
The Unsupported function alarm function is unimplemented at c:perl/lib/net/Ping.pm line 308
エラーの意味がわかりません、よろしくお願いします。
0108107
03/07/01 13:21ID:???Perlでbeep音を鳴らそうと
\aでアラーム音のエスケープシーケンスを使用しましたが
音が鳴りませんでした。
音を鳴らす方法が間違ってるでしょうか？
0109nobodyさん
03/07/01 13:56ID:???0110nobodyさん
03/07/01 14:07ID:???環境くらい書けよ。
意味がわからなかったら調べろよ。
http://www.google.com/search?num=100&hl=ja&lr=lang_ja&ie=UTF-8&inlang=ja&c2coff=1&safe=off&filter=0&q=%54%68%65%20%55%6E%73%75%70%70%6F%72%74%65%64%20%66%75%6E%63%74%69%6F%6E%20%61%6C%61%72%6D%20%66%75%6E%63%74%69%6F
%6E%20%69%73%20%75%6E%69%6D%70%6C%65%6D%65%6E%74%65%64%20%61%74%20%63%3A%70%65%72%6C%2F%6C%69%62%2F%6E%65%74%2F%50%69%6E%67%2E%70%6D%20%6C%69%6E%65%20%33%30%38%20
（行長すぎって言われたから途中ぶった切り。）
英語がわからなかったら調べろよ。
http://www.excite.co.jp/world/text/?wb_lp=ENJA&before=The%20Unsupported%20function%20alarm%20function%20is%20unimplemented%20at%20c:perl/lib/net/Ping.pm%20line%20308%20
0111nobodyさん
03/07/01 14:36ID:???ActivePerlで、\aで鳴る音をユーザ定義できない?
0112nobodyさん
03/07/01 15:13ID:???0113nobodyさん
03/07/01 15:36ID:???環境
ActivePerl v5.8.0.806 + Perlを始めよう！ v.2.0.4.5
0114nobodyさん
03/07/01 15:52ID:???windows なんて厨房の使う os 知らんから、あとはヨロ
↓
0115nobodyさん
03/07/01 16:31ID:???systemで呼べばいいだけの話か
0116nobodyさん
03/07/01 16:42ID:hz3sfxOdWEB上のFROMから入力された文字や数字は、さまざまなコードで入力されるため
jcode.pl 等を使いコード変換する必要性は理解できます。
しかし、自分が作成したHTMLから自分が作成したCGIをパラメータ付きで呼び出すとき
CGI側はその受け取ったデータをコード変換する必要はあるのでしょうか？
例えは、index.html 内に <a href="http://aaa.com/test.cgi?id=123&name=abc">
があり、これをクリックした場合、test.cgi で受け取る id=123&name=abc は
変換する必要があるか、という事です。
よろしくお願いします。
0118nobodyさん
03/07/01 17:17ID:???FROMはFORMのことでしょうが
IEやNetscapeブラウザではurlエンコードして送りますから普通はurlデコードしますね。
英数文字だけだったら問題ないけど一応やっとけ。
0119nobodyさん
03/07/01 17:51ID:9B8Cvuqqそんなものぐらいbatで書けよ・・・
0120座敷荒氏
03/07/01 17:54ID:???別にパラメータファイルを用意し
そのパラメータファイルにフルパスで書かれたファイルを
削除するPerlを作っているのですが、97さんに教わったとおりに
書き換えて下記のようにして実行したところ
エラーが発生してしまいます。
#! /home/perl/test
while (<>){
($cmd_para) = split;
unless(unlink($cmd_para)){
exit(100);
}
}
exit(0);
↓実行したものとエラー内容
$ ./Perl名 ﾊﾟﾗﾒｰﾀﾌｧｲﾙ名
bash: ./Perltest: bad interpreter: Permission denied
お力添えのほど、宜しくお願い致します。
0121nobodyさん
03/07/01 18:04ID:???関係ないが、珍しいものを見た
0122あぼーん
NGNG0124nobodyさん
03/07/01 18:09ID:F5KDEjxA#!の行がおかしいってエラーが出てるぞ。
0125nobodyさん
03/07/01 18:09ID:???何でもかんでも一度に書くな。
#! /home/perl/test
print "hello, world\n";
からやり直せ
0126あぼーん
NGNG0127nobodyさん
03/07/01 18:25ID:ycS3U73c0128座敷荒氏
03/07/01 18:27ID:???あ、できました。
どうもありがとうございます。
原因は本番環境から自前の環境に持ち込んだときに
書き換えたミスです。削除対処ファイルへのパスを記入していました。
124さん、他に助言してくださったみなさん、
本当にありがとうございました。
>>125
はい、仕事で作る事になったので
順番に勉強する暇がありませんでした。
これからもう一度勉強をしますので
宜しくお願い致します。
0129nobodyさん
03/07/01 19:43ID:hz3sfxOdCGIに送るのは数字だけなのですが、
念のために変換かませておきます。
ありがとうございました。
0130nobodyさん
03/07/01 19:58ID:???0-9a-zA-Z以外のものが入るのなら、変換しとけ。
0131nobodyさん
03/07/01 21:02ID:soOdqVTPpingはネットワークに負荷かけるぞ。
普通にsocket作ってbindしてconnectして失敗したらエラーでいいだろ。
モジュール使ったら3行くらいで作れそうな気がするが。
（使わなくても10行くらい）
0132nobodyさん
03/07/01 21:03ID:???0133nobodyさん
03/07/01 21:31ID:???0134コミュカレ
03/07/01 21:41ID:aHlU6obt一部の限られた組織等でしか利用されていなかったグループウェアを、
一般ユーザーも利用できるインターネット上のパーソナルグループウェアへ
「コミュカレ」はフリーソフトです。
ゴミの収集日等、地域の皆様どおしでも使えます。使い方はユーザー次第!!!
いろんな活用の仕方が考えられます。
その便利さを是非お試しになってみて下さい。
http://www.ecopig.jp/comucale/index.htm
■ このスレッドは過去ログ倉庫に格納されています