Perl初心者スレ（マジレス回答）

**デフォルトの名無しさん** · 2014/08/06(水) 20:43:50.60

エスパーじゃないんだから、そんな質問で答えれる訳ないだろ。
せめてサンプルとなる簡単なxmlを出せよ・・・

**デフォルトの名無しさん** · 2014/08/06(水) 21:39:48.88

申し訳ないです

>>306
デコードはしています

>>307
申し訳ありません
wikipedia.simpleapi.net/api?keyword=Test&output=xml

**デフォルトの名無しさん** · 2014/08/06(水) 22:33:25.28

>>308
テストした結果、普通に置き換えできます。
取得方法に問題があるんだろう。
ってか、こんな質問の仕方じゃスレ全部埋まるわ・・・
問題が起きてるサンプルコード出してみ

**デフォルトの名無しさん** · 2014/08/06(水) 22:37:04.17

>>308
ちげーよ
utf8のファイルをeucのスクリプトでマッチしようとしたんじゃないの、ってこと

**デフォルトの名無しさん** · 2014/08/06(水) 22:48:45.57

>>310
shift-jisのスクリプトでマッチさせようとしました
不味かったでしょうか

**デフォルトの名無しさん** · 2014/08/06(水) 23:05:36.50

>>311
なら、どっちかの文字コードにencodeして合わせる

**デフォルトの名無しさん** · 2014/08/06(水) 23:07:49.58

いや、よほど特別な事情がない限りは utf-8 のソースにするべき。
http://d.hatena.ne.jp/perlcodesample/20091118/1246679588
この辺読んで理解するべき。

**デフォルトの名無しさん** · 2014/08/18(月) 11:10:58.79

> perl -e "print (5+5)/3"
10

なんで？

**デフォルトの名無しさん** · 2014/08/18(月) 19:48:40.74

print -e "print((5+5)/3)"

**デフォルトの名無しさん** · 2014/08/19(火) 07:25:44.81

>>314
http://perldoc.jp/docs/perl/5.18.1/perlfunc.pod
> 括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が適用できます:
> 関数に見えるならば、それは関数で、優先順位は関係ありません。
(略)
> Perl に -w スイッチを付けて実行すれば、こういったものには警告を出してくれます。

**デフォルトの名無しさん** · 2014/08/19(火) 20:11:13.78

2000年には既にwarnings実装してんのに
なんで未だに、-w推薦文章なんか残してんだろーね？
-Mwarningsのエイリアスって訳でもねーし。

**デフォルトの名無しさん** · 2014/09/02(火) 01:23:02.48

【誤】print -e "print ((5+5)/3)"
【正】perl -e "(print(5+5)) / 3"
ついでに -w と -Mwarnings は別物。-Mwarnings で -w の代わりになるわけではない。

**デフォルトの名無しさん** · 2014/09/02(火) 02:10:54.86

だが共に生きることはできる

**デフォルトの名無しさん** · 2014/09/02(火) 04:04:55.52

>>318
-w ≠ warningsは常識だろ。

で、「use Unicodeは、use Jcodeの代りじゃない」ってレベルの事を言ってるぞ、おまえさん。
-wが石頭だから、より制御しうるwarningsを実装したんだろが。

**デフォルトの名無しさん** · 2014/09/02(火) 07:00:12.46

5.20のperllexwarnがスッキリしててﾜﾗﾀ。

**デフォルトの名無しさん** · 2014/10/02(木) 21:11:40.29

常識の根拠は常識は常識だから（真顔）

**デフォルトの名無しさん** · 2014/11/05(水) 08:46:59.07

再帰中に再帰の深さを出したいんだけどlocal使っていい？
local $::count = $::count + 1;
もっと普通の方法ある？

**デフォルトの名無しさん** · 2014/11/05(水) 11:35:00.61

引数で渡す

sub foo {
　　my ($arg, $count) = @_;
　　...;
　　foo($arg, $count) if $count++ < 10;
}

**デフォルトの名無しさん** · 2014/11/05(水) 14:22:15.13

ありがとーーー。
複製される変数の数には変わりがないよね、たぶん。

上はグローバル変数と言うのが気に入らなくて、下は引数で扱う値が増えるのが気に入らないが。

**デフォルトの名無しさん** · 2014/11/05(水) 16:45:55.49

while(@all){ ((shift @all) eq 'cut') and last; }
whileを修飾子として書くと落ちるんだが誰か理由を教えてくれー
((shift @all) eq 'cut') and last while(@all);
evalでも落ちた

**デフォルトの名無しさん** · 2014/11/11(火) 22:49:14.07

英数混じった文字列の中から2桁の数字にマッチさせたいのですが、
/\d\d/だと3桁以上の数字の前2桁にもマッチしてしまいます。
/^(\d\d)\D|\D(\d\d)\D|\D(\d\d)$|^(\d\d)$/　こんなことするより簡単な方法ないでしょうか？　

**デフォルトの名無しさん** · 2014/11/12(水) 00:09:33.46

[^\d]\d{2}[^\d]

**デフォルトの名無しさん** · 2014/11/12(水) 02:38:25.07

% perl -le 'print q{22} =~ /[^\d]\d{2}[^\d]/'

% perl -le 'print q{22} =~ /(?<!\d)\d{2}(?!\d)/'
1
% perl -le 'print q{22} =~ /(?:^|\D)\d{2}(?:$|\D)/'
1

**327** · 2014/11/12(水) 22:11:30.88

/(?<!\d)\d{2}(?!\d)/
これが期待通りの結果が得られました。
(?<!)とか(?!)とかこれまで使ったこと無かったので勉強になりました。
ありがとうございました。

**デフォルトの名無しさん** · 2014/11/13(木) 00:03:57.67

テストパターンに英字が入ってませんぜ

**デフォルトの名無しさん** · 2014/11/13(木) 05:25:18.91

\b使えよ。便利だぞ。

**デフォルトの名無しさん** · 2014/11/13(木) 05:51:07.66

そりゃ\b使って期待通りの結果が出るなら使うだろ

**デフォルトの名無しさん** · 2014/11/13(木) 23:58:39.09

以下のような日付が下から上に並んでいるoriginal.txtがあるとします。
これを、日付を逆順にしたoutput.txtに整形するプログラムを作りたいです。
Windowsで、Batch fileとPerlで作れたらと考えています。よろしくお願いします。
<original.txt>
########## 20141203 ###########
DNINITIENK
FDKHJKDKKSK
・・・・・
########## 20141202 ###########
TUNINJKDF
NIGHALKDK
・・・・・・
########## 20141201 ###########
ABCDEFGHIJKE
LMNOPQRSTUV
・・・・・
<output.txt>
########## 20141201 ###########
ABCDEFGHIJKE
LMNOPQRSTUV
・・・・・・
########## 20141202 ###########
TUNINJKDF
NIGHALKDK
・・・・・・
########## 20141203 ###########
DNINITIENK
FDKHJKDKKSK
・・・・・・

**デフォルトの名無しさん** · 2014/11/14(金) 00:03:31.59

>>332
\bだと英字と数字の境目は単語の区切りにならないみたい。

**デフォルトの名無しさん** · 2014/11/14(金) 01:18:41.88

centosで元から入ってるperlとは別にソースインストールしたperlを別に入れました。
新しくインストールしたperlで以前から入っていたCPANモジュールを使いたい場合、再度入れなおす必要ありますか？

**デフォルトの名無しさん** · 2014/11/14(金) 02:49:12.43

