X
Perl初心者スレ（マジレス回答）
0002デフォルトの名無しさん
垢版 |
2012/10/07(日) 00:50:26.06
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。

　　　　　　　　　　　　　　　　　　京都大学霊長類研究所
0003デフォルトの名無しさん
垢版 |
2012/10/07(日) 01:10:26.82
>>1
おつ！
ありがとうございます
0004デフォルトの名無しさん
垢版 |
2012/10/07(日) 01:46:15.82
マジレス？
じゃあ遠慮なく

>>1
板荒らすために立てたんじゃないならさっさと削除依頼しろクズ
本スレでさえ閑古鳥が鳴いてるのに次スレ立てるから荒らし予備軍の温床になってんだよ
今日の糞スレ乱立を見ればわかるだろ
0005デフォルトの名無しさん
垢版 |
2012/10/07(日) 01:55:03.21
■関連スレ

在日韓国人プログラミング
http://toro.2ch.net/test/read.cgi/tech/1349527575/

チョッパリは謝罪しる！
http://toro.2ch.net/test/read.cgi/tech/1349527506/

おちんちんを入れてください
http://toro.2ch.net/test/read.cgi/tech/1349527445/

ほむらたんをあいしてる
http://toro.2ch.net/test/read.cgi/tech/1349518465/

我らＰＧにしてＰＧにあらず
http://toro.2ch.net/test/read.cgi/tech/1349518997/

おちんちんを入れる
http://toro.2ch.net/test/read.cgi/tech/1349518715/
0006デフォルトの名無しさん
垢版 |
2012/10/07(日) 01:56:03.28
■関連スレその２

カチャカチャＰＧの叫び
http://toro.2ch.net/test/read.cgi/tech/1349518930/

プログラマー＝キチガイ
http://toro.2ch.net/test/read.cgi/tech/1349518840/

チンパンジーの舞
http://toro.2ch.net/test/read.cgi/tech/1349516893/

今、ム板に必要なのはIDより板の設定変更
http://toro.2ch.net/test/read.cgi/tech/1349513203/

こんにちはみなさん。
http://toro.2ch.net/test/read.cgi/tech/1349503990/
0008デフォルトの名無しさん
垢版 |
2012/10/07(日) 10:56:38.94
初心者なので CGI と Perl の区別がつかないこともあると思いますが、
どうぞ質問してください。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
回答者が現れるまで待ちましょう。

[プログラミング自体の経験が無いひとはまずココを読む]
とほほのperl入門: ttp://www.tohoho-web.com/wwwperl.htm

[厳選・オンラインドキュメント]
perldoc.jp: ttp://perldoc.jp/
Perl メモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perl のページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perl の小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm
0009デフォルトの名無しさん
垢版 |
2012/10/07(日) 11:01:39.61
#　[Perl 日本語処理の基礎の基礎]
#　まず、以下の行を先頭に入れて下さい。

use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;

#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。
0010デフォルトの名無しさん
垢版 |
2012/10/07(日) 11:07:51.43
上記の記述は１行で書くこともできます。

use encoding 'cp932'; # [Perl 日本語処理]

初心者にはこれが一番あってると思います。
徐々に経験を積んで、難しい記述にチャレンジしていきましょう。
0014デフォルトの名無しさん
垢版 |
2012/10/07(日) 21:24:43.64
↑ながらく機能していない上にCGIの質問をすると怒られます。
　Perlの質問をするとPHPの回答が返ってきます。
　それでも構わないなら、どうぞ。
0017デフォルトの名無しさん
垢版 |
2012/10/07(日) 22:29:39.78
■関連スレ

おちんちんランド開園
http://toro.2ch.net/test/read.cgi/tech/1349453856/

ム板を荒らしている連中の正体
http://toro.2ch.net/test/read.cgi/tech/1349260204/

おちんちんを舐めよう
http://toro.2ch.net/test/read.cgi/tech/1349454008/

ム板住民に言いたい1000のこと
http://toro.2ch.net/test/read.cgi/tech/1349192669/

低級言語のすばらしさ
http://toro.2ch.net/test/read.cgi/tech/1349496941/

　
http://toro.2ch.net/test/read.cgi/tech/1349502749/

ム板の住民構成
http://toro.2ch.net/test/read.cgi/tech/1349453824/
0026デフォルトの名無しさん
垢版 |
2012/10/08(月) 10:06:15.64
my @array_unique = keys %{{map {$_,1} @array}};

perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};
0031デフォルトの名無しさん
垢版 |
2012/10/08(月) 14:31:44.97
あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
get_num();

my $num=200
while(1)
{
if(new_num() >=$num)
{
okと表示
}
}

okがうまく表示されません
毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください
003231
垢版 |
2012/10/08(月) 14:33:07.32
new_num()で取得した値は $numより大きいです
大きいのになぜか比較されずにスルーで何も表示されずループです
0033デフォルトの名無しさん
垢版 |
2012/10/08(月) 14:39:56.54
>あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
↑これは get_num() のことですか？new_num() のことですか？

get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？

>毎回get_numでサイトにアクセスして
↑ get_num() は while の中にありませんが、この外にループがあるんですか？
0035Perl忍者 ◆M5ZWRnXOj6
垢版 |
2012/10/08(月) 14:44:44.21
>>31
$|=1;
それかprint "ok\n";
改行いれとけ
0037デフォルトの名無しさん
垢版 |
2012/10/08(月) 15:14:18.81
>>31
マジレスすると
お前みたいな低脳には無理
0040デフォルトの名無しさん
垢版 |
2012/10/08(月) 16:04:33.60
>>37=>>38=>>39
0041デフォルトの名無しさん
垢版 |
2012/10/08(月) 16:16:12.31
>>31=>>39
0042デフォルトの名無しさん
垢版 |
2012/10/08(月) 17:19:35.10
$|=1;
my $num=200; ←ｾﾐｺﾛﾝ忘れるな
while(1){
　　if(get_num() >= $num){ ← get_num()、な
　　　　print "ok\n"; ← うるせぇやつがいるから改行、な
　　　　last; ← これなけりゃ無限ループだわな
　　}
　　sleep(60); ← Web にアクセスするなら忘れるんじゃねぇぞ
}
0047デフォルトの名無しさん
垢版 |
2012/10/08(月) 18:46:17.85
文字列 $str の末尾の「.cpp」を「.o」に置換し新たな文字列 $new_str を生成したいのですが
s/// だと元文字列を書き換えてしまいます
コピーしてから置換でも良いのですが、書き換えずに置換する関数や演算子はないでしょうか？
0050デフォルトの名無しさん
垢版 |
2012/10/08(月) 19:24:24.71
>>47のような害虫はム板から駆除しなければならない。
0052デフォルトの名無しさん
垢版 |
2012/10/08(月) 19:47:46.05
>>47
演算子一覧くらい検索すればいくらでも出てくるだろ

それすら検索できないって本物の精神異常？
0054デフォルトの名無しさん
垢版 |
2012/10/08(月) 20:15:10.88
煽り叩きに加えて今度はイコール厨まで参戦ですか
ほんとスレの空気を悪くすることに関しては息ぴったりですねお前ら
006231
垢版 |
2012/10/08(月) 23:31:22.78
>>35
うまく出力されました
$|=1;とは何ですか？
改行の理由も教えてください

>>42
$|=1;をつける理由は？
lastだとループが終わってしまうので
0063デフォルトの名無しさん
垢版 |
2012/10/08(月) 23:37:12.37
>>32
>大きいのになぜか比較されずにスルーで何も表示されずループです

ループして困っているのか、ループしたいのか質問をはっきりしろ
0065デフォルトの名無しさん
垢版 |
2012/10/08(月) 23:58:56.98
こういう糞みたいな質問してる連中がム板のレベルを下げてる
0068デフォルトの名無しさん
垢版 |
2012/10/09(火) 11:14:53.75
何で分かるの？
あ、ご本人様ですか。
荒らしもやりながらこんな場末の糞スレチェックまでご苦労様です。
0069デフォルトの名無しさん
垢版 |
2012/10/09(火) 13:42:01.38
プロキシのレスポンスタイム計るにはどうするの？
教えてくれ
6.5s
5,8sとかあるだろ？あれ
0071デフォルトの名無しさん
垢版 |
2012/10/09(火) 16:16:14.44
PHPでいうマジッククォートみたいなのない？
sjisで送信するとき表とかがエスケープされずにエラーでちゃうんだけど
自動でエスケープしてくれる関数みたいなの無いの？
教えてください
0072デフォルトの名無しさん
垢版 |
2012/10/09(火) 16:57:01.82
自分で調べられないお前にはPHPがお似合いだ
0073デフォルトの名無しさん
垢版 |
2012/10/09(火) 17:05:55.35
>>71
ふたつのことを混同してしまってると思われる
「Perl XSS対策」「Perl Unicode」でそれぞれググれ
そして前者(XSS)にに関しては今後はWebProgへどうぞ
0077デフォルトの名無しさん
垢版 |
2012/10/09(火) 20:44:10.43
PHPのマジッククォートとSjisっておんなじものなのか？
微妙にやること違うと思うぞｗ
0078デフォルトの名無しさん
垢版 |
2012/10/09(火) 22:09:35.85
初心者でUnicodeはきついかもな
ごちゃごちゃしてて何がなんだかさっぱり分かんない
初心者にはshiftjisがいい
0081デフォルトの名無しさん
垢版 |
2012/10/12(金) 01:02:04.55
>>80
確信ないなら書くなゴミ
さっさと失せろキメェんだよ
0083デフォルトの名無しさん
垢版 |
2012/10/12(金) 01:38:15.26
それ言うなら use utf8; だろ
EncodeはUnicode以外だって扱えるんだから

でも牙が伸び過ぎると自滅してしまうこともある
ttp://blog.nakatanigo.net/archives/50474313.html
0095デフォルトの名無しさん
垢版 |
2012/11/12(月) 19:41:16.44
ActivePerl5.16.1使用中です。
---
print DAT @dat;
---
このようにして配列を書き出そうとしたのですが
なぜかテキストファイルに繁栄されません。
何か情報をご存知の方いらっしゃいませんか？
0097デフォルトの名無しさん
垢版 |
2012/11/13(火) 22:13:06.51
以下の一行スクリプトに文字を食わせて「XX月◯◯日のお知らせ！」の次の行から「-----」の前までを取り出そうとしています。
最期のs/^　+//は各行の先頭の全角の空白を取ろうとしたのですが、これが働きません。が、抜き取り自体は成功していました。
逆に、use utf8とすると/正規表現/が全くひっかかりらず何もprintされません。

