次のタグが付いている話題の回答:

4

perlでExcelファイルの行数を取得したい。

ファイル名「hoge.xlsx」のシート名「sheet1」の行数をとる場合、こんな感じでしょうか。異常系はあまり考慮していないサンプルです。 SpreadSheet::XLSXの超簡易版なので、所要時間は同じぐらいかかってしまうかもしれません。 #!/usr/bin/env perl use strict; use warnings; use Archive::Zip; my $zip = ...
  • 2,858
4
Accepted

Try::Tinyモジュールの実装方法

お察しの通りです。(そのため最後に";"が必要になります) try/catch/finallyは構文に見せかけた単なるサブルーチン名です。 サブルーチンは引数にコードリファレンスを取る事ができるので以下のように呼ぶ事ができます。 sub foo { my $code_ref = $_[0]; return $code_ref->(); } foo(sub { ... })...
  • 3,422
4
Accepted

配列内のリストを効率よく走査するには

id から対応する配列の要素に対して効率的にアクセスしたいという質問だと思います。この場合、次のようなアプローチが考えられます。 事前に id をキー、インデックスを値とするハッシュを作成しておき、それを利用する。(検索コストは O(1)、メモリを食う) @array の中身を id の順に並べ替えておき、二分検索を行う (検索コストは O(log_2 n)、ソートが必要) 1のアプローチだと、...
  • 4,413
4

配列内のリストを効率よく走査するには

grepを使いましょう。可読性が高く、高速で直感的です。 my @ar = grep { $_->{id} eq '4' } @{$array}; リストコンテキストで使用すれば望みのデータだけを取り出す事ができます。 以下はベンチマークの結果です: use strict; use warnings; use Benchmark qw(cmpthese); my $array = [...
  • 3,422
4

miで編集したスクリプトを実行しても何も起きず、lessで表示すると改行がおかしくなっている

miで改行コードを「LF(UNIX)」にしてみてください
  • 134
3
Accepted

miで編集したスクリプトを実行しても何も起きず、lessで表示すると改行がおかしくなっている

(mztnsさんの回答と同じですが補足として一応) スクリプトに含まれている文字^Mからおそらく、Perlから見ると改行を正しく判断できずに一行だけのファイルだと解釈してしまい、さらに先頭に #!/usr/bin/perl があることでスクリプト本体がコメント行扱いされて、結果的に何も出力されなかったようです。 miエディタの改行コードがCR(Mac)になっていることが原因かと思います。 ...
  • 2,395
3

Perlで euc-jp "\xE7" does not map to Unicode というエラーが出る

同様のエラーをUbuntu18.04LTSで発生させましたが,解決した方法を記述します. 1) CentOS 7系のサーバ上に KyotoCorpus4.0 と mai95.txt (SJIS) を移動 2) src/format.pl と src/dupli.pl を EUC-JP環境で最初の部分を下記のように書き換えます format.pl #use encoding 'euc-jp'; #...
3

perl で while(<STDIN>) は何を意味しますか?

STDIN はファイルハンドルで、標準入力にアサインされています。 標準入力とは キーボードからの入力やパイプ(例:cat sample.txt || perl test.pl) や リダイレクト(例:perl test.pl < sample.txt)されたファイルのことです。 <STDIN> は、 <ファイルハンドル>で、指定されたファイルから一行を読込み、変数$...
  • 6,897
3
Accepted

perlのsql結果について

定数を利用せずに、直接数値を指定して結果判定をしていいかということでしょうか? まず、動作するかどうかについてですが、定数を利用せずに直接数値で判定を行っても正しく動作すると思います。 しかし、よほど特別な理由がない限り避けた方がよいです。 プログラムに直接固定の数値を書くことを「マジックナンバー」と呼びます。 このマジックナンバーを多用すると「可読性低下」「保守性低下」...
  • 1,419
2
Accepted

16進数のテーブル表

