ITmedia総合 >  質問!ITmedia  >  P

「Perl」最新質問一覧

1987年にLarry Wallによって開発された、インタプリタ型プログラミング言語の1つ。Perlという名称は「Practical Extraction and Report Language」の頭文字からとったとされている(俗に、Pathologically Eclectic Rubbish Listerの略ともいわれる)。
Perl − @IT Linux用語事典

-こちらもご覧ください-
質問!Perl→ITmediaのQ&Aサイト「質問!ITmedia」でPerl関連の質問をチェック

関連キーワード

Perl
perl utf8ファイル処理について
ファイルがutf8で作成されています。open処理にて、utf8をshifjisに変換して処理する事って出来ますか。今の所は、utf8のファイルを入力して、shiftjisに変換して、outputして、それを読み込んで処理してます。やはりこれ以外の方法はないでしょうか。(2018/05/25)

Perl
WindowsでのPerl開発環境
Windows7/10上のPerlでのwebアプリに関するベストな開発環境を知りたいです。実行環境イメージは、50画面相当ある中大規模webアプリで、windows server + apache + oracle使用です。当方、JSF(primefaces)によるweb開発は経験がありますが、Perlは初めてです。Perlについて...(2018/05/17)

Perl
Perl ページ表示遅い ループの改善
ソースが汚いかもしれませんが、ご教示お願い致します。実行したいことは、できてはいるのですが、「表示が遅い」です。ループのやり探し、サーバー上でのHTML生成が原因だと思うのですが、どう改善すればいいのかわかりません・・・・下記のソースの簡単な説明あるテキス...(2018/02/07)

Perl
Perl ランク付け
名前,順位,点数...etcとテキストファイルにあるなかで、山本,2,74鈴木,1,98山田,3,54鈴木,1,99山田,1,100この場合、1位の数が誰が多いのかを調べたいのですが、まずfor my $D_1(@DATA){my @temp = split/,/, $D_1;if($temp[1] =~ /1$/){push(@D_1,$D_1);}}print @D_1;これ...(2018/01/15)

Perl
Perl 日付処理 逆
Perl 日付処理仕組み$Tm = "1488992820";my ($Nsec, $Nmin, $Nhour, $Ndate, $Nmon, $Nyear, $Nday) = localtime($Tm);$Nyear += 1900;$Nmon += 1;print "$Nyear/$Nmon/$Ndate";これで結果は2017/3/9となりますが、逆に20173上記の年月で逆に戻したい...(2017/12/07)

Perl
Perl テキスト内の文字列 合計値
ご教示お願い致します。test.txt --------------- a,a,a c,b,b b,c,b a,a,d a,e,e --------------- ↑のようなテキストがあり それを1列目[0] a = 3 b = 1 c = 1 d = 0 e = 02列目[1] a = 2 b = 1 c = 1 d = 0 e = 1 3列目[2] a = 1 b = 2 c = 0 d = 1 e = 1このように求...(2017/11/16)

CGI
Perl JavaScript ページ自動更新
困っております・・・;;お助けを・・・目的・・・Perlによる掲示版を設置しており複数のユーザーが見ている中でも、誰かが投稿すれば自動的に更新させたいのですがどのようにするのでしょうか?1、リアルタイムチャット的なものにしたいです現在・・・現在は、擬似的に&...(2017/10/31)

Perl
Perl,PHPのインストール方法
Perl,PHPのインストール方法が解らなくなりました。1度はできたと思ったのですが、解らなくなりました。OSはUBUNTU17.04です。いつも教わってばかりですみません。ご回答のほど宜しくお願い申し上げます。(2017/10/28)

Perl
Perl JavaScript リアルタイム更新
(1)サーバー側に置いてあるファイルの最終更新日時を取得 --> (2)へ例)<--ここがPerlの処理?/test/log.txt --> 更新日時 2017/10/19 19:12(2)-(1)ページに入った時間より新しければ、ページ更新例)<--ここはJavaScriptの処理?/test/log.txt --> 更新日時...(2017/10/20)