perl -e '
#use utf8;
while (<>)
{
if (/\d+月\d+日のお知らせ！/) { last; };
#skip the line;
};
while (<>)
{
if (/-----/) { last; };

s/^\s+//;
s/^　+//;
print;
}'
0098デフォルトの名無しさん
垢版 |
2012/11/13(火) 22:28:35.29
perl -e '
use utf8;
while (<>)
{
if (/\d+月\d+日のお知らせ！/) { last; };
#skip the line;
};
while (<>)
{
if (/-----/) { last; };

s/^\s+//;
{
no utf8;
s/^(?:　)+//;
}
print;
}'
0099デフォルトの名無しさん
垢版 |
2012/11/16(金) 00:37:30.32
どうもです。
状況なのですが、use utf8すると全くおかしいです。/\d+月… /のマッチが全く成功しないので、
目的通りの結果が出ません。uset utf8しないとうまく動きます。
実はMacのautomatorから呼び出されていてGet text from Webpage actionでとってきたテキストが
このperlに渡されているのですが…UTF-8の文字が来ているはずなのですが（指定のWebページのcharsetはUTF8）。

それはさておき
( ) / (?: )
の指摘ありがとうございました。上の行のs/^\s+//;と合わせて
s/^(?:\h|　|\xc2\xa0)+//;
に書き換えました。
non breakable spaceも行頭に混じっていたので、そのUTF8表現のU+c2a0も追加。
これできれいに行頭の「空白」がとれて左詰めになりました。

とりあえずuse utf8;だけ殺して一見うまく動いているのでそれで利用を開始しました。
個人の趣味の自動化目的なのでそんな感じでまずはゴーしてしまいます。
0100デフォルトの名無しさん
垢版 |
2012/11/16(金) 00:44:04.42
utf8プラグマは作ったひとは使うのが簡単だと考えているんだろうけど、
使うひとにとっては非常に難しい。こういった処理モデルを理解しろと
いうほうに無理がある。結論としてはutf8プラグマは使わないほうが
よい。
0102デフォルトの名無しさん
垢版 |
2012/11/16(金) 21:20:57.16
utf8にはまるのは日本固有らしい。海外では当初から見切りをつけていて
使われることはない。
0103デフォルトの名無しさん
垢版 |
2012/11/17(土) 00:49:53.31
この方法で重複を削除した場合
リストの順番は変更されますか。
それとも、重複が削除されるだけで、
順番はそのままですか。

my %hash = ();
foreach (@list) {
$hash{$_}++;
}
my @unique = keys %hash;
print @unique;

ご教示ください。
0106デフォルトの名無しさん
垢版 |
2012/11/17(土) 17:04:11.19
フリーソフトの利用は自己責任。
utf8作ったひとが助けてくれるわけじゃない。
自分の理解できる範囲内で使えってこった。
0107デフォルトの名無しさん
垢版 |
2013/01/03(木) 08:49:11.83
文字コードとしてのUTF-8を理解してもutf8プラグマの挙動は別物
オレオレ実装むき出しの仕様で理解できず使いづらい
そこで省略の美学になる
0115デフォルトの名無しさん
垢版 |
2013/01/09(水) 00:11:00.04
www.kent-web.com/bbs/
「2ch風」のマルチスレッド式掲示板です。トリップ機能、age/sage機能、
ID表示機能などが可能です。また表示部分をテンプレートファイルとし、
ユーザサイドでのレイアウト改造やデザイ改造が容易です。
0116デフォルトの名無しさん
垢版 |
2013/01/09(水) 17:34:57.36
サイトの宣伝乙
0122デフォルトの名無しさん
垢版 |
2013/01/12(土) 17:34:17.42
>>120
お前、CGI知らないのか？
Common Gateway Interface（コモン・ゲートウェイ・インタフェース、
CGI）は、ウェブサーバ上でユーザプログラムを動作させるための仕組み。

件の掲示板を実現しているプログラムはPerlスクリプトだぞ？
CGIとPerlスクリプトの違いも分からないのか？
0125デフォルトの名無しさん
垢版 |
2013/01/12(土) 21:38:40.14
>>123
落書き帳と同じだから必ずしも会話が成立してる必要はないんだよ

発作的に書きたくなった内容を書き殴ればいい

このスレにいるのは心を病んでる奴がほとんどだからまともに相手してるとこっちまで病むぞ
0128デフォルトの名無しさん
垢版 |
2013/01/19(土) 23:32:55.48
リャマ本をこなしてアルパカ本に進むわけだから当然脱落者がいるわな

リャマ本⇒らくだ本⇒アルパカ本
0130デフォルトの名無しさん
垢版 |
2013/01/20(日) 04:06:34.04
うるさいゴミ
お前が勝手に勘違いしてるだけだクズ
キメェから勘違い野郎は書き込むな
0132デフォルトの名無しさん
垢版 |
2013/01/20(日) 08:48:48.95
このスレ、気持ち悪いな
Perl使いにも、>>130みたいな気持ち悪い奴が多いから納得
0135デフォルトの名無しさん
垢版 |
2013/01/20(日) 14:10:46.15
WEBプログラミング＠2ch掲示板でも荒らされてるぞ

3 名前：nobodyさん 投稿日：2013/01/19(土) 02:52:02.33 ID:???
カップ麺スレ増殖中・・・


4 名前：nobodyさん 投稿日：2013/01/19(土) 03:47:52.32 ID:???
とんこつ系のインスタント麺で一番旨いのってどれだろう？
あのカップに入ってるちょっと高めのやつって実は値段ほど美味しくない

http://kohada.2ch.net/test/read.cgi/php/1358518487/3-4 Perlコーディング初心者質問スレ Part 67
0136デフォルトの名無しさん
垢版 |
2013/01/20(日) 14:12:27.88
WEBプログラミング＠2ch掲示板でも荒らされてる

3 名前：nobodyさん 投稿日：2013/01/17(木) 04:27:37.19 ID:???
またラーメンスレかｗ


5 名前：nobodyさん 投稿日：2013/01/18(金) 23:16:14.71 ID:???
>>4
どうせ暇でしょ？
全てのスレを食べ物の話題で
埋めたらいいやん？

http://kohada.2ch.net/test/read.cgi/php/1358342748/3-5 Perlコーディング初心者質問スレ Part 66
0137デフォルトの名無しさん
垢版 |
2013/01/20(日) 14:13:55.60
WEBプログラミング＠2ch掲示板でも



4 名前：nobodyさん 投稿日：2013/01/16(水) 03:05:27.12 ID:???
カップ麺スレ


5 名前：nobodyさん 投稿日：2013/01/16(水) 04:54:54.33 ID:???
＜前スレで出た話題＞
カップラーメン
カップ焼きそば
ユーリンチー
カレー
水分の多い食品に揚げ物を入れる件
くずもち

その他詳細などについては>>1のリンクを参照


6 名前：nobodyさん 投稿日：2013/01/16(水) 20:45:34.73 ID:???
高級な料理や食品に関しての話題が出ないわけだがｗ

http://kohada.2ch.net/test/read.cgi/php/1358196208/4-6 Perlコーディング初心者質問スレ Part 65
0138デフォルトの名無しさん
垢版 |
2013/01/20(日) 14:17:41.02
WEBプログラミング＠2ch掲示板で
631 名前：nobodyさん 投稿日：2013/01/14(月) 19:39:50.81 ID:???
>>627
ちゃんとしたワンタンを加えるともっと旨くなるぞ


632 名前：nobodyさん 投稿日：2013/01/14(月) 23:23:04.38 ID:???
餃子とかでいいんじゃね


633 名前：nobodyさん 投稿日：2013/01/14(月) 23:42:44.97 ID:???
ラーメン屋のラーメンに入ってるチャーシューとスーパーで売ってるチャーシューって全然違うよな。
スーパーで買ってきたチャーシューってハムとラーメン屋のチャーシューの中間っぽい。
スーパーで普通のチャーシューも売って欲しいわ。


634 名前：nobodyさん 投稿日：2013/01/15(火) 17:00:15.77 ID:+UlCw0lP
お前らってラーメン+ライスとかいける派？
俺はとんこつラーメンに限りいける


635 名前：nobodyさん 投稿日：2013/01/18(金) 19:15:41.39 ID:???
お好み焼きをおかずにご飯を食べる人種もいるらしい。

http://kohada.2ch.net/test/read.cgi/php/1343668425/631-635 Perlコーディング初心者質問スレ Part 64
0139デフォルトの名無しさん
垢版 |
2013/01/20(日) 21:56:15.25
Perl自体がオワコンなのにスレを立てることが間違ってる。
特に新しくPerlを学ぼうなんて正気の沙汰じゃないんだから初心者スレは不要。
せいぜい昔のPerlで作られたシステムの保守をやらされてるSE土方が情報交換するくらいだろ。
0140デフォルトの名無しさん
垢版 |
2013/01/21(月) 00:12:29.99
昔のPerlも覚えられず、かといって新しいPerlも覚えられない。
悔しいんですね？分かります。
0144デフォルトの名無しさん
垢版 |
2013/01/22(火) 23:00:03.67
古いPerlだと新しいソフトが書けないと考えるひとがいるようですね。
たいした仕事できなさそう。
0145デフォルトの名無しさん
垢版 |
2013/01/23(水) 01:43:22.70
どっちにしてもPerlはオワコン
PHPがここまで進化しちゃうとPerlの存在価値はどこにあるんでちゅかねーｗ
0148デフォルトの名無しさん
垢版 |
2013/01/23(水) 05:58:31.38
PHPっていうとWebアプリしか書けないイメージがある
PerlはC言語/シェルスクリプトが担っていた分野をカバーしているので
今後も使われていくだろう
Perlがオワコン説は単に初心者プログラマの脱落を意味しているだけで
もともと使っていたシステム管理者らが使うのをやめることはない
0149デフォルトの名無しさん
垢版 |
2013/01/24(木) 17:21:48.69
PerlっていうとWebアプリしか書けないイメージがある
PHPは当初よりかなり進化しているので
今後も使われていくだろう
Perlがオワコン説は初心者プログラマがPerlを選らばないとう現実を意味しているから
もともと使っていた老害が使い続けるだけという結末になる
0151デフォルトの名無しさん
垢版 |
2013/01/25(金) 00:32:34.81
Perlっていうとぷっくりサスペンダーのおじさんのイメージがある
ときどきアニメを例えに使うあのなぞなぞ好きなおじさんだ
甲高い声が人気なので今後も使われていくだろう
Perlがオワコン説はWindowsユーザがPerlを選ばなくなったとう現実を意味しているから
もともと使っていたJperlを使い続けるしかないということになる
0152デフォルトの名無しさん
垢版 |
2013/01/27(日) 11:34:47.69
perlからC言語で作った実行ファイルを実行するときC言語のソースが

printf("A");
scanf(); ---Bを入力
printf("C");

