• 締切済み

Perlを用いてtxtファイルをmail送るやり方

Perlを用いて、そのサーバー上にあるTxtファイルをmailで送りたいのですが、どのようにプログラムを書けばよろしいのでしょうか? txtfileは、1日一回更新するようになっております。 perlをはじめて使う者です。なにとぞ、よろしくお願いいたします。 かなり初歩的なことで申し訳ありませんが、ご教授お願いいたします。

みんなの回答

  • geso775
  • ベストアンサー率29% (15/51)
回答No.2

こんにちは。 net::smtpモジュールを使って実現できます。 まず必要なperlモジュールをインストールして、 net::smtpモジュールを読み出し txtファイルの内容を読み込んで、メールの本文にあてて 送信。ですね。 他にもtxtファイルを添付メールにしてそのまま送る事も出来ます。 参考をご覧下さい。

参考URL:
http://homepage3.nifty.com/hippo2000/perltips/perlmail.htm
全文を見る
すると、全ての回答が全文表示されます。
  • GAIA9916
  • ベストアンサー率42% (17/40)
回答No.1

プログラムの経験等不明ですが、 私だとしたら。。。。。 Perlで書かれたフリープログラムと、簡単なPerl解説を読んで 仕組みや動きを確認します。 次にテキストファイルをhtmlで表示するプログラムや、 メールを送信するプログラムで試験して目的のプログラムを作成します。 たくさんサイトがありますので、参考にしてください。

参考URL:
http://www.futomi.com/
fana123
質問者

補足

