[perl] タグが付いた質問
53
件の質問
9
票
1
回答
249
閲覧数
Perl で foo.pl と foo.PL など大・小文字を使い分ける理由を教えてください
Perl の実行ファイルで拡張子が .PL や .pl となっているケースを見かけます。
Linux などでは大文字、小文字の区別があるのは知っていますが
Perl のコードでよく2つのパターンを見かけるのは何か規約やHackがあるのでしょうか?
Makefile.PL
app.pl
5
票
5
回答
449
閲覧数
最小量指定子 {n}? の使いどころ
Perlや.NETの正規表現には{n}?という最小量指定子が存在しますが、これはどのような場面で利用されるのでしょうか。
5
票
1
回答
526
閲覧数
複数のグローバル変数をevalを使わず動的にlocalすることは可能ですか?
グローバルな変数$foo, $bar, $buzが存在し、それらを特定のスコープ内のみ局所化しようとすると、以下のようになると思います:
use strict;
use warnings;
use v5.10;
our ($foo, $bar, $buz) = qw(foo bar buz);
UPPER_CASE_WORLD: {
# このスコープだけ所定のグローバル変数を大文字に
...
4
票
2
回答
868
閲覧数
Try::Tinyモジュールの実装方法
perlで例外処理をするモジュールとしてTry::Tinyがあります。
使うときは以下のように定義しますが、これが文法的にどうやって実装されているか確かめたくてモジュールを読んでみましたが、分かりませんでした。
Javaと同じような文法ですが、perlにはtry構文は用意されていません。
Try::Tinyがどうやってこの文法を実装しているの知りたいです。
perldoc Try::...
4
票
3
回答
359
閲覧数
古いCGIに残る`open(FH, '| sendmail -t -oi')`をテストしたい
openがまだ2引数でベアワードを織り交ぜていた頃のメール送信プログラムがあります。
このメールのメッセージをテストするスクリプトを書こうとしています。
一部だけ抜粋するとこのような感じになります:
require 'jcode.pl';
require 'mimew.pl';
open(FH, '| sendmail -t -oi');
print FH &mimeencode("...
3
票
2
回答
842
閲覧数
配列内のリストを効率よく走査するには
Perlで下記のような構造を持つ配列があります。
@array = ({
id => '1',
key => 'a'
},
{
id => '2',
key => 'b'
},
{
...
3
票
3
回答
296
閲覧数
インクリメント演算子の+と-は実装が大きく異なっているのでしょうか?
まったく実践的じゃない質問です。
単なる好奇心からインクリメント演算子を何気なくいじって、結果がどうなるか試していました。
すると正負をひっくり返した場合にエラーが出る場合と出ない場合がありました。
+--+を前置した場合:
$ perl -E '$z = 3; say +--+$z;'
2
-++-を前置した場合:
$ perl -E '$z = 3; say -++-$z;'
...
3
票
1
回答
1,170
閲覧数
perlでExcelファイルの行数を取得したい。
現在、perlのCGIプログラムの中で、Excel-2007ファイル(.xlsx)を読み込んで処理をしています。そのとき、CPANの
Spreadsheet::XLSX -> new(ファイルパス);
を使用していますが、10000行以上のファイルであると、上記行の実行だけで1分を超えてしまいます。Webアプリなのでレスポンスが遅いのは致命的です。
Spreadsheet::XLSX ...
3
票
3
回答
1,271
閲覧数
プレーンテキストであることを確認するための正規表現
Perlのプログラムにて、あるファイルがプレーンテキストのみで書かれていることを
正規表現で判別したいのですが、どのようにパターンを書けば実現出来るか悩んでいます。
Linuxのfileコマンドでテキスト/バイナリの識別ができますが、
そのようなことを正規表現で書けるものでしょうか。
2
票
2
回答
495
閲覧数
Perl の \@list と [@list] には、どんな違いがありますか?
Perl のリストをリファレンスにするときには、\を使うと思います。
125> my @list = (1..3);
$res[75] = [
1,
2,
3
]
126> my $x = \@list;
$res[76] = [
1,
2,
3
]
しかし、map の場合は、\が使えない(?) ので、[]を使っています。
134> my $x = ...
2
票
3
回答
2万
閲覧数
perlにて「symbol lookup error: undefined symbol: Perl_Gthr_key_ptr」エラーがでる
以前まで正常に動いていたperlスクリプトが、以下のようにエラーを出すようになりました。
perl: symbol lookup error: /usr/local/lib64/perl5/auto/JSON/XS/XS.so: undefined symbol: Perl_Gthr_key_ptr
そこでCPANでエラーに書かれているライブラリをインストールしようとしても、...
1
票
2
回答
438
閲覧数
miで編集したスクリプトを実行しても何も起きず、lessで表示すると改行がおかしくなっている
Mac OS XでPerlの(というか初めてのプログラミングの)勉強を始めました。
スクリプトファイルを作るのには、miというテキストエディタを使っていますが、なぜか実行できるものとできないものがあります。実行できないものは、ターミナルで文法チェックにかけています。
% perl -cw broken.pl
% broken.pl syntax OK
「ハローワールド」...
1
票
4
回答
9,185
閲覧数
null文字判定と置き換え
読み込んだCSVファイルから、nullをスペースに置き換えて出力したいです。
nullは,,のところです。
1レコード17項目です。
読み込みファイル
01,,01,4カナ-0001,5漢字-0001,6,7年月-0001,8日付-0001,9-0001,10ー0001,11ー0001,12ー0001,3,4,15ー0001,6,17000001
02,0002,,4カナ-0002,5漢字-...
1
票
4
回答
1,327
閲覧数
Perl のハッシュで、key ではなく value でのスライシングを1行で書けますか?
python, ruby ではハッシュの要素でのスライスが1行でできますが、perl ではどうやるのでしょうか?
「perl hash slice」 で検索しても、hash のキーでスライスする方法しか見つかりませんでした。
やりたいのは下記のようなことです。
ruby
[6] pry(main)> hash = (0..3).map { |x| [x, x*2] }.to_h
=&...
1
票
2
回答
228
閲覧数
10進数255までを2進数に変換し、新規作成したテキストファイルに書き込む
255までの10進数を2進数に変換する命令は分かりましたが、open関数でテキストファイルに書き込むことができません。
繰り返し文の二重化を避けるため、foreach文をサブルーチンにして、テキストファイルを作成するときは、サブルーチンから参照するようにしました。
結果、参照は可能ですが、テキストファイルには何も反映されませんでした。
sub math {
foreach my $c ( ...
1
票
3
回答
397
閲覧数
正規表現 (sed や Perlなど) で複数行間の選択範囲内を置き換えたい
次のようなデータがあり、予め変数に代入されているものとします。
(置き換えしたいリスト以外にも任意のデータを含む場合あり)
HOGEHOGEHOGE
-果物<
りんご
ぶどう
メロン
>
\():;.'"#
?><@`ABCABC
12345
-os<
Microsoft Windows
Mac OSX
GNU/Linux
BSD
>
-...
1
票
2
回答
1,703
閲覧数
perlで二次元配列の書き方について
.#.#....
.#.#....
........
.....#.#
.......#
......#.
........
.......#
........
........
このような10行*8列計80個セルの入力データ(仮にsample.txt)があります。
perlでこのsample.txtからデータを読み込んで、一行一列ずつ二次元配列に代入したいです。
つまり@hairetu[i][...
1
票
1
回答
225
閲覧数
16進数のテーブル表
10進を16進数に変換した一覧表をテキストファイルに出力して作成したいです。
できれば、項目もつけて。
下記の九九表みたいな感じに。
for (my $i = 1; $i <= 9; $i++ ) {
for (my $o = 1; $o <= 9; $o++) {
my $a = $i * $o;
printf("%2d ", $a);
...
1
票
1
回答
2,876
閲覧数
ドラッグ&ドロップされたファイルをサーバにアップロードするには?
よろしくお願いします。
簡易ファイルサーバを作っています。
ファイルのアップロードについて、formの<input type = "file">を使ってのアップロードはできています。
ドラッグ&ドロップでもファイルをアップロードする機能を付けたいと思っているのですが、質問があります。
色々なサイトを参考に、ドラッグ&...
1
票
1
回答
160
閲覧数
apacheのmod_perl2で、リクエスト間で共通の値を保持しておきたい
apacheでmod_perl2を使用して、リクエストのアクセス制御を行うことを考えています。
以下のように PerlAccessHandler で、サーバローカルのファイルを読み込み、その情報を
元にユーザアクセスの制御したいと思います。
=== httpd.conf ===
<Location />
PerlAccessHandler Hoge::Foo ←ここで処理
...
1
票
1
回答
292
閲覧数
Try::Tiny で ImageMagick の例外を処理するには
ファイルサーバのようなものを作っています。
PDF ファイルのサムネイルを ImageMagick を使って生成しているのですが、ImageMagick でエラーが出る PDF ファイルがあります。
そのファイルの場合、単にサムネイルを使わないようにしたいのですが、try::tiny で囲んでも期待する結果になりません。
コード
try{
my $image = Image::...
0
票
1
回答
381
閲覧数
perlのsql結果について
こんにちは、perlのresult結果が定数に入るということがこの前わかりました。
perlファイルコード
$sql = "select ・・・;"; # <- SQL文
$ret = $conn->exec($sql);
$ret->resultStatus
でこの値に
- PGRES_EMPTY_QUERY
- PGRES_COMMAND_OK
- ...
0
票
1
回答
2,775
閲覧数
perl で while(<STDIN>) は何を意味しますか?
perl初心者です。
perlファイルで while(<STDIN>)って何かまったくわかりません。
何ですかね?
0
票
2
回答
1,904
閲覧数
Perlで euc-jp "\xE7" does not map to Unicode というエラーが出る
Perlのプログラムを実行すると以下のエラー内容がでて困っております。
自分自身、Perlを使うのがはじめてで、非常にざっくりした質問内容になってしまいますが、
ヒントなどをご教示いただけると助かります。
プログラムの内容は以下のページからダウンロードできます。
京都大学テキストコーパス Version.4.0
エラーメッセージ
euc-jp "\xE7" does not map to ...
0
票
1
回答
267
閲覧数
perlでの標準入力からの値の取得
perlの勉強をしているのですが、キーボードから文字が入力されるまで、入力待ちになるプログラムを試しているのですが、そのまま流れてしまいます。なぜでしょうか?
下記サイトの、サンプルプログラムを利用させていただきました。
https://www.javadrive.jp/perl/stdin/index2.html
use strict;
use warnings;
use utf8;
...
0
票
1
回答
136
閲覧数
Nginx+Apache環境でPerlスクリプトが動作するようにする方法
お世話になります。
Nginxをリバースプロキシとして、Apacheを動作させようとしています。
とりあえず、大体の設定作業は終わり、HTMLとPHPは正常に表示できるようになりました。
そして、現在Perlスクリプトを動かそうとしているのですが、やり方がよくわからずにいます。
とりあえず、Apacheのバーチャルホストの設定ファイルに下記を記述しました。
<IfModule ...
0
票
2
回答
1,855
閲覧数
utf8プラグマを付けると 受け取った内容の一部が文字化けます。
CGIモジュールを利用して、フォームを作成しているのですが、入力画面からフォームの内容を受け取る際、utf8プラグマを付けると
受け取った内容の一部が 文字化けます。
以下のようにパラメーターを取得しています。
どうしたらよいでしょうか
現象はLaten-1の文字コードが表示されてしまいます。
#!/usr/bin/perl
use strict;
use Encode;
use Encode:...
0
票
1
回答
590
閲覧数
perlでのクッキー取得エラー
a.cgiにてクッキーをセットし、
同じ階層のb.cgiでクッキーの読み出しをしようと
したところエラーが発生いたします。
b.cgiの $main->param(READID => $readid); の箇所の指定で
エラーが出ているようですが、原因がわかりません。
どのような指示が相応しいのでしょうか?
ご教示いただけるとありがたいです。
よろしくお願いいたします。
■a....
0
票
1
回答
80
閲覧数
Perlのモジュール、File::BOMとencodingの順番について
Perlでopen関数の第2引数で
open my $fh, ">:via(File::BOM):encoding(UTF-8)", $file or die "Cannot open $file: $!";
のようにFile::BOM、encodingという順番に指定すると、文字列がある長さで切れます。
以下のプログラムはBOMつきのUTF-...
0
票
1
回答
119
閲覧数
Perl スクリプトを動かそうとすると `"Util.bundle"は、開発元を検証できないため開けません。`
環境
Perl 5.20.1
cpanm (App::cpanminus) 1.7044 on perl 5.020001 built for darwin-2level
macOS Catalina 10.15.6
題の通り、Perl スクリプトを動かそうとすると、
"Util.bundle"は、開発元を検証できないため開けません。
...
0
票
1
回答
1,130
閲覧数
ドラッグ&ドロップで複数ファイルをアップロードするには?
ドラッグ&ドロップされたファイルをサーバにアップロードするには?
の続きです。
ご回答を得まして、ドラッグ&ドロップでファイルをアップロードすることはできました。
ただ、複数ファイルのアップロード方法が分かりません。
my $q = new CGI;
my @fps = $q->upload('file');
my @fnames = $q->param('file');...
0
票
1
回答
2,351
閲覧数
PythonにおけるPerlのrequire文のようなものは?
こんにちは. Perlを5年ほど学んでいましたが, この度Pythonを学び始めることにしました. 初学者です.
現在PythonでWebアプリケーションを作ろうと思っているのですが, Perlではrequire "foo.cgi"のように記述することで同じディレクトリにあるfoo.cgiというライブラリを読み込むことができました. ...
0
票
1
回答
967
閲覧数
JavaScriptとPerlで、ファイルをドラッグ&ドロップしたらアップロード
JavaScriptとPerlで、ファイルをドラッグ&ドロップしたら、サーバにファイルをアップロードする仕組みを作りたいです。
「Ajaxを利用して複数画像をドラッグ&ドロップで一括アップロード」
http://qiita.com/uda0922/items/4e22908ce2acb3a28f29
などを見ながら作ってみたのですが、うまくいきません。無反応です。
Perlの該当関数
...
0
票
1
回答
100
閲覧数
Perl6 ハッシュの配列の作り方
Perl6 で配列のサイズが1しかないハッシュの配列を作りたいのですが、どういう訳か、ペア(Pair)の配列が作られてしまいます。
Perl6 ではこれが普通なのでしょうか、それとも私のプログラムの書き方が間違っているのでしょうか。ご指導の程よろしくお願いいたします。
my @list = [
{ name => "foo", id => 1 }
];
@list.perl....
0
票
2
回答
1万
閲覧数
Perl で `Use of uninitialized value concatenation` を出さないイディオムはありませんか?
Perl で文字列を生成するとき、よく Use of uninitialized value concatenation を出してしまうので、どうにか解消したいと考えています。
これは初期化されていない(というか、undef が入っている)変数を文字列として結合したときに出ますが、毎回必ず初期値を入れるのはコード量が多くなるので嬉しくありません。
undef の場合に、...
0
票
1
回答
484
閲覧数
Perl DBIのbind_columnについて
PerlのDBIを用いてselect文を実行し、各行を読み込み処理を行う際に
$sth->bind_columns(\$name, \$old, \$language);
while($sth->fetch()){
...
}
というコードを実行しているのですが、DB上の$oldにデータが入っていない行の
while文中の処理が省略されて、次の行に移行してしまいます。
$...
0
票
1
回答
161
閲覧数
:methodの意味
Perlのモジュールを読んでいたら以下の関数定義がありました。
sub connect :method {
}
この、:methodっていうのはどんな意味があるのか、ご存知の方がいたらご教示願いたいです。
0
票
0
回答
388
閲覧数
正規表現の先読み/後読みで直近の文字列を対象にするようにしたい
実現したいこと
次のようなデーターがあるとします。
foo<ほげほげ>bar<ふがふが>
ここから「ほげほげ」の部分だけを抽出したいです。ご存知の方が入ればお手数ですが宜しくおねがいします。
試したこと
echo "foo<ほげほげ>bar<ふがふが>" | grep -oP "(?<=foo<).*(?=&...
0
票
1
回答
349
閲覧数
Perlを用いて複数のファイルにそれぞれ違う内容を書き込む方法について
複数のファイルに違う内容を書き込む
Perlを使って複数ファイルにそれぞれ違う内容を書き込みたいです。
具体的には、コマンドライン入力した$start_no=2、入力ファイルの行数が 3 とすると
tmp1.txtに 2 3 4 5
tmp2.txtに 6 7 8 9
....
と書き込みたいです。
以下のコードでは、指定した出力ファイルtmp1~4.txt自体はつくられますが、...
0
票
1
回答
1,250
閲覧数
StrawberryPerlのCPANを実行するとエラーが出る
Windows10 64ビット環境にStrawberryPerlをインストールしました。
この状態で、コマンドプロンプトを起動して、cpanコマンドを実行しようとしているんですが、下記のエラーが表示され、実行できません。
何か解決方法はありますでしょうか。以上、よろしくお願いいたします。
Can't locate CPAN/Author.pm in @INC (you may need to ...
0
票
0
回答
665
閲覧数
optionから受け取った選択しをselectのvalue変数へ
お世話になってます。初心者ですがなにとぞよろしくお願いします。
formの中に本人確認実施フラグを作りたいですが、optionから受け取ったtrueまたfalseはselectのvalue変数gui->{check_flag} へ設置したいです。以下のようなコードでどのように連携すればいいのかわかりません。詳しい方は教えて頂ければ助かります。
該当部分のソースコード
<select ...
0
票
2
回答
223
閲覧数
perlにて、2つの要素からなる配列のリファレンスの配列から、0番目の要素の値が最大の1番目の要素を取得したい。
例えば([1,'A'],[2,'B'],.....,[10,'X'])のとき、'X'を取り出すには、どうしたらいいでしょうか?
forループでごりごりやればできますが、map、grep、maxのような関数を使ってエレガントに記述したいのですが。
0
票
0
回答
106
閲覧数
perlのmapについて
my @old = qw( 12 34abc56def 999 );
my @new = map { /([a-z]+)/ } @old;
for my $n ( @new ){ print "[$n]\n"; }
print scalar @new,"\n";
上記コードの出力は、以下を期待していたのですが、
[]
[abc]
[]
3
実行してみると、
[abc]
1
となります。
...
0
票
1
回答
628
閲覧数
perlでファイルの指定文字列を取り出し、変数へ格納
あるファイル(仮にsample.txt)の一行目には三つの数字があります。数字と数字の間に半角スペースが入ってます。三つの数字を正規表現で取り出し、それぞれ変数A、B、Cに格納する方法はありますか
20 31 7
abcdefg
あいうえお
...
自分はこのように考えています。うまくいかなかったです。
print"ファイル名を指定してください!";
chomp(my $file =...
0
票
1
回答
819
閲覧数
PerlのCGIモジュールでHTMLからのパラメーター渡しを行いたい
PerlのCGIモジュールでHTMLフォームの表示を行おうとしております。
下記の引用部分でどのようにparamを使ったらよいのでしょうか?
質問の意味も通じるのか不安なのですが、ご教示いただけると助かります。よろしくお願い致します。
Windows 7 Professional SP1 64ビット
Apache 2.4.29(Win64)
Perl v5.24.3
Google Chrome ...
0
票
1
回答
404
閲覧数
Perlの正規表現による文字列抽出をPythonでやりたい
下記のようなPerlのコードと同じことをPythonでやりたくて調べています。
use utf8;
use feature 'unicode_strings';
use open ':encoding(utf8)'; # I/O default encoding is UTF-8
use open ':std'; # stdio ...
0
票
0
回答
174
閲覧数
Perlのpack関数について
前提・実現したいこと
今回実現したい事は、Perlのpack関数を
javascript(最終目標:node.jsモジュール)で実現させたいです。
ただperlは全くの素人で、pack自体の挙動は調べた限りの知識しかありません。
仕様として、テンプレとリストがあり、それを用いて各処理が実行される程度…。
一応個人でも、色々調べてみましたが、試した結果は期待通りにならず、難航しております。
...
0
票
1
回答
1,136
閲覧数
cgi-binのサブディレクトリのcgiが動作しない
Perl の CGI です。
cgi-bin/hello.cgi
だと動作するのですが、サブディレクトリを置いて
cgi-bin/folder/hello.cgi
という感じにすると
Forbidden
You don't have permission to access /cgi-bin/0_search/hello.cgi on this server.
...
0
票
1
回答
425
閲覧数
連番処理でのブレイク処理で
出力の5項目目に出力した1項目目+3項目目が同一の件数をカウントして表示したいです。
各処理の説明。
input.csvを読み込んで、output.txtを出力する。
input.csvの2項目からブレイク処理に応じて3項目目と4項目目を作成。
3項目目は、1から始まり2項目目がブレイクすると+1、1項目目がブレイクすると1にリセット。
ついで、データ連番が10になっても+1カウントします。
...
-1
票
1
回答
306
閲覧数
perlファイルからpostgresqlに接続して結果を知りたい
perlファイルpgをuse(インクルードみたいなの?)してpg::connectdbをしているんですが、そのSQLの返り値を確認したいと思っています
#beginをかけます。
$conn = Pg::connectdb("host=$host port=$port dbname=$dbname user=$user");
$result = $conn->exec("lock ...