回答数
気になる
-
Cygwin64のtermio(s).hについて
Cygwiun64を使ってUSBーRS232c変換モジュールを使って、COMポートから送受信したいのですが、LINUX(アットマークテクノ社のArmadillo)で動いているソースをコンパイルすると下のようなエラーが出ます。 ---------------- eogateway.c:292:12: エラー: ‘TCSETS’ undeclared (first use in this function); did you mean ‘TCGETS’? ioctl(fd, TCSETS, &TtyAttr); ---------------- GCCのディレクトリを調べると、termio.hあるいはtermioss.hがないためにTCSETSなどの定義がないようです。これを解決する方法はあるのでしょうか?
質問日時: 2019/02/20 17:30 質問者: マットマット
解決済
2
0
-
検索ボックスから製品名を検索し、cgiで呼び出したテンプレートのhtmlに 複数あるcsvファイルか
検索ボックスから製品名を検索し、cgiで呼び出したテンプレートのhtmlに 複数あるcsvファイルから該当項目を表示させたいです。 どのようにしたらできるのかご教授いただけないでしょうか…。 参考になりそうなサンプル等や情報サイトでも良いのでヒントいただけると嬉しいです。 下記のファイルがあるとします。 【data1.csv】 製品名,カテゴリ 紅ほっぺ,イチゴ 愛媛みかん,みかん 【data2.csv】 製品名,生産者,紹介URL 紅ほっぺ,鈴木,https://ichigo.com 愛媛みかん,佐藤,https://mikan.com 【template.html】 <h1><!-- 製品名 --></h1> <p><!-- カテゴリ --></p> <a href="紹介URL"><!-- 生産者 --></a> 検索ボックスに「紅ほっぺ」と入力されて検索ボタンを押されたら 下記のよう表示するようにしたいです。 <h1>紅ほっぺ</h1> <p>イチゴ</p> <a href="https://ichigo.com">鈴木</a> どうかよろしくおねがいします。
質問日時: 2019/02/15 00:49 質問者: 彩いろどり
ベストアンサー
3
0
-
arduino の割り込み処理について
Arduinoでプログラミングをしています。いろいろなプログラミングをしてきたのですが割り込み処理をした時だけエンジンの点火ノイズが乗ります。入力線にシールド線を使用したりアルミ箔で包んでみたりもしたのですが一向に効果がありません。ノイズがノイズだけにタコメーターのプログラムではセンサーをつながなくても作動するのですが他のプログラムでは障害となっております。どなたか知恵を貸してください。
質問日時: 2019/02/05 23:53 質問者: だいちゃん187
解決済
5
0
-
Windows10 Pro 64bit パソコンで「ショートカットから .exe が起動しない」
Windows10 Pro 64bit パソコンで「ショートカットから .exe が起動しない」現象が発生しており、お知恵をお借りしたく投稿致しました。 同じパソコンが3台 同じ .exe のシヨートカットをそれぞれ登録していて、1台だけがこのようになります。 タスクマネージャーのバックグラウンドプロセス内の .exe を削除するとショートカットから .exe が起動するようになります。 ・タスクマネージャーのバックグラウンドプロセスに表示しないようにできますでしょうか。 ショートカットから .exe が起動しないと、毎回、パソコンの再起動を行い、スタートアップ内のショートカットから .exe を起動させて使用しています。 よろしくお願い致します。
質問日時: 2019/01/10 10:38 質問者: ニシコ
ベストアンサー
1
1
-
プログラマーになるにはどうすればいい?
Perlで作られたサンプルプログラムをコピペして株の自動売買プログラムやフリーの掲示板を若干書き換えたりする程度の技術しかありません。サンプルを適当にはめて動作すれば使う程度ですので信頼性も低いです。エラーが出たら基本的には握りつぶし、他のチェックソフトを作成してプロセスを監視してkillして無理やり再起動させるなど個人で動くようなプログラムを使うことに特化しておりこのままでは企業では使えないと思っています。自分がする作業を自動化するために使っていました。 また、事情(精神的な問題)があり1日数時間程度しか仕事ができません。この状態で仕事で使えるプログラマになるにはどんなルートが近道でしょうか?
質問日時: 2019/01/05 09:33 質問者: elee_f
解決済
2
0
-
Perlで同じフォルダにある任意のテキストファイルを改変し別名で保存する方法
Perlで質問タイトルのとおり、同じフォルダに有るテキストファイルをすべて正規表現を用いて改変し、末尾に_2(この部分は別名になればいいのでどうでもいいと思います)というファイル名をつけて別名で保存する方法を教えてください。Perlはストロベリーのコマンドラインから使ってます。 https://mjin.doshisha.ac.jp/R/57/57.html 確かにこのようにバッチファイルを作っても、実際のところ、バッチファイル内に特定の文字列をしっかりと元のテキストデータに指定せねばならないので、結局手間がかかります。もっと簡単にできる方法がないかと今日一日潰して考えましたが、できませんでした。 正規表現でテキストの中身を改変することは出来ましたが、ふつーにファイル名のところを正規表現にすれば実現できるのでは?と考えましたが、なかなかうまくいきません。コード事例があるとかなり嬉しいのですが...。
質問日時: 2018/12/30 18:38 質問者: MikasaJun
ベストアンサー
5
0
-
[perl] next と return 同じ意味で使えますか?
数年間とりあえず普通に動いている自作のプログラムを眺めていたらおかしな部分を見つけました。これは修正しないでそのまま使えますか? また、このプログラムを見て疑問に思ったのですが、★の部分、nextとreturnはどちらでもこの場合同じ挙動になりますか? なお、以下コードをテストして見る限り同じような挙動に見えます。 use strict; $| = 1; for(1..50){ print ; &Test($_); sleep 1; } sub Test(){ my $a = shift @_; for(1..2){ print "."; } if($a % 2 == 0){ print "2"; # next; #★ # return ; #★ } print "*\n"; }
質問日時: 2018/12/29 14:08 質問者: vividei
ベストアンサー
2
1
-
マイコンを使った時のセンサーについて
今学校でマイコンを使った実習をしています。私が作っているものはジオラマです。マイコンで自動で動くラジコンカーと赤信号で止まる仕組みを作りたいと考えてます。そこで質問なのですが赤信号でラジコンカーを止めるためにはどのセンサーを使った方がいいかわかる方いたら教えてください。ちなみに超音波センサーを用いて作ろうとしてるのですが赤で止まるようになるか心配です。なのでセンサーに詳しい方いたらどれを使った方がいいか教えてください。ちなみにコースの中を走らせるので車には距離センサーを使って曲がるようには作ってあります。
質問日時: 2018/12/12 09:40 質問者: 深浅漬け
解決済
7
0
-
Perl クッキーの使い方 クッキーについて素人の質問です。 現在、勉強中なのですが、 やりたいこと
Perl クッキーの使い方 クッキーについて素人の質問です。 現在、勉強中なのですが、 やりたいことが、 1ユーザーがページにアクセスした日時 2<input type='test' name='name'> に入力された名前 3<input type='ragio' name='fontsize'> が3つあり、文字サイズ 小、中、大 と選択でき、valueの値は1,2,3 とする。 これらのことでやりたいことが、 1→チャット、掲示板などで、ユーザーが最終的にログインした時間と投稿時間の比較で ユーザー時間<最新記事はここから<最終投稿 ※◯ch掲示板的なやつ 2→名前を再度、入力させる手間を減らしたい ※inputに選択欄に、でるやつを選択する手間を減らす 3→ユーザーが見やすい文字フォントに、自動で変え維持させたい このようなことがやりたいのですが、 どのようにすればいいでしょうか? 現在勉強中のページ http://tech.katsubemakito.net/perl/cgi_cookie_get わかりやすくデモページがあるサイトを教えてほしいです。 もしくは、図々しいかも、しれませんがソースをご掲示いただけると嬉しいです
質問日時: 2018/12/02 19:46 質問者: パールマン
解決済
1
0
-
Perlで次の行との差を求め100以下のものは削除したい
以下のようなデータで、同じClassのうちPositionの差が100以下の行は削除したいのですが、やり方がわかりません。 このようなデータがたくさんあり手作業では困難なため、Perlによる処理をしたいです。 スクリプトを教えてもらえないでしょうか。 入力データは以下の通りです。 Class Position 1 12 1 34 1 430 1 800 1 1000 1 1034 2 1 2 10 2 98 2 500 2 780 次の行とのPositionの差が<100だったら削除するみたいな感じで処理して 以下のような出力結果にしたいです。 Class Position 1 12 1 430 1 800 1 1000 2 1 2 500 2 780 ご教示いただけないでしょうか。 よろしくお願いいたします。
質問日時: 2018/11/29 04:18 質問者: kiki298
解決済
4
0
-
Perl初心者です このエラーの意味するとこは何でしょうか。
今行っている作業でどうしても一度だけPerlでの手順を踏まないといけないのですがエラーが出てしまい作業が進まない状況です。 使用したコマンドは perl format_fasta.pl maarjaAM.fna > maarjAM.unsorted.fna format_fasta.plの中が下のスクリプトになります。 #!usr/bin/perl -w ### Script reads in sequence file, formats sequence and creates # formatted output file, with sequence either contiguous, or # in lines of defined length ### use strict; use library; my $filename = usrquery ("Please enter filename"); my @filedata = read_file_data ($filename); my $sequence = extract_sequence (@filedata); $sequence =~ tr/actg/ACTG/; $sequence =~ s/[\s0-9]//g; composition ($sequence); my $tag = extract_tag (@filedata); my $length = usrquery ("Length of line? (0 returns one-word sequence)"); my $outputfile = usrquery ("Please enter output filename"); unless (open(OUTFILE, ">$outputfile")) {print "Cannot open file \"OUTFILE\" to write to"; exit;} if ($length == 0) {print OUTFILE "$tag\n"; print OUTFILE "$sequence"; close (OUTFILE); exit; } else {print OUTFILE "$tag\n"; for (my $pos = 0; $pos < length($sequence); $pos += $length) {print OUTFILE substr($sequence, $pos, $length), "\n";} } exit; 出てきてしまうエラー内容が Can't locate library.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at format_fasta.pl line 8. BEGIN failed--compilation aborted at format_fasta.pl line 8. このエラーを解決するにはどうしたらよいでしょうか。 よろしくお願いします。
質問日時: 2018/11/25 22:04 質問者: kohei19950905
ベストアンサー
1
0
-
Perl ある特定の文字にある数値を1つの配列にまとめる方法 教えてください! my $test =
Perl ある特定の文字にある数値を1つの配列にまとめる方法 教えてください! my $test = "テスト >>3 あああ >>2 aaaa >>4 wwwewewe"; >>の後ろにある数値を1つの配列 @Pにしたいのですが、どうすればできますでしょうか? $test =~ s/(>>|>>|>>)(\d*)//g; print "$2"; これだと4しか取得できず困っております。 結果的に @P = ("3","2","4"); というふうにしたいのです。
質問日時: 2018/11/22 16:02 質問者: パールマン
解決済
2
0
-
Perlのプログラミングに困っています。
Perlでプログラムを書いています。 整数を1個受け取ってその整数の数だけコマンドプロンプト上に*の記号を使って縦横に左上の向きの直角三角形を表示させる方法はどのようにやるのでしょうか。 例えば「5」という数字を受け取った場合は ***** **** *** ** * のように表示させたいです。 宜しくお願いします。
質問日時: 2018/11/16 00:06 質問者: yugiyugi7777
ベストアンサー
5
0
-
Perlで、「が」を、「が」に戻す方法
Perlで作ったcgiで、ブラウザから文字入力してデータ保存するcgiがあるのですが、データの「が」が、「が」のように保存されてしまうケースがあります。 おそらく「か」+「濁点の゛」の2つに分かれてしまったのだと思います。 データは、EUC-JPでテキストで保存されています。 このデータ「が」を、「が」に戻す方法を教えてください。
質問日時: 2018/11/08 18:59 質問者: workpad30j
ベストアンサー
1
0
-
プログラミングでポインタの勉強をしているのですが、間接演算子(*)と教材に出てくるのですが、アスタリ
プログラミングでポインタの勉強をしているのですが、間接演算子(*)と教材に出てくるのですが、アスタリスクとなにが違うのでしょうか? 教えてください。
質問日時: 2018/10/31 18:59 質問者: じーろ
解決済
5
0
-
perlのスクリプトどこが間違っていますか?
perlスクリプトで疑似乱数ではなくCPUの演算回数を種にしてそこからランダム値の0か1を発生させるプログラムを作りました。 しかし、結果は片方に偏っています。どのようにすれば修正できますか? 動作環境はWindows 7+ActivePerlです。 $| = 1; for(;;){ my ($c,$a); for(;;){ $a++; if( (time + length("qMiWcHyV") + length("aWyvVbeK") ) % 2) { $c++; } my ($sec) = localtime(time);if($sec == 0 || $sec == 30 || $sec % 10 == 0){last;} } my ( $sec, $min, $hour, $mday, $mon, $year, $wno ) = localtime(time); my $nowtime = sprintf( "%02d_%02d_%02d__%02d_%02d_%02d", $year + 1900, $mon + 1, $mday, $hour, $min, $sec ); open( F , ">>Result.txt" ); print F "$nowtime\tResult\t" , $c/$a , "\n"; print "$nowtime\tResult\t" , $c/$a , "\n"; close(F); sleep 1; } ======================= 結果はとなり偏っています。 2018_10_30__23_33_50 Result 0.550934067688598 2018_10_30__23_34_00 Result 0.545030700601732 2018_10_30__23_34_10 Result 0.556725318480547 2018_10_30__23_34_20 Result 0.549527231125661 2018_10_30__23_34_30 Result 0.55964066863353
質問日時: 2018/10/30 23:36 質問者: remixiii
解決済
6
0
-
i-phoneホーム画面に関して教えてください
i-phoneホーム画面に追加したショートカットから、ログインのあるホームページ(会員専用サイト)を開くのに10秒ほど掛かってしまいます。 対処方法はありますでしょうか? 会員サイトの作りの問題でしょうか?
質問日時: 2018/10/20 15:54 質問者: kokomos
解決済
1
0
-
親ループのループ変数$_を子ループから参照したい
for(0 .. 2) { for(3 .. 5) { print($_) } } 子ループ内で親ループのループ変数$_を参照したいです。 子ループ内では$_は子ループに局所化されてしまい、このままでは親ループで使用している同名のループ変数$_を参照できないのですが、この親ループのループ変数$_を何とかして見る方法はありますか。 別名の変数を用意すれば簡単に解決する問題ですが、同名の変数でも参照するやり方があれば知りたいです。
質問日時: 2018/10/15 00:09 質問者: zyousuke
ベストアンサー
1
1
-
phpとperl
phpとperl はどちらもapacheを使用しますが、同じPCの中でこれらすべてをインストールしてもよいですか。 phpの場合ーーーphp.iniを一部変更します。 perl の場合ーーーapacheの設定を変更します。 つまり同じapacheにおいて両方の変更をすることになりますが、問題はないのでしょうか
質問日時: 2018/09/09 16:27 質問者: houseroof
ベストアンサー
3
0
-
EXCEL VBAでフォルダに多数のCSVファイルがあり新規のファイルへ1つのシートにまとめたい。
フォルダ内に100ほどのCSVファイルがあります。 書式は全部同じ。 新規のファイルに1つにまとめたい。 最初、フォルダ内のファイルに同じ処理をする方法で ネットに載っているExcel VBAでうまくいきました。 フォルダ内のファイルを全て開き処理、その後1つにまとめる。 上記ですと、まとめるファイルの数が多いとファイルを全部開くので 処理不可能になる。 やるたいこと:フォルダ内の全てのCSVを1ファイルごと開いて処理後閉じて 新規のファイルへまとめる方法を教えてください。 前処理のVBAでフォルダ内のEXCELファイルをCSVに変換させています。 その後CSVファイルを新規のファイルにまとめたい。 下記の方法は、フォルダ内のファイルを全部開く方法です。 出来ずに本当に困っています。 ご教授よろしくお願いします。 Dim b As Workbook '集計するブック Dim b1 As Workbook '集計先のブック Dim d '集計するブック内のシートのデータ数 Dim d1 '集計先のシートのデータ数 Workbooks.Add Set b1 = ActiveWorkbook For Each b In Workbooks If b.Name <> b1.Name Then Dim l As Long For l = 1 To b.Worksheets.Count d = b.Worksheets(l).Range("a" & Rows.Count).End(xlUp).Row d1 = b1.Worksheets(1).Range("a" & Rows.Count).End(xlUp).Row b.Worksheets(l).Rows("1:" & d).Copy b1.Worksheets(1).Range("a" & d1 + 1) Next End If Next ActiveWorkbook.SaveAs "\C:処理済フォルダ\処理.csv"
質問日時: 2018/09/06 17:05 質問者: あーーーーーちゃん
解決済
2
0
-
VBA変数をFunction.VLookupの戻り値から得たい
VBA変数をFunction.VLookupの戻り値から得たいのですが、 下記の記述だと「実行時エラー 1004 worksheetfunctionクラスの…」が出てしまいます。 Dim X As Long, i As Long Dim t3 As Variant X = 2 'Loop行数 i = 2 'Loop行数 Do Until Cells(i, 4).Value = "" t3 = Application.WorksheetFunction.VLookup(Cells(X, 4) & 9, Sheets("時刻表").Columns("A:C"), 2, 0) '開始時刻 時刻表シート A B C 検索値 開始 完了 79 18:30 20:30 89 18:30 20:30 99 21:30 22:30 109 22:30 23:30 ・ ・ ・ ちなみにセルにvalueで返してみると反映されエラーにはならないです。 VBA素人で申し訳ありませんがご教授お願い致します。
質問日時: 2018/08/11 12:52 質問者: さくここ
ベストアンサー
2
0
-
perlでDateTimeが動かない。
https://ideone.com/mjkvC9の下記のperlが動かない。 my $t = get(); say DateTime.new( floor( $t / 1e6 ) - 11644473600, timezone=>9*3600, formatter=>{ sprintf '%04d-%02d-%02d %02d:%02d:%02d', .year, .month, .day, .hour, .minute, .second } ); 下記のエラーが出る。 Unquoted string "year" may clash with future reserved word at 03.pl line 4. Unquoted string "month" may clash with future reserved word at 03.pl line 4. Unquoted string "day" may clash with future reserved word at 03.pl line 4. Unquoted string "hour" may clash with future reserved word at 03.pl line 4. Unquoted string "minute" may clash with future reserved word at 03.pl line 4. Unquoted string "second" may clash with future reserved word at 03.pl line 4. syntax error at 03.pl line 4, near ", ." 03.pl had compilation errors. 済みません。修正箇所を指摘願います。
質問日時: 2018/07/25 12:43 質問者: usui-2015
ベストアンサー
1
1
-
メールアドレスの作成について質問です。 これから始めるアプリや、今まで使っていたものを廃止して、使用
メールアドレスの作成について質問です。 これから始めるアプリや、今まで使っていたものを廃止して、使用するメールアドレスを統一化したいのですが、どのアドレスを作るのが良いですか? 例:Yahoo、G- mail、など
質問日時: 2018/06/28 23:46 質問者: オキヤ
ベストアンサー
3
0
-
これをビジュアルスタジオで実行させるにはどうすればいいですか?実行の手順を教えて下さい! 一応Cドラ
これをビジュアルスタジオで実行させるにはどうすればいいですか?実行の手順を教えて下さい! 一応Cドライブに保存したのですが、C:と打ってもなんともありません
質問日時: 2018/06/24 02:53 質問者: しのむ
解決済
1
0
-
結構急ぎです 友達の誕生日に 40秒程度の動画を作成したいのですが どのようなアプリがいいでしょう
結構急ぎです 友達の誕生日に 40秒程度の動画を作成したいのですが どのようなアプリがいいでしょう スライドショーなどしたいのですが(>_<")
質問日時: 2018/06/22 13:12 質問者: メイサル
解決済
2
0
-
シーケンサ初心者です、質問失礼します。 現在、三菱シーケンサのメルセックを使用してるのですが、各ボー
シーケンサ初心者です、質問失礼します。 現在、三菱シーケンサのメルセックを使用してるのですが、各ボードごとの入力出力の赤ランプでオンオフを確認するときに、 点滅しているランプがどの配線かが、わかりません。端子前後でA列とB列と別れているのはわかりますが、図面のシーケンサの図とを確認する際は上から順にら数えて端子位置を確認すればいいのでしょうか? また試運転確認する時に出力はジャンパーでランプとかなら確認できますが、入力は出力させてほしくないときは、入力でスイッチとかを触って、シーケンサ側はRUNではなくSTOPにしておけば入出力のランプで確認可能でしょうか?
質問日時: 2018/06/21 21:50 質問者: アミシィ
解決済
1
0
-
Perlでの文字変換(置換)について
お詳しいかたお願いします。 例えば『新商品α』という文字をhtmlに書きます時には『新商品α』と書けば 良いと思いますので、元記事をhtml用に変換しますPerlプログラムを考え中です。 そこで、変換文字が1つだけの場合には $data =~ s/α/α/ ; (検証していないので違っているかもしれません) と書けば良いのかもしれませんが、αもβもγもと大量にある場合、何行も書いては いられませんので @jittaisannsyou = (α , β , γ , ……) として配列に入れてしまって、もっと簡単な記述で置換したいと思っています。 しかし、方法がわかりません… ギリシャ文字や記号など、大量に実体参照変換します方法をご存じのかた教えて ください。
質問日時: 2018/06/15 16:02 質問者: risaghon
ベストアンサー
3
0
-
配列へのリファレンスへのリファレンスをデリファレンスしてリスト値を取りたい??
配列へのリファレンスへのリファレンスをデリファレンスしてリスト値を取りたい??です。 自分でも言っている事が分からなくなってしまいそうな言い回しですが例えば、 $hoge{arr} = ['a', 'b', 'c', 'd', 'e']; これは配列へのリファレンスへのリファレンスですが、これをデリファレンスしてリストコンテキストで、 @_ = @$hoge{arr}[1 .. 3] のような感じの1行の式でリスト値を取りたく、いろいろ試したのですがうまくいきません。 この例ではリスト値('b', 'c', 'd')をとろうとしています。
質問日時: 2018/06/09 20:58 質問者: zyousuke
ベストアンサー
1
0
-
画像の貼り付けかたがわかりません。 ファイルを選択 を押してもなにも変わりません。 教えてください!
画像の貼り付けかたがわかりません。 ファイルを選択 を押してもなにも変わりません。 教えてください!
質問日時: 2018/05/28 21:21 質問者: ううあい
解決済
1
0
-
Perl フォルダまでのパスでページ表示させている方法
ご教示お願い致します。 最近よくURLを見て http://domain.com/Blog/20180521/ とフォルダまでのパスだけでページを表示させているのはどのような 仕組みですか? またどのようにするのですか? 私がしたいことは、 Blogフォルダ 日付フォルダ(20180521など) ↑このフォルダの中に、1.txt.2.txt~10.txt とあり最後のテキストファイルには CSV形式でデータが入っており、 PerlにてHTMLを自動生成させるつもりなのですが、 現在だと http://domain.com/Blog/20180521/xxx.cgi でxxx.cgiの中で、1.txtや2.txtを指定すればそのデータを 見ることはできるのですが、 ↓これを http://domain.com/Blog/20180521/1/ ↑このURLで 1.txtのデータを閲覧しているようにしたい 説明が下手で申し訳ございませんが、どうか教えてください
質問日時: 2018/05/21 15:25 質問者: perlhogehoe
解決済
1
1
-
pythonの作業ディレクトリに変えるときにcドライブに変えなくていい方法ありますか?
pythonの勉強をしているのですが、まずコマンドラインを開いてpythonと入力してpythonを始めるのですがその前にほかの作業ディレクトリ(VSCを使ってます)に例えばtest01.pyという名前の print("hello") と入力したファイルをcドライブのpythonというファイルに保存します そしてコマンドラインに戻って python test01.py と入力するとエラーみたいなやつが出て出来ませんが 最初のコマンドラインを開いてpythonと入力する前に cd c:\ と入力してcドライブのファイルに変えるとできたのですが cd c:\ と入力せずに python と入力した時点でcドライブのファイルをつかうことはできないのですか? 詳しい方教えてください!
質問日時: 2018/05/20 19:43 質問者: キノピー.
解決済
1
0
-
Perlの質問:行と列を入れ替えるスクリプト
以下のインプットファイル(csv)の行と列を入れ替えるスクリプトについて質問させてください。 ID,氏名,都道府県,開始日時,終了日時 0001,山田太郎,東京都,20180110,20180120 0001,山田太郎,東京都,20180310,20180330 0002,佐藤花子,埼玉県,20171110,20171112 0003,山本正,沖縄県,20160916,20160920 0003,山本正,沖縄県,20180421,20180422 0003,山本正,沖縄県,20170707,20170808 ID、氏名、都道府県の値が同じであれば、以下のように開始日時と終了日時の値を1行にしたいのですが、どうすればいいのかわかりません。どなたか教えていただけないでしょうか? 何卒よろしくお願いいたします。 アウトプットファイル(csv) 0001,山田太郎,東京都,20180110,20180310,20180120,20180330 0002,佐藤花子,埼玉県,20171110,20171112 0003,山本正,沖縄県,20160916,20180421,20170707,20160920,20180422,20170808
質問日時: 2018/05/15 20:24 質問者: ken6791
ベストアンサー
5
0
-
ホームページ ソースを「メモ帳」で開けなくなった、どうしたらよいか教えて
自分のホームページを「メモ帳」を使って作っていますが、今日、HP更新のためメモ帳で開こうとすると「プログラムから開く」の中に「.html」ファイルが表示されなくなっており、一方「メモ帳」の方の「ファイル」「開く」にも「.html」ファイルが表示されなくなっており、困っています。 使い慣れた「メモ帳」でHP更新を進めたいのですが、「メモ帳」で「.html」ファイルを開く方法を教えてください。 Windows 10のUpdateを昨日やりましたが、これの影響でしょうか。
質問日時: 2018/05/10 15:45 質問者: kamataken72
ベストアンサー
1
0
-
Perlプログラムについてファイルの読み込み
容量が10MBのテキストファイルを10開くのと、容量が10KBのテキストファイルを1000開く場合、どちらの処理速度が速いのでしょうか? (テキストファイルはカンマ区切りのCSVのような形式になっていて文字列が格納されています。) また、調査方法も教えていただきたいと思います。
質問日時: 2018/04/29 22:31 質問者: tag1234567
ベストアンサー
2
0
-
perl で、どこが悪いのかわからないエラーが出ています。誰か新鮮な目で見てください!
2年ぶりにperlをいじり始めた者です。 TAB区切りcsvファイルがあって、 ・このファイルの先頭数行をスキップ 残りすべての行について、 ・2番目の項をファイルネームとして、appendモードで開く ・特定の数項を選んで、そのファイルに出力 ・ファイルをClose と、ただこれだけをしたいのですが、下記プログラムが、どうしても動きません。 状況 下記プログラムのままであると、 outfile.txt が作られ、 先頭に"TEST\n”が書き込まれ、 さらに、csvファイルの先頭9行を除いて13行目までが、outfile.txt に書き込まれています。 期待通りの動作です。 しかし、sprit の行(空行を除いて12行目)のコメントアウトを外して実行すると、 perl interpreter から、「問題が発生したため、プログラムが正しく動作しなくなりました。 プログラムは閉じられ、解決策がある場合は Windows から通知されます。」という Windowが開き、 outfile.txt は作られているが、 そのファイルサイズは0で、何も書き込まれていない という状況です。 そこで質問ですが、 1.sprit 文に問題あるとは思えないのですが、どこに問題があるのでしょうか? 2.Interpreter だから、spritより前にあるコマンドは正しく実行されるはずですが、 7行目のファイル作成は成功して、8行目の書き込みが行われないのはなぜでしょうか? たぶん、わかってしまえば当たり前のことなのでしょうが、皆目見当がつきません。 どなたか新鮮な目で見ていただき、アドバイスをお願いします。 [スクリプト] use strict; use warnings; use utf8; use Encode qw/encode decode/; my ($j, $tmp, @x); open (INF,"./20180413u8.csv"); open (OF1,">>./outfile.txt"); print OF1 "TEST\n"; $j = 0; while(<INF>){ chomp; # @x = sprit(/\t/, $_); $j++; next if $j < 10; print OF1 "$_ \n"; print OF1 "@x \n"; last if $j == 14; } print OF1 "$j \n"; [環境] Windows 8 64 bit Strawberry perl
質問日時: 2018/04/22 15:57 質問者: 老頭児
解決済
1
0
-
同一の検索値が複数存在する場合でも、全て出力させるマクロ
各セルの値を検索して同一の検索値が複数存在する場合でも、全て出力させるマクロを教えてください。 よろしくお願い致します。 ■処理内容 B2~B100に以下検索値が含まれたら、C2~C100に処理結果を全て出力する。 例) ・検索元(B2):AABアイaba ・検索値:Aaア ・処理結果(C2):AAアaa InStr関数で検索すると「Aアa」の結果になってしまいます・・・・
質問日時: 2018/03/28 15:58 質問者: samm
ベストアンサー
1
0
-
Perl 特定のフォルダ以外削除
Perl で特定のフォルダ以外を削除したいのですが 普通はフォルダを指定して削除するところを rmdir "log/delete"; 上記のように削除させますが ディレクトリ構造↓ log----1/ -------2/ -------3/ -------4/ -------5/ -------delete/ -------log.txt 上記のlog.txtの中身↓ 1 2 3 4 5 ------------------- のように連番が振ってあり その連番と同じフォルダがなければ削除 と今回の場合 deleteフォルダがないので それを削除させたいのですが、 rmdir "log/delete"; ↑これではなく 1,2,3,4,5を残し、それ以外のフォルダを削除 という指定にしたいのですが どのようにすればいいでしょうか?
質問日時: 2018/03/16 10:28 質問者: yesman999
ベストアンサー
6
1
-
【超初心者】異なるディレクトリの perl のうち,一方を優先して使いたいです
usr/bin に perl はインストール済みだったのですが,/usr/local/bin/に,より新しい version の perl をインストールしました。 現在/usr/local/bin/の方が優先されています。これを元から入っている usr/binが優先されるようにできないでしょうか。BioPerl という perlモジュールを使うのが目的ですが,/usr/local/bin/の新しい version ではエラーが出るようなのです(それ以外の理由かもしれませんが)。PATH の順を入れ替えてみてもうまくいきませんでした。 今のところ BioPerl 以外に使う予定は無いので,後から加えたusr/local/bin の perl を削除するのでも良いのかと思っています。削除は rm で出来るのでしょうか。 どなたかアドバイスお願いいたします。
質問日時: 2018/03/15 19:48 質問者: perl_ga_nigate
解決済
2
0
-
Perl Grepについて
配列をgrepする際は、下記のソースですが open(Fi, "<","test.txt"); eval{ flock(Fi, 1) }; my @Test = <Fi>; close Fi; @Test = grep(/$Grep/, @Test ); print @Test; ダイヤモンド演算子を用いている場合、 grepさせるにはどうすればいいのでしょうか? open(Fi, "<","test.txt"); eval{ flock(Fi, 1) }; while(<Fi>){ chomp; my @temp = split /,/; push @arrey , $temp[1]; } close Fi; foreach (@arrey) {$hash{$_}++;} my @Test= sort keys %Test; print @Test; ↑このソースにgrepのように絞込を加えたいです。 ※上のソースと、下のソースの結果を同じにしたい。
質問日時: 2018/03/03 15:22 質問者: yesman999
ベストアンサー
2
1
-
perlでファイルの検索とフォルダ作成後のコピー
20180122A0223AAA001.csv 20180122T0223AAA002.csv 20180122P0322AAA001.csv 20180122A0222DDD001.csv 20180122A0123CCC001.csv 上のようなファイルが複数存在する場合、ファイル名にAAAの記載があるファイルを検索。 そのファイルの10桁目からファイル名に記載されている日付のフォルダを作成。 そのフォルダ配下にAAAの記載があるファイルのみコピーを行う。 今回の場合は、AAAがファイル名に含まれるファイルの”ファイル名から”「0223」「0322」のフォルダを作成後、そのフォルダ配下に「20180122A0223AAA001.csv」「20180122T0223AAA002.csv」の二つのファイルを「0223」フォルダにコピー。「20180122P0322AAA001.csv」は「0322」フォルダにコピーを行う一連の処理をperlで書きたいと思います。よろしくお願いします。
質問日時: 2018/02/23 23:40 質問者: yyy100009
ベストアンサー
2
0
-
Perl 重複カウント 上位3名
ご教示お願い致します。 以下のファイルがあり test.txt ------------------------ 1,name1,ttt,1 2,name2,eee,1 1,name3,rrr,1 2,name3,fff,1 1,name5,ggg,1 1,name6,kkk,a 2,name6,kkk,a 2,name6,kkk,a 1,name6,kkk,a 2,name6,kkk,a 1,name6,kkk,3 2,name6,kkk,a ------------------------ test.pl ------------------------ use strict; use warnings; my %hash1 = (); my @arrey1; open(F, "<","test.txt") or die("error :$!"); eval{ flock(F, 1) }; while(<F>){ chomp; my @temp = split /,/; push @arrey1 , $temp[1]; } close F; foreach (@arrey1) {$hash1{$_}++;} my @Data1 = sort keys %hash1; print @Data1; ------------------------ 結果 @Data1 ------------------------ name1name2name3name5name6 ------------------------ まず、名前をまとめるとこまでできたのですが、 ここからがわからないです。 やりたいことは、ここから、 $temp[0] が 1 の数を名前ごとにまとめ ほしい結果 ----------------------- name1=1 name2=0 name3=1 name5=1 name6=3 ------------------------ そこから上位3名を抜粋したい ※重複値は含める ほしい結果 ----------------------- name6=3 name1=1 name3=1 name5=1 ------------------------ このようなことを実行したいのですが、わかりません・・・ どうかご教示お願い致します。
質問日時: 2018/02/16 15:06 質問者: perlhogehoe
ベストアンサー
3
0
-
perlでタイムスタンプを日時で表す方法を知りたい
chromeの履歴は、クライアントのマシンに保存されています。 これは、sqliteです。sqliteにはデータの型としてはdateの型は 無くて、integerで保存されています。 urlsのテーブルでlast_vist_timeは日時ですが、integerになっています. 例えば、13158682279596425です。 これを、sqliteのselectで sqlite> select datetime(13158682279596425/1000000 + (strftime('%s','1601-01-01')),'unixepoch','localtime'); 上記の様に入力をすると、下記が得られます。 2017-12-25 22:31:19 これを、perlを使ってタイムスタンプの13158682279596425を 2017-12-25 22:31:19の様に変換をしたいのですが。 どの様にすれば、変換が出来るのでしょうか。 すみません。perlのソースを提示願います。 宜しくお願いします。
質問日時: 2018/02/10 14:31 質問者: usui-2015
解決済
1
0
-
トランペット吹きをしている中一です。始めたのは中学に入ってからで、もうすぐ一年が経つのに全然上手くな
トランペット吹きをしている中一です。始めたのは中学に入ってからで、もうすぐ一年が経つのに全然上手くなりません。それどころか、日に日に高音がでなくなり、バテるのも早くなりました。色々な方法を試すたびに段々わからなくなってきて…オススメの練習法を教えてください!お願いします!
質問日時: 2018/01/20 20:19 質問者: ニョキ
解決済
2
0
-
perlで読める文字にデコード?したい
ブラウザで見ると以下文字列は「ベーシック」とデコードできるのですが、 HTMLのソースを見ると文字ではない記号で書かれているようです。 これはいったい何でしょうか?また、どのようにすれば、 ベーシックという文字にデコードできますか? 宜しくお願い致します。 ベーシック(半角表記) &#12505;&#12540;&#12471;&#12483;&#12463;(文字化け防止のため全角表記)
質問日時: 2018/01/17 22:49 質問者: teii0
ベストアンサー
1
0
-
perl/tkでコントロールの配置が上手く左に寄せる事が出来ない
下記のソースでコントロールが上手く左に寄せる事が出来ない。 use Encode; use utf8; use open IO => ":encoding(utf8)"; binmode STDOUT,':utf8'; use Tk; $top = MainWindow->new(); $top->optionAdd( '*font' => 'MSゴシック 18' ); $f1 = $top->Frame()->pack(); $f2 = $top->Frame()->pack(); $f3 = $top->Frame()->pack(); $f1->Label(-text => "comment")->pack(-side => "left"); $f1->Entry(-textvariable => \$comment)->pack(); $f1->Label(-text => "funct_name")->pack(-side => "left"); $f1->Entry(-textvariable => \$funct_name)->pack(); $f2->Label(-text => "batch_name")->pack(-side => "left"); $f2->Entry(-textvariable => \$batch_name)->pack(); $f3->Button(-text => "OK",-command => \&onButton)->pack(-side => "left"); $f3->Button(-text => "Cancel")->pack(); MainLoop(); sub onButton{ open(OUT,">command.txt")||die "file open err command.txt\n"; print OUT "$comment,$funct_name,$batch_name\n"; close OUT; exec "01.bat"; exit(); } 下記の様に成る。 上手く左に寄せるには、何処をどの様に修正をすれば 良いのでしょうか。指摘をお願いします。 宜しく、お願いします。
質問日時: 2018/01/15 19:25 質問者: usui-2015
ベストアンサー
2
0
-
perlで自動ログインをしたいが、方法が分からない
https://www.kireilife.net/pages/index.htmlの画面で 自動ログインをしたいが。方法が分からない。 my $mech = new WWW::Mechanize( autocheck => 1 ); # トップにアクセスし、 $mech->get('https://www.kireilife.net/pages/index.html'); # ログイン。 $mech->submit_form( fields => { email => 'your-email@example.com', password => 'p4ssw0rd', }, ); 上記で、emailとか、passwordとかは、どうやって調べるのだろうか。 上記のhttps://www.kireilife.net/pages/index.htmlの中には、それらに 該当するのは無い様ですが。 fields=>{...}の中のキーの値はどうやって指定するのかが分からない。 済みません。調べる方法を教えてください。 宜しくお願いします。
質問日時: 2017/12/30 23:01 質問者: usui-2015
ベストアンサー
3
0
-
Perl 文字列をさまざまなパターンで生成する
ご教示お願い致します。 $str = 'テストが赤点だった→結果30点; foreach $ch (split //, $str) { print $ch, "\n"; } 上記変数を1文字ずつばらいており、 そこから、さまざまなパターンでくっつけ あるテキストから似た部類のタイトルを探したいです。 あるテキスト→test.txt --------------------------- 明日はテスト テスト合格 クラブ活動;; 試験・・・ 赤点多すぎな件 打ち上げパーティー 100点!! --------------------------- このテキストファイルで $ch で生成された文字でヒットされるのは --------------------------- 明日はテスト テスト合格 赤点多すぎな件 100点!! --------------------------- このような結果がほしいのです どのようにすれば、実行できますでしょうか?
質問日時: 2017/12/19 13:43 質問者: perlhogehoe
解決済
9
2
-
Perlの記述について
2017/12/17 これを年、月、日に数字だけ抜き出してそれぞれの変数に入れたいのですが、すっきりとした記述方法を教えてください。 結果 $y = 2017 $m = 12 $d = 17
質問日時: 2017/12/17 18:31 質問者: kana58d
解決済
1
0
-
Perlで一定値以上の場合にデータを抜き出す方法
Perlで一定値以上の場合にデータを抜き出すコマンドを教えてください。 図にあるtest1.txtというファイルに試験のデータが入っています(左から名前、科目、点数です)。 このデータから点数が80点以上のデータだけをtest2.txtというファイル名で出力したいです。 欲しいのはこのtest2.txtというデータになります。 エクセルではなくて、Perlでやりたいのでよろしくお願いします。
質問日時: 2017/12/17 17:17 質問者: bitaminb
ベストアンサー
2
0
-
Perl 複数ファイルの処理 log1.txt から log10.txt と10個ほどのファイルがあ
Perl 複数ファイルの処理 log1.txt から log10.txt と10個ほどのファイルがあり 中身は $時間、$番号、$名前、$性別、$点数 の順で複数行あります。 それで全てのファイルの 1番点数の高い数字と2番に高い数字 を引いた数が1番大きい行を取得し、 さらに、そのファイルの名前も取得したい ご教示お願いします!
質問日時: 2017/12/16 01:36 質問者: パールマン
解決済
1
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
-
中古物件転売時の節税対策にメス?不動産投資家は戦々恐々?元国税が解説
不動産の取引において、土地と建物を一括で売買する場合、土地に消費税はかからないが、建物には消費税がかかる。これを利用して、例えば土地と建物を合計1億円で売る場合、土地の値段を9999万9999円にし、建物を1円...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
perlをバージョンアップしたら、今...
-
openした後、closeしないでプログラ...
-
Strawberry Perl for Windows で Ou...
-
Perlの全角スペース 文字化け?
-
Perlで、「が」を、「が」...
-
Perlでの文字列置換
-
Perlでテキストファイルの一部を編...
-
サクラエディターの設定の仕方をお...
-
検索ボックスから製品名を検索し、c...
-
マイコンを使った時のセンサーについて
-
Perl 特定のフォルダ以外削除
-
Perl 仮登録、本登録システムについて
-
Perl 正規表現
-
Perl テキスト 重複 個数
-
Perl言語について。
-
ファイルをディレクトリ分配のプロ...
-
アルファベットに付いて質問します...
-
#!/usr/bin/perlで書きだしたCGIを...
-
Perlのエラーについてご教授くださ...
マンスリーランキングこのカテゴリの人気マンスリー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』のプロ...
おすすめ情報