Perlについての質問箱 63箱目

**デフォルトの名無しさん** · 2014/02/19(水) 23:36:23.29

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: http://kohada.2ch.net/php/）

このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

www.perl.org/get.html
Download Latest Stable Source (5.18.2)

▼前スレ
Perlについての質問箱 61箱目
http://toro.2ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.2ch.net/test/read.cgi/tech/1385039352/

**デフォルトの名無しさん** · 2017/10/12(木) 22:58:50.94

makeがちゃんとした文法になる日は来るんだろうか

**デフォルトの名無しさん** · 2017/10/13(金) 09:46:32.50

880さん、ありがとうございます。
ｃｐｐがインストールされていないのですね。。

pkginfoでみるとそれらしいものが入っているのですが、下記とは違うものでしょうか。
# pkginfo -i |grep cpp
system SUNWcpp Solaris cpp
GNOME2 SUNWsigcpp Libsigc++ - a library that implements typesafe callback system for standard
C++
GNOME2 SUNWsigcpp-devel Libsigc++ - a library that implements typesafe callback system for standard
C++ - development files

**880** · 2017/10/13(金) 21:28:27.18

問題は解決しましたか? Solaris のことは分からないのでこれ以上お役に立てそうにありません。
まだ解決していないのなら perlsolaris というマニュアルがあるはずですから読んでみてください。
その上で、Solaris のことをよく知っている人に聞くのがよろしいかと思います。

**デフォルトの名無しさん** · 2017/10/14(土) 22:03:44.55

ダメですね。。
もうちょっとネットで調べてみます。

**デフォルトの名無しさん** · 2017/10/20(金) 15:42:18.30

流れを切ってすみません。
半角カタカナを全角カタカナにしてファイルに書き込みたいです。
Cannot decode string with wide characters at...
のエラーになります。どこをどう修正すればよいでしょうか。
use utf8; use Encode; use Encode::JP::H2Z;
open(IN, "<:encoding(cp932)", "src.txt");
open(OUT, ">:encoding(cp932)", "dst.txt");
...
#$strはファイルから読み込んだ文字列
Encode::from_to($str, "utf8", "euc-jp"); #どうもここでひっかかる
Encode::JP::H2Z::h2z(\$str);
Encode::from_to($str, "euc-jp", "utf8");
...
といったコードなのですが・・・。
Shift-JISのコードだと上手く動くのですが・・・。
utf8で標準モジュールの利用で行いたいです。どなたかよろしくお願いします。

**デフォルトの名無しさん** · 2017/10/20(金) 17:53:57.14

目的がそれだけなら、こんな感じになるかな。

open( IN,'<','src.txt')
open( OUT,'>','dst.txt')

Encode::from_to( $str,'cp932','euc-jp');
Encode::JP::H2Z::h2z(\$str);
Encode::from_to( $str,'euc-jp','cp932');

どうしてかというと、from_to に渡すのは Perl の用語で言うなら文字列ではなくバイト列。
だから入力時にデコードする必要は無い。
日本語でのパターンマッチなどのためにデコードしてある場合は
from_to ではなく encode を使う。
Encode のマニュアルを読んでください。
標準モジュールしか使えないわけじゃないのなら Unicode::Japanese を使ってみてはどうでしょう。

**885** · 2017/10/21(土) 02:31:17.21