こんな感じ? open (my $f, ">", "table.txt") or die "cannot open texfile : $!\n"; printf $f "%4s", ""; for ( my $num10 = 0 ; $num10 < 32 ; $num10++ ) { printf $f "%3d ", $num10; } for ( my $num16 =...
  • 6,897
2

null文字判定と置き換え

$line2を調べて置き換えを行っても出力は@data2をjoinしたものですから意味がありません。 splitした内容を調べて置き換えをする必要があると思います。 例えば、以下の様にします。 my @data2 = split(/,/, $line2); foreach my $item (@data2){ if($item eq ""){ $item = " "; ...
  • 6,897
2
Accepted

null文字判定と置き換え

Perlでnull文字は\0か\x00を使います。 open IN2, "<:encoding(utf8)", "$input_FILE" or die; open OUT2, ">:encoding(utf8)", "$output_FILE" or die; while (my $line2 = <IN2>) { # null文字列が存在する? if ...
  • 3,422
2

perlでのクッキー取得エラー

$main の値が undef のため、メソッド呼び出しに失敗しています。b.cgi だけではなく、a.cgi も同様のエラーになるはずです。 このようなミスを防ぐため、先頭に use strict; (とついでに use warnings;) を入れておくと良いでしょう。use strict によって、宣言されていない変数を使用していた場合にはエラーとなります。
  • 4,413
2
Accepted

Perl で foo.pl と foo.PL など大・小文字を使い分ける理由を教えてください

Makefile.PLはExtUtils::MakeMakerが作ります。 ExtUtils::MakeMakerのドキュメントを見ると、以下のような一文が見受けられます: http://search.cpan.org/~bingos/ExtUtils-MakeMaker-7.10/lib/ExtUtils/MakeMaker.pm This utility is designed to ...
  • 3,422
2
Accepted

10進数255までを2進数に変換し、新規作成したテキストファイルに書き込む

結果、参照は可能ですが、テキストファイルには何も反映されませんでした。 参照してません。print で画面に出力しているだけです。関数 math から何も戻り値を返してないです。 use strict; use warnings; sub math { my @a; push @a, sprintf("%d -> %b\n", $_, $_) for ( 0..255 ); ...
  • 4,456
2
Accepted

Perl のハッシュで、key ではなく value でのスライシングを1行で書けますか?

grep でフィルタして map で生成 というのが個人的にはわかりやすいかなぁと思います my %hash = map{ $_ => $_*2 } 0..3; my %hash2 = map { $_ => $hash{$_} } grep { $hash{$_} > 2 } keys %hash;
  • 134
2

perlファイルからpostgresqlに接続して結果を知りたい

質問はPerlというより libpg のお話だと思いますので、既にご紹介されている perldoc に加えて libpgのドキュメントを読まれるのをお勧めしておきます。Perldocの日本語訳がよければこちらもあります。 どこを見るのが正確なんでしょうか?? クエリ実行結果は $result->resultStatus の値で判定します。 値は 次の定数のいずれかです。 ...
  • 7,666
2

Nginx+Apache環境でPerlスクリプトが動作するようにする方法

お世話になります。 私の単純なミスで、cgiを動作させるモジュールがロードされていなかったため、Perlスクリプトが動かなかったようです。 a2enmod cgi でモジュールを有効化して、Apacheを再起動させたところ、正常に動作するようになりました。 ありがとうございました。 以上、今後ともよろしくお願いいたします。
  • 777
2
Accepted

perlでの標準入力からの値の取得

おそらく、Windows環境でない環境でコードが動いているからだと思います。 https://www.javadrive.jp/perl/encoding/index2.html ※「cp932」はMicrosoftがShift_JISを独自に拡張した文字コードです。 とあります。 binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':...
1

Perl のハッシュで、key ではなく value でのスライシングを1行で書けますか?

ハッシュをループするのにv5.12以降であればeachが使えますが、 わかりずらい副作用があるので基本はmztnsさんのようにkeyを軸にします。 どうしてもハッシュのkeyとvalueをループ変数に取りたい場合は、spliceが使えます。 my %hash = map { $_ => $_ * 2 } 0 .. 3; # # ハッシュはリストコンテキストで呼ばれると # ...
  • 3,422
1

Perl のハッシュで、key ではなく value でのスライシングを1行で書けますか?

Perlのmapでは、ブロックが空リストを返すことでその要素を除いた結果になります(perldoc -f map参照)。 my %hash = map { $_, $_ * 2 } 0..3; my %hash2 = map { $hash{$_} > 2 ? ($_, $hash{$_}) : () } keys %hash;
  • 2,858
1

Perl DBIのbind_columnについて

コメントにしようかと思ったのですが実際のコードを含むのでこちらにします。 質問にはいくつか重要な情報が抜けています。 まずは実行可能なコードを提示し、何が問題になっているのか具体的に教えてもらえますか? 以下はSQLiteでテストした時のコードと結果です。$oldがカラでも問題なく処理されているように見えます: #!/usr/bin/perl use strict; use warnings;...
  • 3,422
1

utf8プラグマを付けると 受け取った内容の一部が文字化けます。

最後の出力の前に、utf8::decode($value)を行ってみてください。 詳しい理由は、下記サイトを参照してください。 一部引用: use utf8 とは、 このCGIスクリプト内で扱う全角文字は文字コードがUTF-8であり、且つ、扱う全角文字データ全てにutf8フラグ(目印みたいなもの/以下単に「フラグ」と呼称)を付けてあるのでそのつもりで処理してね、...
  • 136
1

utf8プラグマを付けると 受け取った内容の一部が文字化けます。

Perlで「UTF-8」というとき、外部とやりとりする文字コードとしてのUTF-8を指す場合と、Perlの内部文字コードとしてのUTF-8を指す場合があります。まぎらわしいですが、両者はいっしょにできない別物です。Perlの文字列として見た場合、前者はバイト列、後者は内部コード列になります。 上のコードをざっと見た限りでは、日本語文字列をバイト列として扱っているように見えます。いっぽう、...
  • 2,858
1
Accepted

perlのハッシュで重複するキーの削除と足し合わせ

書き方は色々あると思いますが、一例として次の様な感じ。 &cyofuku_CHECK($input_FILE, $output_FILE); &cyofuku_CHECK($input_FILE_2, $output_FILE_2); sub cyofuku_CHECK($$){ my $f_input = shift; #--- 入力ファイル名 my $...
  • 6,897
1

null文字判定と置き換え

試していませんが、split & join せずとも置換2回で事足りませんか。 s/,,/, ,/g で置換できないパターンは、,,, の2つ目のカンマのようにnullの次でありかつ別のnullの前であるカンマの場合ですので、2回置換で取りこぼしが無くなります。 # レコードにnullが含まれている? if ( $line2 =~ /,,/ ) { print "...
  • 412
1

null文字判定と置き換え

@data2 は置き換え処理をする前の $line2 から作られているように見えます。順序をすこし変えてみてはいかがでしょうか。
  • 1.1万
1

複数のグローバル変数をevalを使わず動的にlocalすることは可能ですか?

例えば次のような感じでどうでしょうか。 コンセプトはスコープの最初に値を保存し終了時に戻す。(つまり手動local) use strict; use warnings; use v5.10; our ($foo, $bar, $buz) = qw(foo bar buz); #糖衣構文用関数 sub using(&@) { my $code = shift; my @...
  • 6,897
1
Accepted

:methodの意味

サブルーチン属性と言われるモノです。 一般にはユーザが適当につけて利用することができますが、 :methodは組み込みの属性で、 参照された関数はメソッドであると 提示します
  • 6,897

Only top scored, non community-wiki answers of a minimum length are eligible