>>334
perl -Mvars=%h -ane '$a = $F[1] if @F == 3 ; $h{$a} .= $_ }{ print $h{$_} for sort { $a <=> $b } keys %h’ original.txt

>>336
モジュールの共用は避けるべき

**デフォルトの名無しさん** · 2014/11/14(金) 06:59:52.41

>>334
use 5.016;
use warnings;

my $boundary = qr/^#+\s+\d+\s+#+\s*$/;

open(my $in, "<", "original.txt") or die;

my @data;
my $chunk = '';
while(<$in>){
if (/$boundary/ and (length($chunk) > 0)){
push @data, $chunk;
$chunk = '';
}
$chunk .= $_;
}
if (length($chunk) > 0){
push @data, $chunk;
}

$in->close;

open(my $out, ">", "output.txt") or die;
$out->print(reverse @data);
$out->close;

**デフォルトの名無しさん** · 2014/11/14(金) 20:30:37.37

単純に逆にするだけか
perl -00pe '$_ = join q{}, reverse ( split /(?=^#)/m)'

**デフォルトの名無しさん** · 2014/11/16(日) 13:54:55.61

>338,337,339
有難うございました。

**デフォルトの名無しさん** · 2015/01/12(月) 10:56:30.31

my $initial_title_ = "\$" . "$initial_threads" . "_begin";
$initial_title_ = eval $initial_title_;

1行に短くなりませんか?

**デフォルトの名無しさん** · 2015/01/13(火) 00:30:37.15

my $initial_title_ = eval "\$${initial_threads}_begin";
こういうこと？

**デフォルトの名無しさん** · 2015/01/13(火) 02:35:14.88

>>342
ありがとう

eval使うのが3つあったから
6行が3行になったよ

**デフォルトの名無しさん** · 2015/01/14(水) 23:01:56.10

$seach_wordに日本語を入れたいのですが、それだとマッチしません。どうすればよいでしょうか?
w3m -dump -cols 160 http://peace.2ch.net/test/read.cgi/tech/1349538519/| ~/Perl_instance/resSearch.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

my $seach_word = ">1" ;
my $found_res　= 0;
my $res　　　　= "";

while (<>) {
　　if (/^\d/x) {

　　　　# out put, flash
　　　　if ( $found_res == 1 ) {
　　　　　　print $res;
　　　　　　$found_res = 0;
　　　　}
　　　　$res = "";
　　}
　　else {
　　　　# searching
　　　　if (/$seach_word\b/x) {
　　　　　　$found_res = 1;
　　　　}
　　}

　　# buffer lines
　　$res .= $_;
}

**デフォルトの名無しさん** · 2015/01/15(木) 09:31:41.42

>>344
use open ":utf8";

**デフォルトの名無しさん** · 2015/01/15(木) 09:40:11.27

あ、 binmode STDIN , ":utf8": で

**デフォルトの名無しさん** · 2015/01/15(木) 13:13:41.60

binmode STDIN , ":utf8";
binmode STDOUT , ":utf8";
my $seach_word = "日本語" ;

で同様のコマンド叩いて、つまり344が拾えるはずが
何故かヒットしません

**デフォルトの名無しさん** · 2015/01/15(木) 18:33:41.92

**デフォルトの名無しさん** · 2015/01/16(金) 16:08:36.80

w3m -dump -cols 160 http://peace.2ch.net/test/read.cgi/tech/1349538519/|nkf -g
UTF-8

UTF-8しか扱わないのにちょっとエンコード回りは複雑だ

**デフォルトの名無しさん** · 2015/01/19(月) 10:22:25.36

webサイトの表形式データ（横方向は５列、縦方向は不定で100行ぐらい）を取得するのに、
正規表現の繰り返しマッチング
m//g　を使って、結果を配列に入れてるんだけど、
もっと簡単に取ってくるモジュールはないでしょうか？

**デフォルトの名無しさん** · 2015/01/19(月) 21:45:13.42

>>350
＞webサイトの表形式データ

の形式が分からんとなんとも。

**349** · 2015/01/19(月) 22:36:30.03

>>346
ヒント助かった。

use Encode qw/encode decode/;
my $enc = 'UTF-8';
sub d($) { decode($enc, shift) }
sub e($) { encode($enc, shift) }

my $seach_word = "日本語";

my $found_res = 0;
my $res　　　 = "";

while (<>) {
　　if (/^\d/x) {
　　　　if ( $found_res == 1 ) {
　　　　　　print $res;
　　　　　　$found_res = 0;
　　　　}
　　　　$res = "";
　　}
　　else {
　　　　my $seach_word_ = e$seach_word;
　　　　if (/$seach_word_/x) {
　　　　　　$found_res = 1;
　　　　}
　　}
　　$res .= $_;
}

**デフォルトの名無しさん** · 2015/01/20(火) 02:00:35.92

>>350 >>351
例えば、こんな表です
http://ke.kabupro.jp/hist/20150107.htm

今はHTMLのソースを見て、証券コードを正規表現で抽出するために、
=~ m!<tr><th><a\shref[^>]+>(\d{4})<\/a>!ig
などとして配列へ入れているのですが、泥臭いです。

もっとスマートに取得できるモジュールは無いかと思った次第です。

**デフォルトの名無しさん** · 2015/01/20(火) 02:06:50.85

（続き）
例えば統計計算用のRでは readHTMLTableというモジュール（パッケージ？）があり、表形式のデータを含んだurlを指定すれば、簡単に取得出来るのですが。

**デフォルトの名無しさん** · 2015/01/20(火) 07:56:47.13

>>353
HTML::TableExtract
http://search.cpan.org/~msisk/HTML-TableExtract-2.12/lib/HTML/TableExtract.pm

Web::Scraper
http://search.cpan.org/~miyagawa/Web-Scraper-0.38/lib/Web/Scraper.pm

**デフォルトの名無しさん** · 2015/01/20(火) 12:03:15.85

>>355
ありがとうございます

**デフォルトの名無しさん** · 2015/03/13(金) 20:55:35.08

なにこの良スレ

**デフォルトの名無しさん** · 2015/03/28(土) 10:06:58.72

my $tmp = {
$a => sub { $_ = 処理A},
$b => sub { $_ = 処理B},
$c => sub { $_ = 処理C},
};