のときにこの実行ファイル実行結果ををperlで受け取るときperl側で
ACとなってしまいます。
これを
AB
C
として受け取りたいのですがどうすればいいでしょうか？
0158デフォルトの名無しさん
垢版 |
2013/01/29(火) 21:18:44.13
futomi's CGI Cafeの「清き一票!（投票CGI）」というフリーのCGIを元に投票項目を増やしたいのですが、HTMLの方で増やしたname属性をCGIの方に反映させる方法がわかりません。

もう2週間ほどPerlについて書いてあるページを調べ回りながら試行錯誤を繰り返しているのですが、どこをどういじればいいのかよくわかりません...

ヒントだけでもいいので教えてください。お願いします。
0159デフォルトの名無しさん
垢版 |
2013/01/29(火) 21:29:31.69
何で作った奴にきかずに赤の他人にきいてんだ？
しかもタダで教えろとか本当にゴミだなお前。

回線切れ乞食。
0160デフォルトの名無しさん
垢版 |
2013/01/29(火) 21:37:22.44
>>159
すみません。
2004年に配布されたもので結構昔のものなので製作者様の方に教えてもらうことができなくて、ここなら何かヒントになることだけでも教えていただけると思ったので...
0161デフォルトの名無しさん
垢版 |
2013/01/29(火) 22:19:55.44
>>160
Perlを最初から勉強すればすむ話だろゴミ
それにそれが情報乞食をする理由になるの？
本当に乞食じゃねぇのこいつ
0162デフォルトの名無しさん
垢版 |
2013/01/29(火) 22:30:06.20
>>160
Perlを使いこなすために書籍に何万と投資をし、書籍を読んだりコードを書いたりするのに何年と時間を投資し、
そうやって身に付けたものをお前みたいなクズにタダで使う理由は？
0163デフォルトの名無しさん
垢版 |
2013/01/30(水) 01:17:52.20
投票項目の多いCGIプログラムを入手するのが目的なのか、Perlのスキルを
高めたいのかどっちなんだ？
0165158
垢版 |
2013/01/30(水) 02:59:15.11
思ったほど釣れなかった
0169デフォルトの名無しさん
垢版 |
2013/03/01(金) 00:35:14.22
モダンPerlを勧めるひとは熱心なあまりキチガイみたいに見えてしまうってこと？
でも本来のキチガイとは違って、モダンPerlやめれば症状が改善されるんだよね？
0174デフォルトの名無しさん
垢版 |
2013/12/30(月) 19:13:23.07
Sublime2 TextからPerl実行出来るようにしてるが頗る便利
テキストの処理がいつでも出来る
それとフォルダ毎にzip圧縮するときなんかに使ってるわ
D&Dするようなアプリだとフォルダまとめて圧縮しちまうからな
0175デフォルトの名無しさん
垢版 |
2014/01/18(土) 19:07:08.88
print は引数を省略できるけど、
join は引数を省略できない

どの関数は どの引数を省略できるのか
省略した時はなにがあてはまるのか

の標準関数の分の一覧ってある？
0179デフォルトの名無しさん
垢版 |
2014/02/02(日) 03:06:31.84
標準出力を乗っ取る機能ある？
普通にprintしてもフィアルに書き出すみたいなやつ
0180デフォルトの名無しさん
垢版 |
2014/02/02(日) 03:11:10.25
>>179
それって普通リダイレクトでやるもんじゃないの？

そもそも標準出力＝「画面とは限らない」ものなんだから
0185179
垢版 |
2014/02/02(日) 20:46:01.69
>>182
ありがとう
STDOUTだったわ
0187デフォルトの名無しさん
垢版 |
2014/02/13(木) 00:44:22.79
ただの不備を精神異常とか二度と来るなとか罵るのもどうなのよ
だから過疎ってんだよ
0192デフォルトの名無しさん
垢版 |
2014/02/15(土) 04:51:13.29
>>190-191
マジレススレだからマジレスすると、書き込み前の確認すらできないほど頭の悪い奴にプログラミングは向いてない。
早く回線切れ。
0193デフォルトの名無しさん
垢版 |
2014/02/15(土) 06:01:06.70
ごみがまたパールの保守性の低さを証明してくれましたｗ

PHPだとこういった事態の発生する可能性がパールより低い

保守性を考えるならPHP
0195デフォルトの名無しさん
垢版 |
2014/02/15(土) 13:45:31.98
Perlの場合は、保守性を考えると非・オブジェクト指向のほうがいいよ
　$self->{a}{\%$b}=$c
は分かりやすくすると
　$self->{'a'}->{$b} = $c
になる
ただ $b は本当にハッシュのリファレンスなの？
0201デフォルトの名無しさん
垢版 |
2014/02/15(土) 14:56:05.17
Perlなんか使ってる時点でｗ

☆統計開始以降利用人口史上最低記録絶賛更新中☆
ttp://www.tiobe.com/index.php/content/paperinfo/tpci/Perl.html
0203デフォルトの名無しさん
垢版 |
2014/02/15(土) 17:18:51.05
韓国も入ってないだろうな。
韓国ではRubyよりPerlのほうが圧倒的に人気だから
そんなIT人口の多いIT先進国のデータが入ってたら絶対Perlのほうが上位に来るよ。
0204デフォルトの名無しさん
垢版 |
2014/02/15(土) 20:49:43.46
韓国では何をきっかけにPerl人口が増えたの？例えばO'Reillyとかは韓国語版を
出していないよね？韓国のひとは何を使って勉強したの？教えてえろいひと
0211デフォルトの名無しさん
垢版 |
2014/02/15(土) 23:27:26.42
ここは常に罵りあってる気持ちのよいスレッドですね
初心者も質問しやすくて大変良い雰囲気だと思います
0215デフォルトの名無しさん
垢版 |
2014/02/16(日) 00:58:35.57
そもそもPerlを選択する時点でかなり間違えちゃってるから別にいいんじゃね？ｗ
大元で間違ってるのに枝葉の間違いばかり気にする馬鹿ってたまにいるよな。

中国産の野菜は農薬が酷いが、中国産のキャベツと中国産の白菜のどっちが安全か考える馬鹿。
そもそも中国産の野菜を選ぶ時点で間違ってると気付かない馬鹿。

低所得で納税額の少ない社会のお荷物に多い傾向。
0216デフォルトの名無しさん
垢版 |
2014/02/16(日) 01:09:56.43
>>215
馬鹿というより向上心がないんでしょ
一つ言語を覚えたらそこに落ち着いてしまうタイプだと思われ
0217デフォルトの名無しさん
垢版 |
2014/02/16(日) 01:49:27.33
向上心のない奴は何やっても駄目、他人に懇切丁寧に教えてもらって半人前とかね
居残りさせられて先生がつきっきりで人一倍教えてるのに50点しか取れない奴いただろ
0219デフォルトの名無しさん
垢版 |
2014/02/16(日) 13:55:54.78
Perlを覚えられないひとのためにできたのがPHP。PHPはPerlの機能限定版。
だからCGIにしか使えない。
0224デフォルトの名無しさん
垢版 |
2014/02/17(月) 11:11:07.50
Perl使える奴がわざわざぺちぴー入れてまで使う理由がない
0226デフォルトの名無しさん
垢版 |
2014/02/17(月) 23:26:58.49
必要のないものをどうして実装する必要があるのだ
0228デフォルトの名無しさん
垢版 |
2014/02/18(火) 02:13:13.87
それぺちぱーだろ
0229デフォルトの名無しさん
垢版 |
2014/02/18(火) 22:40:42.68
>>226
まず必要あるかないかは、必要あるという前提にしましょう。
別にPHP専用用語ではないのだから、世界的には必要あるという流れです。

その前提で、どうやって実装するのか答えてください。
0230デフォルトの名無しさん
垢版 |
2014/02/19(水) 01:19:55.57
必要あるやつが実装すればいいだけのことだな
0232デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:01:53.86
#!/usr/bin/perl
$buffer = $ENV{QUERY_STRING};
@pairs = split( /&amp;/, $buffer );
foreach $pair ( @pairs ){
( $name, $value ) = split( /=/, $pair );
$FORM{$name} = $value;
}
$A = $FORM{name1};
$B = $FORM{name2};
print "Content-type: text/html\n\n";
print << "_EOM_";
<html>
<body>
A*B　=　$A * $B
</body>
</html>
_EOM_
0233デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:04:58.23
上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
どうしたらよいでしょうか。
0234デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:09:03.95
というか、どこかおかしいところがあるでしょうか？
0236デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:36:13.45
>>234
>>232,>>233が板違いだということに気付かないのがおかしい。

平気で板違いの書き込みをするキチガイは迷惑。

お前みたいなクズはリアルでも迷惑がられてるんだから自覚しろ。
0237デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:41:12.79
>>232=基礎をやらずにいきなりプログラミングから入る典型的なゴミ
目的達成までの手順すら把握できてないからプログラミング以前の問題
何やっても駄目な奴のパターン
人生乙
0238デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:41:52.31
しね
0240デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:49:37.80
一人芝居乙ですｗｗｗｗ
0241デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:50:45.28
＞上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
＞いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
日記はブログに書け

＞どうしたらよいでしょうか。
今すぐプログラミングやめろ
そして二度とくるな
0242デフォルトの名無しさん
垢版 |
2014/02/19(水) 20:53:44.83
Perl系スレは質問者が叩かれると張り切って答える奴がいるから　質問したら自演で自分を叩くのが常套手段
0246デフォルトの名無しさん
垢版 |
2014/02/19(水) 21:11:38.56
>>232
PHPなら一瞬で片付く案件
<?php
$x = $_GET['name1'] * $_GET['name2'];
echo( $_GET['name1'] . " * " . $_GET['name2'] . " = " . $x );
?>
0247デフォルトの名無しさん
垢版 |
2014/02/19(水) 21:16:25.09
>>234
入門書1冊読めば大抵書いてあるはずだが・・・
本1冊買えない乞食か？
そんなに金がないならプログラムなんかやめてバイトでもしたほうがいい
日雇いでも書籍1〜3冊買える金もらえるぞ
0248デフォルトの名無しさん
垢版 |
2014/02/19(水) 21:27:19.38
初心者スレってかいてあるだろーが字よめねぇのかよカス
0252デフォルトの名無しさん
垢版 |
2014/02/20(木) 01:17:13.12
初心者は自力で解決しようとしない奴のことではないぞ
0257デフォルトの名無しさん
垢版 |
2014/02/21(金) 02:50:14.54
>>256
残念ながら、思考回路も間違ってるしPerl厨でもないなあ
板違いの指摘そのものは問題ではないよ、実際のところ >>232 は板違いだしな

ただ板違いへの対応ってのは
・板違いと指摘する
・徹底してスルーする
であるし
>>254 が板違いのゴミと呼ぶ >>253 は
「板違い」ではなく「板違いに誤った対応をした人物」でしかない。

