4
票
perlでExcelファイルの行数を取得したい。
ファイル名「hoge.xlsx」のシート名「sheet1」の行数をとる場合、こんな感じでしょうか。異常系はあまり考慮していないサンプルです。
SpreadSheet::XLSXの超簡易版なので、所要時間は同じぐらいかかってしまうかもしれません。
#!/usr/bin/env perl
use strict;
use warnings;
use Archive::Zip;
my $zip = ...
4
票
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
票
Accepted
miで編集したスクリプトを実行しても何も起きず、lessで表示すると改行がおかしくなっている
(mztnsさんの回答と同じですが補足として一応)
スクリプトに含まれている文字^Mからおそらく、Perlから見ると改行を正しく判断できずに一行だけのファイルだと解釈してしまい、さらに先頭に #!/usr/bin/perl があることでスクリプト本体がコメント行扱いされて、結果的に何も出力されなかったようです。
miエディタの改行コードがCR(Mac)になっていることが原因かと思います。
...
3
票
perl で while(<STDIN>) は何を意味しますか?
STDIN はファイルハンドルで、標準入力にアサインされています。
標準入力とは
キーボードからの入力やパイプ(例:cat sample.txt || perl test.pl) や
リダイレクト(例:perl test.pl < sample.txt)されたファイルのことです。
<STDIN> は、
<ファイルハンドル>で、指定されたファイルから一行を読込み、変数$...
3
票
Accepted
perlのsql結果について
定数を利用せずに、直接数値を指定して結果判定をしていいかということでしょうか?
まず、動作するかどうかについてですが、定数を利用せずに直接数値で判定を行っても正しく動作すると思います。
しかし、よほど特別な理由がない限り避けた方がよいです。
プログラムに直接固定の数値を書くことを「マジックナンバー」と呼びます。
このマジックナンバーを多用すると「可読性低下」「保守性低下」...
2
票
Accepted
10進数255までを2進数に変換し、新規作成したテキストファイルに書き込む
結果、参照は可能ですが、テキストファイルには何も反映されませんでした。
参照してません。print で画面に出力しているだけです。関数 math から何も戻り値を返してないです。
use strict;
use warnings;
sub math {
my @a;
push @a, sprintf("%d -> %b\n", $_, $_) for ( 0..255 );
...
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 =...
2
票
null文字判定と置き換え
$line2を調べて置き換えを行っても出力は@data2をjoinしたものですから意味がありません。
splitした内容を調べて置き換えをする必要があると思います。
例えば、以下の様にします。
my @data2 = split(/,/, $line2);
foreach my $item (@data2){
if($item eq ""){
$item = " ";
...
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 ...
2
票
perlでのクッキー取得エラー
$main の値が undef のため、メソッド呼び出しに失敗しています。b.cgi だけではなく、a.cgi も同様のエラーになるはずです。
このようなミスを防ぐため、先頭に use strict; (とついでに use warnings;) を入れておくと良いでしょう。use strict によって、宣言されていない変数を使用していた場合にはエラーとなります。
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 ...
2
票
Accepted
Perl のハッシュで、key ではなく value でのスライシングを1行で書けますか?
grep でフィルタして map で生成 というのが個人的にはわかりやすいかなぁと思います
my %hash = map{ $_ => $_*2 } 0..3;
my %hash2 = map { $_ => $hash{$_} } grep { $hash{$_} > 2 } keys %hash;
2
票
perlファイルからpostgresqlに接続して結果を知りたい
質問はPerlというより libpg のお話だと思いますので、既にご紹介されている perldoc に加えて libpgのドキュメントを読まれるのをお勧めしておきます。Perldocの日本語訳がよければこちらもあります。
どこを見るのが正確なんでしょうか??
クエリ実行結果は $result->resultStatus の値で判定します。
値は 次の定数のいずれかです。
...
2
票
Nginx+Apache環境でPerlスクリプトが動作するようにする方法
お世話になります。
私の単純なミスで、cgiを動作させるモジュールがロードされていなかったため、Perlスクリプトが動かなかったようです。
a2enmod cgi
でモジュールを有効化して、Apacheを再起動させたところ、正常に動作するようになりました。
ありがとうございました。
以上、今後ともよろしくお願いいたします。
2
票
Accepted
perlでの標準入力からの値の取得
おそらく、Windows環境でない環境でコードが動いているからだと思います。
https://www.javadrive.jp/perl/encoding/index2.html
※「cp932」はMicrosoftがShift_JISを独自に拡張した文字コードです。
とあります。
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':...
1
票
JavaScriptとPerlで、ファイルをドラッグ&ドロップしたらアップロード
コードを見た感じではたぶん現状では、ファイルをドラッグアンドドロップしてもそのファイルが開かれるだけかと思います。
サンプルと指定されているコードはAjaxでファイルをPOSTするプログラムのようなのでFormタグは不要ですね。
ファイルをドロップするための領域をDIVなどで用意して、 その領域に対してイベントハンドラの「ondragover="onDragOver(event)" ondrop=...
1
票
Perl のハッシュで、key ではなく value でのスライシングを1行で書けますか?
Perlのmapでは、ブロックが空リストを返すことでその要素を除いた結果になります(perldoc -f map参照)。
my %hash = map { $_, $_ * 2 } 0..3;
my %hash2 = map { $hash{$_} > 2 ? ($_, $hash{$_}) : () } keys %hash;
1
票
Perl DBIのbind_columnについて
コメントにしようかと思ったのですが実際のコードを含むのでこちらにします。
質問にはいくつか重要な情報が抜けています。
まずは実行可能なコードを提示し、何が問題になっているのか具体的に教えてもらえますか?
以下はSQLiteでテストした時のコードと結果です。$oldがカラでも問題なく処理されているように見えます:
#!/usr/bin/perl
use strict;
use warnings;...
1
票
Perl の \@list と [@list] には、どんな違いがありますか?
\@list は 変数 @list のリファレンスですが、[@list] は @list を展開したリストを格納する無名配列のリファレンスです。無名配列は不要になれば消されるので、見掛けが同じでも無名配列まで同じとは限りません。確かめるとき print 文は如何でしょう。
my @list = 1..3;
print \@list, "\n" for 1..3;
print [@list], ...
1
票
Accepted
Perl の \@list と [@list] には、どんな違いがありますか?
今回のmapのような場面で[]を使ったとしても、間違いとは言い切れないと思います。
\と[]の違いですが
\はご存知の通りリファレンスを作り出します。
[]は無名配列を作り出しそのリファレンスを返してくれます。
\はなにも配列へのリファレンスを作り出すためだけに使用するものではありません。
スカラーへのリファレンス、配列へのリファレンス、ハッシュへのリファレンスというように使えます。
...
1
票
配列から連続して同じものを取り出さない
1) splice を使って選んだ要素を削除する。
2) 選んだ要素を最後の要素と入れ替えて、pop(削除)する、あるいはpop(削除)せずに選択レンジを1小さくする。
1
票
Perl のハッシュで、key ではなく value でのスライシングを1行で書けますか?
ハッシュをループするのにv5.12以降であればeachが使えますが、
わかりずらい副作用があるので基本はmztnsさんのようにkeyを軸にします。
どうしてもハッシュのkeyとvalueをループ変数に取りたい場合は、spliceが使えます。
my %hash = map { $_ => $_ * 2 } 0 .. 3;
#
# ハッシュはリストコンテキストで呼ばれると
# ...
1
票
utf8プラグマを付けると 受け取った内容の一部が文字化けます。
最後の出力の前に、utf8::decode($value)を行ってみてください。
詳しい理由は、下記サイトを参照してください。
一部引用:
use utf8 とは、 このCGIスクリプト内で扱う全角文字は文字コードがUTF-8であり、且つ、扱う全角文字データ全てにutf8フラグ(目印みたいなもの/以下単に「フラグ」と呼称)を付けてあるのでそのつもりで処理してね、...
1
票
utf8プラグマを付けると 受け取った内容の一部が文字化けます。
Perlで「UTF-8」というとき、外部とやりとりする文字コードとしてのUTF-8を指す場合と、Perlの内部文字コードとしてのUTF-8を指す場合があります。まぎらわしいですが、両者はいっしょにできない別物です。Perlの文字列として見た場合、前者はバイト列、後者は内部コード列になります。
上のコードをざっと見た限りでは、日本語文字列をバイト列として扱っているように見えます。いっぽう、...
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 $...
1
票
null文字判定と置き換え
試していませんが、split & join せずとも置換2回で事足りませんか。
s/,,/, ,/g で置換できないパターンは、,,, の2つ目のカンマのようにnullの次でありかつ別のnullの前であるカンマの場合ですので、2回置換で取りこぼしが無くなります。
# レコードにnullが含まれている?
if ( $line2 =~ /,,/ ) {
print "...
Only top scored, non community-wiki answers of a minimum length are eligible