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

4

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

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

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

miで改行コードを「LF(UNIX)」にしてみてください
mztns's user avatar
  • 134
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'; #...
KKtake25's user avatar
3
Accepted

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

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

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

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

perlのsql結果について

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

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

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

null文字判定と置き換え

$line2を調べて置き換えを行っても出力は@data2をjoinしたものですから意味がありません。 splitした内容を調べて置き換えをする必要があると思います。 例えば、以下の様にします。 my @data2 = split(/,/, $line2); foreach my $item (@data2){ if($item eq ""){ $item = " "; ...
BLUEPIXY's user avatar
  • 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 ...
ernix's user avatar
  • 3,422
2

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

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

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

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

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

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

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

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

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

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

JavaScriptとPerlで、ファイルをドラッグ&ドロップしたらアップロード

コードを見た感じではたぶん現状では、ファイルをドラッグアンドドロップしてもそのファイルが開かれるだけかと思います。 サンプルと指定されているコードはAjaxでファイルをPOSTするプログラムのようなのでFormタグは不要ですね。 ファイルをドロップするための領域をDIVなどで用意して、 その領域に対してイベントハンドラの「ondragover="onDragOver(event)" ondrop=...
user17014's user avatar
  • 1,429
1

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

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

Perl DBIのbind_columnについて

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

Perl の \@list と [@list] には、どんな違いがありますか?

\@list は 変数 @list のリファレンスですが、[@list] は @list を展開したリストを格納する無名配列のリファレンスです。無名配列は不要になれば消されるので、見掛けが同じでも無名配列まで同じとは限りません。確かめるとき print 文は如何でしょう。 my @list = 1..3; print \@list, "\n" for 1..3; print [@list], ...
user18788's user avatar
1
Accepted

Perl の \@list と [@list] には、どんな違いがありますか?

今回のmapのような場面で[]を使ったとしても、間違いとは言い切れないと思います。 \と[]の違いですが \はご存知の通りリファレンスを作り出します。 []は無名配列を作り出しそのリファレンスを返してくれます。 \はなにも配列へのリファレンスを作り出すためだけに使用するものではありません。 スカラーへのリファレンス、配列へのリファレンス、ハッシュへのリファレンスというように使えます。 ...
shingo.nakanishi's user avatar
1

配列から連続して同じものを取り出さない

1) splice を使って選んだ要素を削除する。 2) 選んだ要素を最後の要素と入れ替えて、pop(削除)する、あるいはpop(削除)せずに選択レンジを1小さくする。
BLUEPIXY's user avatar
  • 6,897
1

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

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

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

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

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

Perlで「UTF-8」というとき、外部とやりとりする文字コードとしてのUTF-8を指す場合と、Perlの内部文字コードとしてのUTF-8を指す場合があります。まぎらわしいですが、両者はいっしょにできない別物です。Perlの文字列として見た場合、前者はバイト列、後者は内部コード列になります。 上のコードをざっと見た限りでは、日本語文字列をバイト列として扱っているように見えます。いっぽう、...
emasaka's user avatar
  • 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 $...
BLUEPIXY's user avatar
  • 6,897
1

null文字判定と置き換え

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

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