>886
返信ありがとうございます。
他に日本語の処理があるのでencoding(cp932)としています。
$str=Encode::encode('euc-jp',$str);Encode::JP::H2Z::h2z(\$str);
$str=Encode::decode('utf-8',$str);
としても
#$str=Encode::encode('utf-8',$str);#これの有無に関わらず
$str=Unicode::Japanese->new($str)->h2zKana->get;
(ためしにUnicode::Japaneseを使ってみましたが、標準モジュールで行いたいです）
"\x{xxxx}" does not map to cp932 at ....
とワーニングだらけで>:encoding(cp932)がうまくいっていないというか
それ以前の変換がうまくいっていないようです・・・。

**855** · 2017/10/21(土) 02:40:01.52

連投すみません。encodeとdecode間違ってるなと思い
$str=Encode::decode('euc-jp',$str);Encode::JP::H2Z::h2z(\$str);
$str=Encode::encode('euc-jp',$str);
とすると、
Wide character in subroutine entry at...
で出力が0バイトとなってしまいます・・・。

**885** · 2017/10/21(土) 03:03:22.99

何度もすみません。できました。
$str=Encode::encode('euc-jp',$str);Encode::JP::H2Z::h2z(\$str);
$str=Encode::decode('euc-jp',$str);
でした。
> 886
encodeを使うアドバイスありがとうございました。助かりました。

**デフォルトの名無しさん** · 2017/10/28(土) 14:12:24.45

#!/usr/local/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
print <<"EOM";
Content-tyoe: text/html; charset=shift_jis\n\n
<html><body>
EOM

eval {require DBI;};
if($@) {
print "DBI NG<br>\n";
} else {
print "DBI OK<br>\n";
}

undef $@;
eval {require DBD::SQLite; }
if($@) {
print "DBD::SQLite NG<br>\n";
} else {
print "DBD::SQLite OK<br>\n";
}

print "</body></html>";

sqlchk.cgiの19行目の構文エラー。 "）{"
と出るんですが何が原因か分かりません。もしよろしければ教えていただけないでしょうか？

**デフォルトの名無しさん** · 2017/10/28(土) 14:36:19.07

>>890
eval {require DBD::SQLite; }
の最後に ; が無い

**デフォルトの名無しさん** · 2017/10/28(土) 15:04:21.68

助かりました。ありがとうございました＾－＾

**デフォルトの名無しさん** · 2017/11/01(水) 19:40:06.83

＾－＾

**デフォルトの名無しさん** · 2017/11/01(水) 21:59:57.34

(^_^;

**デフォルトの名無しさん** · 2017/11/22(水) 19:37:11.64

（＾────────────＾）

**デフォルトの名無しさん** · 2017/11/22(水) 22:55:47.27

(^＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿^;

**デフォルトの名無しさん** · 2017/11/23(木) 00:10:28.02

:-)

**デフォルトの名無しさん** · 2017/11/23(木) 18:54:17.85

:────────────)

**デフォルトの名無しさん** · 2017/12/05(火) 14:22:42.29

APIアクセスでのレスポンスをDumperしたら下みたいに返ってきたんだけど
'https://hogehoge.hoge/'を取得するにはどうアクセスしたらいいです？

$VAR1 = bless( {
'url' => bless( do{\(my $o = 'https://hogehoge.hoge/')}, 'URI::https' )
}, 'Entity::Tag' );

**デフォルトの名無しさん** · 2017/12/07(木) 10:28:22.13

ファイルに書くときに、closeをせず明示的にフラッシュしたいんだけど
どうしたらいいの？

selectやautoflushは明示的ではないのでできれば使いたくない

**デフォルトの名無しさん** · 2017/12/07(木) 10:57:31.26

>>900
http://perldoc.jp/docs/perl/perlfaq5.pod#How32do32I32flush47unbuffer32an32output32filehandle63-32Why32must32I32do32this63
> IO::Handle オブジェクトには flush メソッドもあります。

#!/usr/bin/perl -w
use strict;
for (1..10) {
　　print '.';
　　sleep 2;
　　STDOUT->flush;
}
print "!\n";

**デフォルトの名無しさん** · 2017/12/26(火) 21:57:47.00

=~ 正規表現で中身を置換ができる事は理解できたんですが、
中身を入れ替えたいんじゃなく別の変数に入れたいときはどう書けばいいんでしょうか？

現在の自分の知識だと、例えば引数にとった文字列を置換してある変数に入れるとき
$_ = $ARGV[0];
$_ =~ s/mukimuki/mukemuke/;
$hoge = $_;
こんな風に無駄に $_ を経由した書き方になってしまいます。
ほかの言語風に言うと
$hoge = $ARGV[0].replaceWith(s/mukimuki/mukemuke/);
こんな感じで書きたいのですが。

**デフォルトの名無しさん** · 2017/12/26(火) 22:06:02.40

($hoge = $ARGV[0]) =~ s/mukimuki/mukemuke/;
こう書くのがセオリーかな

**デフォルトの名無しさん** · 2017/12/26(火) 22:37:33.36

>>902
Perl 5.14.0 以降なら /r も使える
http://perldoc.jp/docs/perl/5.14.0/perl5140delta.pod#Non-destructive32substitution

**902** · 2017/12/27(水) 03:38:54.44

>>903-904
的確なご回答ありがとうございます。
試してみます。

**デフォルトの名無しさん** · 2017/12/27(水) 15:34:07.71

perlスクリプトの稼働率は今どれくらいなんだろうか？

PHP流行から、徐々にフェードアウトしてるし
PHPオワコン説が流れだした頃から、perl6が登場したけど
存在感がないんだよなー

**デフォルトの名無しさん** · 2017/12/27(水) 19:01:25.94

DeNAとかmixiとかがPerIだけど、置き換えが進むだろうし
新規でメインスクリプトでってのはもうなかなか無いだろうね

**デフォルトの名無しさん** · 2017/12/27(水) 19:28:49.86

ちょっと何かするときはperl使うよ。慣れてるので何も見ずに書けるから。
phpがなぜ出てくるのかわからん。使ったことないけどあれwebアプリ用でしょ

**デフォルトの名無しさん** · 2017/12/27(水) 19:55:51.39

ま、しかし、PerlはWebでしか使われてないわけではないからな。

**デフォルトの名無しさん** · 2017/12/27(水) 19:56:46.60

>>908
多分Webプログラムでの事しか思い浮かばなかったのだろう。

**デフォルトの名無しさん** · 2017/12/27(水) 23:26:51.61

素人に毛が生えたレベルの低スキル層でも実用的なwebアプリ作れる点でPHPは凄いよ。
フレームワークの種類も情報量も多いし。
CLIも作りやすくなってる。一からCLIアプリ作るときにPHP使う優位性は無いけど
webアプリに付随するものとかなら十分。

**デフォルトの名無しさん** · 2017/12/28(木) 00:19:43.19

フォーマット変換とかテキスト一括処理系は、perlでなれるとどれもしっくりこないんだよなぁ。
shを補完する感じで使ってる最近は。

cとセットで使いたくなったらpython?を勉強するかもしれない。

**ゆっきー** ◆ExGQrDul2E · 2017/12/28(木) 03:17:44.94

10年ぐらい前の入門書で、カンマとドットを間違えて
人工衛星が明後日の方向に飛んで言ったとか何とか、小中学生ぐらいの時に読んだ記憶が有る。

**デフォルトの名無しさん** · 2017/12/28(木) 09:29:38.01

そういやそんなことあったなあ。

**デフォルトの名無しさん** · 2017/12/28(木) 18:55:35.20

こんなのあったのな。知らなかったよ。
https://qiita.com/AnnPin/items/5f868f0c7cb5d1af306b

**デフォルトの名無しさん** · 2017/12/28(木) 19:24:59.40

粗太陽センサーと精太陽センサーの取得先を取り違える

**デフォルトの名無しさん** · 2017/12/28(木) 20:38:10.17

【IS自爆テロ】「死んだら天国へ行ける」　＜九条は必要＞　「死んだら靖国に祀られる」【神風特攻隊】
https://rosie.5ch.net/test/read.cgi/liveplus/1514253929/l50
【東海アマ】安倍晋三はどんな殺され方　＜祖父の代りに絞首刑＞　公約反故は自殺に繋がる【世界教師】
http://rosie.5ch.net/test/read.cgi/liveplus/1514425832/l50

**デフォルトの名無しさん** · 2017/12/31(日) 12:51:33.73

>>913
それ、打ち上げ延期

**デフォルトの名無しさん** · 2018/01/01(月) 05:59:15.42

>>918
あ、それで済んだの？そうか、じゃあ都市伝説か。

**デフォルトの名無しさん** · 2018/01/01(月) 12:14:32.50

>>908
PHPが重宝されてるのはDB連携のPDOが便利すぎてハゲるから
PDO一つあれば、オラクル、ポスグレ、mysql、sqlサーバー、DB2、SQLITEなんでも
同じ記述で接続できるからな

ただ、関数定義に一貫性がない、変数スコープのグローバル化が面倒、
型変換で楽しいバグが発生するなど

素人向けと思って甘く見ると大火傷する諸刃の剣

**デフォルトの名無しさん** · 2018/01/01(月) 12:30:16.97

手に馴染んだ道具として今後もperlを使うだろうな
rubyに持ち替えた方が使い勝手はいいんだけど、
そもそもrubyが無い環境が多いので使えなくては意味がない

**デフォルトの名無しさん** · 2018/01/01(月) 18:55:01.09

perlの持ち替えならpythonがいいと思う。
特に最近のlinux系はpythonものが増加傾向だし。
でもまあ、perlあればokじゃね？というのが正直なところ

**デフォルトの名無しさん** · 2018/01/02(火) 12:32:50.81

今年の目標は、新たに言語を勉強することなんだが
Perl、Python、Rubyの違いとそれぞれのメリットを
教えてくだされ

**デフォルトの名無しさん** · 2018/01/02(火) 12:41:01.44

perl どこにでもある
python 人工知能に強い
ruby Railsが使える

**デフォルトの名無しさん** · 2018/01/02(火) 16:34:43.56

>>920
DBはPerlでもDBIと各DB用のDBIモジュールがあれば同じようにアクセスできるよ。
てか、その辺は他の言語でもだいたい同じようにできないか？みんなJavaのJDBCの影響受けて接続部分で違いを吸収してなんとかしてるように思うんだが。

**デフォルトの名無しさん** · 2018/01/02(火) 16:36:32.56

>>925訂正

> 各DB用のDBIモジュール

じゃなくて

各DB用のDBDモジュール

**デフォルトの名無しさん** · 2018/01/03(水) 00:47:07.06

>>925
なるほど、どこも似たような機能を実装してきてるわけか

**デフォルトの名無しさん** · 2018/01/03(水) 01:45:39.60

ORM使えば各DBのSQLの差異も気にせず使えるぜよ

**デフォルトの名無しさん** · 2018/01/03(水) 20:21:48.88

Perl習得も今年の目標の一つなんだけど
Linuxの環境構築しておいた方がいい？

それともwin64でもサクサク動かせる？

**デフォルトの名無しさん** · 2018/01/04(木) 11:48:53.39

windows環境でperlなんてまず使わないだろうし、linux環境構築したほうがいいんじゃない？shも覚えるし。。。

webページ作りたいならperlはやめとけ

**デフォルトの名無しさん** · 2018/01/04(木) 18:26:44.77

>>929
どうしてもっていうならWindowsでもいいとは思うがいまいち面倒かも知れない。
知っての通りファイルシステムやその他細かい点が色々違うから。

かといってわざわざ Linux 動く環境を作るのは面倒だという場合は
Windows Subsystem for Linux　使えばいい。これだと Kernel は
Linux のふりをして動く Windows になって、その他は Linux とほぼ同じだ。
Windows 内のファイルは /mnt/c/ にマウントされていて Windows 用の
コマンドも(全てではないと思うが)使える。

**デフォルトの名無しさん** · 2018/01/04(木) 18:30:15.45

参考
https://qiita.com/Aruneko/items/c79810b0b015bebf30bb

**デフォルトの名無しさん** · 2018/01/04(木) 18:51:32.73

要はダクトテープだから
それを必要とする環境で使うのが一番

日常的にいろんな作業をlinux上でしてるなら、きっといろいろ役立つ
そうでないなら用途が見つからない

**デフォルトの名無しさん** · 2018/01/04(木) 21:49:12.83

ありがとう、こっちの住民は親切で助かったよ
WSLはもっと調べて導入検討するわ

>>933
仕事でかなりLinuxは使ってるよ。特にVMは仕事で必須なんで
一からセッティングしてる

どうしても起動系とかハード周りになると
Perlの知識ないときつい部分が出てきたんで

**デフォルトの名無しさん** · 2018/01/05(金) 19:25:38.46

WSLは結構便利だと思うよ。何せWindows側のコマンド動くし、起動時にWindows側のPATHを /mnt/c 以下のディレクトリとして引き継いでくれるし。
前にKotlinをインストールした時はWindows側で C:\kotlinc 以下にインストールしてその下の bin に PATH 通しておいたら WSL の方でもそのままそれが使えた(JavaVMは別途インストールしたけどね)。
こんな感じで共有が当たり前のようにできる。

まあしかし今のところサーバー用のプログラムは完全には動かないだろうからサーバーとしての動きを期待するならやはり VirtuslBox とかで Linux 動かした方が良いだろうね。
または古いPC等に本当にインストールする。

**デフォルトの名無しさん** · 2018/01/05(金) 22:44:53.33

ファイルにロックをかけないでロックされているか調べる方法あったらやり方教えて
flockだとロックかけちゃうのでだめです

**デフォルトの名無しさん** · 2018/01/05(金) 23:02:38.22

アトミックが保証されてるコマンドが必要とかそんなことになるような

**デフォルトの名無しさん** · 2018/01/06(土) 06:45:30.55

fcntl のマニュアルには、できるようなことが書かれてるけどどうか。
申し訳ないが実際に試してみるほど暇じゃないから、役に立つかどうかは自分で判断してほしい。

**デフォルトの名無しさん** · 2018/01/06(土) 11:11:20.45

ロックしていないのに、ロックしていることを調べるとはこれ如何に。

まぁ、一般には、pidを別ファイルに保存しておいて占有するプロセスをはっきりさせるんじゃないかな～

ハードリンクとkill -0あたりで調べてみるとよろし？？

**デフォルトの名無しさん** · 2018/01/06(土) 11:27:28.32

セマフォの処理はてきとーに作ってもだいたい動くんだけど、
極まれにおかしくなる
完璧に作ろうと思うとなかなか大変
っていうか、OSが提供してなかったら無理

**デフォルトの名無しさん** · 2018/01/06(土) 23:54:48.69

>>936
ちょっとぐらいロック掛かってもいいじゃん。
F_SETLKなら他がロックしてたら待たずに即エラーになるんだし。
エラーにならずにロックできたら他にロックしてるやつは居なかったってことだよ。

**デフォルトの名無しさん** · 2018/01/06(土) 23:56:53.89

あ、ごめん。fcntl()でのロックのはなしじゃなかったか。じゃあfcntl()使って。
使えないOSの場合は何かテクニックがあると思うがその場合はOSを書いてくれないと誰も答えられないと思う。

**デフォルトの名無しさん** · 2018/01/07(日) 02:29:51.54

>>936
あっ、もしも、今使っているかどうかを調べたいならfuserコマンドかな？
windowsはしらぬ

**デフォルトの名無しさん** · 2018/01/07(日) 06:11:20.40

まあ落ち着け。まずは何のためにしたいのかということが重要だと思うよ。
ロックを試みることで他のプロセスの邪魔をしたくないというのも目的によっては理解できる。
目的によってはデータベースを使うのが最善かも。

**デフォルトの名無しさん** · 2018/01/07(日) 12:06:33.05

>>936
> ファイルにロックをかけないでロックされているか調べる方法あったらやり方教えて

不可能だよ

なぜなら、仮にそういう関数が有ったとしても
ロックされていると判断した1ナノ秒後には
ロックが解除されてるかもしれないから
もちろんその逆もありうる

つまり関数を実行している時点では正しかったかもしれないが
関数から結果の戻り値を取得した段階では
間違った結果になってるかもしれない

**デフォルトの名無しさん** · 2018/01/07(日) 13:16:21.35

だから不可能では無いんだよな
その時点でそうだったことは判る
でも、その情報を元に何かをすることが出来ないので、
情報の使いみちが無い

**デフォルトの名無しさん** · 2018/01/07(日) 17:39:55.82

>>943
fuserはオープンしてるプロセス出すだけなのでロックしてるかどうかはわからない。
lsofだとそこまで出る。

**デフォルトの名無しさん** · 2018/01/07(日) 17:43:16.42

>>946
使い道は単に確認するだけならあると言えるんじゃないか？
lsofコマンドみたいな確認するだけのコマンドもあるしな。

まあでもほとんどない事は確かだな。やはり自分でロックして成功するかどうかで見た方が良い。

**938** · 2018/01/07(日) 17:58:29.25

そのファイルに対して何かしたいとはどこにも書かれていないんだけどな。
彼が充分に説明しないのが悪いというなら確かにその通りだが。

**デフォルトの名無しさん** · 2018/01/08(月) 02:39:29.72

コマンドプロンプトを自動で開いてperl aaa.txtを自動起動させることはできませんか？
OSはwin7です
目的は複数のperlファイルを数秒で起動することです
日に何度かやるので、手間を省くために1個のperlプログラムを実行すれば10個のコマンドプロンプトが開かれてaaa1からaaa10まで全部実行、みたいにしたいです

**デフォルトの名無しさん** · 2018/01/08(月) 03:02:25.00

>>950
できるっちゃできるけど、その起動をPerlでやる必然性あるの？
バッチファイルでやればよくね？
perl_start.batに
start perl aaa1.txt
start perl aaa2.txt
みたいに書き連ねりゃいいだけじゃん

**デフォルトの名無しさん** · 2018/01/08(月) 16:46:09.77

そのbatファイルをタスク登録(ログオン時実行)とかにしとけば自動実行されるしね

**デフォルトの名無しさん** · 2018/01/08(月) 18:09:00.53

perl関係ねえ

**デフォルトの名無しさん** · 2018/01/23(火) 09:36:50.60

open(ロック用ファイルハンドル,ロック用ファイル);
flock(ロック用ファイルハンドル,2);
unlink(ロック用ファイル);
close(ロック用ファイルハンドル);　　#ロック解除

このようにロックを解除する前にロック用ファイルを削除するのは何か問題ありますか？
ロック解除したあとにロック用ファイルを削除するとロックに隙間ができるので

**デフォルトの名無しさん** · 2018/01/23(火) 10:33:50.77

>>954
flock使うならファイル削除しなきゃいいんだよ。そうすれば隙間はできない。
ファイル削除したいならopenの時のモードで O_EXCL | O_CREAT も指定しておいてエラーが出るかどうかで判別する。
エラーなくオープンできたら成功で、必要な処理が終わったらファイルをクローズする。
ただしこの方法はUNIX系OS以外では通用するかどうかわからないのと、NFS越しのファイルでは使えないかも知れない。
NFS越しでも使えるファイルロックは多分fcntl()のF_SETLKとかだろうと思う(しかしこれもまたOSしだいだ)。

**デフォルトの名無しさん** · 2018/01/23(火) 10:34:51.22

ごめん。訂正。

ファイルクローズするではなくて削除だ。

**デフォルトの名無しさん** · 2018/01/23(火) 12:02:42.65

>>954
flockで相互排他する場合普通はファイル削除しない
削除で隙間はできない。但し別プロセスがファイル作成するなら
隙間が生じるように感じるかもしれない

**デフォルトの名無しさん** · 2018/01/23(火) 12:28:01.19

>>957
感じるではなくロックとして機能しないよね？

**デフォルトの名無しさん** · 2018/01/23(火) 19:08:17.77

>>958
ファイルシステムから見ると削除して作成すると、同じファイル名でも別ファイルになる
排他処理は同じファイルを使ってるもの同士なら出来る
例えばopenしたものをずっと使い続けるプロセス同士なら、削除された後でも相互排他が出来る

**デフォルトの名無しさん** · 2018/01/23(火) 20:56:31.43

>>959
3つ以上のプロセスで必ず破綻するように思うが。
いや2つでも２回目でダメになるか。

**デフォルトの名無しさん** · 2018/01/23(火) 22:04:43.15

あ、ずっとオープンしっぱなしならその後削除されても大丈夫ってことか。
それはそうだな。なんか危うさを感じるが。

**デフォルトの名無しさん** · 2018/01/30(火) 21:14:29.11

ヒアドキュメントをファイルに出力する時に、

print $out <<"EOC";
ならokで、
print $out << "EOC";
だと駄目なのは何故?

**デフォルトの名無しさん** · 2018/01/31(水) 01:11:29.08

>>962
<< はビットシフト演算子でもあるので、優先順位的に
$out << "EOC" として解釈されちゃうから…?
print $out (<< "EOC"); や print << "EOC"; で通るならそうだと思う。

**デフォルトの名無しさん** · 2018/01/31(水) 01:46:30.10

<<の直後が空白文字だと空白文字自体が識別子とみなされる
と、とある本に書いてあった

**デフォルトの名無しさん** · 2018/01/31(水) 03:10:45.37

<<964
http://perldoc.jp/docs/perl/perlop.pod#Regexp32Quote-Like32Operators
> <<EOF
<略>
> 識別子がクォートされていない場合は、<< と識封ﾊ子の間に空白を入れてはいけません。
> (もし空白を入れると、空識別子として扱われます; これは有効で、最初の空行にマッチ
> するようになります。)

昔は
print <<;
document here.

print "foo";

みたいにできたけど、今これやると警告が出る。<<""; なら OK。

#!/usr/bin/perl -w
use strict;
sub E { print "\n6\n" }
open my $out, '>&STDOUT' or die $!;
print $out <<"";
1

print $out (<< 'E', "3\n", <<'');
2
E
4

print $out << 'E'; # Argument "E" isn't numeric in left bitshift (<<)
"5"; # Useless use of a constant ("5") in void context
E

**デフォルトの名無しさん** · 2018/01/31(水) 09:25:45.73

>>962
<<の直後のスペースの有無？
そりゃシェルスクリプトみたいな <<EOL のような何もクオートしない形式も許している都合でシェルの文法に合わせたからではないかな。

**デフォルトの名無しさん** · 2018/01/31(水) 09:27:00.94

あ、すまん。リロードせずに書いてしまった。既に回答書かれてたな。

**デフォルトの名無しさん** · 2018/01/31(水) 19:05:43.73

スペース空けるの禁止ならそれでいいんだけど、
ファイルハンドラが無いならスペースがあってもokなのが納得行かない

**デフォルトの名無しさん** · 2018/02/01(木) 07:25:10.05

気持ちは分からなくもないが、変数の場合はしょうがない。>>963 に書かれてるとおりだ。

**デフォルトの名無しさん** · 2018/02/01(木) 12:35:16.66

誰もつっこまないが、
$out->print( << "EOC");
と書けばいいと思う。
bless されてない場合は昔は
use IO::Handle;
が必要だったが今では
perl -e 'STDOUT->print("abc")'
なんてこともできる。
個人的には、ファイルハンドルの後に , があるというアホな間違いをせずに済むというところで助かっている。

**デフォルトの名無しさん** · 2018/02/02(金) 07:43:01.24

ヒアドキュメントなんてプログラムを読みにくくする諸悪の根源

**愛知人** · 2018/02/02(金) 12:10:04.50

Wikipediaの12桁トリップの生成スクリプトで12桁以上のトリップキーの変換が5chの結果と合いません。どうすれば合いますか。

**デフォルトの名無しさん** · 2018/02/03(土) 08:12:51.87

Archive::Rar を使って、中身のファイルサイズを取得するにはどうすれば
無理なら、代わりに何を使えばいい?

**デフォルトの名無しさん** · 2018/02/03(土) 09:38:14.14

rar コマンドをインストールしてないから CPAN でソースコードを見ただけだが、List を呼べば rar の出力をパースして list に入れてくれるみたいだよ。
試してないから勘違いしてるかもしれないけど、使ってるならソースコードの List, _AddToList 辺りを読めばいいかも。

**デフォルトの名無しさん** · 2018/02/03(土) 10:13:43.25

Listはファイル名一覧しか渡してくれないんだよな

**デフォルトの名無しさん** · 2018/02/03(土) 10:20:52.21

-alldata を指定すれば、->{size} で見えるのか

どうせやってるのは、rar.exe の出力を読んでテキスト解析してるだけなので、
似たようなことを自前でやった

**デフォルトの名無しさん** · 2018/02/03(土) 14:48:15.33

マニュアルには書かれてなかったのか……まあ、信頼性の低い方法だしね。

**デフォルトの名無しさん** · 2018/02/04(日) 11:13:30.15

出力される表の形式に似せたファイル名とかにすると、多分騙されるんだろうな

**デフォルトの名無しさん** · 2018/02/09(金) 18:18:02.60

>>971
KENT WEBの見にくさを見てから言ってくれ

**デフォルトの名無しさん** · 2018/02/09(金) 20:07:25.83

ヒヤー