Perl
PHP,Perlをインストールしたのですが・・・
Ubuntu17.04にPHP,Perlをインストールしたのですがアイコンなどはあるのでしょうか?初歩的にどうやって使うのでしょうか?ご多忙中誠に申し訳ありません。ご回答のほど宜しくお願い申し上げます。(2017/10/20)

Perl
Perl メール内に画像やタグでの表示
メールで、本文中に画像を表示させるにはどのようにするのでしょうか?例えば、楽天なので買い物をしたときに確認や、確定メールにて画像が表示されており、メールからソースをみるとテーブルタグやイメージタグがあります。通常通り、本文にタグを入力すると文字でしか、...(2017/10/17)

Perl
Perl 速度について
あるサイトの情報を取得するのにソースを組んで、なんとかできたのですが、時間がかかってる気がします。ページ数 約300ページくらい読み込んでいてその中でも、250ページほど、正規表現で、一部抜粋し、保存させているのですが、ここが遅いです。保存した容量は、1個につ...(2017/10/12)

Perl
Perl 順位 複数のLoop
合計の順位を求めたいのですが、詰まってしまいました。どうかご教示お願い致しますm(_ _)mまず下記のようにClass11.txt の 3列目の合計 65.22.txt の 3列目の合計 80.53.txt の 3列目の合計 704.txt の 3列目の合計 92.65.txt の 3列目の合計 76.16.txt の 3列目の合計 85...(2017/10/11)

Perl
Perl MSSQLに接続してSQLのVer情報を
すみません。素人です。Perl MSSQLに接続してSQLのバージョン情報を取得したいです。コードを実行すると下のようなエラーが発生します。Can't use string ("1") as a HASH ref while "strict refs" in use at C:\testPerl\test.pl SQLServer Mangement...(2017/10/06)

Perl
Perl ランク
いつもお世話になっております。ご教示お願い致します。for ($i=0;$i<=10;$i++){処理$Tensu}がありますこれを、書き込み処理すると806070405020201003090となります。目的としては80,360,570,440,750,620,920,9100,130,890,2このときに順位も付与させたいのですが、どの...(2017/10/06)

Perl
Perl 条件付最小値 率
a.txt↓1行目・・・2行目・・・以下3行目?,場所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,・・・100ほど※,場所,時間,順位,となっておりますtext.pl↓open(FILE2, "<","a.txt");flock(FILE3, 1...(2017/10/04)

Perl
Perl 単回帰分析
テキストファイルで「text.txt」2012,,,102013,,,122014,,,152015,,,162016,,,8このような内容で、2017の5列目の単回帰分析を求めるには、Perlでは、どのようにするのでしょうか?エクセルの関数では、12.2となりました。説明が、わかりづらいかと思いますが、どうかよろし...(2017/10/04)

Perl
Perl HTML::TagParser
前回、御回答くださった方のおかげでファイルから特定のタグ内の値を取得することができるようになったのですが、問題が発生・・・パソコンによって(1)使えるパソコン(2)使えないパソコンHTML::TagParserが使えない・・・cpan で HTML::TagParserをインストールしようとす...(2017/09/28)

Perl
Perlテーブル要素の抜粋について
はじめまして、わからないことがあるので教えてください;;<table border="1">#1個目<tr> <th>No</th> <td>1</td> </tr> <tr> <th>名前</th> <td>太郎</td> </tr> <tr> &...(2017/09/22)

Perl
Perl HTMLソースから特定のタグ抽出
use LWP::UserAgent;use HTTP::Request;use HTTP::Response;our $URL = 'https://www.yahoo.co.jp/'; # アクセスする URLmy $proxy = new LWP::UserAgent;$proxy->agent('your own created browser name here'); # 任意$proxy->timeout(60); # 任意my $req = HTTP::R...(2017/09/21)

Perl
perl require
恐れいります。yyy.cgiというファイルの中に、require './xxx.cgi';を記入し、読み込みはできているのですが、xxx.cgiを実行してyyy.cgiのそれ以降のプログラムが実行されません。yyy.cgiの、中でxxx.cgiを実行してストップしてしまいます。解決策をご存知の方いらっしゃい...(2017/09/03)

Perl
Perl 変数 連番 for
いつもお世話になっております。for文?の使い方を教えてほしいです。my $test1 = $form->param('test1');my $test2 = $form->param('test2');my $test3 = $form->param('test3');my $test4 = $form->param('test4');my $test5 = $form->param('test5');こ...(2017/09/01)

Perl
Perl ランダム 0と1 かぶり
いつもお世話になっておりますご教示お願い致します。□←0■←1とします。この0と1をランダムに5こでるようにします。↓例1)□■■□■例2)■■□□□このようにバラバラに出現させることができました。しかし、極稀になのですが、□□□□□や■■■■■とすべ...(2017/08/31)

