Perl

ファイルの終わりまでループをするなら while($input = <IN>){ ・・・とすればよいかと思うのですが、 配列の終わりまでループをするにはどうしたら よいのでしょうか。 while(@test = ???){

HTMLのイメージマップ機能を使って、画像にリンクを貼ろうとしています。 動的にリンクを作ろうとしているんですが、perlでイメージの縦、横のピクセルを取得する方法が解りません。 ピクセル取得後、計算して、リンクを貼ろうと考えています。 方法をご存知の方、教えてください。

　Perl を使い始めて数年になり、雑誌の隅っこに載る程度のフリーソフトなら作るようにもなりましたが、未だにソート関数の内部構造がさっぱり分かりません(^_^; 　Perl の解説本も数冊、ホームページに至っては十数ほども有名と言われているところを回ってみましたが、ほとんどの Perl ユーザーがソート関数の使い方を丸覚えにしているようで、的を得ない解説しか載ってません。 　そこで質問ですが、$a と $b には、いったい「何が」「どういうタイミングで」入ってきているのでしょうか？（配列の値が比較されるときに呼び出される、ということは分かりますが） 　当たり前に考えれば、ソート関数というものは全てをユーザーに任せて関数を書かせるか、でなければフルオートで全てやってくれるソート関数を用意するか、どちらか１方しかないはずです。 　なのに、Perl のソート関数は途中部分だけユーザーに書かせるという器用なことをやってます。 　これはいったいどういう構造になっているのでしょう？

HTMLページからそのCGIを叩くと『年月』の名前のディレクトリを作って、 その中に日毎のアクセスログファイルを作成するCGIを作っています。 ディレクトリを作成するパールは以下です。 mkdir($dir, 0777); しかし実行すると$dirのパーミッションは755になってしまいます、 その中に作成されるファイルは正常に作成されるのですが、 そのディレクトリ／ファイル共にFTPから削除／パーミッションの変更が 出来なくなってしまいます。 telnetから入って削除しようとしても普通のユーザー権限では無理で 削除する為にはルートにならなければなりません。 なぜでしょう？FTPから操作できる権限のディレクトリを作る方法が あるのでしょうか？ バカな質問だと思いますが分かる方がいらっしゃいましたら教えて下さい。

ウインドウズ環境でファイルロックを使ってもエラーを出さないようにするには eval{flock(READ,2);}; を使うと思うのですが ある書籍に eval{flock(READ,2)}; とブロック内の「;」が抜けて表記されているものがありました。 ただの誤植かなともおもったのですが付属のCD-ROMにもそうなっていましたし、その本のなかでは一貫して前述した通りの表記になっていました。 これではUNIX上でファイルロックがかからないと思うのですが、、、、 ただの作者の認識違いで片付けてしまっていいのでしょうか？？ それとも、ブロック内に「;」をつけてはいけないのでしょうか？そんなハズはないとおもうのですが・・・

掲示板をPerlで作成してもらい、社内で使っておりますが、ユーザーIDに『ー』(例えばカードの2文字めの伸ばす文字)を使用すると、登録時は問題ないのですが、ログイン時の認証でCGIのエラーとなります。 掲示板を作って頂いた方に伺うと、 ********************************** 表示は問題ないのですが、Perlの一部の関数 （おそらく正規表現を使用できる文字列操作関数）で 「ー」という文字を使うとエラーになるようです。 ********************************** という分析を頂いております。 この問題の解決方法はございませんでしょうか。

私の方でPostgreSQLで調べていたところ、下記サイトに http://www.linux.or.jp/JF/JFdocs/PostgreSQL-FAQ.html#2.4 PostgreSQLをPerl５で使用できることがわかりました。 私のＨＰを開いているプロバイダでもPerl5・PostgreSQLとも サポートされているので、使用したいとおもっているのですが、 コーディングの仕方や関数の種類などわかりません。 皆さんでPerl5・PostgreSQLとの連携について書かれているサイトや 書籍をご存知でしたら、お教え願えないでしょうか？

正規表現によって文字列を検索し、該当する文字列が存在する場合には存在する旨のメッセージを出力し、存在しない場合には存在しない旨のメッセージを出力するようなプログラムを作りたいのですが現在うまくいっておりません。ソースは以下になります。 #!/usr/bin/perl $logfile = './log_euc.log'; # ログファイル @logs = &read_file($logfile); foreach $log (@logs) { if ($log = ~/hogehoge/ ){ $log_stg = " 変数に文字列hogehogeは含まれています。 "; }else{ $log_stg = " 変数に文字列hogehogeは含まれていません。 "; } print " 判定結果\n "; print " $log_stg\n "; } sub read_file { local($logfile) = $_[0]; open(IN,$logfile); local(@files) = <IN>; close(IN); return @files; } 検索対象のファイル「log_euc.log」は以下です。 hogehoge mugemuge riri ari siri siursoiu sojowijugo hfsoiehrohogehoge sjhoisjofhoge osihojfhoge hsoghsoehogehogesoijggggg 検索結果は以下です。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。 判定結果 変数に文字列hogehogeは含まれています。

Mac OS用PerlソフトのMacJPerlでスクリプトを作成し、「スクリプト」メニューから「実行」を選んでスクリプトを実行すると、かなりの確率でコンピュータがフリーズします。 MacJPerlのサイトへ行ってもこのようなトラブルに関する記述はいっさいありません。 一体何が原因なのでしょうか？ 環境は以下の通りです。 ハード：PowerBook G4 OS：Mac OS 9.1 ソフト：MacJPerl 5.2.0r4 j1 宜しくお願いします。

Perl で使える BASP21 のようなDLLはないでしょうか。 サーバーからメールの受信と、ファイルアップなど できれば願ったり叶ったりなのですが・・・

(1)お問い合わせフォームを入力(2)入力データを確認する(3)最後に指定先のメールに送り終了 という具合ですが(3)のところで指定先にメールが届きません。メール自体も送られてこないのですがどのような方法があるのでしょうか？どうか教えていただけないでしょうか？お願いします。 (3)のソースコートです。------------- &header; open (KEIJI, "<keijiban.dat") || die "File 'keijiban.dat' Open Error."; # ファイルの内容を１行単位ですべて配列allに読み込む @all = <KEIJI>; split(/:/, $_); if( $_ = $all[0] ){ ($time, $name, $mail, $title, $message, $to) = split(/:/); #送信前処理 &jcode'convert(*subject,'jis'); &jcode'convert(*body,'jis'); # send mail open(MAIL, "| /usr/lib/sendmail -t"); print MAIL "TO: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n"; print MAIL "Content-Type: text/plain;\n\n"; print MAIL "\n"; print MAIL "---------------------------------------------\n"; print MAIL " 名前：$name\n"; print MAIL " 内容：$body\n"; print MAIL " お名前：$firstname $secondname\n"; print MAIL " かな：$kanafirstname $kanasecondname\n"; print MAIL " 所在都道府県 :$area1 $area2\n"; print MAIL " 電話番号：$telno\n"; print MAIL " 性別：$sex\n"; print MAIL " メールアドレス：mailto:$mailad\n"; print MAIL "お問合わ、ご相談内容："; print MAIL " $con1\n"; print MAIL "---------------------------------------------\n"; close(MAIL); &one_message; } close(KEIJI); # フッターを表示するサブルーチン &footer;

繰り返して表示するのではなく1つだけ表示させるソースをおしえていただけないでしょうか？ 繰り返し表示されてしまうので"foreach"の部分を"if"に変えたのですが、今度は入力されたデータが表示されません。どうか教えてもらいないでしょうか？ ----参照----- #foreach (@all){ if (@all){ # １行の文字列をコロンを目印にして項目に分割する ($time, $name, $mail, $title, $message) = split(/:/, $_); # １件分のデータを表示するサブルーチン &one_message; } close(KEIJI);

こんにちは。 お聞きしたいのですが、perlのif(A eq B）文で、crypt関数で暗号化した文字列の比較をしているのですが、画面に双方の変数をテスト表示をしてみて、AとBは一致しているにもかかわらず、このif文を飛ばしてしまいます。 暗号化した変数を使うのは初めてなんですが、何か可能性として考えられることはありますか？ 自分でも考えられるチェックはしたつもりなんでが・・・

質問NO130772についてなのですが、もう少し教えていただけませんか？ wcshでスクリプトを作りたいのですが、 ファイル01.ini 02.ini 03.ini .........とある場合、 echo 何番？ set a=$< cp $a.ini test.ini としたところtest.iniにコピーされず、test.in ができてしまいます。 文法的に間違っていますか？ それとも、wcshではこのようなことは出来ないのでしょうか？ お願いします。

はじめまして、Ｐｅｒｌをはじめたばかりの初心者です。 　 質問はＣＧＩでＯｒａｃｌｅのデータベースにアクセスしその結果を ブラウザ上で表示するというものなのですがこれが思ったように表示 できません。 結果を １２３４　　　　　３５６８７　　　９８７５８ １２３４５８　　　７８９５　　　　５７８３ 　　・　　　　　　　　・　　　　　　　・ 　　・　　　　　　　　・　　　　　　　・　 という感じで綺麗に並べて表示したいのです。 そこで私は 　　　　　　　・ 　　　　　　　・ while (@aRes = $hSt->fetchrow){ $a = sprintf("%-18s","$aRes[0]"); $b = sprintf("%-18s","$aRes[1]"); $c = sprintf("%-18s","$aRes[2]"); print "$a"."$b"."$c"."\n"; } と記述したところ、上記に書いたような結果をえる事ができました。 しかし、ＨＴＭＬ文も一緒に盛り込みたかったので、 print "Content-type: text/html\n\n"; と記述したところ、先ほどの結果が １２３４３５６８７９８７５８ １２３４５８７８９５５７８３ のようにくっついてしまい、うまくいきません。 ＨＴＭＬ形式で表示した場合、うまくsprintfでは表示できないのでしょうか？ もしくは、ＨＴＭＬ文で同じ様に文字列を並べて表示するものがあるの でしょうか？ どうしても、データベースの結果をＨＴＭＬ形式で綺麗に並べて表示したいのです。 よろしくお願いいたします。 　　

「Perlで作るCGI入門」(結城浩著)で挫折、気を取り直して「はじめての人のためのかんたんPerl/CGI入門」(紙谷歌寿彦著)で現在勉強していますが、ハッシュのところで大混乱しています。 他に初心者にお薦めな本があったら教えてください。 私は他にプログラム経験は無く、CGI作成を目的としてPerlを勉強したいと思っています。

入門本に、次のような例題がありました（主要部分の抜粋です）。 @list = (20,25,24,32,28,20,28,24,20);　#年齢リスト foreach $fld(@list){ 　　$syukei{$fld}++; } print "<table><tr><th>年齢</th><th>人数</th></tr>\n"; foreach $key( reverse( sort( keys( %syukei ) ) ) ){ 　　$cnt = $syukei{$key}; 　　print"<tr><th>${key}才</th><th>${cnt}人</th></tr></table>\n"; これの実行結果は、@list の年齢を各年齢ごとにカウントして、表に各年齢が何人であるかを表示します。 ・$syukei{$fld}++; の部分は $ハッシュ名{'キー名'} でハッシュを作ろうとしているのだと思うのですが、++ がなぜ付くのか分かりません。 ・↑の考え方が合っているとしたら、$cnt = $syukei{$key} で右辺は $ハッシュ名{'キー名'} を表しているのだと思うのですが、左辺がスカラー値を求めている場合はキーの数を返すというルールがあるのでしょうか？ 私の質問にこだわらず、分かりやすく全体の説明をして頂ければ助かります。

ハッシュのeach関数を使って「猫はcat犬はdogお茶tea」と表示させるプログラムの主要部分です。 %list = ("猫"=>"cat" , "犬"=>"dog" , "お茶"=>"tea"); while( ($key,$val) = each( %list ) ){ 　　print "$keyは$val"; } whileの条件部分の意味が分かりません。 ・なんで条件部分なのに代入みたいな式が入るのか？ ・$keyと$valというのは普通のスカラー変数とは違うのか？ 良く分からないので質問の仕方もおぼつかないですが、どなたか分かりやすく説明して頂けないでしょうか？

お願いします。 教えてください。 Bシェルでキーボードからの入力を読み取るreadコマンド と同じ働きをするCシェルのコマンドが知りたいのです。 よろしくお願いします。

レンタルをサーバーを借りています。 perl(CGIプログラム) でメールを受信し、その中身から 特定の文字を抜き出したり、加工したりしたいのですが、 それは可能でしょうか？ 何冊かの書籍をみると、メールの送信のサンプルはある のですが、受信できる例がたまたま本がそうなのか、 どうか、見あたりません。 こんなサンプルのってるよ、なんて情報でも結構です。 やむにやまれず、CGIプログラムをはじめなければなら なくなりました。ご存知の方、どうかよろしくお願い します。