回答数
気になる
-
Perl テキスト 列検索
~log.txt~ abc def ghi ddd zzz 123 abc 456 ddd 789 000 abcd abc abc/ef ddd aaa ddd bbb abc ~search.pl~ $FILE = 'log.txt'; $Search = "abc"; open(FILE, "<$FILE") or die("error :$!"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; my @Search = grep(/$Search/, @DATA); while (<@Search>) {$a++} print @Search; <STDIN> このソースですと、「abc」を検索するのに、 行で検索して、結果全て返ってきます。 これを、(列[0][1][2][[3][4])で振分 [1]の部分の「abc」のみを返したい 結果・・・ 123 abc 456 ddd 789 000 abcd abc abc/ef ddd としたいのですが、どうすればいいのでしょうか・・・?
質問日時: 2017/03/11 14:37 質問者: home321
ベストアンサー
5
0
-
perlの無名配列の使い方を教えて下さい。
メールヘッダーの解析をリファレンスを使っているが、上手く出来な い。理由は、無名配列を使っていない為に常に最後のデータでで上書き される為。ここで、無名配列を使った方法が良く分からない。 メールヘッダーの構造は下記の通り。 ① 最初にヘッダー、次がデータの順で構成されている。 ② ヘッダーの開始は、Return-Path:から始まる。 ③ ヘッダーの終わりは、空行。/^$/ ④ データの開始は、ヘッダーの終わりの空行の次の行から開始する。 ⑤ データの終わりは先頭のピリオドのみのデータ /^\.$/ 上記の構成で、ヘッダーを配列@headerにデータを@dataに入れる。 ここでは、常に最初は@headerに次は@dataに交互に格納される。 @headerと@dataには、複数行のデータを配列のリファレンスとして格納 する。今の状況は夫々@headerと@dataには確かにリファレンスは格納さ れているが。無名配列を使っていない為に、常に最後のデータしか格納 されていない。 ここでは、@headerの要素の@header_lineと@dataの要素の@data_lineへ のデータの格納が不味い。ここの所をどの様にして無名配列を使ったら 良いのか、指摘をお願いします。 宜しく回答願います。 なお、今の不具合が発生をしているperlのソースを掲載します。これは 無名配列を使っていません。そこから、上記のバグが発生をしていま す。 このソースを無名配列を使ったやり方に変更をしたい。宜しく回答願い ます。また、これに関しては一番簡単な方法と言うのは、use strrict 宣言をしてから、夫々の@header_lineと@data_lineにmyの宣言をすれば 良いとは分かっていますが。 それ以外の方法での解決をお願いします。この手の問題と言うのは、私 は余りリファレンスを使う事が無いので。これを機会にして一つの定石 にしたいと思っていますので。宜しくお願いします。 長々と長い質問になりましたが宜しくお願いします。 下記の問題のperlのソースを掲載します。宜しくお願いします。 @header=(); @data=(); while(<>){ if(/^Return-Path:/){ $flag="header"; @header_line=(); $tmp=join("->",$.,$_); push @header_line,$tmp; next; } if($flag eq "header"){ if(/^$/){ $tmp=join("->",$.,"<blank>\n") ; push @header_line,$tmp; push @header,\@header_line; $flag="data"; @data_line=(); next; } } if($flag eq "data"){ unless(/^\./){ $tmp=join("->",$.,$_); push @data_line,$tmp; next; }else{ $tmp=join("->",$.,$_); push @data_line,$tmp; push @data,\@data_line; next; } } } for $i(0 .. 2434){ @ref_header=@{$header[$i]}; print @ref_header; @ref_data=@{$data[$i]}; print @ref_data; }
質問日時: 2017/03/09 06:35 質問者: usui-2015
ベストアンサー
4
0
-
ファイルの存在の有無を確かめる方法
あるファイルが存在するかどうか調べる関数は Perlだとどれを使えば良いですか? 存在すればTrue、しなければFalseを返すようなものを探しております。
質問日時: 2017/03/08 18:06 質問者: FUKUSHU
解決済
2
0
-
Perlのファイルが2つ出力されて困ってます(泣)お願いです教えてくださいm(__)m
以下を実行するとサブルーチン(&main)の出力データ(html)が「1」という拡張子無しのファイル名で出力されます。 { local *STDOUT; open STDOUT, '>', &main; main(1); close *STDOUT; } また、以下のように組むと「1」と「cgi.html」の2つが出力されます。 { local *STDOUT; open(STDOUT, '>', 'cgi.html'); open STDOUT, '>', &main; main(1); close *STDOUT; } ファイルを1つ(cgi.htmlだけ)出力する方法御存知方いらっしゃいましたら伝授願います。
質問日時: 2017/03/08 06:08 質問者: yammmma
ベストアンサー
1
0
-
perlのサブルーチンから画面に出力された内容を、別途htmlファイルに出力したい。
perl内のサブルーチンで処理された結果(htmlタグで構成されたもの)を別htmlファイルに出力したいです。 sub index { print "Content-type:text/html; charset=utf-8\n\n"; &main; exit; } 上記cgiにアクセスすると、sub index内のサブルーチン(&main内で処理されたもの)が表示されます。 仮に以下のように処理すると、newfile.htmlの中に&mainとだけテキスト表示されます。 open (OUT,">newfile.html"); print(HFILE &main); close (OUT); &mainを展開した状態でhtml出力する方法を教えてください。 何卒よろしくお願いいたします。
質問日時: 2017/03/07 23:42 質問者: yammmma
ベストアンサー
1
0
-
Perlスクリプトでフォルダを開く方法
Perlスクリプトを使って、指定したフォルダを エクスプロラーで開きたいのですが どのようにすれば良いですか? 検索しても分からなかったので教えてください。
質問日時: 2017/03/07 13:46 質問者: MOUIIKAO
解決済
4
0
-
ベストアンサー
4
0
-
Perl テキスト処理について
いつもお世話になっております。 ご教示お願い致します。 画像のようなテキストファイルがあります(log.txt) (画像の上2行は無視してください) そこで、 まず、1列目が「1」の行合計 結果→2 1列目が「1」の行番号 結果→1と4(正確には0と3?) というふうなことをしたいのですが、どのようにすればいいのでしょうか? my $FILE = 'log.txt'; open(FILE, "<$FILE") or die("error :$!"); eval{ flock(FILE, 1) }; my @DATA = <FILE>; $a = 0; my @match = grep(/^1,/, @DATA); while (<@match>) { $a++; } 「1,」から始めるものを抽出まではできたのですが・・・この先がわからないです;;
質問日時: 2017/02/28 09:41 質問者: home321
ベストアンサー
5
0
-
gem install houston
只今houstonというアプリをダウンロードしたく WindowsにConEmuというターミナルを入れ コマンド「gem install houston」を入力したのですが 「'gem' は、内部コマンドまたは外部コマンド、 操作可能なプログラムまたはバッチ ファイルとして認識されていません。」 とエラーメッセージが返ってきました。 「gem」はWindowsでは使えないのでしょうか?
質問日時: 2017/02/23 09:58 質問者: SHIN11SHIN
ベストアンサー
1
0
-
perl/tkとtcl/tkの違いを知りたい
perl/tkとtcl/tkの違いを知りたい。 例えば、文法の違いだとか、互換性だとか、拡張性とかを 知りたい。宜しくお願いします。
質問日時: 2017/02/22 03:12 質問者: usui-2015
ベストアンサー
1
0
-
perlのLWP::Simpleでgrepの値がおかしい
下記のperlでgrepの戻り値がおかしい。 use Encode; use utf8; use open IO => ":encoding(utf8)"; binmode STDOUT,':encoding(cp932)'; binmode STDERR,':encoding(cp932)'; use LWP::Simple; $content=get("http://uwakich.com/archives/49502116.html"); @list1=grep /\n/,$content; @list2=grep{$list1[$_] =~ /html/} 0 .. $#list1; print @list2; grepの値は、添字を返す。結果は0を返す。実際は、最低でも2つは有る はずだが。一つも無いと言うのは、どうしてだろうか。 これは、例えば一旦$contentをファイルに落としてからやると、今度は きちんとgrepは添字を返して来る。 何が違うのだろうか。済みません。誤りを指摘願います。
質問日時: 2017/02/18 16:37 質問者: usui-2015
ベストアンサー
1
0
-
Perl BBS 掲示板 改行処理他
改行処理について教えてください。 今まで書き込み処理で unshift @DATA, "$tm,$FORM{'name'},$FORM{'title'},$FORM{'text'}\n"; としていたのですが、これを use CGI; my $form = new CGI; my $NAME = $form->param('name'); my $TITLE = $form->param('title'); my $TEXT = $form->param('text'); unshift(@DATA,"$tm,$NAME,$TITLE,$TEXT\n"); に変更しました。 すると sub loadFormdata が聞かなくなり、 改行処理他が対応しなくなってしまいました、 この場合、 loadFormdataの部分のどこを変えればよいでしょうか? |------書き込み処理------| sub printdata{ use CGI; my $form = new CGI; &loadFormdata(); open(FILE, "<$FILE"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; my $tm = time; my $NAME = $form->param('name'); my $TITLE = $form->param('title'); my $TEXT = $form->param('text'); unshift(@DATA,"$tm,$NAME,$TITLE,$TEXT\n"); while(@DATA > $MAX) { pop @DATA; } open(FILE, ">$FILE") or die("error :$!"); eval{ flock(FILE, 2) }; print FILE @DATA; close FILE; } |------改行処理他------| sub loadFormdata { my ($query, $pair); if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query = $ENV{'QUERY_STRING'}; } foreach $pair (split(/&/, $query)) { my $key = ("$NAME,$TITLE,$TEXT"); my ($key, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $value =~ s/&/&/g; $value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\x0D\x0A\s*/<br>/g; $value =~ s/\s+/ /; $FORM{$key} = $value; } }
質問日時: 2017/02/17 10:17 質問者: home321
解決済
1
0
-
perlの引用符の中での変数展開は、計算をする事は出来ないのだろうか。
例えば、$a=0の時に、 print "$a\n";は0を表示する。 然し、print "++$a\n";は1を表示しない。 これはperlとしては出来ない設計になっているのだろうか。 この様に引用符の中で変数を計算して変数展開が出来る言語と言うのは 有るのだろうか。 済みません。回答をお願いします。
質問日時: 2017/02/12 17:41 質問者: usui-2015
ベストアンサー
1
0
-
Perl BBS 掲示場
掲示場を設置し、 読み書きはできるようになったのですが、 読み書きのときに、しっかり書き込めているのに、表示されるないようが 題名→テスト 名前→テスト 内容→テスト 日付→入力した時刻 を入力すると 本来 テスト テスト テスト 2017/2/8 と表示されるのでしが、 ときどき 無題 無題 無題 1990/1/1 と表示されます。 例は画像のような感じです・・・ (また時々、ページにはいったときにも同じ現象がおこります) これは、どういう原因で、どのような対策をとればいいのでしょうか?
質問日時: 2017/02/09 13:12 質問者: home321
解決済
1
0
-
sys/wait.hが見つかりません
Amon2を使ってみようと思い、cpanで必要と言われたモジュールをインストールしています。 Proc::Wait3をインストールしようとしたところ、 Wait3.xs:5:22: fatal error: sys/wait.h: No such file or directory compilation terminated. dmake.exe: Error code 129, while making 'Wait3.o' といったエラーが出てインストールできません。 環境はWindowsで、Perlは初めて勉強中です。 解決法を教えていただけないでしょうか?
質問日時: 2017/01/22 14:07 質問者: niku肉
解決済
1
0
-
ファイルの結合
現在、以下のようなcgiを作り動かしています。 ①ファイルopen ②不要なヘダーを削除 ③明細プリント ④終了処理 この度、同じフォーマットのファイルを追加することになりました。 そのため、以下のように修正し、動いています。 ①ファイルopen コレまでの ②不要なヘダーを削除 ③明細プリント ④ファイルopen 追加した ⑤不要なヘダーを削除 ⑥明細プリント ⑦終了処理 ここからが質問です。 全く同じ処理を繰り返していますが、 ②⑤の不要へダーの削除は(微妙ですが条件が違うので)構わないとして、 ③⑥は全く同じルーチンが使えます。 方法としてはソコをサブ化すればいいのかも知れませんが、 ファイルを単純に結合したいのです。 ①ファイルopen これまでの ②不要なヘダーを削除 ③ファイルopen 追加の ④不要なヘダーを削除 ⑤ファイル結合 ⑥明細プリント ⑦終了処理 ということで、⑤の「ファイルの結合」方法を教えていただきたいのです。 ちなみにファイルはテキストファイルで、以下のようにしています。 open(IN,"$file1") || &error("Can't open $file1"); @lines1 = <IN>; close(IN); → @lines1と@lines2の結合です。 宜しくお願いします。 windowsXP
質問日時: 2017/01/22 09:14 質問者: nagahaha
ベストアンサー
1
0
-
perlでの特定行操作
perlでの処理について、質問です。 test.txtの中に以下の文字列が入っています。 =================================== hoge,apple,orange,grape,aomori,gifu,hokk aido,aomori,iwate, akita,yamanashi hoge,shimane,okinawa,kagoshima,fukuoka,aichi,-,- =================================== 上記のファイル内で、1カラム目をすべて"hoge"で始まるように整形したいです。 整形後のイメージは以下です。 =================================== hoge,apple,orange,grape,aomori,gifu,hokkaido,aomori,iwate,akita,yamanashi hoge,shimane,okinawa,kagoshima,fukuoka,aichi,-,- =================================== その場合、perlスクリプトはどのように書くべきでしょうか? 一旦すべての改行を削除し、すべてのカラムを1行にした上で、 hoge→"\nhoge"と置換すれば行けるのですが、while文等の繰り返し処理で、何かできないでしょうか? よろしくお願いいたします。
質問日時: 2017/01/11 15:09 質問者: snowman0825
解決済
2
0
-
[perl] もっとシンプルに改良、ご指導して頂けないでしょうか?
配列@arrayからファイル名を読み取り、その中身を順次解析し、すべて解析し終わると@arrayの先頭に戻り同じ動作を行うコードなのですが、やたらとネストが増えすぎてしまい困っています。一応、サブルーチンを複数作っても見たのですがどうもスッキリしませんでした。 もう少し良いコードに改良、ご指導して頂けないでしょうか? $| = 1; my @array = ("1.txt","2.txt","3.txt"); for(;;){ for my $line (@array){ open(F,"$line"); my @f = <F>; close F; for my $line2 (@f){ if($line2 =~ m/test/) { print $line2; }else{ print "err\n"; } } sleep 1; } } 因みに、上記が最終ではなく、最終的には下記のようにしたい(@array部分を外部list.txtにする)のですがネストが増えてしましまい自分でも何を書いているのかよく分からなくなってしまいます。 $| = 1; for(;;){ my $file = "list.txt"; open(F,"$file"); my @array = <F>; close F; chomp @array; for my $line (@array){ open(F,"$line"); my @f = <F>; close F; for my $line2 (@f){ if($line2 =~ m/test/) { print $line2; }else{ print "err\n"; } } sleep 1; } } __END__ ----list.txt----- 1.txt 2.txt 3.txt a.txt b.txt c.txt ----------------- ---1.txt--- test text taxt test1 ttet -----------
質問日時: 2016/12/24 11:24 質問者: elee_f
解決済
3
0
-
ある所で小説を書いています 最近親が私のパソコンを 使っていて更新が出来ません。 それでポメラを買お
ある所で小説を書いています 最近親が私のパソコンを 使っていて更新が出来ません。 それでポメラを買おうと 検討をして居るのですが どのポメラがオススメなのか分かりません。 使うのは小説を書くのと設定とか作って 纏めるのに使用しようかなと思って居ます。 オススメのポメラを教えて下さい! お願いします!
質問日時: 2016/12/24 02:06 質問者: 黒崎菜月
ベストアンサー
1
1
-
PCで、『Apowersoft iPhone 録画究極』と言うものをダウンロードしたのですが、開こう
PCで、『Apowersoft iPhone 録画究極』と言うものをダウンロードしたのですが、開こうとしたら「### Internal error,cannot lord engine Number 1 due to error 5」と出るのですが、どうしたら良いのでしょうか…… ちなみに、windowsで、バージョンはwindows7 Home Premiumです。
質問日時: 2016/12/17 21:42 質問者: 問13
解決済
1
0
-
perlで、経過した週を得るには?
基準を1980/12/1とした場合、 現在の日付までで何週間経過したかを計算するにはどうようなコードを書けば良いのでしょうか? 自分なりに色々調べてみたのですが、 経過日、(累計の月、日)といった計算は、知ることが出来たのですが、 何週間が経過したと言うのが、わからなく ご存知の方、お手数ですがご伝授して頂けませんか。 お願い致します。
質問日時: 2016/12/16 10:19 質問者: 麝香猫
解決済
3
0
-
4桁の整数の前位の足し算を行い結果を表示するプログラムってどう作るんですか? 例)1000=1 99
4桁の整数の前位の足し算を行い結果を表示するプログラムってどう作るんですか? 例)1000=1 9999=36 のような感じです
質問日時: 2016/12/10 09:47 質問者: さいばし
ベストアンサー
2
0
-
Perl 禁止語句について
Perl メール送信にて 禁止語句を設定できるようにしました。 下記コードです。 my @ngword = ("禁止語句"); if(&ban($Name, \@ngword)) { &error } sub ban { my $body = shift; my $word = shift; $body =~ s/(\x0d\x0a|\x0a|\x0d|\n|\s|\x81\x41|\xff)//g; return map { $body =~ /$_/m } @$word; } 実際これでブロックはしてくれるのですが、 my @ngword = ("禁止語句"); この部分をメモ帳(texteditor)から読み込む方法ってないでしょうか? あれば教えて頂きたいです・・・
質問日時: 2016/12/08 15:00 質問者: r-h-a-o
解決済
7
0
-
Perl 初心者 メール確認画面について
メールの返信についてご教示ください HTML→Perl→送信と今はできています。 これを HTML→Perl→確認→送信 としたいのですが、 まず下記のコードが確認画面の表示なのですが、 print qq(Content-type: text/html; charset=Shift_JIS\n\n); print <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=Shift_JIS"> <title>確認画面</title> </head> <body> <table style="width:40%;border:2px solid #f93"> <tr><th style="padding:5px;background:#fc1">確認画面</th></tr> <tr> <td style="padding:20px"> <form method="post" action="mail.pl"> <input type="hidden" name="a" value="exec"> 名前:$Name<br> アドレス:$from<br> 入力した内容はこれでよろしいでしょうか? <p> <input type="submit" value="送信"> <input type="button" value=" 戻 る " onclick="history.back()" /> </p> </form> </body> </html> END exit(0); 現在ここまでできていて、 送信ボタンで、このコードですとaction="mail.pl"が実行されるようになっていますが、 そうではなくて、exit(0);から下にSMTPによるメール送信コードがあり exit(0);の下のコードへと続けたいのですが、 どのようにすればいいのでしょうか??
質問日時: 2016/12/06 15:13 質問者: r-h-a-o
ベストアンサー
1
1
-
Perl メール件名について
PerlでMailを送信プログラムを作ってみようと考えています。 本文は HTML→Perl(cp932→UTF-8)→Mail送信 という形にしました。 下記コード(一部抜粋してます) my $subject = 'Mail受付'; my $header = <<"end"; From: $from To: $mailto Subject: $subject Mime-Version: 1.0 Content-type: text/plain;charset="UTF-8" Content-Transfer-Encoding: 8bit end my $name =$q->param('name'); Encode::from_to($name, 'cp932', 'UTF-8'); $smtp->mail($from); $smtp->to($mailto); $smtp->to($subject); $smtp->data(); $smtp->datasend("$name\n\n"); $smtp->dataend(); $smtp->quit; そして、件名が文字化けしてしまうのですが、 MIME::Base64 MIMEエンコードを使いたいのですが、どのようにかけばいいのでしょうか??? my $subject = 'Mail受付'; ↑ここに記述するとは思うのですが・・・ また、間違ったコードの使い方をしていればご指摘ください・・・
質問日時: 2016/12/02 09:14 質問者: r-h-a-o
ベストアンサー
2
0
-
Perl 文字化け
前回も文字化けについて質問させてもらったものです。 回答者様のヒントのおかげでようやく変換するとこまでたどり着けました ありがとうございました。 しかし、今回も文字化けについてなのですが・・・ my $Name =$q->param('Name'); Encode::from_to($Name, 'utf8', 'shiftjis'); #パソコンへ送る用 Encode::from_to($Name, 'shiftjis', 'iso-2022-jp'); #スマホへ送る用 $smtp->datasend("名前 : $Name\n\n"); ①異字体が文字化けする(髙)(﨑)等 調べると utf-8 Content-Transfer-Encoding: 8bit というので処理するという結果が出たのですが どこにどう記述するのかがわからないです。 ②$smtp->datasend("名前 : $Name\n\n"); ここの「名前:」のとこが文字化けするのですが、 これはおそらく'iso-2022-jp'のまま送られているということだと思うのですが、 例えば、「名前:」という文字列を my $Name =$q->param('Name'); $Nameの前につけて送信してほしいのですが、どのように記述するのでしょうか? 以上の2点についてをどうかご教示お願い致します。
質問日時: 2016/11/29 12:38 質問者: rei091203
解決済
5
0
-
Perl メール 文字化け
いつもお世話になっております。 Perlでメール送信プログラムを作成しました。 正常には送れるのですが、問題が発生しました。 それが文字化けです。 どうも、下記のコードで use CGI; my $body = $q->param('body'); print "Content-type: text/plain; charset=Shift_JIS\n\n"; print "本文が入力されていません。\n\nブラウザの戻るボタンで戻ってください。"; exit(1); } $smtp->datasend("本文 : $body\n\n"); 一部抜粋なのですが、 まず、パソコンではparamで受け取ったとこが文字化けするみたいで、 スマホでは、全て文字化けしてしまいます。 どう対応すればいいでしょうか?
質問日時: 2016/11/25 07:43 質問者: rei091203
ベストアンサー
4
2
-
Perl メール 初心者
Perlでのメール送信についてご教示ください。 [mail.pl] my $q = new CGI; my $from = $q->param('from'); if($from eq ""){ print "Content-type: text/plain; charset=Shift_JIS\n\n"; print "アドレスが入力されていません。\n\nブラウザの戻るボタンで戻ってください。"; exit(1); } my $mailto= 'aaaaa@aaaaaa.jp'; [mailform.pl] #!/usr/bin/perl print qq(Content-type: text/html; charset=Shift_JIS\n\n); print <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> アドレス(From):<font color="red" size="2">※必須</font><br /> <input type="text" name="from" size="50" value=""><br /> <br /> 現在、mailperl.pl→mail.plにフォームからのデータの受け渡しをするようにしメールを送信しています。 そして、これをmail.html→mail.plにデータの受け渡しをしたいのですが、 どのようにすればいいのでしょうか・・? また、まだしっかり理解できていない部分も多いため、説明が不足していたり わかりずらいかと思います。その時は、ご指摘ください;;
質問日時: 2016/11/24 10:46 質問者: rei091203
ベストアンサー
2
0
-
Perl 初心者です。
Perlについてご教示お願い致します 下記のコードはフォーム入力し送信を押すとメール送信されます。 [mailform.pl] print qq(Content-type: text/html; charset=Shift_JIS\n\n); print <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> <title>メールフォーム</title> </head> <body> <h1 class="title">メールフォーム</h1> <form method="post" action="mail.pl"> <input type="hidden" name="a" value="exec"> 件名(Subject) :<br /> <input type="text" name="subject" size="80" value=""><br /> 宛先(To) :<br /> <input type="text" name="to" size="80" value=""><br /> 差出人(From) :<br /> <input type="text" name="from" size="80" value=""><br /> 本文(Body) :<br /> <textarea name="body" rows="10" cols="65"></textarea><br /> <p> <input type="submit" value="送信"> </p> </form> </body> </html> END そこで、メールを送信すると下記のコードを実行させたいです。 [endmail.pl] #!/usr/bin/perl print qq(Content-type: text/html; charset=Shift_JIS\n\n); print <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> <title>メールフォーム</title> </head> <body> <table style="width:40%;border:2px solid #f63"> <tr><th style="padding:5px;background:#fc1">送信完了</th></tr> <tr> <td style="padding:20px"> <center> <a href="http://aaaaaa.jp/index.html">トップページへ戻る</a> </center> </body> </html> END どのようにすればいいのでしょうか・・・?
質問日時: 2016/11/22 13:19 質問者: rei091203
ベストアンサー
1
0
-
BIOSでブート順位を変えようと見てみるとOS用 SSDが見当てりません。
Win10 が調子が悪くWin7に新規入れ直し後BIOSでブート順位を変えようと見てみるとOS用 SSDが見当てりません。そこで、あまり解ってないのにいろいろ触って F10 その後 起動できませんos のCDを入れて再起動してください。と出たのでCDをいれて見ましたが起動せず ASUSmother bord が70%ぐらいのおおきさでprease push DEL ..Enter Deleteを押してもどうにもこうにも、動きません。何回も強制終了してオンしても同じで困ってます。一応ピッという音はします。何もわからずBIOS を触った私がばかなのですが、何方か教えて頂けないでしょうか。
質問日時: 2016/11/21 02:43 質問者: アキギー
ベストアンサー
3
0
-
Perlの正規表現について
$noには "a12345" の値が入っています。 この$no から数値だけを取り出して$aaa にその値を代入したい。 $no =~ /(\d+)/; $aaa = $1; これを正規表現を使って1行にするにはどう記述しれば良いでしょうか? $aaa が "12345" になるように。
質問日時: 2016/11/08 17:30 質問者: kana58d
ベストアンサー
1
0
-
Perlについて
下のように配列の中に要素(レコード)を追加したい場合はどのようにすれば良いでしょうか? 配列 010,A,B 005,A,B 002,A,B 001,A,B これに 004,A,B を005と002の間に追加したい。
質問日時: 2016/11/08 15:33 質問者: kana58d
解決済
1
0
-
Perl初心者です。
メールフォームで ホームページの問い合わせをクリックすると下記のコードでフォームページに飛びます。 print qq(Content-type: text/html; charset=Shift_JIS\n\n); print <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> <title>メールフォーム</title> </head> <body> <h1 class="title">メールフォーム</h1> <form method="post" action="mail.pl"> <input type="hidden" name="a" value="exec"> 件名(Subject) :<br /> <input type="text" name="subject" size="80" value=""><br /> 宛先(To) :<br /> <input type="text" name="to" size="80" value=""><br /> 差出人(From) :<br /> <input type="text" name="from" size="80" value=""><br /> 本文(Body) :<br /> <textarea name="body" rows="10" cols="65"></textarea><br /> <p> <input type="submit" value="送信"> </p> </form> </body> </html> END そこで、内容を入力すると送信するようになのですが、 このアクションでmail.plのコード内で my $mailto= 'aaaaa@aaaaaa.jp'; my $subject = '問い合わせ; my $message = "テスト"; このmy の内容を変数を利用してメールフォームから呼び出し?したいと思います。 そのやり方をご教示ください。 また、mailtoの相手に送信してもらったら 自動的に定型文を返信するようにしたいです。
質問日時: 2016/11/01 16:31 質問者: rei091203
ベストアンサー
2
0
-
Perl メール 勉強
Perl初心者です。 メールフォームのサンプルを調べていたのですが、 ほとんどがSendmailやJcodeでのサンプルしか検索結果がでてきませんでした。 当サーバーは両方とも使えないとのこと・・・ 求めているのは、SMTPとCGI.pmとEncodeあたりをメインに作るメールフォームなのですが、 なかなかありません。 そこで、どなたか私に そのようなサンプルが載っているサイト もしくは、 メールフォームで ホームページ→メールフォーム開く→入力→確認画面→送信→自動返信 と簡単なコードをご提示をお願いしたいです。 一応現在出来ているコードを貼っておきます。(途中です) 現在実行できるのが、ホームページ→定型文送信までです #!/usr/bin/perl -w use Encode qw(from_to encode); use Net::SMTP; use strict; #メールアドレス設定 my $from = ’aaa@aaaaa.jp'; my $mailto= 'bbb@bbbbb.jp'; my $mailcc= 'ccc@ccccc.jp'; print qq(Content-type: text/html; charset=Shift_JIS\n\n); print <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head><title>メールフォーム</title></head> <body style="text-align:center"> <table style="width:80%;border:1px solid #f93"> <tr><th style="padding:5px;background:#fc9">メールフォーム</th></tr> <tr> <td style="padding:20px"> END #サブジェクト設定 my $subject = 'ホームページからのお問い合わせ'; from_to($subject, 'shiftjis', 'iso-2022-jp'); encode('MIME-Header-ISO_2022_JP', $subject); #メールヘッダー設定 my $header = << "MAILHEADER"; From: $from To: $mailto CC: $mailcc Subject: $subject Mime-Version: 1.0 Content-Type: text/plain; charset = 'ISO-2022-JP" Content-Trensfer-Encoding: 7bit MAILHEADER #メール本体設定 my $message = "テスト"; #文字コードをJISに変換 from_to($message, 'shiftjis', 'iso-2022-jp'); #メール送信オブジェクト設定 my $smtp = Net::SMTP->new('abcdefg.jp'); if ( !$smtp ) { print "メールサーバーにアクセスできません!"; exit; } #メール送信 $smtp->mail($from); $smtp->to($mailto); $smtp->to($mailcc); $smtp->data(); $smtp->datasend($header); $smtp->datasend($message); $smtp->dataend(); $smtp->quit;
質問日時: 2016/10/25 16:43 質問者: rei091203
ベストアンサー
1
1
-
perlであるcsvファイルのキーワードからキーワード間の文字列を抽出したい
perl初心者です。 地名1.csv 地名2.csv の2つのファイルがあったとします。 ==地名1.csv== a,b,札幌,c,d, e,f,沖縄,f,r, t,u,東京,w,e, r,u,千葉,e,q, l,o,金沢,e,c, p,l,高知,w,w, ==地名2.csv== 沖縄,千葉 高知,千葉 ここで、地名2.csvの1行に書かれた地名に挟まれた行を地名1.csvから ごっそりと抜き出したのです。。 具体的には、実行すると、 e,f,沖縄,f,r, t,u,東京,w,e, r,u,千葉,e,q, r,u,千葉,e,q, l,o,金沢,e,c, p,l,高知,w,w, が抽出され、それが別ファイルに書き込めたら一番なのです。 地名2.csvを見ての通り、地名2.csvの地名の順番は 地名1.csvの順番と逆なこともあるので、 if文で条件分岐をすればいいのだと思うのですが、 ここがうまく書けません。。 どなたかお知恵を貸していただけないでしょうか。 どうぞどうぞよろしくお願い致します。
質問日時: 2016/10/13 10:58 質問者: ぎょいちろう
ベストアンサー
12
0
-
Perl CGI 初心者
ホームページにメールフォーム(お問い合わせ)を設置したいと考えております。 そこで、必要なものを教えて頂きたいのですが、 まず現在あるのが、 ActivePerl Perlを始めよう!(エディタ) Apache24 FFFTP をインストールしてます。 サーバーには、CGI(Perl)使用可能,パーミッション,フォルダのパス(usr/bin/perl)を確認 CGIの転送先はどこでもいいとのこと・・・ (ホームページのあれこれを「httpdocs」にいれているので同じとこにいれる?) ここまでが、用意できているものです。 後、用意するものは、 Jcode・・・Jcode-2.07.tar.gzというのをインストールしたのですが、よくわかりません・・・ sendmail・・・サーバーにあるものでしょうか?どこにあるのかがわかりません・・・ この他にも、用意しなければいけないものはなんでしょうか? また、簡単なコード #! /usr/bin/perl print "Content-type: text/html\n\n"; print "<html>\n"; print "<head>\n"; print "<title>Hello world !</title>\n"; print "</head>\n"; print "<body>\n"; print "Hello world !\n"; print "</body>\n"; print "</html>\n"; exit; 等は、サーバーに転送し <a href="http://◯◯◯◯.jp/cgi/sample.pl">テスト</a> として、動作の確認はできました。 ただ、sampleのメールフォームやアクセスカウンタのコードをコピペするだけでは、 実行されないです・・・(まだ初めたばっかで1からは程遠いです;;) コマンドプロンプトで確認すると、Jcodeが見つからないがよくでてきます。
質問日時: 2016/10/06 14:00 質問者: rei091203
ベストアンサー
1
0
-
perlでのポインタの使い方
perlのリファレンスはC言語のポインタのように実アドレスを示してないとの事。 では、例えば GetDiskFreeSpaceExのような、数値をポインタで受け取るような関数は、どのように使ったらよいのでしょうか。 use Win32::API; my $DLL=new Win32::API('Kernel32', 'GetDiskFreeSpaceEx', 'PNNN', 'N'); my $n1=0; my $n2=0; my $n3=0; my $rc=$DLL->Call('c:\\', \$n1, \$n2, \$n3); これではエラーになります。。。。当然か。。。。
質問日時: 2016/10/01 16:01 質問者: zaqu
ベストアンサー
1
0
-
perlを用いた特定文字列間の抽出方法について 下記のテキストファイル、test1.logからst
perlを用いた特定文字列間の抽出方法について 下記のテキストファイル、test1.logからstart〜end間を抽出するpealを作ろうと思っています。 $datafile="test1.log"; open(FH, $datafile); @list = <FH>; while (<FH>) { 'print if /^start$/ .. /^end$/'; } ですが、実行してもエラーにはなりませんが何も出力されません。 どこに問題があるのかが分かりません。 最終的にはカレントディレクトリにある複数のtest1.logと同様の.logファイルを 一括で処理したいと思っています。 test1.logファイルの内容 start aaa bbb ccc end eee fff ggg 分かる方がいらっしゃいましたら、お知恵をお借りしたくよろしくお願いいたします。
質問日時: 2016/09/18 18:41 質問者: gerugeru909
ベストアンサー
1
0
-
Perlでログファイルからユーザー毎の最終ログインを抽出したい。
お世話になります。ご指南いただければ幸いです。 Perl初心者です。 自前のサイトで会員ログファイルから各ユーザーの最終ログインを抽出したいと思っています。 ログファイルを作るところまでは何とかなったのですが、抽出する方法が見当もつきません。 (ログファイルではない閲覧用のファイルが作れればありがたいですが抽出するロジックがわかりません。) 現在は以下のようなログファイルができています。 ユーザーA,2016-08-28 12:44:14 ユーザーA,2016-08-25 12:44:55 ユーザーB,2016-08-28 12:45:47 ユーザーC,2016-08-27 12:45:54 ユーザーC,2016-08-28 12:45:54 ユーザーB,2016-08-28 12:45:54 ユーザーA,2016-08-28 12:45:54 それぞれユーザーA-Cさんの最終ログイン行を抽出したいのですが、 ご教授いただけませんでしょうか。 ログファイル上の時刻は以下のように取得しています。 my ($sec, $min, $hour, $day, $mon, $year) = localtime(time); my $now = sprintf('%04d-%02d-%02d %02d:%02d:%02d', $year + 1900, $mon + 1, $day, $hour, $min, $sec); 以上です。よろしくお願いします。
質問日時: 2016/08/28 13:21 質問者: なすび1235
ベストアンサー
9
0
-
perlのsortで値の結果では無くて、添え字を結果として出したい
例えば、 @a=(2,1,0); print sort(@a); 上記では、(0,1,2)を返します。 然し、そうでは無くて添え字を出したいのですが。上記の場合の出カは (2,1,0)として出カをしたいのですが。perlのコードが分かりません。 perlのコードをお教え願います。 宜しくお願いします。
質問日時: 2016/08/21 10:08 質問者: usui-2015
ベストアンサー
1
0
-
Perlでhtmlタグを除去したい。
perlを使ってサイト上のhtmlを除去したいのですがその際、altやtitleなど属性の中にある文字列は除去せずにしたのです。 例えば下のようなimgタグがあります。 $str = '<img src="../images/example.png" alt="サンプル画像1" title="サンプル画像2" />テキスト'; これを正規表現をつかって除去し以下のようにテキストだけを取得したいのです。 サンプル画像1サンプル画像2テキスト 以下のような正規表現をつかって通常のhtmlタグは抜けるようになったのですが属性テキストを抜く方法がわかりません。 $str =~ s/<(".*?"|'.*?'|[^'"])*?>//g; どなた様かご教授の程よろしくお願いいたします。
質問日時: 2016/08/16 11:40 質問者: titikun00
解決済
5
0
-
perlでモジュールを使ってクロス集計を出したいのですが、有るのでしょうか?
作った方が早いと言われるかも知れませんが。最初から有る物をわざわ ざと作りたくは有りませんので。 若しも、モジュールが有るのでしたらお知えてください。宜しくお願い します。
質問日時: 2016/08/06 08:38 質問者: usui-2015
ベストアンサー
3
0
-
端数が1/8とは
詳説 正規表現(49p)によると昔の株価は、小数点で表示されていたそうです。 書籍では、本来表示したい株価は、9.05なのに9.0500000037272と表示されていた。 printfという文章を整形する関数で小数点第二位まで表示させたかったそうですが、端数が1/8の場合、小数点第二位ではなく第三位まで表示させる必要がありました。 ここで質問ですが端数が1/8とは、噛み砕いて説明するとどういうことなのでしょうか。
質問日時: 2016/08/05 20:04 質問者: gooooooooooooooooo
ベストアンサー
2
0
-
Fitbit one
Fitbit oneを使っています。 30秒毎の消費カロリーを取得したいのですが どのようにしたらいいのでしょうか?
質問日時: 2016/07/31 08:19 質問者: ehen2004
解決済
1
0
-
Perlについて
下記の変数からURL部分のみを抜き出すにはどう記述すれば良いでしょうか? $url = <a href="http://URL/" target="_blank"> 抜き出したい文字列「http://URL/」
質問日時: 2016/07/25 08:14 質問者: lasdfasdfas
ベストアンサー
1
0
-
ファイル名の文字コード(?)と文字化け(?)について
windows7にてopendirを実行し、 僒僀僐僶僗僞乕僘_001.jpg ※ここに書いたら文字化けしてるかも などのファイル名が入ったフォルダを読み取ると、 "僞乕僘~1.JPG" や "僞EE94~1.JPG" などのもとのファイル名とは違う文字列(と言うよりおそらくバイナリ自体がすでに違う)を得られます。 これについて困ってますが、解説や解決法、その他、なんでもいいのでお助け下さい。 (よくわかりませんが、もしかしてwindows先生に問題があるのではないかと言う疑いを持ちはじめても居ます。が、結局よく分かりません)。
質問日時: 2016/07/20 18:23 質問者: TANUKIA
ベストアンサー
2
0
-
Perl UTF8で出力
Perlで Shift-JIS形式のファイルを読み込み、その内容をUTF8形式のHTMLファイルに保存する場合どのように処理したら良いのでしょうか? 下記のような処理だと文字化けしてしまいます。 ---Shift-JISのファイルを読み込む open(IN,"$file"); @list = (<IN>); close(IN); ---内容を$htmlにセットして ---UTF8形式で書き出したい open(OUT,">$file"); print OUT $html; close(OUT);
質問日時: 2016/07/17 08:30 質問者: lasdfasdfas
ベストアンサー
3
0
-
Perlについて
$dm = subsrt($ttl,0,40); この文で処理が止まるって何が考えられますか? ※WEB用のCGIなんですが、この文で表示が止まります。
質問日時: 2016/07/16 20:06 質問者: lasdfasdfas
ベストアンサー
3
0
-
foreach内での変数の扱い?
perl初心者です。 大量のデータファイルを自動的に同じ処理をかけたく、プログラムを書いています。 しかし、foreach内でUse of uninitialized value というエラーが出てしまい動きません。 どうぞお知恵を貸していただければ幸いです。 どうぞよろしくお願いします。 +++++++++++++++++++++++++++++++++++++ ・以下の処理の前に、あるディレクトリ内にある圧縮ファイルをglobで集め、 @M_raw_data に入れてあります。 ・ファイルネームが内容.拡張子となっています。 この後で各ファイルの処理結果を"内容"が名前のディレクトリに格納させたいため、$dir_nameに入れようとしています。 ・最後のprintですが、本当は、systemを使って コマンド 出力先ディレクトリ(”内容”) 処理したいファイル($Mm_file) とするつもりです。テストでprintとしています。 foreach my $M_file (@M_raw_data){ my @split_filename = undef; my $dir_name = undef; @split_filename = (/./,$M_file); $dir_name = $split_filename[1]; print $M_file; print $split_filename[1]; print $dir_name; } エラー: Use of uninitialized value $_ in pattern match (m//) at プログラム名 line 28. Use of uninitialized value in print at プログラム名 line 32. Use of uninitialized value $dir_name in print at プログラム名 line 33. で、それぞれ問題の行は @split_filename = (/./,$Mm_file); print $split_filename[1]; print $dir_name; です。
質問日時: 2016/07/01 16:10 質問者: クークー
ベストアンサー
3
0
-
自作のCGIの処理でお尋ねしたいんです
現在自作の「なっちゃてRPG」と言う掲示板的な物を作っているのですが、 レベルアップでの処理に関して質問って言うか、 処理的に適切なのか、もしくは、もっと良い方法があるか教えてほしいのです。 登録者のデータは、 一行で1人のデータとしています。 データの要素に、変数、$p_lv≒レベル、$p_ex≒経験値、$p_job≒職業・・・・あと省略 #▼別ファイルで定義▼ 職業を登録時に9種類(男女別)計18から選べるようにしています。 でぇ、各職業の経験値を「多次元配列」で定義しています。 $EX = [ ['','12','36','84','あと省略・・・99まであります。'], ['','14','42','98','同上'], ['','15','45','105','同上'], ['','13','39','78','同上'], ['','18','54','126','同上'], ['','10','30','70','同上'], ['','11','33','77','同上'], ['','20','60','140','同上'], ['','29','87','174','同上'] ]; #戦う相手のステータス %MONSTER = ( "0" => { NAME => "モンスター1", GOLD => "2", EX => "1" }, "1" => { NAME => "モンスター2", GOLD => "3", EX => "1" }, "2" => { NAME => "モンスター3", GOLD => "3", EX => "2" }, "3" => { NAME => "モンスター4", GOLD => "5", EX => "3" }, 以下省略・・・・・ ); #▲別ファイルで定義▲ #▼レベルアップ処理▼ #数値から、経験値の判定用の変数 JOB:{ if($p_job eq "17" || $p_job eq "16"){ $job_choice = 8; last JOB; } if($p_job eq "15" || $p_job eq "14"){ $job_choice = 7; last JOB; } if($p_job eq "13" || $p_job eq "12"){ $job_choice = 6; last JOB; } if($p_job eq "11" || $p_job eq "10"){ $job_choice = 5; last JOB; } if($p_job eq "9" || $p_job eq "8") { $job_choice = 4; last JOB; } if($p_job eq "7" || $p_job eq "6") { $job_choice = 3; last JOB; } if($p_job eq "5" || $p_job eq "4") { $job_choice = 2; last JOB; } if($p_job eq "3" || $p_job eq "2") {$job_choice = 1; last JOB; } if($p_job eq "1" || $p_job eq "0") { $job_choice = 0; last JOB; } } #▼変数$job_choiceから、経験値を計算する if($job_choice eq "8") { $lv_up_ex = $EX->[8][$p_lv]; } elsif($job_choice eq "7"){ $lv_up_ex = $EX->[7][$p_lv]; } elsif($job_choice eq "6"){ $lv_up_ex = $EX->[6][$p_lv]; } elsif($job_choice eq "5"){ $lv_up_ex = $EX->[5][$p_lv]; } elsif($job_choice eq "4"){ $lv_up_ex = $EX->[4][$p_lv]; } elsif($job_choice eq "3"){ $lv_up_ex = $EX->[3][$p_lv]; } elsif($job_choice eq "2"){ $lv_up_ex = $EX->[2][$p_lv]; } elsif($job_choice eq "1"){ $lv_up_ex = $EX->[1][$p_lv]; } else{ $lv_up_ex = $EX->[0][$p_lv]; } $rands_monster = int(rand(134)); #経験値の数値を取得する $exr = $MONSTER{$rands_monster}{EX}; #投稿者の経験値と今回得た経験値の数値を足す $p_ex += $exr; #レベルアップしたかを判定するフラグ初期化 $lv_up_flg = 0; #経験値を別の変数へ代入「$p_exは累計数値にして行くので」 $temp_ex = $p_ex; #レベルが99以下だった場合に処理 if($p_lv < 99){ #上記で足した経験値と職業での経験値が同じか、以上なら、処理する while($temp_ex >= $lv_up_ex){ $temp_ex = $temp_ex - $lv_up_ex; $p_lv++; $lv_up_flg++; } } #▲レベルアップ処理▲ 以上なのですが、いかがでしょうか? 後の処理とかファイルに書き込む処理は、問題ないのですが、 上記の部分だけ、自身が無いので、 いちをローカルでは、テストしているのですが・・・・・・ もし良かったらアドバイスお願いします。
質問日時: 2016/06/29 17:52 質問者: 麝香猫
ベストアンサー
2
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
-
中古物件転売時の節税対策にメス?不動産投資家は戦々恐々?元国税が解説
不動産の取引において、土地と建物を一括で売買する場合、土地に消費税はかからないが、建物には消費税がかかる。これを利用して、例えば土地と建物を合計1億円で売る場合、土地の値段を9999万9999円にし、建物を1円...
-
話題の「風呂キャンセル界隈」、お風呂に「入らない」のではなく「入れない」?
皆さんは、「風呂キャンセル界隈(かいわい)」という言葉を聞いたことはあるだろうか。「お風呂に入らない(入れない)人」のことで、最近ネット上などで話題になっているようだ。「教えて!goo」にも、「風呂に入...
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perlのエラーについてご教授くださ...
-
bashスクリプト
-
Strawberry Perl for Windows で Ou...
-
perlで文字の置換又は抽出に関する質問
-
perlの構文でカンマの意味が分からない
-
サクラエディターの設定の仕方をお...
-
perl このテキストファイルを簡単に...
-
Raspberry Pi
-
VB.net
-
テキストファイルで提出とは?
-
perl 正規表現でエラー
-
Perlで、「が」を、「が」...
-
プログラミングでポインタの勉強を...
-
perlで自動ログインをしたいが、方...
-
Perl言語について。
-
perlで2次元配列をサブルーチンに...
-
画像が表示でnull; this.src
-
Perlで特定文字列から特定文字列ま...
-
C言語の問題について
-
PerlでUTF-8のファイルの文字列置換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
perlをバージョンアップしたら、今...
-
openした後、closeしないでプログラ...
-
アルファベットに付いて質問します...
-
Strawberry Perl for Windows で Ou...
-
bashスクリプト
-
Perlのエラーについてご教授くださ...
-
Perlで特定文字列から特定文字列ま...
-
画像が表示でnull; this.src
-
Wallpaper Engineでおすすめの壁紙...
-
Perl言語について。
-
perl LWPでURLにアクセスした時にデ...
-
Perlで時間の計算
-
Perlで、「が」を、「が」...
-
ファイルアイコンの左下に緑の□の中...
-
Perl の外部モジュールの利用方法
-
このファイルを開く方法で困ってい...
-
perlで2次元配列をサブルーチンに...
-
Windows10においての『Perl』のプロ...
おすすめ情報