回答数
気になる
-
<単安定マルチバイブレータ> 単安定マルチバイブレータの出力信号のパルス幅は、 入力信号の周波数に関
<単安定マルチバイブレータ> 単安定マルチバイブレータの出力信号のパルス幅は、 入力信号の周波数に関係があるのか教えて下さい。 URLなどの回答は結構です。 文字での回答をよろしくお願い致します。
質問日時: 2017/11/27 21:28 質問者: KiRiaKa
ベストアンサー
2
0
-
perlの記述方法について
if($str eq "AB" || $str eq "CC" || $str eq "DD"){ print "OK"; }else{ print "NG"; } if( $str eq "AB" || $str eq "CC" || $str eq "DD" ){ となれば、ひと目でどれにマッチすればOKなのか分かるのですがコンパイラーが通らないと思います。良い記述方法はありますか?
質問日時: 2017/11/17 01:24 質問者: teii0
ベストアンサー
2
0
-
キッチンカウンターをつくります。しばらくぶりに仕事復帰し、わからないとはいいづらく…コーナーrをいく
キッチンカウンターをつくります。しばらくぶりに仕事復帰し、わからないとはいいづらく…コーナーrをいくつにしたらよいか、一般的な数字を教えてください!
質問日時: 2017/11/14 08:55 質問者: fuuuuko
解決済
3
0
-
perlで複数のファイルの処理について悩んでいます。
perl初心者です。複数のファイルの処理について悩んでいます。 text-a ab ac bc text-b a,1 b,2 c,3 とのような二つのテキストファイルで、 text-aの文字の中に、text-bの左の文字が含まれているとき text-bの該当する文字の右側の数字を足して、text-aの右側に加えて書きだしたいです。 この例だと ab 3 ac 4 bc 5 という風にしたいです。 open closeなどは省いています。text-aは実際は他にも情報があって、その分プログラムが多くなっていますが、$a1 = text-a の文字の部分になるようにしています。 while($str = <FILE_IN1>){ chomp($str); @tmp = split(/\t/, $str); @tmp1 = split(/,/, $tmp[0]); @tmp2 = split(/,/, $tmp[1]); $a1 = $tmp1[0]; while($str0 = <FILE_IN2>){ chomp($str0); @tmp0 = split(/,/ , $str0); @b1 = @tmp0[1]; @b2 = @tmp0[2]; if($a1 =~ /$b1/){$a2 += $b2;}} print FILE_OUT1 "$a2,$a2\n"; } というプログラムを書いたのですが、数字を足して書き出す部分が上手くいかず、何故よくないのかさえわからない状態です...。 ご教示お願いします。
質問日時: 2017/11/13 00:36 質問者: hinata_coco
ベストアンサー
4
0
-
CGIで取得したデータをjavaに送る際に計算されてしまう
下記のようなCGIでテキストを読み込んだテーブルがあり、読み込んだ配列(テキストの1行分)のデータごとにボタンがあります。 print "<script type=\"text/javascript\">\n"; print "function chkbtn(abc) {\n"; print "alert(abc);\n"; print "}\n"; print "</script>"; $file = "../csv/data.csv"; print "<table table-layout:fixed; width=\"1540\">\n"; open (IN, $file) or die "$!"; while (<IN>) { chomp; @data = split(/\t/, $_); print "<td><input type=\"button\" onclick=\"chkbtn($data[0])\"</td>\n"; } print "</tr>"; print "</table>\n"; close (IN); テーブルのボタンを押下すると、ファイルから取得した$data[0]が、javaのabcに入り alretで表示させてみます。 $data[0]の値が、「02222-01」のような値になっていた場合、「2221」と表示されてしまいます。 たぶん、2222-1=2221 という風に計算されてしまっているからだと思うのですが、これを正しく「02222-01」と表示させることができません。 どのようにしたら正しく表示させることができるのでしょうか。 どなかかお詳しい方、ご教授いただけないでしょうか。
質問日時: 2017/11/03 10:33 質問者: Nlceshot
ベストアンサー
3
0
-
Windows版のPerlについて
Windows版のActivePerlを使用したスクリプトをWindowsServer上で動かしていました。 サーバーの移転に伴い、新しいサーバー上に最新版のPerlを入れて移行しようとしたところ、困った問題に遭遇しました。 このスクリプトの中では、MIME-Base64やlibnetといったパッケージを追加インストールしていたのですが、最新版のActivePerlにはこれらが標準で含まれていないようなのです。 libnetで検索すると、Activeperlのサイト内でダウンロードできるようですが、Business版を購入しないと駄目なようです。 今まで無償のComminityEdition版を使用していたため、このままでは移行が出来なくなりました。 業務で使用しているものにFree版を使うこと自体拙いとは思うのですが、999ドルと結構なお値段になっています。 StrawberryPerlも無償で使えるようですが、これらのパッケージは入っていないようなので、どこかから入手しないといけないようです。 知識が無いので、ネット上で検索して調べているのですが、これだけのためにLinux上でPerlを動かすのも困るので、どうしてもWindows上で動作させたいのです。 Windows版のPerlをバイナリで提供しているようなサイトはあるのでしょうか? もしくは、ソースを入手してコンパイルすればよいのでしょうか? そこまでやったことが無いので、方法が解説されているサイトだけでも教えて頂ければ有難いです。 よろしくお願いします。
質問日時: 2017/10/31 09:05 質問者: hatsuzo
ベストアンサー
2
0
-
Perl LINE(チャット) 仕組み
LINE(自動更新チャット)の仕組みについて教えてください。 LINEのように、相手側が入力すると 自分側が、LINE開いたままでも、 常に更新されているのは、どのような仕組みでしょうか? 私は、普通の掲示版は作れるようになりました。 そこで、その掲示版に、他ユーザーが入力更新すると、 見ている他ユーザーの画面も更新させるとなれば 難しいのでしょうか? これはPerlというよりHTMLのメタやjavascriptになるのでしょうか? ■HTML <meta http-equiv="Refresh" content="1"> ↑これのスパンを短くするとか? ■JavaScript <script language="javascript"> <!-- function rld(){ location.reload(); } function timset(){ var tid = -1; tid = setTimeout("rld()",1000); } //--> </script> </head> <body onLoad="timset();"> これらですと、更新はされるようですが、 ※画面のチラツキが気になりますが。。。 常に更新されている形なので、サーバー側やユーザー側に 負荷がかかるように思います・・・ 質問① 上記のようなことを、 サーバー、ユーザーに負担をかけず、LINE風にすることは できますか? 質問② 私の認識がまだ曖昧なものが多く、上記のような認識 で合っていますか・・・? 質問③ これが、本題になるかな? サーバー側で、掲示版が入力されたとき、 ページを更新させるようにしたいです。 難しいでしょうか・・・? これはサーバー側になるので、CGIのほうがいいかなと思いました
質問日時: 2017/10/19 09:51 質問者: century9218
解決済
1
2
-
Perl SendMail Bcc メルマガ
Perlでメールについて教えてください。 メルマガっぽい仕組みを考え中です。 ほとんどできております。 HPで、ブログを更新すると、登録してるアドレス複数に 送信するということです。 例----> $Bcc = 'a@domain.jp,b@domain.jp'; 下記がソース #!/usr/bin/perl -w use MIME::Base64 qw/encode_base64 decode_base64/; use Encode qw(from_to encode); use Encode('decode', 'encode'); print "Content-type:text/html\n\n"; $sendmail = '/usr/sbin/sendmail'; $from = 'info@domain.ne.jp'; $to = 'info@domain.ne.jp'; $bcc = 'a@domain.jp,b@domain.jp'; #<---ここに複数のアドレスが入るようにする #登録しているアドレス、この辺は、テキストから読み込むようにします。 $subject = 'メール配信'; $subject = decode('UTF-8',$subject); $subject = Encode::encode('MIME-Header-ISO_2022_JP', $subject); $msg = <<"_TEXT_"; メール配信 _TEXT_ open(SDML,"| $sendmail -t -i") || die 'sendmail error'; print SDML "From: $from\n"; print SDML "To : $to\n"; print SDML "Bcc: $bcc\n"; print SDML "Subject: $subject\n"; print SDML "Content-Transfer-Encoding: 8bit\n"; print SDML "Content-Type: text/plain;\n\n"; print SDML "$msg"; close(SDML); 1; ※このソースは動いております 質問① --> Bccに送れる数というのは決まっているのでしょうか? もしくは、サーバーで決められているとか? ※あまり大量に1回で送るとサーバーに負担が...とか 決められている場合、Loop処理にて、 例えば、1行目~10行目に送信し、次に11行目~20行目... とかでも問題ないでしょうか? 質問② --> このBccは、他からは見えないですよね? 一応見えないことは確認はしたのですが・・少し不安・・ 質問③ -- このソースで、特に間違いとかはないでしょうか・・・? また、メルマガシステムとしては、このような 感じで、大丈夫でしょうか?
質問日時: 2017/10/17 14:54 質問者: century9218
ベストアンサー
1
1
-
Perl 順位の重複
教えてください! Ten.txt 1,50 2,50 3,50 4,50 5,60 open(F, "<","Ten.txt") or die("error :$!"); flock(F, 1); @DATA = <F>; close F; @DATA = sort { (split(/,/,$b))[1] <=> (split(/,/,$a))[1]} @DATA; #ここで点数を降順で並び替え #結果 #5,60 #1,50 #2,50 #3,50 #4,50 for ($i=0;$i<=$#DATA;$i++){ $DATA = $DATA[$i]; chomp($DATA); my ($NO,$TEN) = split(/,/, $DATA); $SSS = $i + 1; push(@Rank,"$NO,$TEN,$SSS\n"); } @Rank = sort { (split(/,/,$a))[0] <=> (split(/,/,$b))[0]} @Rank; #ここで再度NO順に戻します print @Rank; #1,50,2 #2,50,3 #3,50,4 #4,50,5 #5,60,1 この時、単純に点数を降順で並び替え 上から、番号を振っているだけで、当然 このような結果となります。 しかし、今回の質問は、 重複した点数の場合は同じ順位としたいです。 ↓↓このような結果になってほしいのですが、 1,50,2 2,50,2 3,50,2 4,50,2 5,60,1 $SSS = $i + 1; この部分を変更させるのでしょうが どのように変更すればいいのでしょうか? ※例の場合は4つとなってますが、重複する 数は不明です
質問日時: 2017/10/12 10:43 質問者: century9218
ベストアンサー
3
1
-
Perl 順位の重複
教えてください! open(F, "<","Ten.txt") or die("error :$!"); flock(F, 1); @DATA = <F>; close F; @DATA = sort { (split(/,/,$b))[1] <=> (split(/,/,$a))[1]} @DATA; #ここで点数を降順で並び替え #結果 #5,60 #1,50 #2,50 #3,50 #4,50 for ($i=0;$i<=$#DATA;$i++){ $DATA = $DATA[$i]; chomp($DATA); my ($NO,$TEN) = split(/,/, $DATA); $SSS = $i + 1; push(@Rank,"$NO,$TEN,$SSS\n"); } @Rank = sort { (split(/,/,$a))[0] <=> (split(/,/,$b))[0]} @Rank; #ここで再度NO順に戻します print @Rank; #1,50,2 #2,50,3 #3,50,4 #4,50,5 #5,60,1 この時、単純に点数を降順で並び替え 上から、番号を振っているだけで、当然 このような結果となります。 しかし、今回の質問は、 重複した点数の場合は同じ順位としたいです。 ↓↓このような結果になってほしいのですが、 1,50,2 2,50,2 3,50,2 4,50,2 5,60,1 $SSS = $i + 1; この部分を変更させるのでしょうが どのように変更すればいいのでしょうか? ※例の場合は4つとなってますが、重複する 数は不明です
質問日時: 2017/10/12 10:24 質問者: century9218
ベストアンサー
1
0
-
Ubuntuのインストールについて
こんにちは。 この度、windows7proの入っていたpcにubuntu16.04をインストールしようとしたところ、 「UEFIインストールを強行しますか?」 という警告が表示され、戻ればよいのかUEFIモードにとどまればよいのか分からず、怖くなり作業を中断しています。 windowsのOSを完全に削除してUbuntu専用機にしようとしています。 この場合はどちらを選択すればよいのでしょうか?
質問日時: 2017/10/04 20:45 質問者: .9
ベストアンサー
1
0
-
Perl n列目の最小値 条件付き
場所(3列目),タイム(6列目),順位(9列目) 場所A,1:54.7,2 場所A,1:52.5,4 場所B,1:51.8,2 場所A,1:57.1,4 場所B,1:51.5,1 場所B,1:49.8,1 このときに 2行目~最終行までで 場所Aでの最小値「1:52.5」 場所Bでの最小値「1:49.8」 場所Aでの3位以上の率「33.3%」 場所Bでの3位以上の率「100%」 これの求め方を教えてください!
質問日時: 2017/10/03 16:24 質問者: century9218
ベストアンサー
2
2
-
Perl 正規表現
教えてください! 下記の変数を並び替えるものです。 $test= "・・・1,2,fds,vdd,山田,27,1,cwe,fe,山本,2,1,bugb,vrc,山地,2,1,bugb,vrc,山井,・・・"; この変数に文字列を ↓ ・・・ 1,2,fds,vdd,山田, 1,2,cwe,fea,山本, 2,1,bugb,vrc,山地, 2,1,bugb,vrc,山井, ・・・ ※・・・は、同じような形が続いていて $testはその中のもの 途中まで考えてみたのですが わからなくなりました・・・ $test =~ s/([^A-Za-z0-9]),([0-9]+),([0-9]+)/$1\n$2,$3/g; 確定されてる要素は 名前,数字,数字です
質問日時: 2017/09/29 09:34 質問者: century9218
ベストアンサー
1
1
-
Perl テーブル内の文字列取得 正規表現
正規表現で <!DOCTYPE html> <html> ・ ・ ・(略) <table> <th>123</th> <td class="123">123</td> <th>456</th> <td class="456">456</td> <th>789</th> <td class="789">789</td> </table> </html> このHTMLソースが $TABLEに入っているとき、 まず上記のテーブルから <td class="123">123</td> <td class="456">456</td> <td class="789">789</td> <td>??</td>を抽出し さらに、そこから 123,456,789 と、このように<td>間にある、文字列を カンマ区切りでしたいです。 お力添えをお願い致します。
質問日時: 2017/09/26 10:37 質問者: century9218
ベストアンサー
4
1
-
Perl HTML解析
教えてください! サイトのHTML内の <div class="CaseW1">テスト</div> このテストを抽出し、test.txtに保存させたいのと、 ClassのCaseW1の「W1」だけ抽出させたいです。 ※Caseは共通(CaseW2やCaseW3といった感じ) どのようにするのでしょうか?
質問日時: 2017/09/21 10:38 質問者: century9218
解決済
4
1
-
Perl CSVファイルの複数条件での検索
はじめまして Perl初心者です。 どうかご教示お願い致します。 20,a,12,34 19,a,12,34 18,a,12,34 17,a,12,34 16,a,12,34 15,a,12,34 14,a,12,34 13,a,12,34 12,asa,12,34 11,a,12,34 10,sasaa,12,34 9,a,12,34 8,asa,test,34asa 7,a,12,34 6,a,12,34 5,a,20,34 4,a,12,34 3,a,12,34 2,a,12,34 1,a,12,34 このようなCSVファイルがあり 1列目が「asa] 2列目が[test] が一致する、3列目[34asa]を抽出させたいのですが どのようにするのでしょうか?
質問日時: 2017/09/20 10:49 質問者: century9218
ベストアンサー
6
1
-
arduinoを使ってプログラミングしてるのですが、二つのプログラミングを一つにするって可能ですか?
arduinoを使ってプログラミングしてるのですが、二つのプログラミングを一つにするって可能ですか? ちなみに一つにしようとしているのは、 距離センサーとジョイスティックでモーター制御をするプログラムです
質問日時: 2017/09/13 19:15 質問者: アカ石
ベストアンサー
1
0
-
フォートランかperl
フォートランかperlに詳しい方!!! 至急お願いします 番号 値1 個数 値2 1 25.66536 1 23.80859 2 18.05863 2 12.68658 : 18 21.52863 1 19.85555 18 20.96528 2 19.85555 18 21.25368 3 19.85555 18 20.89652 4 19.85555 : 24 … このようなテキストデータがある場合、 同じ番号で、かつ、個数が2以上の場合は 値1を個数分だけ足して個数で割り その平均値のみを新しいテキストデータに書く作業を 各行で行うプログラムを教えてください。 例えば番号18の場合は、 (21.52863+20.96528+21.25368+20.89652 )/4 を行い、その平均した計算結果のみを新しいテキストデータに書く、それを各行行いたいです。 個数が1の時は平均しないでそのまま新しいテキストデータに書いてください また、平均した値1の隣に値2を書いてください m(_ _)m !!値2は、値1の個数分は同じ数なので、 値2は平均した値1の横に新しいテキストデータとして各行出力してください!!
質問日時: 2017/09/12 20:45 質問者: ktjdwgbtletv
解決済
1
0
-
Perl 仮登録、本登録システムについて
当サイトに設置しようと考えているのですが、 つまずいたので教えてください。 登録フォームから仮登録(karientry.cgi) ↓ 内容入力(Addressなど) ↓ 仮パスワードの自動生成 仮パスワード.txtを生成し、一時的に、そこに内容を保存 ↓ 入力されたAddressに返信 内容は以下 ・入力された内容 ・entry.cgiへのURL ・仮パスワード ↓ entry.cgiへログインし本登録 この流れである程度できてきたのですが、 このentry.cgiにログインするときに、 仮パスワードのデータを持ち込ませたまま? ログインさせていのですが、 どのようにするのでしょうか??? entry.cgi?kari=仮パスワード みたいな形になるのでしょうか? これの目的としては、 entry.cgi に入ったときに 一時的に仮登録している 仮パスワード.txt をオープンさせ、 内容を確認してもらいたいからです・・・ 簡単ないうと entry.cgiに入ったときに 仮パスワード.txtをオープンさせたい ※仮パスワードは、なにかわからない
質問日時: 2017/09/12 12:45 質問者: perlmanman
ベストアンサー
1
1
-
どこがおかしいのか教えてください。
ファイルで file170901.jpg file170902.jpg file170903.jpg file170904.jpg ・ ・ ・ file170908.jpg とあってこれは170908部分は日付なので 当日170908以外のファイルを消したいので (当時以外の31日前からのファイルを削除しようとしています) 下記のコードを書いたのですがうまくいきません どこがわるいのでしょうか? 教えてください。 -------------------------------------------------- #!/usr/local/bin/perl for($cnt = 31 ; $cnt = 1 ; $i = $i - 1) { $tm = time - $cnt * 60 * 60 * 24; ($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime($tm); $nitizi = sprintf("%02d%02d%02d",($year+1900)-2000,$mon+1,$mday); $setfile = './file'.$nitizi.'*.jpg'; #unlink glob($setfile); } exit;
質問日時: 2017/09/08 14:34 質問者: Fit3044
ベストアンサー
3
0
-
Perl crypt パスワード 暗号化について
$FORM = "password"; #入力されたPASS $ANGO = crypt ($FORM,"PS"); #入力されたPASSを暗号化 $PASS = 'PSL1o1zMHdUNY'; #暗号化したPASSを予め設定 if ($PASS eq $ANGO){$view = "正しいパスワードです。";} else{$view = "パスワードが違います。";} print "・結果:$view\n・暗号:$ANGO\n・パス:$FORM"; 出力結果・・・ ・結果:正しいパスワードです。 ・暗号:PSL1o1zMHdUNY ・パス:password この入力されたパスワードが 「password」ならOK 「passwor」はNG 「password321」はOK crypt関数は8文字までとかなのでしょうか・・・? 10文字とかにする方法はないでしょうか? ※入力されるのは1つのテキストボックスから <input type="password" name="pass">
質問日時: 2017/09/01 12:54 質問者: perlmanman
解決済
2
0
-
perlで文字の置換又は抽出に関する質問
perlで文字・数字の置換又は抽出に関する質問です。 print $line,"\n"; で文字を出力すると 29日(日) 30日(月) 1日(火) 2日(水) ・・・ のように出力できています。 これを以下のように出力したいと思っています。 1日目文字列:29日(日) 1日目日付:29 1日目曜日:日 2日目文字列:30日(月) 2日目日付:30 2日目曜日:月 3日目文字列:1日(火) 3日目日付:1 3日目曜日:火 ・・・ 日付のみの抽出、曜日のみの抽出はどのようにすればいいでしょうか。 教えてください。よろしくお願いします。
質問日時: 2017/08/08 02:07 質問者: yyy100009
解決済
10
0
-
Perl 特定の行の特定列の、X列に文字列
はじめまして。 ご教示おねがいします。 5,15453432,text5,title5,pass5,ip5,count5,new3 4,15453321,text4,title4,pass4,ip4,count4,new4 3,15453311,text3,title3,pass3,ip3,count3,new1 2,15453231,text2,title2,pass2,ip2,count2,new2 1,15453190,text1,title1,pass1,ip1,count1,new5 このようなテキストファイルがあり 例えばこれを 5,15453432,text5,title5,pass5,ip5,count5,new3 4,15453321,text4,title4,pass4,ip4,count4,new4 3,15453311,text3,title3,pass3,ip3,count3,new12345 2,15453231,text2,title2,pass2,ip2,count2,new2 1,15453190,text1,title1,pass1,ip1,count1,new5 3行目の2列目「15453311」というのを探し 8列目の「new1」→「new12345」 という風に、 2列目の値が一致し、その8列目を入れ替える ことをしたいのですが、どうするのでしょうか?
質問日時: 2017/08/05 09:03 質問者: perlmanman
解決済
1
2
-
Perl ご教示お願い致します。
教えてください。 <input type="hidden" name="page" value="$PAGE"> ※<p>タグ内の1=($PAGE(50)/50) <p>1ページ目</p> <button name="front" value="-50" onclick="location.href='bbs.cgi">前へ</button> <button name="next" value="+50" onclick="location.href='bbs.cgi">次へ</button> 最初に、bbs.cgiを開いた時は、1の状態 hiddenのvalueの値が50 で「次へ」ボタンを押すと、 hiddenのvalueの値が100になり (2=次へのValueの値50+$PAGE(100)/50) となり、さらに2ページで「次へ」を押すと hiddenのvalueの値が150になり (3=次へのValueの値50+$PAGE(150)/50) 前へはその逆のこと。 まずやりたいこと ①最初にbbs.cgiに入ったときのhiddenの値は50 ②次へを押して行くとhiddenの値は、+50ずつあがっていく (前へは-50) このようなことをしたいのですが、どのようにすればいいのでしょうか?
質問日時: 2017/07/28 09:26 質問者: home321
解決済
3
0
-
MediBang Paint Proについて
私は今MediBang Paint Proというソフトを使っており、ペンタブを使用して使おうと思っていたのですが、描いてみたところ、線を書くたびに最初太くなってしまうのが、とても気になります。 僕にとっては凄く邪魔でしかないので、全体的に細くする方法などを、教えてくださいm(*_ _)m
質問日時: 2017/07/27 00:06 質問者: ヨシタケ
解決済
1
0
-
Perl 掲示板 先頭ページについて
質問連投申し訳ございません。 さきほどソートについては解決致しました。 下記のソースで昇順降順は操作できるようになりました open(FILE, "<$BBSLOG") or die("error :$!"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; if($start > @DATA) {$start = @DATA;} $next = $start + 50; $back = $start - 50; if ($back < 0) { $back = 0; } @DATA = sort { (split(/\,/,$a))[0] <=> (split(/\,/,$b))[0] } @DATA; for ($i=$start;$i<$next;$i++){ last if ($i > @DATA); $data = $DATA[$i]; 現在これで 例) 1~200の投稿があり この状態で表示すると 1ページ目:001~049 2ページ目:050~099 ・ ・ 4ページ目:150~199 5ページ目:200 という風に表示されます。 そこで、 この掲示板に入ると 1ページ目が表示されるわけですが、 これを掲示板に入ると 、最新の200ページ(5ページ)を表示させるようにしたいのですが できますでしょうか?
質問日時: 2017/07/20 14:42 質問者: home321
ベストアンサー
3
0
-
Perl 掲示板 並び替えについて
掲示板で現在 最新No=200だったとき 1ページ目 200 199 198 197 196 ・ ・ ・ 151 2ページ目 150 149 148 147 146 ・ ・ ・ 101 以下1まで・・・ のよう降順で表示しているのですが これを 1ページ目 151 152 153 154 155 ・ ・ ・ 200 2ページ目 101 102 103 104 105 ・ ・ ・ 150 このようにページごとに昇順としたいのですが、 どのように処理するのでしょうか? 以下、 関係しそうな処理の部分抜粋・・・ ※現在のソースです。 open(FILE, "<$BBSLOG") or die("error :$!"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; if($start > @DATA) {$start = @DATA;} $next = $start + 50; $back = $start - 50; if ($back < 0) { $back = 0; } for ($i=$start;$i<$next;$i++){ last if ($i > @DATA); $data = $DATA[$i]; my ($BBSNO,$tm,$NAME,$TITLE,$TEXT) = split(/,/, $_); 以下各カンマ区切りの文字を表示 $BBSNO・・・$tm・・・$NAME・・・$TITLE・・・$TEXT
質問日時: 2017/07/20 12:24 質問者: home321
ベストアンサー
1
1
-
windows7 でプログラムをしていると『too many open files』 とでます。
windows7 でプログラムをしていると『too many open files』 とでます。 プログラムの途中で1000個ほどprnファイルを開いたあたりでこのエラーが出てきます。 他のPCだと大丈夫だったのですが、自分のPCではこれが出てきます 開けるファイル数の上限を変更したいのですがやり方がわかりません
質問日時: 2017/06/28 18:37 質問者: クレラップNEW
解決済
1
0
-
Perlについて教えてください
$TEXT = "aaaaa「G123」"; $TEXT =~ s/(G123)(\d*)/<button name="NO" class="button" value="$2">G$2<\/button>\n/g; print qq($TEXT); 現在これで、G123が入力されたら、ボタンにするというのなのですが、 これだと $TEXT内は<aaaaa「G123」> なので、 <aaaaa<button name="NO" class="button" value="$2">G123<\/button>」> というように変換されます。 これを aaaaa+G123 ↓ <button name="NO" class="button" value="$2">aaaaa「G123」<\/button> ※aaaaaのとこはどんな文字でもいいように・・・ という風にしたいのですがどのようにすればいいのでしょうか?
質問日時: 2017/06/27 10:05 質問者: home321
ベストアンサー
4
0
-
スマホゲームやオンラインゲームなどの「サーバー」というものがよくわからないのですが、大規模な増設、増
スマホゲームやオンラインゲームなどの「サーバー」というものがよくわからないのですが、大規模な増設、増強を行うには大体どのくらいの期間が必要になるのでしょうか? 例えば、15万人程度のユーザーが安定して遊べるサーバーを150万〜200万人のユーザーが安定して遊べるサーバーにするにはどのくらいの期間が必要になるのでしょうか? 回答お願いします。
質問日時: 2017/06/10 17:19 質問者: syokupanana
ベストアンサー
1
0
-
perl メール 一斉送信プログラム
ご教示お願い致します ホームページからフォーム入力で自分のアドレスに お問い合せというプログラムはできたのですが、 ボタン1つで登録されているアドレスに一斉送信する方法がわからないです。 例えば登録のテキストがあり ~toroku.txt~ 名前,アドレス test,test@yahoo.co.jp test123,test123@yahoo.co.jp ・ ・ ・ 100件ほど(まだ増える・・・) この、カンマ区切り2列目のアドレス全てに 「新着記事更新」 というメールを送りたいのですが、どのようにすればいいのでしょうか? #アドレス my $from = '';#差出人 my $mailto = '';#受取人 my $mailcc = ''; #サブジェクト my $subject = '新着記事更新; $subject = decode('UTF-8',$subject); $subject = Encode::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=\"UTF-8\" Content-Transfer-Encoding: 8bit MAILHEADER #本文 my $newtext = '新着です'; #SMTP接続 my $smtp = Net::SMTP->new('ドメイン'); if ( !$smtp ) { print "メールサーバーにアクセスできません!"; exit; } $smtp->mail($from); $smtp->to($mailto); $smtp->to($mailcc); $smtp->to($subject); $smtp->data(); $smtp->datasend($header); $smtp->datasend("$newtext\n\n"); $smtp->datasend(); $smtp->quit; これだと、ホームページから自分のアドレスに受け取ることはできても 自分から送信というのができないです・・・ どうかご教示お願い致します・・
質問日時: 2017/06/01 09:41 質問者: perlhogehoe
解決済
3
0
-
このファイルを開く方法で困っています。
ウインドウズ10ですが、先日から急に 起動時に必ず「このファイルを開く方法を選んでください」という 小窓が出るようになってしまいました。 とりあえずメモ帳で開いてみましたが、メッセージを 消す方法を教えてください。冒頭が下記です。 === Verbose logging started: 2017/01/13 18:33:29 Build type: SHIP UNICODE 5.00.10011.00 Calling process: C:\Users\AKIRAM~1\AppData\Local\Temp\{F3565BDA-8CFF-472D-AB2F-07D07F1324D1}\setup.exe === MSI (c) (20:54) [18:33:29:120]: SOFTWARE RESTRICTION POLICY: Verifying package --> 'C:\WINDOWS\Installer\fb73565.msi' against software restriction policy MSI (c) (20:54) [18:33:29:120]: Note: 1: 2262 2: DigitalSignature 3: -2147287038 MSI (c) (20:54) [18:33:29:120]: SOFTWARE RESTRICTION POLICY: C:\WINDOWS\Installer\fb73565.msi is not digitally signed MSI (c) (20:54) [18:33:29:120]: SOFTWARE RESTRICTION POLICY: C:\WINDOWS\Installer
質問日時: 2017/05/29 22:54 質問者: Jemini0219
ベストアンサー
3
1
-
Unity5について質問です。 私はUnityほぼ初心者なので書籍の(Unity5 unityちゃん
Unity5について質問です。 私はUnityほぼ初心者なので書籍の(Unity5 unityちゃんで3Dゲーム講座という書籍でチャプター4のLESSON2のプレイヤーを移動させるというのをやってて (112~113ページです。)スクリプトファイルをつくり、修正するというところでスクリプトを本見ながら修正したのですがどうしてもエラーになってしまいます。 間違ってるところ、エラーの原因を教えてください。 プログラム自体初心者なのでエラー表示の英語を翻訳サイトで訳しましたがサッパリです。回答よろしくお願いします。
質問日時: 2017/05/25 16:17 質問者: ぜろおおおおお
解決済
1
0
-
python 3を使えるようになりたい
昔、チャットソフトや掲示板、CSVデータの分析でperlを使っていました。 その時は Perl/CGI逆引き大全600の極意 を全部読むとやりたいことは粗方できました。 そこで、pythonでもこのような本を探しているのですが見つかりません。 お薦めの書籍があれば教えて頂けると幸いです。 もしくは、正しいプログラミングの練習方法などあれば教えて頂けると幸いです。 perlについてですが、人の書いたソフトが殆ど別の言語を使っているかのように難しく殆ど読めませんでした。一応、動く物はできたのですが、独学としては失敗したと思っています。 宜しくお願い致します。
質問日時: 2017/05/21 00:05 質問者: elee_f
解決済
4
0
-
Perl 正規表現
いつもお世話になっております。 ご教示お願い致します。 $TEXT =~ s/>>|>>/<button>>><button>/g; テキストエリアに 「>>」or「>>」 が入力されたら、ボタンで表示する まではできたのですが、 「>>」or「>>」これらの後ろに数字を(※例「123」)入力し入力すると ↓ <button>>>123<button> と入力されるようにしたいのですが、 この「123」というのが、その時に入力された数字としたいのです。 これのやり方がわかならいです。。。 どうかご教示お願い致します。
質問日時: 2017/05/15 12:42 質問者: length8
ベストアンサー
2
0
-
Perl 記事の受け渡し
----------------------記事表示(kiji.pl)---------------------- open(FILE, "<$FILE") or die("error :$!"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; if($start > @DATA) {$start = @DATA;} $next = $start + 10; $back = $start - 10; if ($back < 0) { $back = 0; } for ($i=$start;$i<$next;$i++){ last if ($i > @DATA); $data = $DATA[$i]; my ($NAME,$TEXT) = split(/,/, $data); print <<HTML <input type="hidden" name="no" value="%04d"><br> 名前 $name(ほげほげ) 本文 $text(ほげほげテスト) <input type="button" value=" 編集ページへ" onclick="location.href='edit.pl'" /> HTML } ------------------------------------------------------------------ ----------------------記事編集(edit.pl)---------------------- print <<HTML <input type="hidden" name="no" value="%04d"><br> 名前 $name2(ほげほげ) 本文 $text2(ほげほげテスト) <input type="button" name="edit" value=" 編集"/> HTML ------------------------------------------------------------------ kiji.plの <input type="hidden" name="no" value="%04d"> の箇所部分の $nameと$textを edit.plの $name2と$text2へ受け渡しを したいのですが、どのようにすればいいでしょうか?
質問日時: 2017/05/10 15:11 質問者: perlhogehoe
ベストアンサー
1
0
-
フローチャート 九九
多重ループを使用せずに記述できる九九の表のフローチャートの書き方ってありますか?9つ同じフローチャートを書くしかないのでしょうか。
質問日時: 2017/05/07 12:27 質問者: sa__ku
ベストアンサー
3
0
-
perlの正規表現などを用いたテキストの整形について
サンプルデータ 試合日程 16日(火) 得点,18,失点,11,天気,313,気温,80 2日(火) 得点,18,失点,11,天気,313,気温,80 20日(土) 得点,18,失点,11,天気,313,気温,80 19日(金) 得点,18,失点,11,天気,313,気温,80 上のようなCSVファイルから 第一回目の日程:16日(火) 第一回目の日付:16 第一回目の曜日:火 第二回目の日程:2日(火) 第二回目の日付:2 第二回目の曜日:火 第三回目の日程:20日(土) 第三回目の日付:20 第三回目の曜日:土 といった具合にperlを使ってテキストを抽出したいと考えています。最終的には整形したデータをcsvファイルなどに吐き出したいと思っています。教えてください。
質問日時: 2017/05/06 20:47 質問者: yyy100009
ベストアンサー
3
0
-
Perlを使って評価を付けようとしています
Perlを使用しまして、以下の様な評価を自動処理したいと考えていますが、良い方法がありましたら教えてください。 例えば、5人の生徒に100点満点の国語のテストを受けてもらい、その点数の上位から10段階評価を付けていくとします ここで 生徒A:100点 生徒B:80点 生徒C:60点 生徒D:90点 生徒E:95点 として点数がバラバラの場合、生徒の名前の配列を点数で逆順ソートをして、点数の高い方から 生徒A:100点 → 評価10 生徒E:95点 → 評価9 生徒D:90点 → 評価8 生徒B:80点 → 評価7 生徒C:60点 → 評価6 という具合にしますプログラムは簡単に思いつきます しかし、 生徒F:100点 生徒G:100点 生徒H:90点 生徒I:95点 生徒J:95点 となった場合、 生徒F:100点 → 評価10 生徒G:100点 → 同点なので評価10 生徒I:95点 → 評価10が2人いるので評価8 生徒J:95点 → 同様に評価8 生徒H:90点 → 上に4人いるので評価6 としたい場合、生徒の名前の配列のソートだけでは実現しません ここで、何か良い関数ですとか、良い方法ですとかありましたら教えて欲しいです 配列を点数で逆順ソートした後で、配列から要素を1つ1つ取り出して、その点数の比較と同じ点数のカウント (点数が異なったらカウントをリセット)を地道に行なっていくしかないのでしょうか…
質問日時: 2017/05/06 18:30 質問者: risaghon
ベストアンサー
1
0
-
Perl 改行処理 と カンマ区切り
2点ご教示お願い致します。 1点目・・・ テキストエリア入力→投稿という 一言コメントを作成したのですが、 正規表現で、あることを防ぎたいのですが、 そのあることというのが 改行を3回以上したときに、2回までに制限させる?ことをしたいのです。 例)\n\n\n→<br><br> ←改行が3回以上続いた時、改行を2回までに・・・ $value =~ s/(\n\d\s){3,}/<br><br>/g; {3,}というのを指定するというのは、わかったのですが、使い方がわからない;; 2点目・・・ 一言コメントで テキストエリア入力投稿「本文」と名前を入力する形で 表示する際、 my ($NAME,$TEXT,$TIME) = split(/,/, $_); これで、カンマ区切りを指定しているのですが、 例えば、 本文などに「,」カンマ区切りしているカンマと同じカンマを(半角のカンマ) 本文に入ると この場合ですと、時間が表示されなくなります。 カンマで区切って、テキストファイルに区切るはずのカンマが増えたから 表示されないのはわかるのですが、 現在 $value =~ s/,/,/g; このように、半角カンマを全角カンマに変えるというださいことをしてます。 そこで、半角カンマでもしっかり表示される方法として、 カンマ区切りでは、できないですよね・・・・? タブ区切りのほうがいいのでしょうか・・・? my ($NAME,$TEXT,$TIME) = split(/\t/, $_);
質問日時: 2017/05/02 10:33 質問者: perlhogehoe
解決済
2
0
-
Perlで19時から23時までスリープさせたい どのように書くのがスマート?
スパイダーの動作で、ネットが重たくなりがちな時間帯には動作を遠慮しようと思っています。 その場合、下記のように書けば動作するとは思いますが、unlessと&&を使うと可読性というか意味を理解するのに時間がかかる気がします。もっと良い書き方はないものでしょうか? アドバイスいただけると幸いです。 for(;;){ for(;;){ my ( $sec, $min, $hour, $mday, $mon, $year, $wno ) = localtime(time); unless ( $hour >= 19 && $hour <= 23 ){ last; } sleep 1; } #スパイダーの動作 }
質問日時: 2017/04/29 12:05 質問者: shiki_05_0
解決済
3
0
-
[perl] perlで書き込み中に、PC再起動でファイルが壊れる。対策は?
Windows 7 + Active perlで何か書き込んでいる時にアップデートなどでPCを再起動すると、書き込んでいるテキストファイル(1KB~10MB程度)が壊れることがある様な気がします。あまり再現性が無くこれとは限らないのですが、時々真っ白のファイルができています。 かといって、全てのperlプログラムが書き込み状態にあるか否かを把握するのも面倒です。そもそも、条件に応じて書き込みしているため不定期でいつ書き込んでいるかもよく分かりません。 個人利用のため、その時に取得したデータが少し壊れる程度は諦めが付くのですが、大量に蓄積したデータまで破損するのは辛く避けたいです。 できれば簡易な方法でファイルが壊れないようにする方法はありますか? 殆ど使ったことが無くこういった雑な使い方でも良いのか分かりませんがSQLなど使うと良いのでしょうか?
質問日時: 2017/04/23 22:50 質問者: elee_f
解決済
4
0
-
perl qw 中でコメントアウトする方法はありますか?
perl qw 中でコメントアウトする方法はありますか? 例えばこんな感じでしたいと思っています。 my @url = qw( # 教えて https://oshiete.goo.ne.jp/ # ヤフー http://yahoo.jp/ );
質問日時: 2017/04/23 13:08 質問者: elee_f
解決済
1
0
-
Perlを使ったデータベースからファイルを取り出す方法について
皆さん、初めまして。おはようございます。 今、Perlを使ってデータベースからデータを取り出す簡単なシステムを作成しています。 今構築している方法ですと、PerlでSQLを流し、データを取得してファイル(テキスト) を作成し、それにリンクを張ったページを表示させダウンロードしてもらうやり方です。 デメリットとして、できあがったファイルがどんどん残ってしまう。(複数人が同時に 使用することを考慮してファイル名は一意になるように作成しています。) リンクを張ったページからダウンロードをせずに画面を閉じられてしまう。 といった問題があります。 Perlで実現可能かどうかということも含めまして、ファイル作成ボタン等を押すと、 内部的にファイルを作成し、ユーザーのPCにダウンロードまで行ってくれるような 方法があれば教えてください。 やりたいことは、データベースから取り出して作ったファイルはWEBサーバーに残さない。 ユーザーが確実にダウンロードをしてくれる(直接保存ができなくてもダウンロードしますか? のようなメッセージが出るようなものでもかまいません)ようにしたいということです。 皆様お忙しいと思いますが、お力添えをお願いします。
質問日時: 2017/03/30 09:19 質問者: ろいちゃん
解決済
1
0
-
Perl テキスト 重複 個数
ある書込ファイルでの重複した場合の処理・・・ ~text.txt~ 1490747427,あ,あ,あ,SrZqgZAs,1234 1490747417,あ,あ,あ,SrZqgZAs,1234 1490747071,7,7,7,SrZqgZAs,777 1490747041,6,6,6,SrZqgZAs,1234 1490747025,5,5,5,SrZqgZAs,1234 (左から「time,name,title,text,id,password」の順で並んでいます。) 今回、教えていただきたいことが、 次に入力する値が name = あ id = SrZqgZAs だった場合に、text.txtに すでに入力する値が、2回あるため 入力できないようにしたいのです。 そこで、 text.txt内にある name(あ) と id(SrZqgZAs) の個数を数える 方法をご教示お願い致します。 ※()内のnemeは my $NAME = $form->param('name'); と、CGI.pmで受け取った値 idは $ID = (※IPアドレスと時間による自動整正したソース)
質問日時: 2017/03/29 10:14 質問者: home321
ベストアンサー
3
2
-
Perl 数値変換
下記、16進数データをPerlで数値変換する方法が分からずに悩んでいます。 ※0xは16進数表記 0x00100C → +100 0x00100D → -100 0x00100F → 100 ご教授の程、宜しくお願い致します。m(_)m
質問日時: 2017/03/29 00:24 質問者: tsubakuro5010
ベストアンサー
5
0
-
Windows10のパソコンを先日購入しました。 dmm gamesでシャドウバースをインストールし
Windows10のパソコンを先日購入しました。 dmm gamesでシャドウバースをインストールしたいのですが、 ゲームダウンロードエラー「ゲームインストーラーの軌道に失敗しました」「再度ゲームのダウンロードからお試しください」となります。 また、デスクトップにdmm game playerを入れたのですが、「ユーザーアカウント制御」がでてきて、 「アプリがPCに変更を加えることを許可しますか?」と言うのが出てきます。はいを押すと「起動エラー」「dmm game playerはすでに起動されています。起動中のdmm game playerから操作してください。」と出てきます、、。 機械音痴で初めてのパソコンなので何が何だかわかりません泣 解決法を教えてください!! シャドウバースやりたい!泣
質問日時: 2017/03/28 21:50 質問者: azaleacurl
解決済
1
0
-
ラズベリーパイ初心者です。 ラズパイ3 でLチカに挑戦しているのですが、写真のプログラムをPytho
ラズベリーパイ初心者です。 ラズパイ3 でLチカに挑戦しているのですが、写真のプログラムをPython3で実行すると、アラームとなります。原因がわかりません。どなたかご存知の方教えてください。よろしくお願いします。 エラー内容 AttributeError:'module' object has no attribute 'wiringPiSetupGpio'
質問日時: 2017/03/26 02:16 質問者: よっしー3号
ベストアンサー
3
0
-
Perl cgi 編集&削除
いつもお世話になっております。 ご教示お願い致します。 下記のソースがあり ブログの記事を編集、訂正したいのですが、やり方がわからないです・・・ use CGI; my $form = new CGI; open(FILE, "<$FILE") or die("error :$!"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; if($form->param('edit')){ &edit(); } if($form->param('delete')){ &delete(); } #記事表示 for ($i=0;$i<5;$i++){ last if ($i > @DATA); $data = $DATA[$i]; if ($data ne ""){ my ($category,$title,$name,$text) = split(/,/, $data), $i; print qq(<input type="radio" name="no" value="%02d">$category - $title - $name - $text); print qq(<form action="perl.pl">); print qq(<input type="submit" name="edit" value="編集">); print qq(<input type="submit" name="delete" value="削除">); print qq(</form>); } } sub delete { open(FILE, "<$FILE") or die("error :$!"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; use CGI; my $form = new CGI; my $NO = $form->param('no'); splice @DATA, $NO, 1; open(FILE, ">$FILE") or die("error :$!"); eval{ flock(FILE, 2) }; print FILE @DATA; close FILE; } sub edit { #ここがわからない・・・ open(FILE, "<$FILE") or die("error :$!"); eval{ flock(FILE, 1) }; @DATA = <FILE>; close FILE; use CGI; my $form = new CGI; my $NO = $form->param('no'); #どのような処理が入るのでしょうか? open(FILE, ">$FILE") or die("error :$!"); eval{ flock(FILE, 2) }; print FILE @DATA; close FILE; } 最後のサブルーチンにあるsub edit の ファイルを開いてからどのようにして編集していいのかがわからないです・・・
質問日時: 2017/03/15 16:47 質問者: home321
ベストアンサー
1
0
-
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
日本古来の伝統工芸「金継ぎ」で修復した食器は前と同じように使えるの?
大切にしている食器が割れてしまったら、きっと誰もが「元に戻したい」と願うだろう。「教えて!goo」にも「割ってしまったお気に入りの食器を復活できる?」という質問があり、最適な方法について様々な意見が寄せら...
-
メダロット:第248話「Vol.248※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
タンス預金で旧紙幣を持ち続けるのは大丈夫?タンス預金のメリット・デメリットを紹介
今年7月、約20年ぶりに新紙幣が発行される。紙幣が変わることを改刷というが、この改刷には「タンス預金をあぶり出す目的があるのでは?」という見方をする人もいるという。「教えて!goo」にも「改刷で本当にタンス...
-
投資詐欺の手口や被害に遭わないためのポイント、被害後の対応策を弁護士が解説
新NISAが始まって間もなく半年が経過する。政府の旗振りの元、預貯金大国から脱却し、資産運用立国に向けた滑り出しは順調のようで、それはNISAの利用状況(2023年4月から2024年4月)を見ても明らかだ。 ・NISA口座...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
Perlで、「が」を、「が」...
-
テキストファイルで提出とは?
-
このファイルを開く方法で困ってい...
-
画像が表示でnull; this.src
-
P.Cのシングルチューナーとダブルチ...
-
openした後、closeしないでプログラ...
-
Perlで時間の計算
-
Perlで特定文字列から特定文字列ま...
-
Perlで一定値以上の場合にデータを...
-
アルファベットに付いて質問します...
-
#!/usr/bin/perlで書きだしたCGIを...
-
Perlのエラーについてご教授くださ...
-
perlのflock関数でロックをかけたま...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□の中...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにどのよ...
-
perlで2次元配列をサブルーチンに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
openした後、closeしないでプログラ...
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
Perlで特定文字列から特定文字列ま...
-
perlをバージョンアップしたら、今...
-
Wallpaper Engineでおすすめの壁紙...
-
arduino の割り込み処理について
-
アルファベットに付いて質問します...
-
Strawberry Perl for Windows で Ou...
-
Perlで時間の計算
-
このファイルを開く方法で困ってい...
-
TeraPadエディターの操作方法について
-
cgiでサーバーにファイルを追加する
-
フローチャート 九九
-
LinuxにおいてのPerlのプログラムの...
-
perl 初等プログラミングについて
-
Perlのエラーについてご教授くださ...
-
こんにちは ブラケッツでプログラミ...
-
bashスクリプト
-
perlプログラミング 空白行削除
おすすめ情報