早速の返答ありがとうございます。 プログラム経験は恥ずかしながらゼロです。 業務でのプログラム経験はないのですが、業務を自動化しようと考えたときに、Perlを使うのもひとつの解決策として考えています。 畑違いなことなので、ちょっと行き詰っています。。。 mailを送るプログラムに、本文を書き込む箇所にtxtファイルを見に行くといった考え方で、補えるのかな?と思っているのですが、いかがでしょうか? 参考例も上げていただければ、とても助かります。 再度、ご返信ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Perlでテキストファイル読み込み

    基本的な質問ですみません。 サーバ上のテキストファイルを読み込んで ローカルのテキストファイルに書き込むというだけなのですが 何度やってもできません。 以下プログラムですが #!usr/bin/perl open(IN,"http://*****/***/***.txt"); $file = <IN>; close(IN); open(OUT,"> a.txt"); print(OUT "$file"); close(OUT); サーバのアドレスは、URLうってみて見れたのでhttp://***(以下略)であってると思います。 サーバのテキストにはchmodで777と権限を与えました。 プログラムに問題あるのでしょうか。 この場合考えられる原因を教えてください。

    • ベストアンサー
    • Perl
  • foo1.txt、foo2.txt、foo3.txt…とファイル名をつけたいとき

    プログラムの一部でファイルを作成しておりまして、 foo1.txt、foo2.txt、foo3.txt…のように foo+変数.txtとなっており、変数を変える(増やす)ことで複数のファイルを作っていきたいのですが、 このように作成したいファイル名の途中に変数を含んでいる場合、どのようにすればよいのかをご教授願います。 現在、ファイルを作成する関数(関数の中身はおそらく関係してこないと思うので割愛させていただきます)を作成し、 make("foo.txt")のように記述しておりますが詰まってしましました。 どうぞ宜しくお願いします。

  • オンライン対戦ゲームのサーバープログラムをPerlで作りたい

    現在flashの勉強を始めた者です。 flashを使ってゲームを作りたいと思っています。 オンラインの対戦ゲーム(1:1のもの)を作りたいのですが、 サーバー側はどのようにしたら良いのかよく分からないので ご教授頂ければと思います。 サーバー側は出来ればperlでサーバープログラムが出来ればいいなと思っていますが、perlでも可能でしょうか? 今までperlでファイルを読み取り計算したり正規表現を使ってりすることは出来ます。 しかし、ネットワーク上でデータを直接やりとりすることをしたことがありません。 質問をまとめますと Perlでサーバー側のプログラムを作ることは可能でしょうか?(C++でなくても大丈夫か) また、開発する上でのヒントなどありましたらお願いします。

    • ベストアンサー
    • Perl
  • txtファイルをExcel2000で開きたい

    会社PC(XP Professional SP3)の更新時に、Office97とOffice2000の両方をインストールしてもらいました。 更新前PCで使用していたExcel97のマクロの稼動テストを97で実施し正常に動いたので、Excel2000でも稼動テストをしたく「右クリック→プログラムから開く→プログラムの選択→参照」から2000を選択したのですが、なぜか97で開いてしまいます。その後何度試しても97でしか開いてくれません。 txtファイルを保存してある場所はバラバラですので、2000を開いた状態からtxtファイルを選択する方法は結構手間がかかります。 「右クリックから2000で開く」にはどうしたらよろしいでしょうか?

  • perl 計算結果をファイルへ出力したい

    perl やり始めたばかりです。宜しくお願いします。 入力ファイル data.txt があるとします。 data.txt は、 123 456 789 333 555 777 以上のようなテキストファイルといたします。このファイルを 以下の様に100分の1にして出力したい。 1.23 4.56 7.89 3.33 5.55 7.77 と言うことで、この場で教えていただきました。それが、以下です。 #!/usr/bin/perl open(IN, "data.txt") or die ; @x = <IN>; close (IN); foreach $line (@x){ chomp($line); @elms = split(' ',$line); foreach $data (@elms){ print $data/100," "; } print "\n"; } おかげ様でこれはこれで上手く動きました。そこで、出力値をファイルに 書き込みたいのです。 もちろん、以下の様な方法でファイルに 書き込めるのは判っております。 計算プログラム.pl > outfile.txt しかし、上のプログラムをベースにファイルに書き込めないかと色々と 試してはみましたが、どうも上手く行きません。 どなたか教えて頂けないでしょうか? 宜しくお願い申し上げます。

    • ベストアンサー
    • Perl
  • Perlでリモートコピー

    こんにちは、よろしくお願いします。 Perlでファイルをリモートコピーしたいのですが、、、 UNIXの「rcp」を使用してみたのですがエラーとなってしまいました。 $cmd = '/bin/rcp'; system("${cmd} -p test.txt server1:/home/data/"); Tera Term上でプログラムしているのですが、ターム上ではエラーなく正常にコピー処理が行えます。 実行ユーザーも同じです。 # rcp -p test.txt server1:/home/data/ 何かよい方法、もしくは上記解決策等ありますでしょうか? サーバー・・・HP-UX CGI開発言語・・・Perl5 開発端末・・・windows2000(Tera Term 使用) 以上、ご教授の程よろしくお願いいたします。

  • HTMLからPerlを呼び出すには?

    今、Perlで他のサイトのtxtファイル(中身はliタグやaタグのHTMLファイルで、そのサイトではSSIで呼び出されています)を、入手して表示させるプログラムを作っています。 これを、呼び出して、あたかも私のサイトのように見せるにはどうすればよいでしょうか? 現在はiframeを使ってそのままtxtファイルのアドレスを指定しているのですが、拡張子がtxtであるため、IEでしか見れないという不具合があります。 これを解決するために、とほほさんのwww入門 http://tohoho.wakusei.ne.jp/wwwperl2.htm#socket で紹介されているPerlを参考にしました。そのPerlのファイルをブラウザから直接URL指定すれば実行できるようにはなり、txtの中身が表示されるようになったのですが、どのようにHTMLから呼び出せばよいのかわかりません。 やはりSSIで実行するしかないのでしょうか。 javascriptの場合、<script>タグでHTMLに直接スクリプトを記述できますが、Perlでもそのようなことは可能ですか?

    • ベストアンサー
    • HTML
  • 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でFTP

    ローカルPCからPerlで記述されたプログラムを実行し、 FTPサーバーへファイルをアップロードするPerlプログラムを教えてください。 DOS上では、 ftp open ftpサーバー名 ユーザー名 パスワード put 送信するファイル bye となるのですが、それをPerlで記述すると、どのようになるのでしょうか?

    • ベストアンサー
    • Perl
  • インストールしたPerlファイルを移動させたい。

    どうもはじめまして。 初歩的なことですみません。 Cドライブ直下にPerlをインストールしてしまったのですが、Cの中のProgram Filesの中へインストールしたPerlファイルwを移動したいと思ってます。 単純にドラック&ドロップで移動させても大丈夫なのでしょうか?