JavaScript
Perlかjavascript スパム対策
現在、メールフォームにスパム対策をしようと考えているのですが、画像認証で検索しているところ、PerlではKent-web様のものがあったのですが、ちょっとむずかしく断念しました。そして調べているうちに下記のようなサイトを見つけたのですが、https://iritec.jp/web_servi...(2017/08/28)

Perl
Perl ログファイルの一部修正
ご教示お願い致します。$log = "ファイルの時間";@NEWTM = grep(/,$log,/, @DATA);last if ($j > @NEWTM);$data = $NEWTM[$j];my ($LogNo,$log,$Logname,$Logtitle,$Logtext,$Logpassword,$Logip,$Lognewtm,$Logcount) = split(/,/, $data);++$Logcount;for m...(2017/08/11)

Perl
Perl 2重投稿の防止
http://unimakura.jp/php/not-double-post.htmlこのサイトはPHPとしての参考がかかれていますが、このようなことを、Perlでしたいのですが、どう記述すればいいのでしょうか??完了画面での、フォーム再送信を禁止にしたいです。(2017/08/05)

Perl
Perl 行の置換
ご教示お願い致します。ーーーーーーーーーーーテキストファイルーーーーーーーーーーー5,a,a,a,a,a4,a,a,a,a,a3,a,a,a,a,a2,a,a,a,a,a1,a,a,a,a,a↓5,a,a,a,a,a4,a,a,a,a,a3,a,a,a,a,a2,ddddd,44444,sssss,ffffff,ssssss1,a,a,a,a,amy $NO = $form->param('NO');$NO = ...(2017/08/02)

Perl
Perl HTML JavaScript
ソースコードについて<input type="hidden" id="hoge" name="hoge" value="$hensu">このコードのvalueの値(変数)をソースから見て 見えなくさせたい(認識できなくさせたい)おそらく完全に見えなくするのは不可能と思うの...(2017/07/25)

Perl
Perl オープン関数について
Perl オープン関数についていつもお世話になっております。オープン関数でわからないことがあるのでご教示お願い致します。■test.cgi■open(FILE, ">sled/$log") or die("error :$!");eval{ flock(FILE, 2) };print FILE @DATA;close FILE;■bbste...(2017/07/21)

Perl
perlの正規表現 (ワンライナー)
以下のような文字列から2つの要素だけ抽出するようなperl/rubyのスクリプトはどのように書いたらいいでしょうか? できればワンライナーで実現したいです(が、ワンライナーとしてはちょっと複雑なのでしょうか。。。)元の文字列-test t001 +opt0=1024 -N n_paramX -seed 1 -...(2017/06/23)

Perl
Perl メルマガシステム
ご教示お願い致します。現在メルマガシステムを作ろうと考えているのですが、なかなか上手くいきません。まずメールを受信するプログラムはhttp://chaichan.lolipop.jp/perlnote/perlnote2007-06-20.htmこの、サイトを参考にできたのですが、このプログラムだとToは自分の...(2017/06/01)

