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
票
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';
#...
- 31
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, ':...
- 5,982
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
票
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