しかも内容は相手を煽るような罵倒語ばかり。
誤った煽りは、結果的にはその人物の発言を増やすことになる。
だから >>254 も荒らしってことなんだよ。

ああ、荒らしにレスするのも荒らしだからな
俺が荒らしと言われても、勿論構わないよ？
荒らしにレスしたことには間違いないしな。
0258デフォルトの名無しさん
垢版 |
2014/02/21(金) 02:51:46.89
＞「板違いは荒らし」という人間 ＝ 荒らし
Perl厨はいちいちこんなこと考えてないと思うぞ。
単に 気に入らない奴=荒らし ってことだと思われる。
0259デフォルトの名無しさん
垢版 |
2014/02/22(土) 22:30:28.45
質問させてください。
現在、NEなのですが、社内SEを目指しています。
その時に、サーバ作業を簡単に処理させる言語が必要にりそうなのですが、
Perlは向いていますでしょうか？
掲示板とかを作るつもりはありません。作業の効率化が目的です。
隣の席のプログラマさんに聞くと、
Perlは古くてCGIにはもう未来がないよー、ってお勧めされないのですが…
0260デフォルトの名無しさん
垢版 |
2014/02/22(土) 23:19:05.46
>>259
IT系で上を目指そうって人間に何でPerlなんて選択肢があるわけ？
そこらへん考えたほうがいいよ。

SEならITに関しては常に最新の動向を知るためにアンテナ張ってなきゃならないし、
アンテナ張ってればPerlがいかに駄目かというこてが分かる。
SE目指すならその辺りを自分で調べられるようになってたほうがいい。
0261デフォルトの名無しさん
垢版 |
2014/02/22(土) 23:25:59.25
>>259
PHPのほうがいい
作業を簡単に処理させるスクリプトとかって最初はそのつもりがなくても便利ならそのまま他のものを作るときに組み込んだりする
エンジニア以外でも有用な場合はWebインターフェースにして提供することなるけどその場合にPHPで書いてあるとインターフェース作るだけですぐに提供できる
0262デフォルトの名無しさん
垢版 |
2014/02/22(土) 23:28:04.79
>>259
マジレスすると今現在はRuby
但し3ヵ月後、半年後は分からん
自分でその情報を追えないならSEはやめとけ
今現在既に追えてないみたいだけど
0264デフォルトの名無しさん
垢版 |
2014/02/22(土) 23:56:23.80
>>260-263
ありがとうございます！
javaか、PHPか、perlで悩んでました。
色々調べると、PHPが入り易そうなので、、
明日、本屋に行って、決めます。

※CGIは、掲示板とか作るのであって、検索とかするのとは違うなあ、
と思いながら、プログラマさんの意見を聞いていました。
0266デフォルトの名無しさん
垢版 |
2014/02/23(日) 00:08:16.47
PHPが第一候補だったのですが、某サイトで、

PHPは、WEB系以外には、まったく意味がない、との様なコメントがあり、困りました。
javaは、いきなり入るには、まだ敷居が高いかなと悩みました。
perlは、単に簡単な、検索や置換には適しているようなコメントで一気に候補に挙がりました。

これらから悩んでいたんです。コメントありがとうございます。
0267デフォルトの名無しさん
垢版 |
2014/02/23(日) 00:20:28.63
>>266
そのコメントとやらの投稿日時と信憑性も確認しろよ
まさか去年の夏以前の投稿で、しかも第一線で活躍してい"た"奴の投稿じゃないだろうな

3ヵ月以内の投稿で、しかも第一線で活躍してい"る"人の投稿なら信用しろ
そしてそういう人ならまずPerlを候補に挙げることはない

まぁ第一線で活躍してるわけでもない俺のこんな匿名の投稿も信憑性がないだろうから
第一線で活躍してる人がPerlなんか使わないということは自分の目で確認してくれ
0269デフォルトの名無しさん
垢版 |
2014/02/23(日) 00:27:42.14
>>266
PHPがWeb系以外に使えんのは本当
Perlでも良いけど、RubyやPythonも有効だよ
まあ、まずは最初にシェルスクリプトだけどね
0271デフォルトの名無しさん
垢版 |
2014/02/23(日) 00:39:36.75
>>269
＞PerlとLispが結婚して隔世遺伝が黒魔術で生まれた言語。
＞Javaは硬度8くらい、Pythonは6くらいになるのに対して、Rubyは3くらいになる。

との記事を見つけました。いつの記述かわからないのですが（汗）
Rubyも明日、本屋で漁ってみます。ありがとうございます。
0273デフォルトの名無しさん
垢版 |
2014/03/05(水) 06:22:38.93
>>232-234
_EOM_なんて使っちゃだめだよ。見づらい。

print "Content-type: text/html\n\n";
print "<html>";
print "<body>";
print "A*B　=　$A * $B";
print "</body>";
print "</html>";
0274デフォルトの名無しさん
垢版 |
2014/03/25(火) 21:15:29.29ID:dz69sIJc
print "あいうえお";

↑これを文字コードをeuc-jpで保存してコマンドプロントからこのファイルを実行して
コマンドプロンプト上に文字化けなく　あいうえお　と出力させるにはどういうコードを追加すればいいの？
0275デフォルトの名無しさん
垢版 |
2014/03/25(火) 21:25:34.52ID:dz69sIJc
>>274はちょっと疑問に思っただけで何かするのに必要なワケじゃないので無理して
答えようとしないで下さい。たぶんちょっとググった程度で分かるようなことではないです。
0277274
垢版 |
2014/03/25(火) 22:08:05.94ID:dz69sIJc
>>276
うおお、すごい、あっさり出来てしまった・・。
今日一日↓こんなのでやろうとして泥沼にハマってました。

use encoding "euc-jp";
binmode STDOUT, ':encoding(cp932)';

スーパーハカーさんどうもありがとう〜
0278デフォルトの名無しさん
垢版 |
2014/05/07(水) 01:39:02.09ID:NfbdqxRr
print +(3,2,1,),"\n";

↑これ、+記号を消すと改行が反映されなくなるんですが、この+記号って
どういう意味ですか？ググるためのキーワードだけでもおねがいします。
ググると +{ } は出てきたんですが +( ) はなぜか見つかりませんでした。
0280デフォルトの名無しさん
垢版 |
2014/05/07(水) 06:28:00.20ID:WoJ0c0N0
+() は scalar () とほぼ同等。
+{}は、ブロック中の戻り値（？）をスカラーとして評価しますって意味。
+()は、リストとして評価しませんよーって意味。

perldocのperlopの
Terms and List Operators (Leftward)
と
Unary "+"
を参照してください。
0281278
垢版 |
2014/05/07(水) 09:44:31.49ID:NfbdqxRr
>>279-280
なるほど、+{ } と同じような使い方だったんですね、ありがとうございました。
perldocもこれから読んでみます、多謝。
0285デフォルトの名無しさん
垢版 |
2014/05/24(土) 13:13:06.88ID:JzdRsmzF
掲示板のCGIを設置したんだけど、<a href="./bbs/mtbbs.cgi?">って感じにリンクするようにして、http://172では、ちゃんと作動したんだけど、
実際にFTPに転送すると、作動しないどころか画面が写らない
500エラーが出てくる

原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの？
0288デフォルトの名無しさん
垢版 |
2014/06/04(水) 10:34:27.77ID:8N6swAY/
知恵袋で質問したら回答どころか閲覧すらなさすぎワロタ・・・
0289デフォルトの名無しさん
垢版 |
2014/06/04(水) 15:39:06.30ID:ZiHf6GEW
早くマジレスしろ屑やろう
0290デフォルトの名無しさん
垢版 |
2014/06/05(木) 04:14:43.22ID:tjfA5i3O
質問してもどうせまともに答えてくれないんだろうな
どこ行っても解決しないわ
0293デフォルトの名無しさん
垢版 |
2014/06/08(日) 05:04:05.20ID:LT2twBt5
複数のRSSフィードを結合して一つのRSSを生成したい。
その際、「生成されたフィード記事のリンクURLすべてを任意のリンク先に指定する。」
このやり方を教えてください。

XML::FeedPP、XML::TreePPというモジュールを用い、下記のCGIプログラムを使用して自動更新する１つのフィードを生成するところまでは出来ました。
しかし、他の部分はチョロチョロと変えることができるのですが、記事リンクだけはどうしても変えることができません。全部の記事リンクを、ある１つのリンクに変換したいだけです。

#!/usr/bin/perl

use XML::TreePP;
use XML::FeedPP;

my $feed = XML::FeedPP::RDF->new();
$feed->merge( "結合したいrssフィード1" );
$feed->merge( "結合したいrssフィード2" );
my $now = time();
$feed->sort_item();
$feed->pubDate( $now );
my $atom = $feed->to_file( "index.rdf", "UTF-8" );

print "Content-type: text/plain\n\n";
print "出力完了\n";

使ってるレンタルサーバーはロリポップです。

複数のフィード（RSS、Atomなど）をまとめるCGI
http://blog.audiofan.net/archives/491385.html
[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
http://www.kawa.net/works/perl/feedpp/feedpp.html
XML::FeedPP
https://metacpan.org/pod/XML::FeedPP#feed-remove_item-index-or-link
http://search.cpan.org/~kawasaki/XML-FeedPP-0.43/lib/XML/FeedPP.pm
0295デフォルトの名無しさん
垢版 |
2014/06/10(火) 12:30:22.68ID:zpbxFFHG
ttp://s1.gazo.cc/up/88224.jpg
こういった10行で一組のデータの中に
---
市民の...

yerles
warrior
---
というパターンが多くあります。
マッチ検索したいのは
---
市民の...

dog
warrior
---
というパターンです。
"市民"という文字を見つけたら
2行下に
"dog"という文字があるならば
その、"市民の..."を出力して欲しいです。

ファイル読んで単純マッチするぐらいしか今はできません
open (my $in , "<" , "./cdatan_5_101.s2");
while (<in>){
　　if (/yerles/){print "matched\n"}
}
close $in;



}
0299デフォルトの名無しさん
垢版 |
2014/06/11(水) 22:22:53.08ID:PCU6+AOL
どこにshiftの出番があるのか？と思ったらそう言うことか。
普通に配列に突っ込んで、マイナスのインデクスでアクセスすりゃいいやん。
$ perl -Mvars=@a -lne 'push @a, $_ ; next if !/dog/ ; next if $a[-3] !~ /市民/ ; print $a[-3]' File
メモリ喰いが気になるのなら、
$ perl -Mvars=%h -lne '$h{$.} = $_ if /市民/ ; next if !/dog/ ; next if ! defined $h{$. - 2} ; print $h{$. - 2}' File
とか、で節約すりゃいい。、、、けど、今時そんなの気にする必要もないだろ

上のワンライナーでやってる事は、
$ perl -MO=Deparse -Mvars...略
でわかる。
0300デフォルトの名無しさん
垢版 |
2014/06/12(木) 13:15:46.45ID:qt4Roz23
恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。
2行固定なら、別に使わなくても。
perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File