Perl
Perlについて質問です
いつもお世話になっております。画像フォルダの中の画像の一覧するプログラムを作成したのですが、opendir(DIRHANDLE, "./img/");foreach(readdir(DIRHANDLE)){next if /^\.{1,2}$/; print <<END<a href="img/$_" rel="lightbox[sample-...(2017/05/31)

Perl
Perlで文字列を数式に変換する方法。
Perlでテキストに記載された数式を読み込んで計算を行い結果を表示するプログラムを作ろうと思っているのですが、Perlで文字列を数式として認識させる事は出来るのでしょうか?例えば以下のような数式が記載されたテキストの場合。(8-1)*4+2**4+8/4+((16+4-2*4)/2)*3Perlで...(2017/05/26)

Perl
perlのfor文について
perlなのですが、以下のfor文の書き方について教えてください。for($var1,$var2,$var3,$var4){ s/^(?:Company|Organization|Office|Location)\s*:\s*// if( $_ ); s/"(?:[^"]|\")*"//g if( $_ ); 1 while s/\([^()]*\)//g if( $_ );}これは、どのよう...(2017/05/16)

Perl
Perlについてご教示お願い致します。
Perl初心者です。ご教示お願い致します;;?text.txt?3,name,text2,あ,あ1,あ,あ上記のようなテキストファイルがあり、my $NAME = $form->param('name');my $TEXT = $form->param('text');unshift(@DATA,"$NO,$NAME,$TEXT\n");と、略してますが、NAMEとTEX...(2017/05/15)

Perl
PERL カンマ区切り 一致行削除
教えてくださいm(_ _)m最初に目的を書きます・・・?test.txt?1,aaa,eee,ttt3,eee,eee,yyy5,ttt,yyy,eee2,yyy,bbb,qqq↓5,ttt,yyy,eee2,yyy,bbb,qqq??????????例1)、カンマ区切り3列目が「eee」の行を全て削除(完全一致)例2)、カンマ区切り3列目が「e」を含む行を全て...(2017/04/28)

Perl
perl jcode::convert 半角>全角
perlでjcode::convertで半角を全角に変換すると正しく変換される時とされない時があります。例えば、sample1.plとsample2.plのmy $message = 'の次の「ハンカク」の4文字は半角の文字です。(注)ここにアップロードすると全角で表示されてしまいます。   この4文字を半角...(2017/04/17)

Perl
ActivePerl エラー?
右クリ→Open→コマンドプロンプト起動(一瞬で落ちる)という状態。どうすれば。。。windows10 64bit(2017/04/15)

Perl
Perl 禁止語句
テキストの中に禁止語句一覧があります。 それと一致した場合、エラーを返すのですが、 現在のコードですと、 完全一致で、これを部分一致にする方法を教えてください。またコードの指摘があればよろしくお願いいたします!◆ngword.txt◆あい いう うえ えお ・ ・ ・1000...(2017/04/12)

Perl
Perl require 共通の変数 外部ファイル
ファイルが多くなってきて、その中でも共通の変数があるので外部ファイルにまとめたい・・・?test.pl?#!/usr/bin/perlrequire("testcommon.pl");print qq(Content-type: text/html\n\n);print <<END;<html><head><meta http-equiv="Co...(2017/04/07)

