- 締切済み
Perl>「対話形式+ファイルを開く」ような記述をしたい。
Perlの初心者です。 先ほど、「その他」のカテゴリーで 初めて質問させていただきましたが、 「カテゴリーが違ういますよ」と 指摘いただいたので、改めて、質問させていただきます。 本当は、LINUXで使用したいのですが、 自宅にその環境が無いので、MS-DOSで使用する為、 テキストファイルに下記の記述をしました。 print "\n"; print "どれについて知りたいですか?"; print "\n"; print "\n"; print "(1)いちご"; print "\n"; print "(2)みかん"; print "\n"; print "(3)りんご"; print "\n"; print "\n"; print "回答 ____ "; print "\n"; 私としては、例えば、(1)のいちごを選べば、 任意の場所に保存している、いちごに関するファイルを MS-DOS上で開きたいのですが、上手くいきません。 何かが足りないのは、感じているのですが、 それが何なのかが、わかりません。
- pero2525
- お礼率40% (2/5)
- Perl
- 回答数1
- ありがとう数4
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- Tacosan
- ベストアンサー率23% (3656/15482)
その質問がどれかは知りませんが, 回答は付いていませんでしたか? ついているんだとしたら, その回答のどこが不満なんでしょうか?
関連するQ&A
- perl
Perlの初心者です。 本当は、LINUXで使用したいのですが、 自宅にその環境が無いので、MS-DOSで使用する為、 テキストファイルに下記の記述をしました。 print "\n"; print "どれについて知りたいですか?"; print "\n"; print "\n"; print "(1)いちご"; print "\n"; print "(2)みかん"; print "\n"; print "(3)りんご"; print "\n"; print "\n"; print "回答 ____ "; print "\n"; 私としては、例えば、(1)のいちごを選べば、 任意の場所に保存している、いちごに関するファイルを MS-DOS上で開きたいのですが、上手くいきません。 何かが足りないのは、感じているのですが、 それが何なのかが、わかりません。
- 締切済み
- その他(学問・教育)
- Perlでのファイル一括読み込み
Perlにてファイルの一括読み込みを以下記述で実施しております。 実行環境はAIXです。 ------------------------------- #!/usr/bin/perl open(FH,"/tmp/filename1.txt"); @aaa=<FH>; close(FH); print "@aaa\n"; ------------------------------- 上記内容をWindows XPにて実行した場合、何も表示されません。 print文が動いていないのか、ファイルの読み込みができていないのか不明です。 ファイルのパスは以下のように変更しております。 ------------------------------- open(FH,"C:\filename1.txt"); @aaa=<FH>; close(FH); print "@aaa\n"; ------------------------------- Windowsにて動作するようにはどのようにすれば宜しいのでしょうか? 初歩的な質問かもしれませんが、宜しくお願い致します。
- ベストアンサー
- Perl
- perlのprint文がうまく動きません
perlの勉強を始めました。 perlの本の最初に Hello.plというファイルに print”Hello!”;と記述して perl Hello.plとすると画面にHello!と表示されるとあるのですが、何も表示されません。 ファイルの記述をprint ”Hello!\n";としてやるとHello!と一応表示されるのですがなぜ改行が必要になるのかがよくわかりません。どのように理解すればいいのでしょうか?
- 締切済み
- Perl
- perlでCSV形式ファイルのアップロード
本日、同じ質問をしたものです。 前回の問題は解決したのですが、ファイルがアップロードできないで悩んでします。 CGIのプログラムは以下のソースです。 #! c:/perl/bin/perl use CGI; # CGIヘッダーの出力 print "Content-type: text/html\n\n"; my ($query,$fileName); $query = new CGI; $fileName = $query->param('fileName'); open(OUT, ">./a.csv"); binmode(OUT); while(read($fileName,$buffer,1024)) { print OUT $buffer; } close(OUT); close($fileName); #ファイルハンドルをcloseしています。 exit ; ファイルは、作られるのですが、中身が書き込まれません。 どなたか教えてください。 お願いします。
- ベストアンサー
- Perl
- SQLの記述方法
SQL文で次のようなことがしたいのですが、どのような記述をすればよろしいですか? 元データ code hinmei kakaku kosuu ------------------------------- 1 りんご 100 2 2 みかん 0 3 3 いちご 200 4 4 なし 0 1 5 ぶどう 150 0 価格(kakaku)は入力されている(金額がある)ものと無いものに分けて、その中で個数で多い順に並べる。 こんな感じに出力したいです。 code hinmei kakaku kosuu ------------------------------- 3 いちご 200 4 1 りんご 100 2 5 ぶどう 150 0 2 みかん 0 3 4 なし 0 1 よろしくお願いします。
- ベストアンサー
- MySQL
- この記述というのは?
CGIを設置しようと思うのですが、Perlを使用している場合で、 スクリプト内に以下の記述が含まれていることを確認して下さい。 print "Content-type: text/html\n\n" もしくは、 Prelモジュール"CGI.pm"を参照する記述が含まれていることを 確認して下さい。 use CGI qw(:cgi-lib :standard); print header(); という内容のことがマニュアルに記載されています。 この記述はどういう意味をもつものなのでしょうか? おそらく上の記述が含まれてないためにCGIが動かないのかなと思っています。含まれていない場合はどういった対処をすればよいのでしょうか?ご存知の方がいらっしゃいましたら宜しくお願い致します。
- ベストアンサー
- Perl
- Perlでテキストファイルの処理方法
Perlでファイル入力は 下記のように記述します open (IN,"myInput.txt"); $lineno = -1; while (<IN>) { $lineno = $lineno + 1; @lines_org[$lineno] = $_; #print lines_org[$lineno]; #print $_,"\n"; } これで一行づつ入力できます ここで質問したいのは 入力ファイルに改行コードがないため 処理できないと思うのですが 一行づつ入力ではなく、1文字づつ入力する 入力方法はPerlにはないのでしょうか ちなみに入力ファイルは数メガある大きなファイル です よろしくおねがいします
- ベストアンサー
- Perl
- Perl CGI -入力フォーム-
Perlを始めたばかりの初心者です。 Perlの中にフォームを入れたいのですが、エラーが出てしまいます。 現在は、ローカルで作動させています。 #! c:/perl/bin/perl print "Content-type: text/html\n\n"; print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n"; print "<head><title>TEST</title></head>\n"; print "<body>\n"; print "<p><input type="text" name="name"></p>\n"; print "</body>\n"; print "</html>"; 【print "<p><input type="text" name="name"></p>\n";】この記述がエラーの対象行となっています。 inputを使用する場合は他にも記述が必要なのでしょうか? 宜しくお願いします。
- 締切済み
- Perl
- perl ファイルのデータを編集したい
初めまして、perl をやり初めたばかりです。作業は Linux 上で行ってます。 あるテキストファイル data.txt があります。 data.txt の中は、以下のようになっているとします。 100 200 300 400 500 600 これを読み込んで、例えば、 1 2 3 4 5 6 以上の様に各数字を百分の一にして出力したいと思ってます。 一応、色々と調べながらプログラムを書いてはみましたが 思う様に出力されません。以下そのプログラム。 #!/usr/bin/perl open(IN, "data.txt") or die ; @x = <IN>; close (IN); $ref_x = \@x; $n_data = @x; for ($i = 0; $i< $n_data; ++$i) { $$ref_x[$i] /= 100 ; print $x[$i], " "; } print"\n"; どなたか、perl にお詳しい方教えていただけないでしょうか? 宜しくお願い申し上げます。
- 締切済み
- Perl
- perlの書き方
現在、windowsでwebサーバ構築しています。iisを使用しています。 その中で、perlを使用して、送信ボタンを押すとメールを配信するものを作成しています。 $to='******@******.co.jp'; if(open(ML,"○○○○○○")){ print ML "From: $email \n"; print ML "To: $to \n"; print ML "Bcc: $bcc \n"; print ML "Content-type: text/plain;\n"; この○○には、何といれたらいいのでしょうか? また単純な質問で申しないのですが、先頭部分は、 #!C:\Perl\bin\perl.exe でいいのでしょうか?
- ベストアンサー
- Perl
補足
不満はありません。 「カテゴリー違いであったので・・・」と 書かせてもらっていますが。