何も考えなくていいなら、正規表現でバッサリ。
perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File
0301デフォルトの名無しさん
垢版 |
2014/07/13(日) 23:15:08.85ID:m+RTKRIb
>>300
1ヵ月以上もお前のレスにレスがつかないのはなぜか分かる？
お前みたいなゴミクズは誰も必要としてないからだよ。
一般社会ではあからさまに無視するわけにもいかないから当たり障りのない対応をしてもらってると思うけど、
お前ハッキリ言って迷惑だから。

ゴミクズはネットでもリアルでもできるだけ社会と接点持つな。
0302デフォルトの名無しさん
垢版 |
2014/07/26(土) 13:51:21.84ID:5yhnFgSu
Test Summary Report
-------------------
t/config-finder.t (Wstat: 512 Tests: 0 Failed: 0)
Non-zero exit status: 2
Parse errors: Bad plan. You planned 26 tests but ran 0.
Files=86, Tests=923, 636 wallclock secs ( 2.64 usr 1.67 sys + 247.77 cusr 297.98 csys = 550.05 CPU)
Result: FAIL
Failed 1/86 test programs. 0/923 subtests failed.
Makefile:945: recipe for target 'test_classic' failed
make: *** [test_classic] Error 255
PETDANCE/ack-2.12.tar.gz
/usr/bin/make test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports PETDANCE/ack-2.12.tar.gz
Running make install
make test had returned bad status, won't install without force
Failed during this command:
PETDANCE/ack-2.12.tar.gz : make_test NO

Windous上のcygwinとLinuxでCPANのackをインストールしているところでつまずきました
上のエラーはcygwinの方のエラーです
これは、curlを使えば回避できるそうですが　http://d.hatena.ne.jp/katz_24/20130210/1366387522
setup.exeを利用したインストールでも何故かインストールができずに手詰まりになりました

ack-2.12.tar.gz を回答してみても訳が分かりません
ackをインストールする手はありますか?
0303デフォルトの名無しさん
垢版 |
2014/07/26(土) 14:09:06.14ID:mdOIZXZW
make test had returned bad status, won't install without force
まけ出来てるのならいんすこ自体は可能
0304デフォルトの名無しさん
垢版 |
2014/07/26(土) 15:10:46.74ID:5yhnFgSu
force installでcygwinの方に入れました
正常に動作します
ありがとうございました

Linuxの方は、手っ取り早く
sudo aptitude install ack-grep
しました

おかげさまで両方にackが揃いました
感謝します
0305デフォルトの名無しさん
垢版 |
2014/08/06(水) 20:37:58.86ID:Wa4hIBKh
xmlを取得して中身を
s|。|。<br>|g;
して句読点ごとに改行させたかったのですがどうしても出来ません
なにか理由があるのでしょうか
初心者なもんで変な質問をしていたらすいません
0307デフォルトの名無しさん
垢版 |
2014/08/06(水) 20:43:50.60ID:E5F7+XJp
エスパーじゃないんだから、そんな質問で答えれる訳ないだろ。
せめてサンプルとなる簡単なxmlを出せよ・・・
0309デフォルトの名無しさん
垢版 |
2014/08/06(水) 22:33:25.28ID:E5F7+XJp
>>308
テストした結果、普通に置き換えできます。
取得方法に問題があるんだろう。
ってか、こんな質問の仕方じゃスレ全部埋まるわ・・・
問題が起きてるサンプルコード出してみ
0316デフォルトの名無しさん
垢版 |
2014/08/19(火) 07:25:44.81ID:o0wKf1/G
>>314
http://perldoc.jp/docs/perl/5.18.1/perlfunc.pod
> 括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が 適用できます:
> 関数に見えるならば、それは関数で、優先順位は関係ありません。
(略)
> Perl に -w スイッチを付けて実行すれば、こういったものには警告を 出してくれます。
0317デフォルトの名無しさん
垢版 |
2014/08/19(火) 20:11:13.78ID:pX43W7dG
2000年には既にwarnings実装してんのに
なんで未だに、-w推薦文章なんか残してんだろーね？
-Mwarningsのエイリアスって訳でもねーし。
0318デフォルトの名無しさん
垢版 |
2014/09/02(火) 01:23:02.48ID:ytxIDh0v
【誤】print -e "print ((5+5)/3)"
【正】perl -e "(print(5+5)) / 3"
ついでに -w と -Mwarnings は別物。-Mwarnings で -w の代わりになるわけではない。
0320デフォルトの名無しさん
垢版 |
2014/09/02(火) 04:04:55.52ID:smXsHdMQ
>>318
-w ≠ warningsは常識だろ。

で、「use Unicodeは、use Jcodeの代りじゃない」ってレベルの事を言ってるぞ、おまえさん。
-wが石頭だから、より制御しうるwarningsを実装したんだろが。
0323デフォルトの名無しさん
垢版 |
2014/11/05(水) 08:46:59.07ID:aEzkt3Do
再帰中に再帰の深さを出したいんだけどlocal使っていい？
local $::count = $::count + 1;
もっと普通の方法ある？
0324デフォルトの名無しさん
垢版 |
2014/11/05(水) 11:35:00.61ID:+yDKEom1
引数で渡す

sub foo {
　　my ($arg, $count) = @_;
　　...;
　　foo($arg, $count) if $count++ < 10;
}
0325デフォルトの名無しさん
垢版 |
2014/11/05(水) 14:22:15.13ID:aEzkt3Do
ありがとーーー。
複製される変数の数には変わりがないよね、たぶん。

上はグローバル変数と言うのが気に入らなくて、下は引数で扱う値が増えるのが気に入らないが。
0326デフォルトの名無しさん
垢版 |
2014/11/05(水) 16:45:55.49ID:aEzkt3Do
while(@all){ ((shift @all) eq 'cut') and last; }
whileを修飾子として書くと落ちるんだが誰か理由を教えてくれー
((shift @all) eq 'cut') and last while(@all);
evalでも落ちた
0327デフォルトの名無しさん
垢版 |
2014/11/11(火) 22:49:14.07ID:AzojYpxL
英数混じった文字列の中から2桁の数字にマッチさせたいのですが、
/\d\d/だと3桁以上の数字の前2桁にもマッチしてしまいます。
/^(\d\d)\D|\D(\d\d)\D|\D(\d\d)$|^(\d\d)$/　こんなことするより簡単な方法ないでしょうか？　
0329デフォルトの名無しさん
垢版 |
2014/11/12(水) 02:38:25.07ID:T/b7ogJF
% 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
0330327
垢版 |
2014/11/12(水) 22:11:30.88ID:obciIUzc
/(?<!\d)\d{2}(?!\d)/
これが期待通りの結果が得られました。
(?<!)とか(?!)とかこれまで使ったこと無かったので勉強になりました。
ありがとうございました。
0332デフォルトの名無しさん
垢版 |
2014/11/13(木) 05:25:18.91ID:iJHzIgO3
\b使えよ。便利だぞ。
0334デフォルトの名無しさん
垢版 |
2014/11/13(木) 23:58:39.09ID:bKuFahzS
以下のような日付が下から上に並んでいる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
・・・・・・
0336デフォルトの名無しさん
垢版 |
2014/11/14(金) 01:18:41.88ID:VOKh6jxm
centosで元から入ってるperlとは別にソースインストールしたperlを別に入れました。
新しくインストールしたperlで以前から入っていたCPANモジュールを使いたい場合、再度入れなおす必要ありますか？
0337デフォルトの名無しさん
垢版 |
2014/11/14(金) 02:49:12.43ID:FARMtlO3
>>334
perl -Mvars=%h -ane '$a = $F[1] if @F == 3 ; $h{$a} .= $_ }{ print $h{$_} for sort { $a <=> $b } keys %h’ original.txt

>>336
モジュールの共用は避けるべき
0338デフォルトの名無しさん
垢版 |
2014/11/14(金) 06:59:52.41ID:Ul+u6aQZ
>>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;
0340デフォルトの名無しさん
垢版 |
2014/11/16(日) 13:54:55.61ID:f46/IGen
>338,337,339
有難うございました。
0341デフォルトの名無しさん
垢版 |
2015/01/12(月) 10:56:30.31ID:av7JsOQD
my $initial_title_ = "\$" . "$initial_threads" . "_begin";
$initial_title_ = eval $initial_title_;

1行に短くなりませんか?
0344デフォルトの名無しさん
垢版 |
2015/01/14(水) 23:01:56.10ID:+qvvUh8r
$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 .= $_;
}
0347デフォルトの名無しさん
垢版 |
2015/01/15(木) 13:13:41.60ID:WfzbS03y
binmode STDIN , ":utf8";
binmode STDOUT , ":utf8";
my $seach_word = "日本語" ;

で同様のコマンド叩いて、つまり344が拾えるはずが
何故かヒットしません
0348デフォルトの名無しさん
垢版 |
2015/01/15(木) 18:33:41.92ID:DbiGPAED
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
0350デフォルトの名無しさん
垢版 |
2015/01/19(月) 10:22:25.36ID:AihfgHov
webサイトの表形式データ（横方向は５列、縦方向は不定で100行ぐらい）を取得するのに、
正規表現の繰り返しマッチング
m//g　を使って、結果を配列に入れてるんだけど、
もっと簡単に取ってくるモジュールはないでしょうか？
0352349
垢版 |
2015/01/19(月) 22:36:30.03ID:bxHKMq/8
>>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 .= $_;
}
0353デフォルトの名無しさん
垢版 |
2015/01/20(火) 02:00:35.92ID:FcML0ncg
>>350 >>351
例えば、こんな表です
http://ke.kabupro.jp/hist/20150107.htm

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

もっとスマートに取得できるモジュールは無いかと思った次第です。
0354デフォルトの名無しさん
垢版 |
2015/01/20(火) 02:06:50.85ID:FcML0ncg
（続き）
例えば統計計算用のRでは readHTMLTableというモジュール（パッケージ？）があり、表形式のデータを含んだurlを指定すれば、簡単に取得出来るのですが。
0358デフォルトの名無しさん
垢版 |
2015/03/28(土) 10:06:58.72ID:spJK+jxH
my $tmp = {
$a => sub { $_ = 処理A},
$b => sub { $_ = 処理B},
$c => sub { $_ = 処理C},
};