Perl
Perl 処理速度について
ブログを作成し、カテゴリー別に分けたく下記のようなソースを書きました。sub category1{open(FILE, "<$FILE") or die("error :$!");eval{ flock(FILE, 1) };@DATA = <FILE>;close FILE;$a = 0;my @category1 = grep(/,1,/, @DATA);while (&...(2017/04/05)

Perl
perlのopen()で+<を使用した時の挙動が変
open()で+<を使用すると読み書き両方ができると理解しましたが、書き込んだ後の結果が私が思っていた挙動と違っていました。例えば、---test.pl--------------------------open(FILE,'+<test.txt') or die "$!";my $line=<FILE>;print FILE "AB...(2017/04/05)

Perl
Perl 文字間に¥を入れ文字化けを防ぎたい
いつもお世話になっております。ご教示お願い致します。まず下記のソースがあり、my $TEXT = "<font color=green>これは表示テスト結構";$TEXT =~ /\Q${TEXT}\E/;$TEXT =~ s/<[^>]*>//g;print qq($TEXT\n);タグを消すソース「$TEXT =~ s/<[^&g...(2017/03/31)

Perl
Perl ブログ等の記事の編集
記事の編集について教えてください。ブログ等の記事を書き込むまではできました。そこで、書き込んだ後に、記事を編集・修正をしたいと思いソースを考えているのですが、わからなくなりました。お力添えをお願い致します。#log.txt1,test1,name1,text12,test2,name2,text23...(2017/03/16)

Perl
perlの論理演算子の「and」と「&&」の違い
perlの論理演算子の「and」と「&&」の違いは、「弱い結合」と「強い結合」とかで説明されているのを見かけますが、これは、「短絡評価」(左側が偽だと右側が実行されない)と「短絡評価でない」(左側の真偽に関係なく右側が実行される)のと同じ意味になるのでしょう...(2017/03/09)

Perl
perlで検索 カンマ n番目
?log.txt?1,a,w,e,r2,a,w,e,r2,e,a,v,ssss3,s,ssss,a,a$FILE = 'log.txt';$Search = 'sss';?Search.pl?open(FILE, "<$FILE") or die("error :$!");eval{ flock(FILE, 1) };@DATA = <FILE>;close FILE;$a = 0;my @Search = grep(/$Search,/, @...(2017/03/08)

Perl
perl use strict エラーにならない?
perlの使い方を勉強しているのですがuse strict;を記述すると変数宣言が必要になるということですが以下のように記述してもエラーになりません。use strict;を記述するとmy $a;がないと$a="Hello";でエラーになるのではないのでしょうか。---test.pl----use stri...(2017/03/02)

Perl
Perl テキスト ブログ
ホームページにブログを設置を考えています。どうかご教示お願い致します。今考えていることはサイドにある記事のカテゴリ別や最新順といったものを表示することです。最新順はできたのですが、カテゴリ別が、うまいこといかないです。テキストファイル内はNo(カテゴリ),...(2017/02/28)

Perl
Perl BBS掲示板 サーバ側のファイル削除
いつもお世話になっております。サーバ側のファイルを削除したいのですが、どのようにすればいいのでしょうか・・・?#-----------------------------------------DELETEsub deletedata{use CGI;my $form = new CGI;my $tm = time;my $DELETE = $form->param('pass');my...(2017/02/21)

Perl
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('titl...(2017/02/17)



ビットコインの大暴騰、「億り人」と呼ばれる仮想通貨長者の誕生、マウントゴックス以来の大事件となったNEM流出など、派手な話題に事欠かない。世界各国政府も対応に手を焼いているようだが、中には政府が公式に仮想通貨を発行する動きも出てきており、国家と通貨の関係性にも大きな変化が起こりつつある。

Amazonが先鞭をつけたAIスピーカープラットフォーム。スマホのアプリが巨大な市場を成したように、スマートスピーカー向けのスキル/アプリ、関連機器についても、大きな市場が生まれる可能性がある。ガジェットフリークのものと思われがちだが、画面とにらめっこが必要なスマホよりも優しいUIであり、子どもやシニアにもなじみやすいようだ。

「若者のテレビ離れが進んでいる」と言われるが、子どもが将来なりたい職業としてYouTuberがランクインする時代になった。Twitter上でのトレンドトピックがテレビから大きな影響を受けていることからも、マスメディア代表としてのテレビの地位はまだまだ盤石に感じるが、テレビよりもYouTubeを好む今の子ども達が大きくなっていくにつけ、少なくとも誰もが同じ情報に触れることは少なくなっていくのだろう。