ループ中に↑のように書いている場合、一つの変数に対して複数の処理($a に処理A' を追加)を
加えたい場合、どのように書くのでしょうか？

**デフォルトの名無しさん** · 2015/03/30(月) 16:12:56.05

**デフォルトの名無しさん** · 2015/04/12(日) 18:06:38.92

凄い初歩的な質問だと思うのですが真剣に行き詰まってます
教えてください

_HOGE_

こんな表記の変数ってなんて表現するんですか？
またネットでこういう変数について調べたいときは、
どのように検索したらヒットしますでしょうか。

Perl　__
で検索しても全然それらしい記事が発見できず

**デフォルトの名無しさん** · 2015/04/12(日) 18:43:51.80

_HOGE_は変数じゃないからヒットしないのが正解

もしかして：ヒアドキュメント

**デフォルトの名無しさん** · 2015/04/12(日) 20:02:52.86

なるほど・・・独自のプログラム記述なんでしょうかね・・・

Perlの変数記述方法じゃないことがわかって少し安心しました
もう一回解析してきます

**デフォルトの名無しさん** · 2015/04/12(日) 20:06:31.76

>>361さんの回答で先入観が排除され、
意味がわかりました。

$mes =~ s/_HOGE_/$name/g;

文字列に埋め込まれた_HOGE_を別の変数に代入されてる文字列と置換させていました。
ありがとうございました。

**デフォルトの名無しさん** · 2015/04/13(月) 07:38:14.33

__END__
とかそんなのの仲間じゃなくて？

**デフォルトの名無しさん** · 2015/05/14(木) 07:11:03.21

なんでも受け付けるからって、
__HOGE__ をヒアドキュメントとして使ってる人は、単に
特殊リテラルを理解してない人。

質問に超絶遅レスするなら、
__HOGE__は、ほんとうに HOGE と書かれていたなら、
特殊リテラルのまねっこ。
DATA, END などなら、perldoc.jp で perldata から「特殊なリテラル」の項を
参照すること。

**デフォルトの名無しさん** · 2015/05/15(金) 01:58:16.40

>>365
どういうこと？

**デフォルトの名無しさん** · 2015/05/15(金) 02:39:32.50

ヒアドキュメントのデリミタを
print <<die;
dieなんてしないよ
die

ってしたら混乱するでしょ。それと同じレベルで特殊リテラルの
記載に類似（もしくはそのまま）させて使ったら、あかんでしょ。

print <<__END__;
dieなんてしないよ
__END__

って主旨？

**デフォルトの名無しさん** · 2015/05/17(日) 23:46:03.51

絶対にありえない単語を区切りにしないと、区切りとしての役目にならんだろが
__END__を区切りにしてしまったら、__END__という単語が使えなくなるだろ

**デフォルトの名無しさん** · 2015/05/18(月) 00:16:17.74

じゃあ __HOGE__ にするわ。絶対ありえん単語だし。

**デフォルトの名無しさん** · 2015/05/18(月) 00:56:57.87

>>368
実行してみろよ、動くぞ。

use strict ;
use warnings ;
while(<DATA>){
print ;
}

print <<__DATA__;
これがヒア
__DATA__

__DATA__
特殊リテラル

**デフォルトの名無しさん** · 2015/05/28(木) 16:11:25.87

ID.パス付きのHPの更新通知プログラムをつくり実行したところ (certificate verify failed)とハマりました。

おそらくSSL関係でつまっています。
簡単に教えてくれる方お願いします。

$mech->get('https://*****');
↑指摘されたラインです

SSLかと思うのですが、SSLについて知識があまりないため、
ダメだった理由をわかりやすく教えていただけませんか？

あと、ユーザーIDやパスワードの前にpitgetを書いてあると
どうなるのでしょうか？

説明下手でごめんなさい。

**デフォルトの名無しさん** · 2015/06/08(月) 21:35:22.93

特定のディレクトリ(test)からファイルを読み込む処理を
実装しようと思っています。

while(<./test/*>){
　　#～ファイル読み込み処理
}
はOKなのに

$hoge = "./test/*";
while(<$hoge>){
　　#～ファイル読み込み処理
}
がうまくいかない理由はなぜなのでしょうか？
$hogeを可変にしたいのですがどうすればよいでしょうか？
突然の質問で申し訳ありませんが、宜しくお願いします。

**デフォルトの名無しさん** · 2015/06/08(月) 22:51:09.28

$hoge = "./test/*";
これは文字だからです。(演算子に対するアドレス(ポインタ)ではありません)。

$hoge = "test";
while(<./$hoge/*>)

**デフォルトの名無しさん** · 2015/06/08(月) 23:05:32.65

>>373
出来ました！ありがとうございます
今日かなり悩んでいました
おかげ様でスッキリしました

**デフォルトの名無しさん** · 2015/08/31(月) 00:47:28.38

下のようにリストのリストを作成したいがcpanか何かで実現できないでしょうか？
> (list (list 1 2) (list 3 4))
((1 2) (3 4))
> (first (list (list 1 2) (list 3 4)))
(1 2)
> (second (list (list 1 2) (list 3 4)))
(3 4)

my @car = (1, 2);
my @cdr = (3, 4);
my @both = (@car, @cdr);

print "\@car is @car\n"; # -> @car is 1 2
print "\@cdr is @cdr\n"; # -> @cdr is 3 4
print "\@both is @both\n";# -> @both is 1 2 3 4

printf "%s\n" , $both[0]; # -> 1
printf "%s\n" , $both[1]; # -> 2
printf "%s\n" , $both[2]; # -> 3
printf "%s\n" , $both[3]; # -> 4

**デフォルトの名無しさん** · 2015/08/31(月) 13:20:01.08

Lisper な人？
多分、こういうことをお望みかな。

#!/usr/bin/perl

use Data::Dumper;

my @car = (1, 2);
my @cdr = (3, 4);
my @both = ( \@car, \@cdr);
print( Dumper( \@both));

**デフォルトの名無しさん** · 2015/08/31(月) 13:31:30.24

ごめん、アクセス方法も書かなきゃね。

#!/usr/bin/perl

my @car = (1, 2);
my @cdr = (3, 4);
my @both = ( \@car, \@cdr);
print("$both[0]->[0]\n");
print("$both[0]->[1]\n");
print("$both[1]->[0]\n");
print("$both[1]->[1]\n");

**デフォルトの名無しさん** · 2015/08/31(月) 18:13:02.76

>>377
ありがとう perlのリファレンス表記がこの機会に少し分かりました

my @car = (1, 2);
my @cdr = (3, 4);
my @both = ( \@car, \@cdr);
print("$both[0]->[0]\n");
print("$both[0]->[1]\n");
print("$both[1]->[0]\n");
print("$both[1]->[1]\n");
print("@{$both[0]}\n");
print("@{$both[1]}\n");

**デフォルトの名無しさん** · 2016/01/10(日) 13:19:49.57

971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0
自称スーパープログラマー某

強烈加齢臭
メール見ない　メール無視
ドキュメント見ない　ドキュメント無視
説明聞かない　説明無視
話聞かない　話無視
ガム→むっちゃーむっちゃーむっちゃーむっちゃー
煎餅→バリバリバリバリバリバリ
菓子パン→モグモグモグモグモグモグモグモグモグモグ
カップアイス→むっちゃーむっちゃーペロペロペロペロ

フロアすべてに響き渡る超ばかでかいくしゃみ当然手でおさえない

異音と異振動
ドスーン！ドスーン！　ドカーン！ドカーン！　バコーン！バコーン！　ズドン！ズドン！
机が近いとマウスポインターが飛ぶ　誤操作誘発
書類だしたりしまうだけでドカンドカン

30秒ごとに口と鼻から異音
ふんっっ！　　　　ふんっっ！　　　

備品破壊　貸与P C 破壊　他人のもの破壊

奴の作ったスクリプトとプログラムは使えない　バグ製造機

電話や共有携帯電話　キーボードが油ベタベタ
奴に電話とPCとコンソールは触らせてはいけない

**デフォルトの名無しさん** · 2016/11/02(水) 10:11:38.85

HTMLファイルの特定文字列を大文字から小文字へ置き換えたいです。
具体的には、name=

**380** · 2016/11/02(水) 10:15:17.18

あれ、途切れちゃったのでダブルクォートでおかしくなったので、無しで書きます。
HTMLファイルの特定文字列を大文字から小文字へ置き換えたいです。
具体的には、name=A10AB を name=a10ab とnameの部分のみ置き換えたいです。

**デフォルトの名無しさん** · 2016/11/03(木) 19:06:36.96

s{ name=" ([^"]+) " }{ 'name="' . lc($1) . '"' }egx

**380** · 2016/11/03(木) 23:22:08.51

>>382
eで関数を使えるんですね。ありがとうございました。

**デフォルトの名無しさん** · 2016/11/20(日) 01:09:58.42

perl コマンドラインからﾓｼﾞｭｰﾙを読み込みたいんですが、
perl -mM Win32::Clipboard -e ""
だと
Can't open perl script "Win32::Clipboard": Invalid argument
と怒られます。

Perl64\lib\Win32\Clipboard.pm
は存在しているのですが・・・

**デフォルトの名無しさん** · 2016/11/20(日) 11:39:42.73

なんで -m と -M 重ねてるの？それと隙間開けずにやってみ
-MWin32::Clipboard
　 ↑

**デフォルトの名無しさん** · 2016/11/20(日) 11:42:40.54

perl -mM Win32::Clipboard
だと M.pm を読み込んだ後 Win32::Clipboard という名のファイルをperlスクリプトとして実行しようとしてるっぽい

**デフォルトの名無しさん** · 2016/11/20(日) 19:04:30.90

>>385
できました。
ありがとうございました。

**デフォルトの名無しさん** · 2016/11/20(日) 21:00:33.25

どうでもいいけど、質問の回答に「なんで○○なの」と質問で返すのはみっともない
わからないから質問してるのにね
ここは初心者スレだし
よっぽど回答に自信が無いように見える

**デフォルトの名無しさん** · 2016/11/20(日) 21:01:48.41

なんで？
なんで？
なんで？
ことあるごとに、「なんで」っていうヤツ
バカっぽい
イライラする
ムカツク

**デフォルトの名無しさん** · 2016/11/23(水) 04:06:43.88

>>389
「なんで」を追求する楽しさがわからないの？

**デフォルトの名無しさん** · 2016/11/23(水) 10:50:03.05

質問を質問でかえすやついるよな
俺「なぜ変更したんですか？」
先輩「なぜ、その変更に疑問を抱くの？」

・・・

**デフォルトの名無しさん** · 2016/11/23(水) 11:10:48.33

文脈にもよるわな
マニュアルにはっきり書いてあるようなことと違うことやっているなら「お前ちゃんと読んでないのか？」ってなるし
どう説明したら理解できるのか探るためにどう考えてどこに疑問を持ったのか確認することもあるし

そういう文脈を無視して質問したら質問が返ってきた = おかしいは短絡的だね

**デフォルトの名無しさん** · 2016/11/23(水) 11:32:41.80

>>392
めんどくさい人って思われてるよｗ
誰もあんなに聞きにこなくね？

**デフォルトの名無しさん** · 2016/11/24(木) 21:29:28.37

perlの本を読んでいると、よく
「スカラーコンテキストでは～」とか「リストコンテキストでは～」とありますが
どのようなところで、分かるのでしょうか？

$a = grep /d/ ,qw<ab cd def>;
なんかgrepがスカラーコンテキストで使われていると思うんですが

if(grep /d/ ,qw<ab cd def>){}
だとなぜスカラーコンテキストだと分かるのでしょうか？

**デフォルトの名無しさん** · 2016/11/24(木) 21:43:25.96

真偽値だからスカラーコンテキスト

**デフォルトの名無しさん** · 2016/11/24(木) 22:50:56.11

ありがとうございます
理解できました。

**デフォルトの名無しさん** · 2016/11/28(月) 20:34:11.39

shiftjisのファイルを読み込むと「｛」が「本」にマッチしちゃうんですがいい方法ありませんか？

**デフォルトの名無しさん** · 2016/11/29(火) 00:14:31.38

基本全部utf8で処理する

**デフォルトの名無しさん** · 2016/11/29(火) 00:38:56.85

ファイルを読み込むときにperlに文字コードを教えてあげるとバイト単位ではなくて文字単位で認識してもらえるようになる
open my $fh, '<:encoding(cp932)', $file or die $!;

正規表現を含むソースコード全体をUTF8で書き、スコープの上の方で use utf8; と宣言すればスコープ内のコードも文字単位で認識されるようになる

**デフォルトの名無しさん** · 2016/11/29(火) 08:02:41.28

>>399
レスありがとうございます。
試してみます。
取り急ぎお礼まで。

**デフォルトの名無しさん** · 2017/02/26(日) 22:46:53.99

以下エラーが出たため、ググると、似たエラーのQ and Aがありました。
Q and A では "if(defined(%hash))"を"if(%hash)"にしろと読めたので、倣うと確かにエラーは解消されました。
理屈はまるで分からないのですが、%記号のついた変数のときだけdefinedを削る理由は何なのでしょうか。

エラー: Can't use 'defined(%hash)' (Maybe you should just omit the defined()?) at ./w3mhelp.cgi line 51.
Q and A: https://github.com/bioconda/bioconda-recipes/issues/1254

**デフォルトの名無しさん** · 2017/02/26(日) 23:46:32.86

>>401
すごく古い Perl (例えば 5.005_03) だと、defined %hash はエラーにならず 0 か 1 が返ってきていた。
だが今やこの機能は廃止された。

http://perldoc.jp/func/defined
> 集合(ハッシュや配列)への defined の使用は非推奨です。
> これはその集合にメモリが割り当てられたかを報告するのに用いられていました。
> この振る舞いは将来のバージョンの Perl では消滅するかもしれません。

ハッシュ変数自体をスカラーコンテキストで評価すると「利用バケット数/確保バケット数」のような値が
返ってきて、これは昔から変わらない。内容が完全に未定義 = キーが一つも無ければ 0 が返される。
よって if (%hash) { ... } は、意味や挙動的には if (keys %hash) { ... } と同じ。

my %hash;
printf "%s, %d\n", scalar %hash, scalar keys %hash; # 0, 0
$hash{udnef} = undef;
printf "%s, %d\n", scalar %hash, scalar keys %hash; # 1/8, 1
%hash = ();
printf "%s, %d\n", scalar %hash, scalar keys %hash; # 0, 0

http://d.hatena.ne.jp/yumatsumo/20071207/1197002522

**デフォルトの名無しさん** · 2017/02/27(月) 00:03:03.35

ttps://perldoc.jp/docs/perl/5.22.0/perl5220delta.pod#defined40-64array41-32and32defined40-37hash41-32are32now32fatal32errors
＞defined(@array) と defined(%hash) は致命的エラーになりました
＞これは v5.6.1 から廃止予定で、v5.16 から廃止予定警告が出力されていました。

v5.6.1は2001年、v5.16は2012年、実際に廃止されたv5.22は2015年にリリース

ttps://www.effectiveperlprogramming.com/2016/06/perl-v5-26-new-features/
＞A hash is scalar context will return the number of keys, not the hash statistics.
今年リリース予定のv5.26からはスカラーコンテキストのハッシュが返す値はハッシュの持つキーの数になるそうです

**デフォルトの名無しさん** · 2018/02/03(土) 21:51:51.42

Perl初心者です。独学でやり始めましたが、わからないことがあり、先輩方、何卒よろしくお願いします。

my $num = 1;
my $inc = $num++;
print “$num¥n”;
print “$inc¥n”;

変数$numは2と表示されますが、変数$incは1と表示さます。こらは仕様でしょうか。変数$incについても2が表示されると思ってたのですが。
C言語では右辺を評価した後に左辺に代入して、2が表示してたかな、と思ったので質問させていただきます。

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

>>404
Cでも++演算子は同様の結果になると思ったが？

**デフォルトの名無しさん** · 2018/02/03(土) 22:55:48.24

>>405
本当ですね。もっと確認してから質問するべきでした。
やりたかったことは
$inc = ++$num(
でした。C言語と同じですね。

ご教授頂きまして、どうもありがとうございました。

**デフォルトの名無しさん** · 2018/02/03(土) 22:57:16.17

>>406

$inc = ++$num;

の間違いです。

**デフォルトの名無しさん** · 2018/05/23(水) 20:30:23.86

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

WVNXN

**デフォルトの名無しさん** · 2018/05/24(木) 02:11:41.40

perlやってみたいど素人です。
Ubuntu 18.04がメインのマシンです
Windows XPサポート終了後難民となり
Ubuntu 16.04に辿りついてます
Ubuntuもまだまだど素人ですけど
通常に動かす所まではできます
Perlはどこから？始めたらいいでしょう
本買った方がいいのかな？

**デフォルトの名無しさん** · 2018/05/24(木) 02:11:43.82

perlやってみたいど素人です。
Ubuntu 18.04がメインのマシンです
Windows XPサポート終了後難民となり
Ubuntu 16.04に辿りついてます
Ubuntuもまだまだど素人ですけど
通常に動かす所まではできます
Perlはどこから？始めたらいいでしょう
本買った方がいいのかな？

**デフォルトの名無しさん** · 2018/05/24(木) 07:46:52.51

どのみち本は買った方がいいと思うけど
初心者から始めるならこんなのもあるみたいよ（宣伝乙）
http://www.perl-entrance.org/

**デフォルトの名無しさん** · 2018/05/24(木) 11:20:03.99

>>411
独学派なんです。

**デフォルトの名無しさん** · 2018/06/20(水) 03:35:44.14

perlに初心者がつくとは。。perlの未来は明るい

**デフォルトの名無しさん** · 2018/06/20(水) 20:53:58.17

Perl 6の“Neko operator”を使ってみたいのですがどのように使用すればいいでしょうか。
> 0 ^..^ 9
> say "0 ^..^ 9"
などとやっても
0 ^..^ 9
という文字列（？）が返ってくるだけなのですが……。

**デフォルトの名無しさん** · 2018/06/22(金) 02:01:50.03

Perl6は初心者なので全く分からない。
というかやろうとしたことすらないので知識ゼロw

**デフォルトの名無しさん** · 2018/06/22(金) 08:56:04.63

perl6いつになったら実用的な実装出るのー？

**デフォルトの名無しさん** · 2018/06/27(水) 17:36:19.05

>>414
すいませんどなたかこれ分かりませんか。

**デフォルトの名無しさん** · 2018/06/28(木) 00:53:58.60

>>417
perl6はまったく使ったことはないが、
範囲演算子らしいから
perl5の ... と同じように使うんじゃないのかね。
say $_ for 0 ^..^ 10;
みたいな? perl6の文法的にこれでいいかはわからんけど。

**デフォルトの名無しさん** · 2018/06/28(木) 03:08:38.20

perl5の範囲演算子 ... じゃなくて .. だったね。失礼。

**デフォルトの名無しさん** · 2018/06/28(木) 13:40:00.67

>>418
できました。ありがとうございます。

**デフォルトの名無しさん** · 2018/06/29(金) 22:13:55.33

Neko演算子なんてあるのねw

**デフォルトの名無しさん** · 2018/07/04(水) 22:52:04.22

ANH

**デフォルトの名無しさん** · 2018/07/06(金) 12:26:50.17

ANH

**デフォルトの名無しさん** · 2018/07/12(木) 14:35:34.31

Perlの勉強始めました。

**デフォルトの名無しさん** · 2018/07/12(木) 16:09:13.97

冷やし中華始めました。

**デフォルトの名無しさん** · 2018/07/19(木) 12:24:17.38

Xorgってperlで描かれてるコマンドが多い気がするけどなんで？

**デフォルトの名無しさん** · 2018/08/03(金) 22:49:39.26

なんだろう？　計算式で質問投稿しようとするとＮＧワードエラーで拒否られてしまう orz
全角でもダメかー

**427です** · 2018/08/04(土) 19:04:46.45

これで書けるかな？

代入計算式のソースと書きたかった質問内容をマンゴースレに貼りました。
https://agree.5ch.net/test/read.cgi/mango/1532726276/421-422

**427です** · 2018/08/04(土) 19:09:36.61

>428 の書き込みで、本来続きだったリンク先 >422 の
16進～解説お願いできませんでしょうか？
の文章内だけでもＮＧ含んでるとか・・・・プログラム技術板・・コミュニケーション終わってね？

**デフォルトの名無しさん** · 2018/08/05(日) 06:11:20.74

>>428
よくわからないんだけど、下2桁を60で割って3桁目より上は1の位にシフトしているわけだよね。
とするとあり得るのは時間の時と分について時 * 100 + 分とやった結果が数値として入っていて、
それの時間単位への変換ではないか?

例えば元の値が 315 なら3時間15分という意味で、それを時間単位に直すと 3.25 時間ってこと。

**デフォルトの名無しさん** · 2018/08/05(日) 06:13:27.55

時と分とは限らないか。分と秒かも知れない。まあしかし下2桁は60進法で考えなければいけないということに変わりはない。

**デフォルトの名無しさん** · 2018/08/05(日) 07:50:18.49

>>428
ところで元のプログラムに「16進バイナリデータを・・・」というコメントが入っているのだろうが、呼び出す側は実際には何を渡している?

仮に元がバイナリだったとしても unpack('N', ...) のようなことをしていない? だとするとそこでバイナリから Perl の
変数への変換自体は終わっている。

つまり、コメントが紛らわしい表現になっているだけ。

**427ですこれは書けるかな？** · 2018/08/05(日) 12:21:43.54

>430-432 スミマセンです。 orz
もっと詳しく書こうとするとマンゴースレでもブロックされました。
ぶっちゃけ、この中の
ttp://motor.geocities.jp/resermail/dc10tools.zip
「dc10mov2csv.pl」内です。

gps_data{'latitude'}の部分からです

gps_data{'bearing'}の式は
変換が単精度浮動小数点数(float)のIEEE754 単精度float変換で合ってますか？

これをベースに別メーカー機種の同様な構造を持つデータでの他言語の変換プログラムを考えているので。

**デフォルトの名無しさん** · 2018/08/05(日) 17:23:40.10

>>433
pack, unpack の f は機種依存なので IEEE 754 単制度になるかどうかはプログラムからだけではわからない。
http://perldoc.jp/func/pack
まあでも今時の普通のPC用Perlならなってそうな気がするけどね。

latitude って緯度か。GPSデータのバイナリをPerlの変数に入れているということだな。
だから下2桁を60進法で考える必要があると。

やはりそのプログラムのコメントは紛らわしいってだけだよ(サブルーチン名も紛らわしいが)。
bin_convert 呼ぶときには既にバイナリから float に unpack されてるから。
で、bin_convert 内でやっているのは先に書いた通り下2桁を60進法で小数点以下の値にしてるってことね。

**427です** · 2018/08/05(日) 21:57:54.47

>>434
ありがとうございます。
全体からずらして抜いたもの60進法にしてるだけなんですね。
てっきりバイナリから浮動小数点を出す特殊計算かと思っていました。
適当にがんばります。

**デフォルトの名無しさん** · 2018/10/05(金) 20:29:10.24

「サンプル」のCSVを文末の「結果」に変換するプログラムをPerlで作りたいです。
●　サンプルのCSVの構造：
1コラム目：数字8桁の昇順、2コラム目：数字1桁、3コラム目：文字列
●　作りたいプログラム：
1コラム目、3コラム目は保持する。複数レコードで1コラム目に重複があれば、
それらの複数レコードの2コラム目の1桁数字を連番にする。
1コラム目に重複がない場合は、当該レコードの2コラム目を1にする。

●　「サンプル」
06030002,6,文字列A
06030004,3,文字列B
06030004,4,文字列C
06030004,5,文字列D
06030005,3,文字列E
06030005,4,文字列F
06030006,3,文字列G
06030006,4,文字列H
06030006,7,文字列I
06030007,3,文字列J
06030008,3,文字列K
●　「結果」
06030002,1,文字列A
06030004,1,文字列B
06030004,2,文字列C
06030004,3,文字列D
06030005,1,文字列E
06030005,2,文字列F
06030006,1,文字列G
06030006,2,文字列H
06030006,3,文字列I
06030007,1,文字列J
06030008,1,文字列K

**デフォルトの名無しさん** · 2018/10/05(金) 21:39:08.56

まずは自分で書いてみたコードを晒すところからだな。

**デフォルトの名無しさん** · 2018/10/05(金) 22:57:27.02

一行プログラムが思い浮かんだ。

最初の列をハッシュのキーにして3列目をpush。
全部読んだらキーをソートして読んだ内容に番号降りつつ出力。

しかし俺は今電車の中からスマホで書いてるのでここに書く気が起きない。

**デフォルトの名無しさん** · 2018/10/06(土) 00:22:39.61

Ruby で作った

require 'csv'

count = Hash.new( 0 ) # 初期値は、0

# コロン区切りのCSV 入力ファイルを、1行ずつ処理する
CSV.foreach( "input.csv" ) do |row|
count[ row[ 0 ] ] += 1
row[ 1 ] = count[ row[ 0 ] ]

puts row.join( "," )
end

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

考え方は >>439 と同じ

perl -pe "s/^([^,]+,)[^,]+/$1.++$count{$1}/e" < sample.csv

**デフォルトの名無しさん** · 2018/10/06(土) 03:33:56.69

my @y = "";
while(<>) {
my @x = split ",";
# $x[1] = $x[0] eq $y[0] && ++$y[1] || 1;
$x[1] = $x[0] ne $y[0] || ++$y[1];
print join ",", (@y = @x);
}
ウチでやるならこうかしら

**438** · 2018/10/06(土) 06:07:28.44

おはよう。

元のテキストが s.txt に入っているとして、こうする。

perl -ne 'chomp;@d=split/,/;push(@{$h{$d[0]}},$d[2]);END{for(sort keys%h){for($i=0;$i<@{$h{$_}};$i++){print join(",",$_,$i+1,$h{$_}[$i])."\n"}}}' s.txt

なげーなw

**438** · 2018/10/06(土) 06:21:52.15

あ、そうか。貯め込む必要はなくてハッシュ作ってそのまんま出せば良いんだよな。

じゃあawkの方が楽ではないか？

awk -F, 'BEGIN{OFS=","}{n[$1]++;print $1,n[$1],$3}' s.txt

**デフォルトの名無しさん** · 2018/10/06(土) 17:28:12.58

436です。皆様ありがとうございました。
自分では1行ずつ処理することまでしかできず、複数レコードの
1コラム目の比較をすることができませんでした。
おかげさまで体育の日に子供の運動会に行けます！
ありがとうございました！

**デフォルトの名無しさん** · 2018/11/11(日) 14:10:45.60

上の方のレスにも関連したものがありますが、
ファイルから読み込んだ文字列データにて
パターンマッチがヒットしません。
同一文字列を直接コード内に定義すると、ヒットします。

出来ればファイルに切り出したいので、
ご教示いただけますでしょうか。

**デフォルトの名無しさん** · 2018/11/11(日) 14:11:11.73

[環境]
Activeperl win8.1 or 2016 server
perl -v
This is perl 5, version 24, subversion 3 (v5.24.3) built for MSWin32-x64-multi-thread

[コード utf-8で作成]
#res[1]にはcp932のコードの「テスト」を含む文字列が格納されている。
$res[1] = Encode::decode('cp932', $res[1]);

#patern.txtはutf-8で「テスト」の文字列が格納されている。
open (FILE, "<:utf8", "patern.txt") or (die "$!");
my $line = <FILE>;
close(FILE);
#$line = 'テスト';←#を外して直接コードに書くとヒットする。
print encode('cp932', $line);(正常に取得できている。)

if ($res[1] =~ /$line/){
print "Hit!";
} else{
print "not Hit";
}

---出力---
>テスト
>not Hit

**デフォルトの名無しさん** · 2018/11/11(日) 16:14:59.60

>>446
改行文字の有無？

**デフォルトの名無しさん** · 2018/11/11(日) 18:17:18.70

たぶんそれだな。$line の中身が "テスト\r\n" または "テスト\n" になってそう。

**デフォルトの名無しさん** · 2018/11/12(月) 00:16:54.10

chomp($line); するべき

**デフォルトの名無しさん** · 2018/11/12(月) 07:45:13.53

遅くなりすみません。
テストファイルには改行を入れていなかったのですが、
chompが必要なのですね。
ファイルからレコードを取得するにはchompが必要と勉強になりました。
ありがとうございました。

**デフォルトの名無しさん** · 2018/11/12(月) 09:22:08.61

>>450
いや、改行は入っていると思うぞ。でなければあのプログラムでは一致する。

**デフォルトの名無しさん** · 2018/11/13(火) 17:15:58.77

utf-8がボムがついている可能性もあるね

**デフォルトの名無しさん** · 2018/11/13(火) 17:46:33.84

ところでUTF-8にBOMってなんか意味あるの？
ビッグエンディアンで上のビットから詰め込んで並べている1パターンしかないよね？

**デフォルトの名無しさん** · 2018/11/13(火) 18:09:12.36

>>453
あるよ、BOMがあればUTF-8だと文字コードを
簡単に判定できる

つまり、文字化け防止に役立つ
みんなBOM付けるようにすれば良かったんだけどな

**デフォルトの名無しさん** · 2018/11/13(火) 19:44:37.81

あー。magic用か。

**デフォルトの名無しさん** · 2018/11/14(水) 00:34:48.87

>>450
ですが、改行が入っていました。
遅くなりすみません。
すみませんでした。確認をしっかりします。

もう一つ質問があるのですが、>>450の環境にて、パターンマッチングを、全角、半角、ひらがな、カタカナ、大文字、小文字を区別することなく行いたいのですが、方法をご教示いただけますでしょうか。

**デフォルトの名無しさん** · 2018/11/14(水) 09:45:09.68

>>456
手順としてはまず比較に都合のいいように比較する側とされる側の文字列を正規化する。
例えば半角は全て全角にし、濁点や半濁点はそれを含んだ文字にし、英小文字は大文字にする。
それから比較を行う。

ただし使われている文字がASCIIの文字だけならば // のオプションで i が使えるので正規化不要。

**デフォルトの名無しさん** · 2018/11/14(水) 12:24:46.73

教えて下さい。

my @str4=['a','b','c','d','e'];
my $ref4=\@str4;

print $str4[0][1],"\n"; # b
print @{ $str4[0] },"\n"; # abcde

ref4を使って同様に b と abcde を表示するには、どうしたらいいですか？

**デフォルトの名無しさん** · 2018/11/14(水) 12:38:11.11

うっかり自己解決しました。数時間悩んだのに。
print @{ ${ $ref4 }[0] };
print @{ ${ $ref4 }[0] }[1];

**デフォルトの名無しさん** · 2018/11/14(水) 19:36:24.69

>>457
オプションで可能であればと思ったのですが、マッチング文字列と対象を同じ文字種にしないといけないんですね。
ActivePerlでUnicode::Japanese
でUTF8から変換して書いてみたのですが、cp932にencodeすると、化けてしまい、使用できませんでした。
ActivePerlで使用可能なモジュールあればコードではなくてかまいませんので、何かあれば紹介してもらえますでしょうか。

**デフォルトの名無しさん** · 2018/11/14(水) 20:41:47.52

UNICODEにはcomposed、decomposedというややこしいものもあるんだよね。
https://pointoht.ti-da.net/e8205606.html
Unicode::Normalizeってのがあるけど、日本語を特別扱いしてくれたりはしなさそうな予感。

**デフォルトの名無しさん** · 2018/11/14(水) 22:57:23.73

>>453-455
Linux では、BOM なしUTF-8 を使う、アプリ開発者が多く、
BOMありにするとバグるアプリがあるから、BOMなしを使っているけど、

そうすると、Windows では、sjis と区別がつかなくなり、
Explorer での文字列検索ができなくなる

だから、Windows10 で、WSL, Ubuntu を導入して、grep を使っている

**462** · 2018/11/14(水) 23:51:54.30

結合文字列をUnicode正規化で合成する方法の危険性
https://qiita.com/monokano/items/d4c37d9bc9833eaeda6e

濁点・半濁点を別の1文字として扱う、結合文字列はMac だけだから、Mac を使わないなら関係ない

Unicode正規化は、日中韓で、別の漢字に変換されるものがあるから使えない

Ruby では、sjis・UTF-8 の変換は、ファイル読み書き時に指定できる。

CRLF・LF の改行コードの違いは、意識したことがない。
chomp とか、どちらの改行コードでも、正常に動く

**462** · 2018/11/15(木) 00:11:38.19

【 nkf 】コマンド――文字コードと改行コードを変換する
http://www.atmarkit.co.jp/ait/articles/1609/29/news016.html

これで全角・半角の変換もできる

Perl にも、モジュールもあるのでは？

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

>>464
有料ですがnkfのActivePerl用をnamazuというところから購入しましたが、
nkfで変換後、utf8でマッチングが不可能で調査中です。

**デフォルトの名無しさん** · 2018/11/21(水) 23:00:44.11

ハッシュを要素に持つハッシュへのアクセスについて
ご教示いただけますでしょうか。
下記のコードで、読込は正常に完了しますが、出力が不可能です。
$$を使用したり、試しましたがギブアップです。

#hash.txtの中身(タブ区切り)
#1 10 テスト1
#2 5 テスト2

use Encode;
use utf8;
my %table;
my %rec;

open (FILE, "<:utf8", "hash.txt") or (die "$!");
while(my $line = <FILE>){
　chomp($line);
　@d = split(/\t/, $line);
　%rec = ('id' => $d[0], 'count' => $d[1], 'name' => $d[2]);
　$table{$d[0]} = \%rec;
　print encode('cp932', $table{$d[0]}{'id'})."\t". encode('cp932', $table{$d[0]}{'count'})."\t".encode('cp932', $table{$d[0]}{'name'})."\n";
}
close(FILE);
print Encode::encode('cp932', "読込完了\n");

foreach my $row (@$wrote_num){
　#出力不可能
　print encode('cp932', $row{'id'})."\t". encode('cp932', $row{'count'})."\t".encode('cp932', $row{'name'})."\n";
}
print Encode::encode('cp932', "$出力完了\n");

**デフォルトの名無しさん** · 2018/11/22(木) 00:04:25.39

wrote_numが何か分からんけど
my %rec;　はwhile内にしたらどうですか
あと、$rowはハッシュのリファレンスだろうから$row->{'id'}では

**デフォルトの名無しさん** · 2018/11/22(木) 10:12:03.32

>>467
すみません、レス用に書き換えた元がwote_numでした
下記の様に変えましたが、アクセスできません。
意外と難しいですね。
use Encode;
use utf8;
my %table;

open (FILE, "<:utf8", "hash.txt") or (die "$!");
while(my $line = <FILE>){
chomp($line);
@d = split(/\t/, $line);
my %rec = ('id' => $d[0], 'count' => $d[1], 'name' => $d[2]);
$table{$d[0]} = \%rec;
　print encode('cp932', $table{$d[0]}{'id'})."\t". encode('cp932', $table{$d[0]}{'count'})."\t".encode('cp932', $table{$d[0]}{'name'})."\n";
}
close(FILE);
print Encode::encode('cp932', "読込完了\n");

foreach my $row (@$table){
print encode('cp932', $row->{'id'})."\t". encode('cp932', $row->{'count'})."\t".encode('cp932', $row->{'name'})."\n";
}
print Encode::encode('cp932', "$出力完了\n");

実行結果：まだアクセスできません
>hash_test.pl
1 10 テスト1
2 5 テスト2
読込完了
出力完了

**デフォルトの名無しさん** · 2018/11/22(木) 10:30:19.76

これでいけると思いましたが、玉砕でしたｗ

foreach my $row (@$table){
　while (my ($id, $count, $name) = each(%row)){
　print encode('cp932', "$id\t$count\t$name\n");
}

**デフォルトの名無しさん** · 2018/11/22(木) 10:54:51.08

これでいけました！
foreach my $row (keys %table){
　print encode('cp932', "$table{$row}{'id'}\t$table{$row}{'count'}\t$table{$row}{'name'}\n");
}
>hash_test.pl
1 10 テスト1
2 5 テスト2
読込完了
1 10 テスト1
2 5 テスト2
出力完了

ただ、key を外して　foreach my $row (%table)とすると下記の通り改行が入ります
1 10 テスト1

2 5 テスト2

出力完了

**デフォルトの名無しさん** · 2018/11/22(木) 11:07:56.03

これで全てのハッシュ要素を出力できますが、
カラム順が不確定になってしまいますね。
ハッシュなので仕方ないことですかね。

foreach $row (sort keys %table) {
　foreach $col (sort keys %{$table{$row}}) {
　print encode('cp932', "$table{$row}{$col}\t");
}
print "\n";
}
>hash_test.pl
1 10 テスト1
2 5 テスト2
読込完了
5 2 テスト2
10 1 テスト1
出力完了

**デフォルトの名無しさん** · 2018/11/22(木) 12:53:27.47

>>471
キーだけ別の配列に取っといてそれ使えば？

**デフォルトの名無しさん** · 2018/11/25(日) 19:58:05.78

>>472
できれば要素をカラム名でアクセスしたいのでハッシュの方がいいのですが、カラム順固定出力は配列しかないということですね。

**デフォルトの名無しさん** · 2018/11/25(日) 21:54:59.45

両方使えば良いのでは　たまにやるよ

**デフォルトの名無しさん** · 2018/11/26(月) 04:07:41.06

>>471
foreach $col (sort keys %{$table{$row}}) {
を
foreach $col (qw/id count name/) {
とかでは? keyの名前も順番も分かってるんだし。

**デフォルトの名無しさん** · 2019/06/24(月) 04:43:33.88

自分が昔質問したことにたいして今なら回答できる
<> は <STDIN> の単なる略ではなく
@ARGV が捕れない副作用があった
そこに詰まっていた

#!/usr/bin/env perl
use 5.010;

if (-p STDIN) {

print "May be pipe is used. I've got STDIN as below\n";

# my @lines = <STDIN>; # when <> used, perl think no @ARGV

map {state $i; ++$i;print "$i $_" } <STDIN>;

}

else {

print "This may be just single running.\n";

}

map {state $i; ++$i; print "$i argment found ==> $_\n"} @ARGV;

**デフォルトの名無しさん** · 2019/08/29(木) 20:58:11.72

タグを除去したいのですが、<>も文に入っているため
<.*?>ではなく<("[^"]*"|'[^']*'|[^'">])*>を使いたいのですが
perl -pe '<("[^"]*"|'[^']*'|[^'">])*>'
にする場合どれどれをエスケープすればよいでしょうか？
’だけだと動きませんでした。
perl -pe '<("[^"]*"|\'[^\']*\'|[^'">])*>'

**デフォルトの名無しさん** · 2019/08/30(金) 12:09:22.02

除去？だったらs/パターン//gみたいにやらないと何も変わらないのでは？
てか、それエラーにならないの？

**デフォルトの名無しさん** · 2019/08/30(金) 13:51:46.18

5ｃｈの書き込みのほう、つけ忘れてました
perl -pe 's/<("[^"]*"|'[^']*'|[^'">])*>//g'
です

perl -pe 's/<.*?>//g'は動くんですけど

perl -pe '<("[^"]*"|\'[^\']*\'|[^'">])*>'だと動かないんですよね

**デフォルトの名無しさん** · 2019/08/30(金) 13:52:36.95

またやっちゃった
perl -pe 's/<("[^"]*"|\'[^\']*\'|[^'">])*>//g'

**デフォルトの名無しさん** · 2019/08/30(金) 17:21:58.25

こうか？
perl -pe 's/<("[^"]*"|'"'"'[^'"'"']*'"'"'|[^'"'"'">])*>//g'
perlというよりシェルのシングルクォートの問題

**デフォルトの名無しさん** · 2019/08/30(金) 17:42:16.91

そこまでするくらいなら HTML::Parser を使う方がいいと思うよ。

**デフォルトの名無しさん** · 2019/08/30(金) 17:56:41.24

>481
できました！、ありがとうございます。
'を'""'で括るのですね
なんで\でエスケープにならないんでしょうね

**デフォルトの名無しさん** · 2019/08/30(金) 18:04:26.61

パーサーも一度使ってみたんですが
<p>hoge</p><p>hoge</p>
pタグが一行に2つあると誤作動したりするんですよね

**デフォルトの名無しさん** · 2019/08/30(金) 23:22:18.80

その誤作動がパーサーのせいかどうかは判らないが、少なくとも
HTML::Parser でそんなことは起こらないから安心してほしい。
たとえばテキスト部分だけを出力したいならこんな感じでできる。

my $parser = HTML::Parser->new(
text_h => [sub { print( $_[0]) },'text'],
);
$parser->parse_file( \*STDIN);

**デフォルトの名無しさん** · 2019/08/31(土) 00:18:32.04

>485
参考になります。
パーサーもいろいろ種類あるみたいですね。

自分の使ってたのはhtml-xml-utilsというやつでした。

**デフォルトの名無しさん** · 2021/04/21(水) 00:35:38.31

@aに0を100ケ追加するには、pushをforで100回回す以外の方法ありますか

**デフォルトの名無しさん** · 2021/04/21(水) 03:07:59.27

push(@a, (0) x 100);

**デフォルトの名無しさん** · 2021/04/27(火) 18:16:47.03

>>488
ありがとうございました
俺が遅くなりまして申し訳ありません

**デフォルトの名無しさん** · 2021/11/19(金) 22:27:21.73

二つ以上の空白文字列を
一つの空白に変えたいのですが
うまくいきません。

if($line=~/\s\s+/){
$line=~s/\s\s+/\s/g
print("$line\n")
}

**デフォルトの名無しさん** · 2021/11/20(土) 02:07:02.21

$line=~s/¥s¥s+/ /g
では？

**デフォルトの名無しさん** · 2021/11/20(土) 20:14:01.04

s/\s\s+/ /g;
でうまくいったよ。
そうか、\sって正規表現だから、置換文字列に使うと「perl にそんな定義ないで！」ってなるのか。
これは俺も気を付けよう。

**デフォルトの名無しさん** · 2021/11/20(土) 20:36:42.09

置換といえばこのまえ、JSONで取得したUnicodeを表示したくて、
\u3042 → \N{U+3042}
に置換しようとしたけど、できなかった。
\N{U+ }←ここにはリテラルしか書けないのかな。

**デフォルトの名無しさん** · 2021/12/14(火) 19:15:14.22

if文で真偽値を判定するのってどうやるの？

hoge() or die("Error\n");
ってなってた（hoge()の戻り値が魏ならエラー）のを標準出力したくて

my $a = hoge();
if( ! $a ){ print("Error\n"); exit $!; }
みたいにしたんだけど、if文の書き方ってこんなんで良いの？

**デフォルトの名無しさん** · 2021/12/25(土) 19:09:39.02

>>494
0を返しても、0といｂ､文字(アスキーコード0x30)として扱われたりするから、俺は
if(scalar($a)) {
とか
if($a eq 0) {
とかするよ。

**デフォルトの名無しさん** · 2021/12/25(土) 20:31:09.16

>>494
良い。

! で条件反転させるんだったら unless 使っても良いと思うけどね。
unless ($a) { ... } みたいに。

**デフォルトの名無しさん** · 2021/12/30(木) 05:41:55.25

良くないんだってば。
Perlをそういう流儀でやってるといつか痛い目にあうよ。

**494ではない** · 2021/12/30(木) 08:07:22.12

>>495
マジか。
my $a = hoge();
において、左辺が 0、右辺が 0x30 になるのは、言語としてぶっ壊れているんじゃね?

**デフォルトの名無しさん** · 2021/12/30(木) 17:49:56.83

そういう言語なの
0 but true
なんていう値もあるし

**デフォルトの名無しさん** · 2022/01/10(月) 19:33:13.97

do what perl mean

**デフォルトの名無しさん** · 2022/01/11(火) 00:17:50.61

bool値ほしい

**デフォルトの名無しさん** · 2022/03/27(日) 23:43:39.11

>>497
じゃあどうすればいいの？

**デフォルトの名無しさん** · 2022/04/28(木) 20:33:01.74

元の
hoge() or die("Error\n");
が問題なく動いてるなら
hoge() or print("Error\n"), die $!;

**デフォルトの名無しさん** · 2022/06/11(土) 13:31:52.57

hoge()が0を返しうるかどうかもわからんと思うのだが

＞元の
＞hoge() or die("Error\n");
＞が問題なく動いてるなら

という前提の下で >>495 の配慮に意味があるの? >>496 で十分

hoge() or が動くという前提を無視するとして
もしもhoge()が0を含む数値か失敗を返すなら（空文字を含む文字列か失敗でもいい）
失敗にundefを返してdefinedで受けるのがフツー

**デフォルトの名無しさん** · 2023/12/15(金) 06:59:42.19

$_ ← これ、なんて読む?

perlが発祥ってわけでもないそうだが(bashとかにもあるんだってね)、ガチのドザなので
俺は内心ドルバーって呼んでる

**デフォルトの名無しさん** · 2023/12/19(火) 00:32:16.33

ドル・アンダーバーじゃないかな。
設定によってはチルダの代わりにトップバーってのがあったから、それと区別するのにアンダーって言ってた気がする。