ループ中に↑のように書いている場合、一つの変数に対して複数の処理($a に 処理A' を追加)を
加えたい場合、どのように書くのでしょうか？
0360デフォルトの名無しさん
垢版 |
2015/04/12(日) 18:06:38.92ID:eedq/AcT
凄い初歩的な質問だと思うのですが真剣に行き詰まってます
教えてください

_HOGE_

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

Perl　__
で検索しても全然それらしい記事が発見できず
0361デフォルトの名無しさん
垢版 |
2015/04/12(日) 18:43:51.80ID:Xaz/Qvpp
_HOGE_は変数じゃないからヒットしないのが正解

もしかして：ヒアドキュメント
0362デフォルトの名無しさん
垢版 |
2015/04/12(日) 20:02:52.86ID:eedq/AcT
なるほど・・・独自のプログラム記述なんでしょうかね・・・

Perlの変数記述方法じゃないことがわかって少し安心しました
もう一回解析してきます
0363デフォルトの名無しさん
垢版 |
2015/04/12(日) 20:06:31.76ID:eedq/AcT
>>361さんの回答で先入観が排除され、
意味がわかりました。

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

文字列に埋め込まれた_HOGE_を別の変数に代入されてる文字列と置換させていました。
ありがとうございました。
0365デフォルトの名無しさん
垢版 |
2015/05/14(木) 07:11:03.21ID:y4MWBEfC
なんでも受け付けるからって、
__HOGE__ をヒアドキュメントとして使ってる人は、単に
特殊リテラルを理解してない人。

質問に超絶遅レスするなら、
__HOGE__は、ほんとうに HOGE と書かれていたなら、
特殊リテラルのまねっこ。
DATA, END などなら、perldoc.jp で perldata から「特殊なリテラル」の項を
参照すること。
0367デフォルトの名無しさん
垢版 |
2015/05/15(金) 02:39:32.50ID:PxFVj8Xw
ヒアドキュメントのデリミタを
print <<die;
dieなんてしないよ
die

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

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

って主旨？
0368デフォルトの名無しさん
垢版 |
2015/05/17(日) 23:46:03.51ID:wdkXHT83
絶対にありえない単語を区切りにしないと、区切りとしての役目にならんだろが
__END__を区切りにしてしまったら、__END__という単語が使えなくなるだろ
0370デフォルトの名無しさん
垢版 |
2015/05/18(月) 00:56:57.87ID:sNwS2iXa
>>368
実行してみろよ、動くぞ。

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

print <<__DATA__;
これがヒア
__DATA__

__DATA__
特殊リテラル
0371デフォルトの名無しさん
垢版 |
2015/05/28(木) 16:11:25.87ID:lXL23oHs
ID.パス付きのHPの更新通知プログラムをつくり実行したところ (certificate verify failed)とハマりました。

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

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

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


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

説明下手でごめんなさい。
0372デフォルトの名無しさん
垢版 |
2015/06/08(月) 21:35:22.93ID:fDJEyEgd
特定のディレクトリ(test)からファイルを読み込む処理を
実装しようと思っています。

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

$hoge = "./test/*";
while(<$hoge>){
　　#〜ファイル読み込み処理
}
がうまくいかない理由はなぜなのでしょうか？
$hogeを可変にしたいのですがどうすればよいでしょうか？
突然の質問で申し訳ありませんが、宜しくお願いします。
0373デフォルトの名無しさん
垢版 |
2015/06/08(月) 22:51:09.28ID:tIKF3SUY
$hoge = "./test/*";
これは文字だからです。(演算子に対するアドレス(ポインタ)ではありません)。

$hoge = "test";
while(<./$hoge/*>)
0374デフォルトの名無しさん
垢版 |
2015/06/08(月) 23:05:32.65ID:fDJEyEgd
>>373
出来ました！ありがとうございます
今日かなり悩んでいました
おかげ様でスッキリしました
0375デフォルトの名無しさん
垢版 |
2015/08/31(月) 00:47:28.38ID:xgd4PpfH
下のようにリストのリストを作成したいが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
0376デフォルトの名無しさん
垢版 |
2015/08/31(月) 13:20:01.08ID:Q0xjlAqa
Lisper な人？
多分、こういうことをお望みかな。

#!/usr/bin/perl

use Data::Dumper;

my @car = (1, 2);
my @cdr = (3, 4);
my @both = ( \@car, \@cdr);
print( Dumper( \@both));
0377デフォルトの名無しさん
垢版 |
2015/08/31(月) 13:31:30.24ID:Q0xjlAqa
ごめん、アクセス方法も書かなきゃね。

#!/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");
0378デフォルトの名無しさん
垢版 |
2015/08/31(月) 18:13:02.76ID:zR+vvNwg
>>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");
0379デフォルトの名無しさん
垢版 |
2016/01/10(日) 13:19:49.57ID:/ndDSiBm
971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0
自称スーパープログラマー某

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

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

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

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

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

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

電話や共有携帯電話　キーボードが油ベタベタ
奴に電話とPCとコンソールは触らせてはいけない
0380デフォルトの名無しさん
垢版 |
2016/11/02(水) 10:11:38.85ID:+6JfDybA
HTMLファイルの特定文字列を大文字から小文字へ置き換えたいです。
具体的には、name=
0381380
垢版 |
2016/11/02(水) 10:15:17.18ID:+6JfDybA
あれ、途切れちゃったのでダブルクォートでおかしくなったので、無しで書きます。
HTMLファイルの特定文字列を大文字から小文字へ置き換えたいです。
具体的には、name=A10AB を name=a10ab とnameの部分のみ置き換えたいです。
0383380
垢版 |
2016/11/03(木) 23:22:08.51ID:k7tVkirO
>>382
eで関数を使えるんですね。ありがとうございました。
0384デフォルトの名無しさん
垢版 |
2016/11/20(日) 01:09:58.42ID:VOEYuZOA
perl コマンドラインからﾓｼﾞｭｰﾙを読み込みたいんですが、
perl -mM Win32::Clipboard -e ""
だと
Can't open perl script "Win32::Clipboard": Invalid argument
と怒られます。

Perl64\lib\Win32\Clipboard.pm
は存在しているのですが・・・
0385デフォルトの名無しさん
垢版 |
2016/11/20(日) 11:39:42.73ID:fMzPWX9X
なんで -m と -M 重ねてるの？それと隙間開けずにやってみ
-MWin32::Clipboard
　 ↑
0386デフォルトの名無しさん
垢版 |
2016/11/20(日) 11:42:40.54ID:fMzPWX9X
perl -mM Win32::Clipboard
だと M.pm を読み込んだ後 Win32::Clipboard という名のファイルをperlスクリプトとして実行しようとしてるっぽい
0388デフォルトの名無しさん
垢版 |
2016/11/20(日) 21:00:33.25ID:pMz2tkuX
どうでもいいけど、質問の回答に「なんで○○なの」と質問で返すのはみっともない
わからないから質問してるのにね
ここは初心者スレだし
よっぽど回答に自信が無いように見える
0389デフォルトの名無しさん
垢版 |
2016/11/20(日) 21:01:48.41ID:pMz2tkuX
なんで？
なんで？
なんで？
ことあるごとに、「なんで」っていうヤツ
バカっぽい
イライラする
ムカツク
0391デフォルトの名無しさん
垢版 |
2016/11/23(水) 10:50:03.05ID:I/SlW2fg
質問を質問でかえすやついるよな
俺「なぜ変更したんですか？」
先輩「なぜ、その変更に疑問を抱くの？」

・・・
0392デフォルトの名無しさん
垢版 |
2016/11/23(水) 11:10:48.33ID:NGAFtogl
文脈にもよるわな
マニュアルにはっきり書いてあるようなことと違うことやっているなら「お前ちゃんと読んでないのか？」ってなるし
どう説明したら理解できるのか探るためにどう考えてどこに疑問を持ったのか確認することもあるし

そういう文脈を無視して 質問したら質問が返ってきた = おかしい は短絡的だね
0394デフォルトの名無しさん
垢版 |
2016/11/24(木) 21:29:28.37ID:Puznaqkq
perlの本を読んでいると、よく
「スカラーコンテキストでは〜」とか「リストコンテキストでは〜」とありますが
どのようなところで、分かるのでしょうか？

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

if(grep /d/ ,qw<ab cd def>){}
だとなぜスカラーコンテキストだと分かるのでしょうか？
0397デフォルトの名無しさん
垢版 |
2016/11/28(月) 20:34:11.39ID:5mxcw3wW
shiftjisのファイルを読み込むと「｛」が「本」にマッチしちゃうんですがいい方法ありませんか？
0399デフォルトの名無しさん
垢版 |
2016/11/29(火) 00:38:56.85ID:p0rBFEu6
ファイルを読み込むときにperlに文字コードを教えてあげるとバイト単位ではなくて文字単位で認識してもらえるようになる
open my $fh, '<:encoding(cp932)', $file or die $!;

正規表現を含むソースコード全体をUTF8で書き、スコープの上の方で use utf8; と宣言すればスコープ内のコードも文字単位で認識されるようになる
0401デフォルトの名無しさん
垢版 |
2017/02/26(日) 22:46:53.99ID:UaR+28E8
以下エラーが出たため、ググると、似たエラーの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
0402デフォルトの名無しさん
垢版 |
2017/02/26(日) 23:46:32.86ID:03Ms8vp8
>>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
0403デフォルトの名無しさん
垢版 |
2017/02/27(月) 00:03:03.35ID:JWhb7pSm
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からはスカラーコンテキストのハッシュが返す値はハッシュの持つキーの数になるそうです
0404デフォルトの名無しさん
垢版 |
2018/02/03(土) 21:51:51.42ID:UEj2CeXM
Perl初心者です。独学でやり始めましたが、わからないことがあり、先輩方、何卒よろしくお願いします。

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

変数$numは2と表示されますが、変数$incは1と表示さます。こらは仕様でしょうか。変数$incについても2が表示されると思ってたのですが。
C言語では右辺を評価した後に左辺に代入して、2が表示してたかな、と思ったので質問させていただきます。
0406デフォルトの名無しさん
垢版 |
2018/02/03(土) 22:55:48.24ID:UEj2CeXM
>>405
本当ですね。もっと確認してから質問するべきでした。
やりたかったことは
$inc = ++$num(
でした。C言語と同じですね。

ご教授頂きまして、どうもありがとうございました。
0407デフォルトの名無しさん
垢版 |
2018/02/03(土) 22:57:16.17ID:UEj2CeXM
>>406

$inc = ++$num;

の間違いです。
0408デフォルトの名無しさん
垢版 |
2018/05/23(水) 20:30:23.86ID:Au5e7VGg
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

WVNXN
0409デフォルトの名無しさん
垢版 |
2018/05/24(木) 02:11:41.40ID:zOcuDZ4P
perlやってみたいど素人です。
Ubuntu 18.04がメインのマシンです
Windows XPサポート終了後難民となり
Ubuntu 16.04に辿りついてます
Ubuntuもまだまだど素人ですけど
通常に動かす所まではできます
Perlはどこから？始めたらいいでしょう
本買った方がいいのかな？
0410デフォルトの名無しさん
垢版 |
2018/05/24(木) 02:11:43.82ID:zOcuDZ4P
perlやってみたいど素人です。
Ubuntu 18.04がメインのマシンです
Windows XPサポート終了後難民となり
Ubuntu 16.04に辿りついてます
Ubuntuもまだまだど素人ですけど
通常に動かす所まではできます
Perlはどこから？始めたらいいでしょう
本買った方がいいのかな？
0414デフォルトの名無しさん
垢版 |
2018/06/20(水) 20:53:58.17ID:Va19lMsb
Perl 6の“Neko operator”を使ってみたいのですがどのように使用すればいいでしょうか。
> 0 ^..^ 9
> say "0 ^..^ 9"
などとやっても
0 ^..^ 9
という文字列（？）が返ってくるだけなのですが……。
0415デフォルトの名無しさん
垢版 |
2018/06/22(金) 02:01:50.03ID:AmdeLsRG
Perl6は初心者なので全く分からない。
というかやろうとしたことすらないので知識ゼロw
0418デフォルトの名無しさん
垢版 |
2018/06/28(木) 00:53:58.60ID:mceaYjQ2
>>417
perl6はまったく使ったことはないが、
範囲演算子らしいから
perl5の ... と同じように使うんじゃないのかね。
say $_ for 0 ^..^ 10;
みたいな? perl6の文法的にこれでいいかはわからんけど。
0422デフォルトの名無しさん
垢版 |
2018/07/04(水) 22:52:04.22ID:gFgZc5FG
ANH
0425デフォルトの名無しさん
垢版 |
2018/07/12(木) 16:09:13.97ID:sm9NZXwJ
冷やし中華始めました。
0427デフォルトの名無しさん
垢版 |
2018/08/03(金) 22:49:39.26ID:G69i9RgI
なんだろう？　計算式で質問投稿しようとするとＮＧワードエラーで拒否られてしまう orz
全角でもダメかー
0429427です
垢版 |
2018/08/04(土) 19:09:36.61ID:pEPpCry/
>428 の書き込みで、本来続きだった リンク先 >422 の
16進〜解説お願いできませんでしょうか？
の文章内だけでもＮＧ含んでるとか・・・・プログラム技術板・・コミュニケーション終わってね？
0430デフォルトの名無しさん
垢版 |
2018/08/05(日) 06:11:20.74ID:cdvogGHQ
>>428
よくわからないんだけど、下2桁を60で割って3桁目より上は1の位にシフトしているわけだよね。
とするとあり得るのは時間の時と分について 時 * 100 + 分 とやった結果が数値として入っていて、
それの時間単位への変換ではないか?

例えば元の値が 315 なら3時間15分という意味で、それを時間単位に直すと 3.25 時間ってこと。
0431デフォルトの名無しさん
垢版 |
2018/08/05(日) 06:13:27.55ID:cdvogGHQ
時と分とは限らないか。分と秒かも知れない。まあしかし下2桁は60進法で考えなければいけないということに変わりはない。
0432デフォルトの名無しさん
垢版 |
2018/08/05(日) 07:50:18.49ID:cdvogGHQ
>>428
ところで元のプログラムに「16進バイナリデータを・・・」というコメントが入っているのだろうが、呼び出す側は実際には何を渡している?

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

つまり、コメントが紛らわしい表現になっているだけ。
0433427です これは書けるかな？
垢版 |
2018/08/05(日) 12:21:43.54ID:gWGunr7x
>430-432 スミマセンです。 orz
もっと詳しく書こうとするとマンゴースレでもブロックされました。
ぶっちゃけ、この中の
ttp://motor.geocities.jp/resermail/dc10tools.zip
「dc10mov2csv.pl」内です。

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

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

これをベースに別メーカー機種の同様な構造を持つデータでの他言語の変換プログラムを考えているので。
0434デフォルトの名無しさん
垢版 |
2018/08/05(日) 17:23:40.10ID:cdvogGHQ
>>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進法で小数点以下の値にしてるってことね。
0435427です
垢版 |
2018/08/05(日) 21:57:54.47ID:gWGunr7x
>>434
ありがとうございます。
全体からずらして抜いたもの60進法にしてるだけなんですね。
てっきりバイナリから浮動小数点を出す特殊計算かと思っていました。
適当にがんばります。
0436デフォルトの名無しさん
垢版 |
2018/10/05(金) 20:29:10.24ID:ZpFL29Ml
「サンプル」の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
0438デフォルトの名無しさん
垢版 |
2018/10/05(金) 22:57:27.02ID:kjx9soPU
一行プログラムが思い浮かんだ。

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

しかし俺は今電車の中からスマホで書いてるのでここに書く気が起きない。
0439デフォルトの名無しさん
垢版 |
2018/10/06(土) 00:22:39.61ID:mGKg2bAW
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
0441デフォルトの名無しさん
垢版 |
2018/10/06(土) 03:33:56.69ID:gPBhgV7B
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);
}
ウチでやるならこうかしら
0442438
垢版 |
2018/10/06(土) 06:07:28.44ID:J8Y2BFN6
おはよう。

元のテキストが 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
0443438
垢版 |
2018/10/06(土) 06:21:52.15ID:J8Y2BFN6
あ、そうか。貯め込む必要はなくてハッシュ作ってそのまんま出せば良いんだよな。

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

awk -F, 'BEGIN{OFS=","}{n[$1]++;print $1,n[$1],$3}' s.txt
0444デフォルトの名無しさん
垢版 |
2018/10/06(土) 17:28:12.58ID:MMGbFZjG
436です。皆様ありがとうございました。
自分では1行ずつ処理することまでしかできず、複数レコードの
1コラム目の比較をすることができませんでした。
おかげさまで体育の日に子供の運動会に行けます！
ありがとうございました！
0445デフォルトの名無しさん
垢版 |
2018/11/11(日) 14:10:45.60ID:eqm/EHYd
上の方のレスにも関連したものがありますが、
ファイルから読み込んだ文字列データにて
パターンマッチがヒットしません。
同一文字列を直接コード内に定義すると、ヒットします。

出来ればファイルに切り出したいので、
ご教示いただけますでしょうか。
0446デフォルトの名無しさん
垢版 |
2018/11/11(日) 14:11:11.73ID:eqm/EHYd
[環境]
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
0448デフォルトの名無しさん
垢版 |
2018/11/11(日) 18:17:18.70ID:t5AG7sJB
たぶんそれだな。$line の中身が "テスト\r\n" または "テスト\n" になってそう。
0450デフォルトの名無しさん
垢版 |
2018/11/12(月) 07:45:13.53ID:8fj5l105
遅くなりすみません。
テストファイルには改行を入れていなかったのですが、
chompが必要なのですね。
ファイルからレコードを取得するにはchompが必要と勉強になりました。
ありがとうございました。
0451デフォルトの名無しさん
垢版 |
2018/11/12(月) 09:22:08.61ID:I5PkaEyl
>>450
いや、改行は入っていると思うぞ。でなければあのプログラムでは一致する。
0453デフォルトの名無しさん
垢版 |
2018/11/13(火) 17:46:33.84ID:/6RlnNZj
ところでUTF-8にBOMってなんか意味あるの？
ビッグエンディアンで上のビットから詰め込んで並べている1パターンしかないよね？
0454デフォルトの名無しさん
垢版 |
2018/11/13(火) 18:09:12.36ID:3HdfrOce
>>453
あるよ、BOMがあればUTF-8だと文字コードを
簡単に判定できる

つまり、文字化け防止に役立つ
みんなBOM付けるようにすれば良かったんだけどな
0455デフォルトの名無しさん
垢版 |
2018/11/13(火) 19:44:37.81ID:/6RlnNZj
あー。magic用か。
0456デフォルトの名無しさん
垢版 |
2018/11/14(水) 00:34:48.87ID:efwoHdbt
>>450
ですが、改行が入っていました。
遅くなりすみません。
すみませんでした。確認をしっかりします。

もう一つ質問があるのですが、>>450の環境にて、パターンマッチングを、全角、半角、ひらがな、カタカナ、大文字、小文字を区別することなく行いたいのですが、方法をご教示いただけますでしょうか。
0457デフォルトの名無しさん
垢版 |
2018/11/14(水) 09:45:09.68ID:bDqFuzUS
>>456
手順としてはまず比較に都合のいいように比較する側とされる側の文字列を正規化する。
例えば半角は全て全角にし、濁点や半濁点はそれを含んだ文字にし、英小文字は大文字にする。
それから比較を行う。

ただし使われている文字がASCIIの文字だけならば // のオプションで i が使えるので正規化不要。
0458デフォルトの名無しさん
垢版 |
2018/11/14(水) 12:24:46.73ID:XfG22Q3S
教えて下さい。

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

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

ref4を使って同様に b と abcde を表示するには、どうしたらいいですか？
0459デフォルトの名無しさん
垢版 |
2018/11/14(水) 12:38:11.11ID:XfG22Q3S
うっかり自己解決しました。数時間悩んだのに。
print @{ ${ $ref4 }[0] };
print @{ ${ $ref4 }[0] }[1];
0460デフォルトの名無しさん
垢版 |
2018/11/14(水) 19:36:24.69ID:dXHPcciK
>>457
オプションで可能であればと思ったのですが、マッチング文字列と対象を同じ文字種にしないといけないんですね。
ActivePerlでUnicode::Japanese
でUTF8から変換して書いてみたのですが、cp932にencodeすると、化けてしまい、使用できませんでした。
ActivePerlで使用可能なモジュールあればコードではなくてかまいませんので、何かあれば紹介してもらえますでしょうか。
0461デフォルトの名無しさん
垢版 |
2018/11/14(水) 20:41:47.52ID:bryEJhFF
UNICODEにはcomposed、decomposedというややこしいものもあるんだよね。
https://pointoht.ti-da.net/e8205606.html
Unicode::Normalizeってのがあるけど、日本語を特別扱いしてくれたりはしなさそうな予感。
0462デフォルトの名無しさん
垢版 |
2018/11/14(水) 22:57:23.73ID:otO/yyOk
>>453-455
Linux では、BOM なしUTF-8 を使う、アプリ開発者が多く、
BOMありにするとバグるアプリがあるから、BOMなしを使っているけど、

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

だから、Windows10 で、WSL, Ubuntu を導入して、grep を使っている
0463462
垢版 |
2018/11/14(水) 23:51:54.30ID:otO/yyOk
結合文字列をUnicode正規化で合成する方法の危険性
https://qiita.com/monokano/items/d4c37d9bc9833eaeda6e

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

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

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

CRLF・LF の改行コードの違いは、意識したことがない。
chomp とか、どちらの改行コードでも、正常に動く
0465デフォルトの名無しさん
垢版 |
2018/11/21(水) 22:55:48.65ID:M0TZNmLm
>>464
有料ですがnkfのActivePerl用をnamazuというところから購入しましたが、
nkfで変換後、utf8でマッチングが不可能で調査中です。
0466デフォルトの名無しさん
垢版 |
2018/11/21(水) 23:00:44.11ID:M0TZNmLm
ハッシュを要素に持つハッシュへのアクセスについて
ご教示いただけますでしょうか。
下記のコードで、読込は正常に完了しますが、出力が不可能です。
$$を使用したり、試しましたがギブアップです。

#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");
0467デフォルトの名無しさん
垢版 |
2018/11/22(木) 00:04:25.39ID:V9xGGA7p
wrote_numが何か分からんけど
my %rec;　はwhile内にしたらどうですか
あと、$rowはハッシュのリファレンスだろうから$row->{'id'}では
0468デフォルトの名無しさん
垢版 |
2018/11/22(木) 10:12:03.32ID:iCX1SQ90
>>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
読込完了
出力完了
0469デフォルトの名無しさん
垢版 |
2018/11/22(木) 10:30:19.76ID:Enb78Zev
これでいけると思いましたが、玉砕でしたｗ

foreach my $row (@$table){
　while (my ($id, $count, $name) = each(%row)){
　print encode('cp932', "$id\t$count\t$name\n");
}
0470デフォルトの名無しさん
垢版 |
2018/11/22(木) 10:54:51.08ID:iCX1SQ90
これでいけました！
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

出力完了
0471デフォルトの名無しさん
垢版 |
2018/11/22(木) 11:07:56.03ID:Enb78Zev
これで全てのハッシュ要素を出力できますが、
カラム順が不確定になってしまいますね。
ハッシュなので仕方ないことですかね。

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
出力完了
0472デフォルトの名無しさん
垢版 |
2018/11/22(木) 12:53:27.47ID:+z2Jd1go
>>471
キーだけ別の配列に取っといてそれ使えば？
0473デフォルトの名無しさん
垢版 |
2018/11/25(日) 19:58:05.78ID:Ngr2zrFy
>>472
できれば要素をカラム名でアクセスしたいのでハッシュの方がいいのですが、カラム順固定出力は配列しかないということですね。
0475デフォルトの名無しさん
垢版 |
2018/11/26(月) 04:07:41.06ID:LFi/GsCA
>>471
foreach $col (sort keys %{$table{$row}}) {
を
foreach $col (qw/id count name/) {
とかでは? keyの名前も順番も分かってるんだし。
0476デフォルトの名無しさん
垢版 |
2019/06/24(月) 04:43:33.88ID:4+LiJo6+
自分が昔質問したことにたいして今なら回答できる
<> は <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;
0477デフォルトの名無しさん
垢版 |
2019/08/29(木) 20:58:11.72ID:72vdfcsY
タグを除去したいのですが、<>も文に入っているため
<.*?>ではなく<("[^"]*"|'[^']*'|[^'">])*>を使いたいのですが
perl -pe '<("[^"]*"|'[^']*'|[^'">])*>'
にする場合どれどれをエスケープすればよいでしょうか？
’だけだと動きませんでした。
perl -pe '<("[^"]*"|\'[^\']*\'|[^'">])*>'
0478デフォルトの名無しさん
垢版 |
2019/08/30(金) 12:09:22.02ID:VkI78Ia/
除去？だったらs/パターン//gみたいにやらないと何も変わらないのでは？
てか、それエラーにならないの？
0479デフォルトの名無しさん
垢版 |
2019/08/30(金) 13:51:46.18ID:XCxRWcZV
5ｃｈの書き込みのほう、つけ忘れてました
perl -pe 's/<("[^"]*"|'[^']*'|[^'">])*>//g'
です

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

perl -pe '<("[^"]*"|\'[^\']*\'|[^'">])*>'だと動かないんですよね
0481デフォルトの名無しさん
垢版 |
2019/08/30(金) 17:21:58.25ID:8Dc5lx9D
こうか？
perl -pe 's/<("[^"]*"|'"'"'[^'"'"']*'"'"'|[^'"'"'">])*>//g'
perlというよりシェルのシングルクォートの問題
0483デフォルトの名無しさん
垢版 |
2019/08/30(金) 17:56:41.24ID:XCxRWcZV
>481
できました！、ありがとうございます。
'を'""'で括るのですね
なんで\でエスケープにならないんでしょうね
0484デフォルトの名無しさん
垢版 |
2019/08/30(金) 18:04:26.61ID:XCxRWcZV
パーサーも一度使ってみたんですが
<p>hoge</p><p>hoge</p>
pタグが一行に2つあると誤作動したりするんですよね
0485デフォルトの名無しさん
垢版 |
2019/08/30(金) 23:22:18.80ID:fIMZQtfT
その誤作動がパーサーのせいかどうかは判らないが、少なくとも
HTML::Parser でそんなことは起こらないから安心してほしい。
たとえばテキスト部分だけを出力したいならこんな感じでできる。

my $parser = HTML::Parser->new(
text_h => [sub { print( $_[0]) },'text'],
);
$parser->parse_file( \*STDIN);
0486デフォルトの名無しさん
垢版 |
2019/08/31(土) 00:18:32.04ID:mx6W2BK8
>485
参考になります。
パーサーもいろいろ種類あるみたいですね。

自分の使ってたのはhtml-xml-utilsというやつでした。
0490デフォルトの名無しさん
垢版 |
2021/11/19(金) 22:27:21.73ID:v67hT9Zk
二つ以上の空白文字列を
一つの空白に変えたいのですが
うまくいきません。

if($line=~/\s\s+/){
$line=~s/\s\s+/\s/g
print("$line\n")
}
0492デフォルトの名無しさん
垢版 |
2021/11/20(土) 20:14:01.04ID:xbsxU5SW
s/\s\s+/ /g;
でうまくいったよ。
そうか、\sって正規表現だから、置換文字列に使うと「perl にそんな定義ないで！」ってなるのか。
これは俺も気を付けよう。
0493デフォルトの名無しさん
垢版 |
2021/11/20(土) 20:36:42.09ID:xbsxU5SW
置換といえばこのまえ、JSONで取得したUnicodeを表示したくて、
\u3042 → \N{U+3042}
に置換しようとしたけど、できなかった。
\N{U+ }←ここにはリテラルしか書けないのかな。
0494デフォルトの名無しさん
垢版 |
2021/12/14(火) 19:15:14.22ID:LP8Fmqr9
if文で真偽値を判定するのってどうやるの？

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

my $a = hoge();
if( ! $a ){ print("Error\n"); exit $!; }
みたいにしたんだけど、if文の書き方ってこんなんで良いの？
0495デフォルトの名無しさん
垢版 |
2021/12/25(土) 19:09:39.02ID:pJ3Bii8w
>>494
0を返しても、0といｂ､文字(アスキーコード0x30)として扱われたりするから、俺は
if(scalar($a)) {
とか
if($a eq 0) {
とかするよ。
0496デフォルトの名無しさん
垢版 |
2021/12/25(土) 20:31:09.16ID:62MjaTIU
>>494
良い。

! で条件反転させるんだったら unless 使っても良いと思うけどね。
unless ($a) { ... } みたいに。
0497デフォルトの名無しさん
垢版 |
2021/12/30(木) 05:41:55.25ID:grPlj9k3
良くないんだってば。
Perlをそういう流儀でやってるといつか痛い目にあうよ。
0498494ではない
垢版 |
2021/12/30(木) 08:07:22.12ID:j5bdR14I
>>495
マジか。
my $a = hoge();
において、左辺が 0、右辺が 0x30 になるのは、言語としてぶっ壊れているんじゃね?
0502デフォルトの名無しさん
垢版 |
2022/03/27(日) 23:43:39.11ID:TRkpHzjA
>>497
じゃあどうすればいいの？
0504デフォルトの名無しさん
垢版 |
2022/06/11(土) 13:31:52.57ID:XcUjU1KU
hoge()が0を返しうるかどうかもわからんと思うのだが

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

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

hoge() or が動くという前提を無視するとして
もしもhoge()が0を含む数値か失敗を返すなら（空文字を含む文字列か失敗でもいい）
失敗にundefを返してdefinedで受けるのがフツー
0505デフォルトの名無しさん
垢版 |
2023/12/15(金) 06:59:42.19ID:aRdlBUAD
$_ ← これ、なんて読む?

perlが発祥ってわけでもないそうだが(bashとかにもあるんだってね)、ガチのドザなので
俺は内心ドルバーって呼んでる
0506デフォルトの名無しさん
垢版 |
2023/12/19(火) 00:32:16.33ID:LgO8Ui43
ドル・アンダーバーじゃないかな。
設定によってはチルダの代わりにトップバーってのがあったから、それと区別するのにアンダーって言ってた気がする。
0507505
垢版 |
2023/12/21(木) 12:15:47.33ID:nsa/DjJa
おつあり
そういやそんなの(トップバー)あったねえ なるほど
0509デフォルトの名無しさん
垢版 |
2024/03/03(日) 23:39:10.39ID:1cRqRnnX
なつかしのcgiゲームを設置したくてperlを触ってるのですが、今の時代でもcgiゲームはサーバーへの負荷は大きいのでしょうか？（昔はよくゲームの設置が禁止されてましたが）
perlと関係なかったらすみません…
0510デフォルトの名無しさん
垢版 |
2024/03/16(土) 03:41:28.53ID:I49Gallj
StrawberryPerlで

$str='あ';
if ($str =~ /^[あいう]$/) {print("match\n");}

を実行してみるとマッチしてくれません
/^(あ|い|う)$/　ならマッチするのですが
古いPerl4のjperlなら /^[あいう]$/ でもマッチします
やはりこれはStrawberryPerlのバグ(または仕様)なのでしょうか
0514デフォルトの名無しさん
垢版 |
2024/03/16(土) 11:57:07.41ID:Xoe9pkvE
>>511
レスどうもです
Shift-JISの環境で正しく2とカウントされてます
前記はあくまで例ですので全角文字なら他の文字でもこうなるみたいで
ひらがなにマッチさせたいわけではないんです
0515デフォルトの名無しさん
垢版 |
2024/03/16(土) 15:20:26.94ID:e8kHlvhU
少なくともperl5.8以降の文字クラスはuse utf8;前提になっててlengthが1じゃないとだめじゃね？
0516デフォルトの名無しさん
垢版 |
2024/03/16(土) 15:27:36.56ID:HqlfXJdH
推奨されてないけど
use encoding 'sjis'
ならsjisでコード書けたと思う
jperlﾅﾂｶｼｽ
0517デフォルトの名無しさん
垢版 |
2024/03/24(日) 16:38:15.53ID:gHSiAGjm
Windows では Filter::Encoding いれて使ってた
スクリプトは utf-8 で書いて use utf8 してたけど
コマンドラインでは -MFilter::Encoding=cp932 とか
新着レスの表示
レスを投稿する

ニューススポーツなんでも実況