5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

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

1 :デフォルトの名無しさん:2009/02/09(月) 21:17:36
"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。

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

CGI の質問は答えが Perl と全然関係ない話に帰着する場合が
多かったりするので WEB プログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

http://www.perl.org/get.html
● 2009/02/09 現在の最新版: 5.10.0

▼ 前スレ
Perlについての質問箱 38箱目
http://pc11.2ch.net/test/read.cgi/tech/1221967332/

リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは >>5-6 あたり

2 :デフォルトの名無しさん:2009/02/09(月) 21:18:35
[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/4873111269/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://www.ascii.co.jp/books/books/detail/4-7561-3057-7.shtml (修正)
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/

[オンラインマニュアル]
最新のドキュメント: ttp://search.cpan.org/dist/perl/
perl5.8.x のドキュメント(一部): ttp://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: ttp://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: ttp://www.cpan.jp/search.cgi (停止中)
perldoc.jp: ttp://www.perldoc.jp/
perldoc.com: ttp://www.perldoc.com/

3 :デフォルトの名無しさん:2009/02/09(月) 21:19:37
[モジュール]
CPAN.com: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
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

[Perl 5.8 Unicodeメモ]
ttp://www.rwds.net/kuroita/program/Perl_unicode.html (修正)
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

4 :デフォルトの名無しさん:2009/02/09(月) 21:20:36
# [Perl 日本語処理の基礎の基礎]
# このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
# このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
# 入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
# まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
use Encode;
# 次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
# 【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
# ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
# ※2. OS に渡す文字列(ファイル名,dos コマンドのオプションなど)は、
# この例のように cp932 でエンコードする必要があります。

5 :デフォルトの名無しさん:2009/02/09(月) 21:21:35
[過去スレ1]
1 http://pc.2ch.net/tech/kako/1017/10177/1017736187.html
2 http://pc3.2ch.net/tech/kako/1033/10336/1033688230.html
3 http://pc2.2ch.net/tech/kako/1041/10412/1041205885.html
4 http://pc2.2ch.net/tech/kako/1048/10485/1048519394.html
5 http://pc5.2ch.net/tech/kako/1053/10530/1053053082.html
6 http://pc5.2ch.net/tech/kako/1060/10606/1060689008.html
7 http://pc2.2ch.net/test/read.cgi/tech/1068051036/ (事故により消滅)
8 http://pc2.2ch.net/test/read.cgi/tech/1074151549/ (事故により消滅)
9 http://pc5.2ch.net/test/read.cgi/tech/1079114157/
10 http://pc5.2ch.net/test/read.cgi/tech/1085564875/
11 http://pc5.2ch.net/test/read.cgi/tech/1090889189/
12 http://pc5.2ch.net/test/read.cgi/tech/1094579428/
13 http://pc5.2ch.net/test/read.cgi/tech/1097851764/
14 http://pc5.2ch.net/test/read.cgi/tech/1101649274/
15 http://pc5.2ch.net/test/read.cgi/tech/1105953092/
16 http://pc8.2ch.net/test/read.cgi/tech/1111034732/
17 http://pc8.2ch.net/test/read.cgi/tech/1117870308/
18 http://pc8.2ch.net/test/read.cgi/tech/1121804136/
19 http://pc8.2ch.net/test/read.cgi/tech/1126977805/
20 http://pc8.2ch.net/test/read.cgi/tech/1131286411/

6 :デフォルトの名無しさん:2009/02/09(月) 21:23:01
[過去スレ2]
21 http://pc8.2ch.net/test/read.cgi/tech/1134327348/
22 http://pc8.2ch.net/test/read.cgi/tech/1138519327/
23 http://pc8.2ch.net/test/read.cgi/tech/1141742901/
24 http://pc8.2ch.net/test/read.cgi/tech/1146022352/
25 http://pc8.2ch.net/test/read.cgi/tech/1149259409/
26 http://pc8.2ch.net/test/read.cgi/tech/1153412251/
27 http://pc8.2ch.net/test/read.cgi/tech/1157874614/
28 http://pc8.2ch.net/test/read.cgi/tech/1162273941/
29 http://pc11.2ch.net/test/read.cgi/tech/1166708139/
30 http://pc11.2ch.net/test/read.cgi/tech/1173880452/
31 http://pc11.2ch.net/test/read.cgi/tech/1181500187/
32 http://pc11.2ch.net/test/read.cgi/tech/1186995713/
33 http://pc11.2ch.net/test/read.cgi/tech/1192463997/
34 http://pc11.2ch.net/test/read.cgi/tech/1199977642/
35 http://pc11.2ch.net/test/read.cgi/tech/1208674881/
36 http://pc11.2ch.net/test/read.cgi/tech/1215569470/
37 http://pc11.2ch.net/test/read.cgi/tech/1218449440/
38 http://pc11.2ch.net/test/read.cgi/tech/1221967332/

7 :1:2009/02/09(月) 21:24:29
遅らせながら無いと寂しいので立てました。


8 :デフォルトの名無しさん:2009/02/09(月) 21:29:52
1おつ

9 :デフォルトの名無しさん:2009/02/10(火) 16:19:34
下記のような配列を値として持つハッシュがある時

%hoge = {
"A" => [ 100, 300, 800 ],
"B" => [ 150, 50, 320 ],
"C" => [ 160, 220, 500 ]
};

配列n番目の値をソートしてハッシュからKey値を取り出したい。

たとえば、配列2番目(配列[1])の昇順に、ハッシュKeyを
"B", "C", "A" の順番に取り出す、ってなことをやりたい場合
どういうコーディングをすればいいのでしょうか?

よろしくお願いいたします。


10 :デフォルトの名無しさん:2009/02/10(火) 20:33:01
>>9
sort命令使えば一行でできるよ。

my @sortedkeys = sort { /* ここに配列の二番目を比較する方法を書く */ } keys(%hoge);

11 :デフォルトの名無しさん:2009/02/10(火) 21:40:03
>>10
その配列の二番目を比較する方法の書き方を知りたいっていうのが質問の主旨なんじゃ・・・


12 :デフォルトの名無しさん:2009/02/10(火) 21:51:32
$hoge{$a}[1] <=> $hoge{$b}[1]

13 :デフォルトの名無しさん:2009/02/11(水) 01:45:35
糞スレ立てんな、ほげ

14 :デフォルトの名無しさん:2009/02/11(水) 12:57:48
調べてもよくわからなかったので質問です。
perlを用いてexcelデータから行、列ごとにデータを取りこみ、計算処理した後データをファイルに出力することは可能ですか?


15 :デフォルトの名無しさん:2009/02/11(水) 12:59:50
Yes, we can

CPANで探したらそれっぽいモジュールがあると思うよ

16 :デフォルトの名無しさん:2009/02/11(水) 13:13:05
>>15
即レスありがとうございます。

ちょっと自分で調べてみますね

17 :デフォルトの名無しさん:2009/02/12(木) 09:54:53
ブックマークや直接入力したときでも、直前のURLを取得するには
どうしたらよいでしょうか?

18 :デフォルトの名無しさん:2009/02/12(木) 10:18:54
>>17
△▲ WebProg 初心者の質問 Part18 ▼▽
http://pc11.2ch.net/test/read.cgi/php/1219842559/

19 :デフォルトの名無しさん:2009/02/12(木) 10:21:31
>>18 誘導ありがとうございます 行ってきます

20 :デフォルトの名無しさん:2009/02/12(木) 15:40:13
Catalyst-Plugin-FormValidator-0.02
で困っています。

全てのエラーチェックをエラーを表示するように設定しているのですが、
エラー項目が出力されず、かといって先に進めません。

エラーチェックは

if(not $result->has_error){
$c->stash->{template} = "form/cfm";
$c->detach("cfm", $item_id);

のようにして、エラーがなければ次へ行っているのですが$result->has_errorはなぜか真です。

どこがエラーしたか分かる方法とかありませんか?

すみませんがよろしくお願いします。

21 :デフォルトの名無しさん:2009/02/12(木) 15:45:14
name属性のヴァリデート

> name => [qw/NOT_BLANK/, [qw/LENGTH 0 20/] ],

を外したら正常動作しました。不思議なのは、ブランクにすると
エラーが出ますし値を埋めても正常動作しない点です。
どなたか助けてください。

22 :デフォルトの名無しさん:2009/02/12(木) 15:58:39
$result->invalidで調べると、間違ってもないのに
nameがinvalidになってます。何故なんでしょう・・・。

23 :デフォルトの名無しさん:2009/02/12(木) 16:00:28
> name => [qw/NOT_BLANK/, [qw/LENGTH 0 20/] ],

の20を40にすると動きました。お騒がせしました。急いでいたので荒らし気味になってスマソ。

24 :デフォルトの名無しさん:2009/02/12(木) 18:20:56
7文字で3x7=21でオーバーしてたのね・・・・。
しかも半角文字もUTF-8扱いで困った。

25 :デフォルトの名無しさん:2009/02/13(金) 02:00:09
以前、perlに詳しい人にソースを見てもらったときに
「もっと短くできる。とにかくperlは文字量、行数を節約して書くものだ」と言われました。
有名なperlの参考書にもそう書いてあります。
とにかくあらゆるテクニックを駆使して短く書くのがperlの美学のように書いてあります。
私は、他の言語では行数にこだわらず可読性を重視してソースを記述していました。
今、perlでやや大きめのプログラム(個人で使うツール)を作ろうとしています。
テクニックや行数圧縮にこだわらず自分が保守しやすい読みやすいコードを書きたいと
思っていますが、それはperlでは許されないのでしょうか。


26 :デフォルトの名無しさん:2009/02/13(金) 02:18:43
あまりにトリッキーなのはあれだけど
基本的にはシンプルに書けるなら
短い方がわかりやすいものだと個人的には思っている

27 :デフォルトの名無しさん:2009/02/13(金) 02:25:18
誰が許さないんですか?
言語仕様が許さないんならともかく、
書けるんなら自分が書きたいように書けばいいじゃないですか。
There's more than one way to do it っていう言葉もありますよ。

28 :デフォルトの名無しさん:2009/02/13(金) 02:28:18
>>25
お好きにどうぞ

29 :デフォルトの名無しさん:2009/02/13(金) 10:11:00

 「 可 読 性 」 は 禁 句

このスレの掟。

30 :デフォルトの名無しさん:2009/02/13(金) 16:53:34
>>25
許しまへんでー

31 :デフォルトの名無しさん:2009/02/13(金) 16:58:26
ひとつの事をするのにいくつものやり方があるのがPerlの哲学
自分の好きなように書けばおk

32 :デフォルトの名無しさん:2009/02/13(金) 17:31:37
長く書いても短く書いてもどっちでもいいけど、

abc => "cde"
1 while
or die
$flag and

$_=$flag
/abc/ and 処理
/cdf/ and 処理
/ghi/ and 処理

$name->firstname->camel->output

辺りは知っといて欲しい。

33 :デフォルトの名無しさん:2009/02/13(金) 19:49:49
perlは簡潔に書いたときに可読性が増すように設計された言語だと思う。
ほかの言語だと、したい処理を表現するのに余計なことを書き込まなくてはいけない。
その余計なことはプログラムの流れにとって不自然なので注釈が必要になる。
25はほかの言語の仕様に毒されていてプログラムに無駄が多いんだろうね。
perlが可読性に乏しいと主張する人は単にperlについての知識が乏しいだけだ。

34 :デフォルトの名無しさん:2009/02/13(金) 21:22:44
Perlをよく知ってる人はより完結に書けるけど、あまり知らなくても
知ってる知識だけでプログラムが出来ちゃうところがPerlのいいところだと思う


35 :デフォルトの名無しさん:2009/02/13(金) 21:28:43
でもuse strictしてないのとか、goto使ってるのとか、
ファイル1枚で絵巻物みたいに長いのは勘弁してください。

36 :デフォルトの名無しさん:2009/02/14(土) 12:14:44
Active perl にてwperlを使用してコマンドプロンプトを開かないようにしたいのですが
ソース内でシステムコマンド(たとえば`tasklist`とか)を使うとプロンプトが一瞬開きます。
これを開かないようにする方法ってありますか?

37 :9:2009/02/15(日) 00:40:34
>>10
>>12
ずいぶん亀になってしまいましたが・・・
ありがとうございます。
おかげさまでうまくいったデス。

38 :デフォルトの名無しさん:2009/02/15(日) 05:33:13
Perl で、バイナリーデータを検索するにはどうしてますか?
1Mぐらいのデータを読んで、特定のデータを検索するのですが、
最初、index を使っていたら、これは、\r\nを1文字と解釈するようで、
位置がずれてしまいます。
代わりになる関数を探したけど、見つからないです。

39 :デフォルトの名無しさん:2009/02/15(日) 08:14:08
>>38
Windowsで使ってるでしょ?

特殊変数の$/に「\n」を代入してから検索してみ?

40 :デフォルトの名無しさん:2009/02/15(日) 12:01:37
>>38
バイナリを扱うなら \r や \n といった論理的な表現を使わず \x0D や \x0A を使え。
print index join('', map chr, 0..31), "\x0A"; # 10

http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify

41 :デフォルトの名無しさん:2009/02/15(日) 12:08:27
>>40
1行目は重箱の隅で本件とは関係なし。
2行目はなんなの?

$/ = "\n";
print index($a,$b);

で済む問題。

42 :デフォルトの名無しさん:2009/02/15(日) 13:07:18
Perl始めて数日の初心者です
ActivePerlでWindowsでやっているのですが、Webで見つけたサンプルが
use strict;
use warnings;
use HTML::ExtractContent;
use LWP::UserAgent;

となっているのですが、モジュールのインストールの方法がまったくわかりません。
HTML::ExtractContentというのはhttp://search.cpan.org/dist/HTML-ExtractContent/
ここからダウンロードできたのですが、その先をどうしたらよいのでしょうか
LWPというのはとりあえずppmからインストールできました

43 :デフォルトの名無しさん:2009/02/15(日) 13:08:54
>>42
>su
>password: ********
> cpan
:
:
[1]cpan>install HTML::ExtractContent

おしまい。

44 :42:2009/02/15(日) 14:45:18
コマンドプロンプトを開いて
install HTML::ExtractContent
と入力しエンターを押すとたくさんズラーっとでてきて最終的に

NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code '0xff'
Stop.
TARAO/HTML-ExtractContent-0.05.tar.gz
nmake test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports TARAO/HTML-ExtractContent-0.05.tar.gz
Running make install
make test had returned bad status, won't install without force
Failed during this command:
ROBIN/Want-0.18.tar.gz : make NO
RCLAMP/Class-Accessor-Lvalue-0.11.tar.gz : make_test NO
TARAO/HTML-ExtractContent-0.05.tar.gz : make_test NO

cpan >

と表示されました。
インストールが完了したと思ったのでサンプルプログラムa.plを実行すると

C:\Documents and Settings\SX3WX06MA\デスクトップ>perl a.pl
Can't locate HTML/ExtractContent.pm in @INC (@INC contains: C:/Perl/site/lib C:/
Perl/lib .) at a.pl line 3.
BEGIN failed--compilation aborted at a.pl line 3.

となってしまいました
これはインストールが失敗したということでしょうか
もしかして、ダウンロードしたモジュールを特別な場所に移動してから
cpan>install HTML::ExtractContent
をしなければいけないのでしょうか

45 :デフォルトの名無しさん:2009/02/15(日) 14:50:18
>>44
> これはインストールが失敗したということでしょうか

そう書いてありますが。

46 :デフォルトの名無しさん:2009/02/15(日) 15:33:12
>>44
cpanのログを読んでどこでcpan installがつまづいたか自力で探すしかないね。

47 :デフォルトの名無しさん:2009/02/15(日) 15:36:46
追記。
http://d.hatena.ne.jp/KNOPP/
の一番最後の方を読むと幸せになるかもしれん。
ただWindowsだからどうなのかは知らん。

> Class-Accessor-Lvalue
> File-Slurp
> をPPMであらかじめいれておき、

そのあと cpan >installしてみたらどーなる?

48 :デフォルトの名無しさん:2009/02/15(日) 15:39:14
もしかしてコンパイル環境がないからコケてるのか?
ぽつぽつとスマソ。

49 :38:2009/02/15(日) 21:14:22
>>39
ありがとうございました。
$/なる変数は、初めて知りました。

しかし、どうやら原因は、ほかでしたw。
FTP転送の際に、改行を勝手に変換してたため、\r\nが、\nだけになってたことでした。
これで、2文字が1文字扱いされてるなってw

50 :デフォルトの名無しさん:2009/02/15(日) 21:16:42
>>38
indexや正規表現を使ってる。
文字列がutf8に汚染されないように気をつけている程度かな。

51 :デフォルトの名無しさん:2009/02/15(日) 21:22:34
>>50
それだとバイナリにindexや正規表現を使っちゃいけないように読める。

52 :50:2009/02/15(日) 21:56:57
しまった元ファイルが壊れていたってオチか。

>>51
言われてみればそう読める。
指摘tnx.

ついでに >>36
方法はあるけど、それなりに難しそう。
GUIアプリからコンソールアプリを実行 でググると吉。
もしかしたら既存モジュールがあるかも。

53 :42:2009/02/15(日) 23:00:58
>>47
ついさっきまでCentOS5をインストールしてCPANで試してもうまくいかず絶望していましたが、
書き込みを見てリンク先の指示通りにやったら無事プログラムが動きました。
本当にありがとうございました。いくら感謝しても感謝し切れません。

54 :デフォルトの名無しさん:2009/02/16(月) 11:55:30
>>53
おお動いたか、よかったな。少し心配してたw

55 :デフォルトの名無しさん:2009/02/16(月) 22:19:33
>>36
>>50

僕もよく知らないのだが、下のはどうかな?

use Win32::OLE;
my $WshShell = Win32::OLE->CreateObject("WScript.Shell");
$WshShell->Run('tasklist', 0);

56 :デフォルトの名無しさん:2009/02/17(火) 07:10:12
パッケージの外から変数を覗き見たいです
ググったところ、グローバル変数ならシンボルテーブルとかいうものを検索すれば見られそうな感じですが、
レキシカル変数は無理なのでしょうか

57 :デフォルトの名無しさん:2009/02/17(火) 09:16:53
>>56
なぜそんなことが必要な状況になったかが問題だと思う。

58 :デフォルトの名無しさん:2009/02/17(火) 09:32:52
>>56
つPadWalker

59 :デフォルトの名無しさん:2009/02/17(火) 13:26:55
>>57
デバッグのときにあまり本体を汚さずに中の変数を覗きたいんですよ
最終的には一行書くだけで自動的に変数をトレースしたいです

>>58
それ素晴らしく完璧ですね
ありがとうございます


60 :デフォルトの名無しさん:2009/02/17(火) 14:03:35
>>57
知らないならレスしないでください

61 :デフォルトの名無しさん:2009/02/17(火) 14:25:23
知ってるがお前の態度が気に入らない。

62 :デフォルトの名無しさん:2009/02/17(火) 14:36:07
>>61
後出しみっともない


63 :デフォルトの名無しさん:2009/02/17(火) 15:42:16
>>62
コピペにマジレスみともない。

64 :デフォルトの名無しさん:2009/02/17(火) 15:49:58
>>63
そう思うならやるなよ


65 :デフォルトの名無しさん:2009/02/17(火) 16:31:29
>>64
いつまでもみっともない。

66 :デフォルトの名無しさん:2009/02/17(火) 17:50:44
>>65
必死だな!

67 :デフォルトの名無しさん:2009/02/17(火) 18:40:21
>>66
>>66

68 :デフォルトの名無しさん:2009/02/17(火) 18:41:46
キモイ、粘着、IDストーカー、
もう返信しないで下さい。キモいです。

69 :デフォルトの名無しさん:2009/02/17(火) 19:08:44
なにこのスレ

70 :デフォルトの名無しさん:2009/02/17(火) 23:44:42
文字列取得の質問です

"a,b,c:ABC,d,e,DEF"ghi

のような文字列があった場合に、

ABC(コロンとカンマの間)
DEF(カンマとダブルクオテーションの間)

の文字を取得するにはどのようにすればよいでしょうか?

indexとsubstrを駆使してみましたが、
カンマやダブルクオテーションが複数あるため
indexの位置が正しく取得できずに断念しました。

71 :デフォルトの名無しさん:2009/02/17(火) 23:51:51
>>70
っ[パターンマッチ]

72 :デフォルトの名無しさん:2009/02/18(水) 00:29:51
>>71
ありがとうございます。

$tmp =~ /:(.+)\,/;

のようにやってみましたが、下記の結果になってしまいました。

$1⇒「ABC,d,e」

後ろのカンマのマッチを無視するにはどのようにすればよいでしょうか?

73 :デフォルトの名無しさん:2009/02/18(水) 00:39:30
>>72
(.+?)で最小マッチングできるよ

74 :デフォルトの名無しさん:2009/02/18(水) 00:50:47
>>73
ABC ⇒ /:(.+?)\,/
DEF ⇒ /.+\,(.+?)"/

↑で、うまくいきましたー。
ありがとうございました

75 :デフォルトの名無しさん:2009/02/18(水) 06:44:36
呼び出したモジュールから、本体の出力命令 ( print とか die とか )を察知して
内容を置換して出力し直すことは可能でしょうか

76 :デフォルトの名無しさん:2009/02/18(水) 07:48:50
可能です。

77 :デフォルトの名無しさん:2009/02/18(水) 14:57:23
>>76
どうもです

78 :75:2009/02/18(水) 23:09:04
どうやら print をオーバーライドするのが一番手っ取り早そうですね
ですが、perl はサポートしてないんですよね
実現してるモジュールなんかはありますでしょうか

79 :デフォルトの名無しさん:2009/02/19(木) 01:33:04
>>78
親切な僕が変態 ReplacePrint.pm をそれっぽく書いたげたお。
die のほうはせっかく例外投げてんだから catch してあげて。

使い方:
use ReplacePrint;
print "string\n";

# ここから ReplacePrint.pm
package ReplacePrint;
use strict;

sub TIEHANDLE { bless [], $_[0] };

sub PRINT {
my $self = shift;
my @str = @_;
for (@str) {
s/$/ is replaced/;
print STDOUT;
}
}

my $out;
open *OUT, ">", \$out;
my $stdout = select(OUT);
tie *OUT, "ReplacePrint";
1;


80 :デフォルトの名無しさん:2009/02/19(木) 03:00:45
ありがとうございます
まだファイルハンドルあたりやtaiについての知識が薄いので、
ここ2,3日で実験しながら学びたいと思います
また何か分からないことがあると思うので、
よろしくお願いします

81 :79:2009/02/19(木) 22:56:32
>>80
正直、想定外の好反応にあわててる僕がいるお。
外野からの「こんなひどいことするくらいなら設計見直したほうがいい」系のツッコミを期待してたので。
>>79 は猛烈にやっつけで、行儀の良くないことをいくつもやっている点が「変態」の所以。
なのでこのまま流用したりすると後でひどい目にあうことうけあい。
ヒント程度にしておくのが吉です。

82 :デフォルトの名無しさん:2009/02/20(金) 00:25:08
Mooseっていったん適当なクラスにrole付加したら、あとでそのrole使わないようにってできないの?

83 :デフォルトの名無しさん:2009/02/20(金) 09:24:24
:>>81
:viaレイヤ使うといいのかもしれない。使ったことないけど。

84 :デフォルトの名無しさん:2009/02/20(金) 10:12:57
StringRandomモジュールを使用せずに2chのIDのようにランダムな文字列を生成するにはどうすればよいでしょうか?

85 :デフォルトの名無しさん:2009/02/20(金) 11:43:28
その程度のプログラムも書けないのは全くプログラミングの勉強が
不足しているのでもうすこし勉強しましょう。

86 :デフォルトの名無しさん:2009/02/20(金) 14:09:07
>>84
っ[Digest]

87 :デフォルトの名無しさん:2009/02/20(金) 14:28:40
解決しました。ありがとうございました。勉強してきますorz

88 :デフォルトの名無しさん:2009/02/20(金) 18:27:25 ?2BP(150)
UTF-8のテキストファイルから">"一文字を正規表現で検索して置き換えたいのですが、
s/>/test/g
とやってもうまく検索できません
EUC-JPへのエンコードなどしてみたのですが、そうすると他の文字が一部文字化けなどしてしまい更に
面倒なことになったので、できれば文字のエンコードなしで日本語の置き換えをしたいです
Dumpで表示した\xxxなどの形式で検索もしてみましたが、うまく置き換えできませんでした

日本語の置き換えに何かいい方法はないでしょうか?
置き換えしたい文字は">"だけです。

89 :デフォルトの名無しさん:2009/02/20(金) 18:31:12
なんといういやがらせ


90 :88:2009/02/20(金) 18:56:00
自己解決しました
index関数とsubstr関数で置換できました

91 :デフォルトの名無しさん:2009/02/20(金) 18:58:52
とあるプログラムの一部に書かれてたんですが
これはどういう意味なんでしょう?

# untaint
$0 =~ /^(.+)$/;
my $self = $1;

$0でスクリプト自身のファイル名を取ってきて
正規表現に掛け、マッチしたものを別の変数に入れてますけど、
これだと$0と$selfは一緒なものが入る気がするんですが・・・。

92 :デフォルトの名無しさん:2009/02/20(金) 19:21:24
>>91
志村〜、コメント、コメント

汚染されたデータからパターンマッチで部分文字列を取り出すことで
汚染を取り除いている(=untaint)のだが、汚染とは何かとか言い出すと
長くなるので「perl 汚染」でぐぐっていろいろと調べてみるといいよ。

93 :デフォルトの名無しさん:2009/02/20(金) 20:02:26
$0が汚染されてたらスクリプト自体が実行出来ないもんじゃねえの?
(汚染チェックの重要性は十二分に解ってはいるんだけど)

94 :91:2009/02/20(金) 21:38:11
>>92
レスありがとうございます。
なるほど、不正なコマンド含んでたりするものを取り除いてるわけですね。

でもこの正規表現だと任意の文字列にマッチしてしまって取り除いたりは
できないような気もしますが・・・。一回正規表現を通して見かけだけ汚染を
取り除いたとみなしてるんでしょうか。

まぁ調べる方針はわかったのでもう少し調べてみます。どうもでした。

95 :デフォルトの名無しさん:2009/02/20(金) 23:19:11
.*は何にでもマッチしちゃうので、全くその通り。無理矢理に汚染フラグを
取り除いただけです。よい子は真似しないこと!


96 :デフォルトの名無しさん:2009/02/21(土) 18:23:38
perl -e 'use strict;my%H;sub A{@H{qw/A B C/}=(1,2,3);return \%H};*H=A();print "$H{C}\n"'
perl -e 'use strict;my%H;sub A{my %H@H{qw/A B C/}=(1,2,3);return \%H};*H=A();print "$H{C}\n"'

この二つ
上は何故かコンパイルも通り、意図したようにデータも返すことが出来る
下は一見すると正しい文法だし問題もないように見えるけどなぜかデータを取得できない
原因がわかる人いますか?

97 :デフォルトの名無しさん:2009/02/21(土) 18:24:12
下は
perl -e 'use strict;my%H;sub A{my %H;@H{qw/A B C/}=(1,2,3);return \%H};*H=A();print "$H{C}\n"'
の間違いです。スマソ

98 :デフォルトの名無しさん:2009/02/21(土) 20:00:22
>>96-97
スコープが違うから。
上はサブルーチンの外側で宣言した %H に代入している。
下はサブルーチンの内側で宣言した %H に代入している。

型グロブはパッケージ変数。

99 :デフォルトの名無しさん:2009/02/21(土) 20:18:27
>>98
なるほど
パッケージレベルのmy変数はどの関数からも見えるんですね
あと型グロブはmy変数とは異なるパッケージ変数と。勉強になりました

100 :デフォルトの名無しさん:2009/02/22(日) 11:53:36
ここ(http://kage.monazilla.org/system_DOLIB100.html)を参考に
●ログインするプログラムを書いてみました。
しかし、認証に失敗して、以下のセッションIDが返ってきます。
SESSION-ID=ERROR:ppppppppppp
何かアドバイスお願いします。

※IDとパスワードはここではダミーのものとしていますが
実際には自分自身のIDとパスワードを使用しています。

use strict;
use Socket;
use FileHandle;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $id='id';
my $pw='password';
my $ua = LWP::UserAgent->new;
$ua->agent('DOLIB/1.00');
$ua->default_header('X-2ch-UA' => 'Hoge/1.00');
my $url='https://2chv.tora3.net/futen.cgi';
my %form = ('ID'=>$id,'PW'=>$pw);
my $req = POST($url,[%form]);

101 :デフォルトの名無しさん:2009/02/22(日) 12:51:19
>>100
手元で検証してみたが、サーバ側のバグかもしれない
IDパラメータの「@」が「%40」にエンコードされていると認証に失敗した

102 :101:2009/02/22(日) 12:58:44
さっきのレスがわかりにくいかもしれないので…
futen.cgiに渡すパラメータは通常
ID=mail@domain.jp&PASS=password
って風になるんだけど、これが
ID=mail%40domain.jp&PASS=password
という風に渡すと、なぜか認証に失敗する。
本来は後者でも%40が@にデコードされた結果、認証が成功していないといけないのだが…

あ、>>100のコードでおかしいところ発見。
my $req = POST($url,[%form]);

my $req = POST($url,\%form);

103 :デフォルトの名無しさん:2009/02/22(日) 13:12:46
>>102
・エンコードしない。
・[%form]→\%formに修正。

再度実行してみましたけど、認証に失敗・・・orz

104 :101:2009/02/22(日) 13:20:31 ?2BP(1)
>>103
いや、プログラムが間違ってるわけじゃなくて、サーバ側の実装がおかしいんです。
で、一応の回避策ですが、
\%form

Content => "ID=$id&PW=$pw"
に修正すればうまくいくかと思います。

P.S.
サーバ側のバグについて
http://qb5.2ch.net/test/read.cgi/operate/1225876082/591
にて問い合わせています

105 :デフォルトの名無しさん:2009/02/22(日) 14:11:11
お〜っ、勃ってる。
辛抱強く DAT 落ちしたログ持って待ってた甲斐があった。


…単なるログコレクターみたいなもんなんだけど…。

106 :デフォルトの名無しさん:2009/02/22(日) 19:02:42 ?PLT(54324)
大昔から知られてる問題

107 :デフォルトの名無しさん:2009/02/22(日) 19:48:03
  ↑
すぐそういうことを言う・・・
たまたま知ってたから自慢したいだけやろ。

108 :デフォルトの名無しさん:2009/02/22(日) 20:13:00
>>107
そういう風に嫉妬むきだしの解釈するのは感心しませんね。

>>106さんは、自分がたまたま読んでいなかったばかりに、素早く問題点を
指摘してあなたがたに無駄働きさせないことが出来なくてすいませんと
言いたかったんですよ。

109 :デフォルトの名無しさん:2009/02/22(日) 20:18:33
後出しジャンケンみっともない

110 :デフォルトの名無しさん:2009/02/22(日) 22:12:06
>>104
解決しました。
ありがとうございました。


111 :デフォルトの名無しさん:2009/02/22(日) 22:36:02
仮想配列の中に'abc'が存在するかどうか確認する方法はありますか?

112 :デフォルトの名無しさん:2009/02/22(日) 22:40:11
exists

113 :デフォルトの名無しさん:2009/02/22(日) 22:40:20
仮想配列って何ですか

114 :デフォルトの名無しさん:2009/02/22(日) 22:40:39
「仮想配列」

115 :デフォルトの名無しさん:2009/02/22(日) 23:51:08
先っぽの皮が半分だけ剥けてるヤツだろ。
手で引っぱって全部剥けるなら心配いらん。

116 :デフォルトの名無しさん:2009/02/23(月) 03:18:46
>>106
>switch.layer3.asia が稼動してる際に SNMPv2c の一般的な読み取りコミュニティ名で
>リクエストを送ると、どこかのツリーの下に私の携帯電話番号が現れますよ

http://layer3.asia/

痛いw


117 :デフォルトの名無しさん:2009/02/24(火) 03:02:56
perlに限った事じゃないかも知れない(前置き)
klassというのをたまに見掛けるけど、これはどういった意図で使ってるの?
ある程度の頻度で見掛けるので、一定の合意があるのかと思って聞いてみました。


118 :デフォルトの名無しさん:2009/02/24(火) 03:29:04
classが予約語の言語でclassの類似物を作った場合とか
funktionなんてのもよく見るね

119 :デフォルトの名無しさん:2009/02/24(火) 13:22:48
フォームから読み出したデータを処理したいのです。
読み出したデータの名前はa1からa10までで、それを$a1から$a10に入れたいのですが、

$form = new CGI;
$a1 = $form -> param('a1');
$a2 = $form -> param('a2');

…と、a10まで順番に書いていかなければならないんでしょうか。
すっきりした書き方があれば、教えて下さい。

120 :デフォルトの名無しさん:2009/02/24(火) 13:25:44
>>119
そもそも変数名に通し番号をつけるセンスをなんとかすべきだな。
配列使えよ。

121 :デフォルトの名無しさん:2009/02/24(火) 13:32:09
$form = new CGI;

foreach(0..10){push(@a, $form->param('a' . $_))}

でいいんじゃね?ゼロからだけど@aの添え字にあわせるため。

122 :デフォルトの名無しさん:2009/02/24(火) 14:00:14
>>119
${"a$_"} = $form->param("a$_") for 1..10;

123 :デフォルトの名無しさん:2009/02/24(火) 14:13:51
変態が好きなら0-9にしようぜ

push(@a,$form->param($_))for a0..a9;


124 :デフォルトの名無しさん:2009/02/24(火) 14:23:55
というか、パラメタにつく数字は2桁超えるならa00-a10と言う風に桁をそろえようぜ。
ソートする時とか上のような技法が使えないから。

125 :119:2009/02/24(火) 14:41:12
>>120-124
配列なんて考えもしませんでした…思いついたところで、
今度は「配列に入れたいんですが」と泣きついていたように思いますが。
桁数にも気をつけます。

ありがとうございました。

126 :デフォルトの名無しさん:2009/02/24(火) 14:45:13
>>124
ラマ本は買った?
http://www.amazon.co.jp/dp/4900900818
昔のラマ本の方が分かりやすかったな・・・。

127 :デフォルトの名無しさん:2009/02/24(火) 14:45:31
>>125

128 :デフォルトの名無しさん:2009/02/24(火) 14:47:47
さらにごめん。さっきの中古本だった。3版になってるのね。
http://www.amazon.co.jp/dp/4873111269

129 :デフォルトの名無しさん:2009/02/24(火) 17:06:30
BigFloatで以下などが正確に計算出来ないのですが、何故なのでしょうか?

print Math::BigFloat->new('436611485')->fdiv('2074', 3)->bstr, "\n";
# 211000 と表示されてしまう

130 :デフォルトの名無しさん:2009/02/24(火) 17:24:37
つprint Math::BigFloat->new('436611485')->bdiv('2074')->bstr, "\n";

fdivじゃなくてbdivだよな。bdivの二番目の引数は精度だから精度3桁で計算合ってるよ。

131 :デフォルトの名無しさん:2009/02/24(火) 18:44:14
jcode(ver 2.7) で誰か知ってたらおしえてください。

utf8の文字列(フラグ付き)で、 'あ' という文字を 650字程度より
多い状態で、sjis に変換すると 途中から、????? と文字化けします。

Jcode.pm ってバイト数の制限があるのでしょうか。

どなたか知っていたら教えてください。



132 :デフォルトの名無しさん:2009/02/24(火) 18:54:10
>>131
とりあえずざっと目通した?
http://search.cpan.org/~dankogai/Jcode-2.07/Jcode.pm
http://search.cpan.org/~dankogai/Encode-2.31/Encode.pm

133 :デフォルトの名無しさん:2009/02/24(火) 23:21:18
Perlの実行エラー時に、エラーの発生したファイル名と行番号が表示されますが、
それに加えて、呼び出し元(さらに呼び出し元の呼び出し元なども)の関数を表示できるような機能ってありますか?

&aaa();
sub aaa{ &bbb(); }
sub bbb{ &ccc(); }
sub ccc{ &ddd(); } #ここでエラー

たとえば、上のようなプログラムで、関数 ddd が定義されていないとき、
「Undefined subroutine &main::ddd called at test.pl line XX.」というエラーが出ますが、
このエラーの呼び出し元が bbb でさらにその呼び出し元が aaa であることが
エラーメッセージで表示されると助かります。


134 :デフォルトの名無しさん:2009/02/24(火) 23:52:07
http://anond.hatelabo.jp/20080822142610
ここにプログラムがありますが、これを実行するために
1.必要なもの
2.(1.)が揃ったらやること
をざっと教えてください。

135 :デフォルトの名無しさん:2009/02/24(火) 23:57:57
>133
自前でエラー出すなら perldoc carp 参照。
そうじゃなきゃ、perl -d hoge.pl でデバッガ上で実行すれば?

136 :デフォルトの名無しさん:2009/02/25(水) 00:06:54
>>134
増田に聞けば?
はてなでもいいけど
とりあえず自分がどこまで理解しているのかくらいは書けよ
環境とか

137 :デフォルトの名無しさん:2009/02/25(水) 00:13:10
>>136
すんません
プログラミング経験はありません
環境はwindows vistaです

138 :デフォルトの名無しさん:2009/02/25(水) 00:26:05
>>134
> http://anond.hatelabo.jp/20080822142610
> ここにプログラムがありますが、これを実行するために
> 1.必要なもの

それを実行するために何が必要で、何をやればいいのかがわかるだけの知識。

139 :デフォルトの名無しさん:2009/02/25(水) 00:26:18
>>136
それ書けば質問に答えられるのか?

140 :デフォルトの名無しさん:2009/02/25(水) 00:31:02
>>138
その知識を分けてください

>>139
もしかしたら>>134の1,2,の回答だけじゃ俺には無理かもしれないけど
最低限それだけあれば頑張れそうな気がする
要するにエロい思いしたいからです。

141 :デフォルトの名無しさん:2009/02/25(水) 00:32:54
えっちなのはいけないと思います。

142 :デフォルトの名無しさん:2009/02/25(水) 00:33:20
正直者め

143 :デフォルトの名無しさん:2009/02/25(水) 03:22:27
>>140
ここ見て、知らない単語はぐぐれ。
ttp://www.moongift.jp/2008/06/strawberry_perl/

英語読めるなら
ttp://win32.perl.org/wiki/

144 :デフォルトの名無しさん:2009/02/25(水) 13:44:59
>>140
プログラミング自体が初めてなら、こうゆう本から始めたほうがいいかもな。
http://books.livedoor.com/item/379362

Perlとは何か、プログラムとは何か、というところから始まってるから。
ただ、オレ自身はこの本を読んだことはないが。

145 :デフォルトの名無しさん:2009/02/25(水) 19:34:10
ワラタw何という見当外れな回答
その上、読んでない本すすめてるし
ちょっと興味もって調べたら著者はこぼら

146 :デフォルトの名無しさん:2009/02/25(水) 23:35:21
4Uは、Gigazineの記事を読んだだけでスルーしてたけど、二次元版も出来てたんだな
さっそく登録した

147 :デフォルトの名無しさん:2009/02/26(木) 06:13:13
Sort::Fields - 区切られたフィールドを持つ行のソート
http://fleur.hio.jp/perldoc/mix/Fields.ja.html

フィールドソートをしたいのですが、
use Sort::Fields;
これを書くとエラーになります。インストール先ディレクトリをみると
sort.pmやfields.pmがperl本体と同じディレクトリに置かれています。
本来は perl本体のディレクトリ直下から /sort/の下に存在するべき物でしょうか?

インストール場所が悪いと手直しをお客に依頼する必要があるのですが、
作業は大変でしょうか?

環境はlinux Red Hatなのでsortで頑張った方が良いですか?
sort に詳しくありません。

148 :デフォルトの名無しさん:2009/02/26(木) 06:21:09
「エラーになります」

大爆笑

149 :デフォルトの名無しさん:2009/02/26(木) 06:59:30
ぞっとした

150 :デフォルトの名無しさん:2009/02/26(木) 09:21:40
みんなで仲良くねF

151 :デフォルトの名無しさん:2009/02/26(木) 10:15:42
>>147
確かにuse Sort::Fieldsがアクセスするのは"[モジュールの検索パス]/Sort/Fields.pm"(大文字小文字の区別有り)だと思うけど、
なんかファイル名が小文字でperl本体と同居してるとかなってるなら
もはやカオスとしか言いようが無い。

CPAN行ってインストールをやり直した方がマシじゃね。
もちろん、使うコマンドは"perl -MCPAN -e shell"で。


152 :デフォルトの名無しさん:2009/02/26(木) 10:27:07
sortで出来るかどうかもわからないなら、もはやらくだ本からやり直してもらうしかない。
第三フィールドでソートしたいとかなら配列の配列使えば出来るよ。

153 :デフォルトの名無しさん:2009/02/26(木) 10:46:46
>>151
バカに引っ張られて自分もバカになるなよ。

154 :デフォルトの名無しさん:2009/02/26(木) 13:04:39
正規表現スレとどっちかと思ったんですが、perlで組んでいるので
ひとまずこっちに質問させてください。

XMLっぽいタグを解析してるんですが、

<AAA BBB=CCC>
にマッチさせるのに
/<.*?>/

と書いています。一応これでマッチするのですが、CCCに例えば

<AAA BBB="XXX>=YYY">
のような大小比較式がダブルクオートで囲まれて入っている場合があって、
このときは上の書き方だと

<AAA BBB="XXX>

にマッチしてしまいます。ダブルクオート内を無視して<〜>にマッチさせる
にはどう書けば良いのでしょうか?

よろしくお願いします。

155 :デフォルトの名無しさん:2009/02/26(木) 13:17:12
誰かがゴリゴリ書いてるだろうと想像して傍観。"....\"...."とかは許されるんだっけ?

156 :デフォルトの名無しさん:2009/02/26(木) 13:21:26
XML タグ 正規表現
でググったら変態正規表現がけっこうヒットするな。

157 :154:2009/02/26(木) 13:34:51
ども

158 :デフォルトの名無しさん:2009/02/26(木) 17:04:37
誰もゴリゴリ書かなかったな。
/(<[^>"]*?(?:(?:".*?){2}|)>)/


159 :147:2009/02/26(木) 22:26:27
>>151

>use Sort::Fields
>"[モジュールの検索パス]/Sort/Fields.pm"(大文字小文字の区別有り)

やっぱりそうでしたか。
エラーにはperlのインストール環境と思われるパスが出力されました。

>なんかファイル名が小文字でperl本体と同居してる

今日も確認しましたが、小文字でperl本体と同居になっていました。
お客の環境を使っているので、指摘や説明をするのが大変なので諦めます。
有り難うございました。

160 :デフォルトの名無しさん:2009/02/27(金) 07:35:19
全力でスルーしてたが…

sort.pm, fields.pm => pragma
Sort::Fields => 外部モジュール
「人間はタマゴから生まれる」レベルの気違い理論を展開してる事に気付け。


161 :デフォルトの名無しさん:2009/02/27(金) 07:40:21
よくそれで仕事にしてるよな・・・。

162 :デフォルトの名無しさん:2009/02/27(金) 07:58:04
がまんしてスルーして

163 :デフォルトの名無しさん:2009/02/27(金) 11:24:32
Windows 2000 / XPでは$SIG{'QUIT'}を設定することで、Windowsのシャットダウン時に
終了処理ができたんですが、Vistaでは終了処理が実行されずに、問答無用で停止し
ているようです。Vistaで終了処理を実行するヒント等、ありますでしょうか?

ActivePerl 1004で、以下のようなスクリプトでテストしています。

$SIG{INT} = $SIG{HUP} = $SIG{TERM} = $SIG{KILL} = $SIG{QUIT} =
sub {
# 終了処理
}

while (1){
print "a";
sleep 1;
}

164 :デフォルトの名無しさん:2009/02/27(金) 17:07:51
ループでひとつの配列を使いまわしているのですが、次のループ時も前のループのときの配列のデータが残っていて都合が悪いです
配列を空っぽにする方法はありますか?

165 :デフォルトの名無しさん:2009/02/27(金) 17:13:02
>>164
@a = ();

166 :164:2009/02/27(金) 17:31:23
ありがとうございました
うまく空っぽにすることができました

167 :デフォルトの名無しさん:2009/02/27(金) 17:35:31
>>166
できれば仕組みも理解してね。応用利くから。

168 :デフォルトの名無しさん:2009/02/28(土) 23:31:59
複数のテキストファイルから1行目だけを抜き出すスクリプトって
かけないでしょうか。

169 :デフォルトの名無しさん:2009/02/28(土) 23:37:29
>>168
#!/usr/bin/perl
foreach my $fn (@ARGV){
open my $fp, "<", $fn;
print scalar(<$fp>);
}


170 :デフォルトの名無しさん:2009/02/28(土) 23:39:31
>>168
書けるよ

171 :デフォルトの名無しさん:2009/02/28(土) 23:43:38
>>169が回答出してるのに「書けるよ」と自慢げに一行レスする>>170

172 :デフォルトの名無しさん:2009/03/01(日) 00:10:02
>>168
書けるよ

173 :デフォルトの名無しさん:2009/03/01(日) 00:10:14
>>171
いやん

174 :デフォルトの名無しさん:2009/03/01(日) 00:11:00
ところで、headコマンドつかっちゃダメなの?pure perlでやらなくちゃダメなの?

175 :デフォルトの名無しさん:2009/03/01(日) 00:21:22
>>169
まだ冗長だね。
#!/usr/bin/perl
while(<>){
print $_;
close(ARGV);
}


176 : ◆TWARamEjuA :2009/03/01(日) 00:30:41 ?BRZ(10000)
え?

177 :デフォルトの名無しさん:2009/03/01(日) 00:40:57
PERLっていくら学んでも知らない書き方が出てくるな・・w
>>175
close(ARGV)ってclose($ARGV)やclose(@ARGV)とはどう違うん?
とりあえず、printの後の$_は省略出来るぜ

178 :デフォルトの名無しさん:2009/03/01(日) 00:45:08
>>175
おお、d>printの後の$_
close(ARGV)はコマンドラインで指定されたファイルのうち今開いてるファイルを閉じる。
次の<>では次のファイルを開く。

179 :デフォルトの名無しさん:2009/03/01(日) 00:52:04
#!/usr/bin/perl -n
print ;
close ARGV;

180 :デフォルトの名無しさん:2009/03/01(日) 01:17:03
% perl -ne 'print;close ARGV'

181 :デフォルトの名無しさん:2009/03/01(日) 01:23:46
perl -pe 'close ARGV' *

182 :デフォルトの名無しさん:2009/03/01(日) 01:32:22
perl -pe'close ARGV' *

183 :デフォルトの名無しさん:2009/03/01(日) 01:57:48
head -n 1 -q *

184 :デフォルトの名無しさん:2009/03/01(日) 08:33:59
#!/usr/local/bin/radin;
print $musabetsutero;


185 :デフォルトの名無しさん:2009/03/01(日) 10:38:53
>>184
いつのネタだよ。ったく。

186 :デフォルトの名無しさん:2009/03/01(日) 10:42:21
>>181
先にcloseしちゃうからダメじゃん。

187 :デフォルトの名無しさん:2009/03/01(日) 11:04:56
>>186
closeする前に1行分が読み込まれてるから大丈夫。

188 :デフォルトの名無しさん:2009/03/01(日) 11:13:47
>>187
あ、そか。さんくす。

189 :デフォルトの名無しさん:2009/03/01(日) 12:05:50
日本語でおk

190 :デフォルトの名無しさん:2009/03/01(日) 12:12:36
openで開くファイル名に使えない文字コードってありますか?
Shift-jisでスクリプトを書いていてShift-jisのファイル名でファイルを作成しようとするとエラーは出ないのですがファイルが作成できません
英数字のファイル名だとファイルが作成できます

191 :デフォルトの名無しさん:2009/03/01(日) 12:16:16
>>190
システムがShift-JISのファイル名に対応してなかったら当然作れない。
あと""で囲むとメタ文字が発動するかもな。

192 :デフォルトの名無しさん:2009/03/01(日) 12:28:07
使用環境はWindows+ActivePer5.10.0lです

$file = "テスト";
open FH, ">$file"; →失敗
open FH, '>$file'; →書き込めるが当然変数展開がされない
open FH, ">テスト"; →成功
open FH, '>テスト'; →成功

ファイル名を変数を使わずに直接記述するとうまくいきました
変数に格納されている文字列の形式がおかしいのかな…

193 :デフォルトの名無しさん:2009/03/01(日) 12:35:19
>>192
調べてないけど、2回""で囲ってるからメタ文字が二度発動してるんだと思われ。

194 :デフォルトの名無しさん:2009/03/01(日) 12:37:40
まあ、Shift_JIS文字列はいかなる場合でもメタ文字に気をつけるのが吉。
ダメ文字という言葉は知っておいた方がいい。

195 :デフォルトの名無しさん:2009/03/01(日) 13:24:19
時々ファイル名にもIOレイヤみたいな仕組みが欲しくなるね。

196 :デフォルトの名無しさん:2009/03/01(日) 13:45:53
ダメ文字の対処法としてメジャーなのが

$a = '十\';

だと思うが、探すのもメンテも面倒だしなんかイラッとくるから、

$a = <<'EOF';

EOF
chop($a);

とするようにしてる。

197 :デフォルトの名無しさん:2009/03/01(日) 13:47:50
つーかそんな面倒なことしなくてもqwで何とかなるような気がしてきた。
昔はqwなかったからその時の流儀をそのまま使ってる。

198 :デフォルトの名無しさん:2009/03/01(日) 13:53:03
あー久しぶりにこのコード書くなと思ったら、最近はUTF-8でコード書いて出力時変換だな。
連投スマソ

199 :デフォルトの名無しさん:2009/03/01(日) 17:07:13
>>190-198 のような話題を解決するために
>>4のテンプレがあるのにな。

200 :190:2009/03/01(日) 19:41:26
open ">$file";
ならファイルが作成できるんですが、
open ">$file.txt"にするとだめでした
事前に$file .= ".txt";
で文字結合してもだめでした

201 :デフォルトの名無しさん:2009/03/01(日) 19:48:27
file="テスト"なんだよね?
ソースファイルのエンコーディングは何?
もしSJISでなければSJISにしてみては?



202 :デフォルトの名無しさん:2009/03/01(日) 19:49:52
ってSJISって書いてあった。すまん

203 :190:2009/03/01(日) 19:53:45
ソースファイルのエンコーディングはSJISです
open ">テスト.txt";はできます

末尾に.txtを文字結合すると書き込めなくなるようです

204 :190:2009/03/01(日) 20:00:43
Dumpしてみたら原因がわかりました
改行コードを含んでいたようです
スレ汚し失礼しました

205 :デフォルトの名無しさん:2009/03/01(日) 22:41:48 ?2BP(192)
Perrrrrrrrrrrrrrrrrrrrrrrrrrrrnrrrrrrl

206 :デフォルトの名無しさん:2009/03/03(火) 13:58:07
オブジェクト指向の勉強中なんだが…

my(%ch, $i);
$i = 0;
sub new{
my($pkg, $data) = @_;

$ch{$i} = $data;
my $self = {obj_num => $i ++};
return bless $self, $pkg;
}

sub DESTROY{
delete $ch{$_->{obj_num}};
}

カプセル化ってこんな感じでいいの?
自分で動かした感じは問題なさそうだけど普通のオブジェクトとアクセサしか使えないだけで同じ動作する?

207 :1/2:2009/03/03(火) 17:18:15
$iがゴニョゴニョとか$_って何よ?とかあるが…それを差し引いて
どのレベルでのカプセル化を言っとるんだ?
その例だと、呼出元にて、$obj->{obj_num} = 10 ; とかしてobj_numに
直接代入可能だから、その点ではカプセル化されたとは言えん。
只、編集とか継承とかしない限りにおいて、$ch{$obj->{obj_num}} には
アクセス出来ん事だけは確かだ。ゲッタねえし。

インサイドアウトオブジェクトレベルの意味ならば以下に簡単な例。
Hoge2は(恐らく)貴方の目指してた物をインサイドアウトで実現してる。
new時に投入した'hoge'がアクセサを介さず変えられるか?がポイント。

package Hoge; #=== カプセル前 ===
sub new { bless { data => pop }, shift ; }
sub setter { shift->{data} = pop ; return ; }
sub getter { shift->{data} }
1;
package Hoge2; #=== カプセル後 ===
use Scalar::Util qw(refaddr) ;
my %hash ;
sub new { my $obj = bless \do{''}, shift ; $hash{ refaddr $obj } = shift ; $obj ;}
sub getter { $hash{ refaddr shift} ; }
sub setter { $hash{ refaddr shift} = pop ; return ; }
sub DESTROY { delete $hash{ refaddr shift } ; }
1;


208 :2/2:2009/03/03(火) 17:18:54
package main ; #=== 実行 ===
use Data::Dumper ;
use Hoge;
use Hoge2;
my $obj = Hoge->new('hoge') ;
print Dumper $obj ; # ほら丸見えだし、
$obj->setter('fuga') ; # 折角セッタでセットしても
$obj->{data} = 'bar' ; # カプセル化出来てねえよ。
print $obj->getter . qq{\n} ; # ほらね、変えられちゃった
my $obj2 = Hoge2->new('hoge') ;
print Dumper $obj2 ; # bless先がdo{ }で弄り様もねえしなあ。
printf "%s\n", $obj2->getter;
$obj2->setter('fuga') ; # 専用のセッタを用いて漸く変更可能。
printf "%s\n", $obj2->getter;

#Hoge2を以下の様に書いてるサイト(有名所)もあるが、大ポカだから注意!
#package Hoge2;
#my %hash ;
#sub new { my $obj = bless \do{''}, shift ; $hash{ $obj } = shift ; $obj ;}
#sub getter { $hash{ shift } ; }
#sub setter { $hash{ shift } = pop ; return ; }
#sub DESTROY { delete $hash{ shift } ; }
#1;

長文失礼

209 :デフォルトの名無しさん:2009/03/03(火) 19:46:08
>>207
それそれ、それ完璧
Scalar:Util の refaddr がよく分からんけど、Dumper に見てもらった限りだとオブジェクトごとに固有の数字を割り振ってくれる感じなのかな?

とりあえずゲッターとセッター書いたのに、
使わなくても自由に書き換えできるなら書く意味ないじゃんってのが気持ち悪かったから、
それが解消できればよかった

$iゴニョゴニョはrefaddrの代わりにオブジェクトごとに固有の数字を割り当てるために使ってたつもり
$_はミスです

後でScalar::Utilについては色々詳しく調べてみます、丁寧にありがとう
助かりました



210 :デフォルトの名無しさん:2009/03/04(水) 19:05:23
>>208
どこらへんが大ポカなの?

211 :デフォルトの名無しさん:2009/03/05(木) 09:30:59
ゥーperlーパー

212 :デフォルトの名無しさん:2009/03/05(木) 11:27:45
Perlかわいいよ

213 :デフォルトの名無しさん:2009/03/07(土) 01:50:07
*Hoge::huga = /&hogehoge('hugahuga');
としたときに引数が設定されたメソッドが生えると思います
ですが
Hoge::huga('hogehoge');
としてもhogehogeは無視されるようです
設定した引数に加えて更に引数を追加する方法は無いでしょうか

214 :デフォルトの名無しさん:2009/03/07(土) 04:47:47
>213
> *Hoge::huga = /&hogehoge('hugahuga');
> としたときに引数が設定されたメソッドが生えると思います
本当?

> 設定した引数に加えて更に引数を追加する方法は無いでしょうか
*Hoge::huga = sub { hogehoge('hugahuga', @_); };

215 :デフォルトの名無しさん:2009/03/07(土) 12:31:20
>>213

つ Sub::Curry

216 :デフォルトの名無しさん:2009/03/07(土) 13:32:36
SUPERAntiSpywareでスキャンしていたら、

Adware.Vundo/Variant [ 4 items ]
Files
C:\PERL\LIB\AUTO\FCNTL\FCNTL.DLL
C:\PERL\LIB\AUTO\LIST\UTIL\UTIL.DLL
C:\PERL\LIB\AUTO\MIME\BASE64\BASE64.DLL
C:\PERL\LIB\AUTO\SOCKET\SOCKET.DLL

と検出されていました。
昔、perlをインストールした憶えはあるのですが、入れた経緯は忘れてしまいました。
これって誤検出ですよね?

誰かSUPERAntiSpyware入れてる方で、検出された方いますか?

217 :デフォルトの名無しさん:2009/03/08(日) 12:29:04
perlとawkの使い分けってどうするんでしょうか?

perlが使えればawkでできることは全てできる、それはわかってるんです。
でも、awk使う人ってawk単独で使うわけじゃなくてbash,sed,grepなんかも使えるから
結局出来ることに違いはないですよね。
むしろやる内容によってはawkのほうがスッキリ書けますし。

どういった場合にどちらを使えば良いのか教えて下さい。

※awkは古いからダメとか、ダサいとか、そういうのは抜きにして下さい。
 純粋に有用性の観点のみでお願いします。

218 :デフォルトの名無しさん:2009/03/08(日) 12:35:53
自分が楽だと思う方でいいと思うよ

219 :デフォルトの名無しさん:2009/03/08(日) 12:43:15
>>218
やっぱり楽なほうを選ぶのが賢明ですか。

Windowsだとperl単独のほうが環境を整えやすいでしょうね。
UNIXやLinuxだったら最初から色々入ってるのが普通ですけど。
Cygwinとか入れてよければどちらでも手間は変わらない気がしますけど、
学校や会社のPCなんかだと、何かインストールするのに許可が必要だったりしますし。

220 :デフォルトの名無しさん:2009/03/08(日) 12:47:41
>>217
元awk使いだけど。言語的なメリットはないと思うよ。
Perlはawkの後方互換を目指した言語だからね。awk2perlっつって
awkスクリプトをPerlスクリプトに置換するものがあるのは最近の人は知らなさそう。
ちなみにPerlにはawk互換のためだけに作られた機構がいくつかある。

awkのメリットは必ずプリインストールされているから
root権限持ってない場合でも必ず動くってとこだけど、
今日びデフォルトでPerlが入らないケースは稀だろうから、
このメリットも失われつつある。

長いことCGIプログラマをやってきたけどPerl覚えてからawkを使う機会は
上記のようなケースを除いてゼロになったな。特にここ10年は全く書いてない。

221 :デフォルトの名無しさん:2009/03/08(日) 12:51:19
>>220
a2pで変換すると長〜いスクリプトに変換してくれますよね。
あれってどうにかならないでしょうか。

あれ見るとawkのほうが簡単じゃん、って思ってしまうんですよ。

222 :デフォルトの名無しさん:2009/03/08(日) 12:57:02
>>221
いやいやa2pは人工知能じゃないし、最適化とかはしないから
長くなるのは仕方ない。

awkはバイナリ扱えないとか(今は知らんけど)文字コード変換が大変とか
色々制約あるし、書くのもPerlの方が楽だよ。

223 :デフォルトの名無しさん:2009/03/08(日) 13:06:22
>>222
>いやいやa2pは人工知能じゃないし、最適化とかはしないから
>長くなるのは仕方ない

私もそれはあるだろうなぁ〜、と思ってましたけど、やっぱりそうですか。


>awkはバイナリ扱えないとか(今は知らんけど)文字コード変換が大変とか
>色々制約あるし、書くのもPerlの方が楽だよ。

シェルスクリプトでバイナリは扱えますよね。
nkfとかconvmvとか使うと文字コード変換できますね。
でも、やっぱりperlのほうが楽なのですか?
もし楽ならperlを学んでみたいなぁ、と思います。

224 :デフォルトの名無しさん:2009/03/08(日) 13:13:58
>>223
でもやっぱりPerlが楽ですね。awkより短く速く書けるよ。

225 :デフォルトの名無しさん:2009/03/08(日) 13:23:11
何しろLarry Wallがawkの弱点に音を上げて、awkの欠点弱点を
補うべく作られた言語だからね。そもそもは。

226 :デフォルトの名無しさん:2009/03/08(日) 14:02:19
awkはできることが少ない。
でも当たり前だよな。

sedはできることが少ない。
grepはできることが少ない。
wcは、mvは・・・
って、言えばその通りだが、
単独で使うわけじゃないから気にするようなことでもない。

一つで何でもやれるようになんていうLarry Wallがバカなだけ。

227 :デフォルトの名無しさん:2009/03/08(日) 14:37:32
perlとsedの使い分けってどうするんでしょうか?

perlが使えればsedでできることは全てできる、それはわかってるんです。
でも、sed使う人ってsed単独で使うわけじゃなくてbash,awk,grepなんかも使えるから
結局出来ることに違いはないですよね。
むしろやる内容によってはsedのほうがスッキリ書けますし。

どういった場合にどちらを使えば良いのか教えて下さい。

※sedは古いからダメとか、ダサいとか、そういうのは抜きにして下さい。
 純粋に有用性の観点のみでお願いします。

228 :デフォルトの名無しさん:2009/03/08(日) 14:56:45
>>227
perlとperl以外で同じことをやってみれば違いがわかるだろう。
大雑把な傾向として、シェルスクリプトのほうが覚えることが少なく、
簡単なことは簡単にかける。
日本刀があれば包丁は要らないわけではないのと同様、
Perlがあってもsedは必要。


sed 's/nae/moe/g' akiba.txt

perl -pe 's/nae/moe/g' < akiba.txt

----------------------------------------------

awk 'BEGIN{FS=","}$2 == $3{print $1}' hoge.csv

perl -F',' -alne 'print $F[1] if $F[2] ne $F[3]' hoge.csv



でも、ある程度以上の規模のスクリプトを組んだり、
C言語に近いようなことをしたいならPerlを選びましょう。

229 :デフォルトの名無しさん:2009/03/08(日) 15:26:42
>>226
Perl不要論ですか。これは新しい。

230 :デフォルトの名無しさん:2009/03/08(日) 15:37:05
>>228
絶対必要ってわけじゃないだろ。Perlが入ってないマシンいじる
機会があるならともかく。覚えといて損はない程度だと思うが。
日本刀でも料理は出来る。

>>226
インストーラがPerlを要求するご時勢にこんな事言う人がいるとは。
昔はそうやって批判する人もいたけどね。

231 :デフォルトの名無しさん:2009/03/08(日) 15:47:58
>>230
日本刀で料理w
そこまでムキになって否定しなくてもいいんでない?
世の中シェルスクリプトはできるけどPerlはできない人なんてゴロゴロいるし、
Perlが出来ても使い捨てスクリプトはシェルスクリプトでやる流儀の人もいる。
どうあがいても完全にシェルスクリプトを駆逐するのは無理だよ。
自動車の優位性をいくら説いても原チャリや自転車はなくならないのと同じでさ。

232 :デフォルトの名無しさん:2009/03/08(日) 15:52:30
>>231
不要とは言ってない。Perlでブートするわけにはいかんだろw
ただマの知識として必要かというとPerlで事足りる人もいるだろう。

233 :デフォルトの名無しさん:2009/03/08(日) 16:07:30
>>231
お前こそムキになってPerlは必要ないって言ってるじゃん

234 :デフォルトの名無しさん:2009/03/08(日) 16:07:39
>>232
エンドユーザの立場から一言。

プログラマの方のお考えはごもっともです。
しかし、「高層建築にカンナやカナヅチなんて要らない」的発想が
今日のエンドユーザー・コンピューティングの惨状を招いたのではありませんか?

たかだかちょっとした自動化、文書検索、集計程度も自分で書けない人だらけにしてしまったのは
「素人は言語なんて使わなくていい」という発想のせいだと思えるのですが。

235 :デフォルトの名無しさん:2009/03/08(日) 16:21:46
自分の目的を達成できれば言語なんて何使ったっていいんだよ。

特にスクリプト系言語を使うってことは、大体が小物でしょう?
自分がサッと書けること。これが重要。

236 :デフォルトの名無しさん:2009/03/08(日) 16:26:44
>>234
時代のせいだと思います。
例えば自分はWebプログラミング畑だけど、全てのWebアプリケーションを
全部Cで書くことは納期的にほとんど不可能です。awkでは完成すらしない
ものも出てきます。

自分も昔はquick sortくらいは空で書けたけど、Webに足を
突っ込んだ今ではそれすら忘れてしまいました。

237 :デフォルトの名無しさん:2009/03/08(日) 16:47:37
>>236
quicksortなんてlibcに任せときゃいいんですよ。気に病むことでもない。

238 :デフォルトの名無しさん:2009/03/08(日) 16:59:13
>>236
quick sortもできないの?
ププ

239 :デフォルトの名無しさん:2009/03/08(日) 17:03:17
>>237
だね。
>>238みたいになんでも自分で作るとたまに間違うことがあるし、
馬鹿馬鹿しいプライドで心がねじ曲がってしまう。

240 :デフォルトの名無しさん:2009/03/08(日) 17:17:39
エンドユーザの立場から一言。

プログラマの方のお考えはごもっともです。
しかし、sortコマンド打つのが簡易で合理的な発想だと思えるのですが。

たかだかちょっとしたソートも自分で書けない人だらけにしてしまったのは
「素人はソートなんてやらなくていい」という発想のせいだと思えるのですが。

241 :デフォルトの名無しさん:2009/03/08(日) 17:22:21
単純なテキストファイルで単純なソートなら sort(1) でもいいんだろうけど

242 :デフォルトの名無しさん:2009/03/08(日) 17:24:54
FYI

■libcでqsort()を再帰を使って実装してる香具師は怠慢だろ…常識的に考えて
http://d.hatena.ne.jp/n2s/20070421/p1

243 : ◆TWARamEjuA :2009/03/08(日) 18:49:15 ?BRZ(10000)
そーっとしといてやれよ。

244 :デフォルトの名無しさん:2009/03/08(日) 20:19:13
>>230
シェル言語ってのは地味に需要がある。
MSがUNIX/Linuxへの対抗心むき出しでWindows PowerShellなんぞ作ってるくらいだから。

UNIX/Linuxを普段使ってる人ってのはシェルを対話的に利用するのに慣れている。
だから、さて何か組もうかって時もシェル言語が第一選択になる。
それでダメな時に別の言語を選ぶ。
UNIXの世界ではシェルでできることはシェルで、というのが昔から暗黙の了解なので
いきなりPerlやPythonでやろうとするのは、コンピュータの世界にWindowsから入った人くらいだろう。
それは例えて言うなら、自家用車を持ってるのにリムジンをレンタルしてドライブするようなもんだ。

245 :デフォルトの名無しさん:2009/03/08(日) 22:44:41
ワンライナーはsed,awk,sortの方が楽なことが
多いな。例えばいくらオプションでsplitを暗黙
にさせても[]書かされる時点で、$1,$2でいい
awkにはかなわない。

もちろんガッツり書くならスクリプト言語。

246 :デフォルトの名無しさん:2009/03/09(月) 17:17:27
>>244
1行目は同意だが、あとはいつの時代の話だよと思うな。
そりゃ配布物配ろうとか思ったらまずshを選択するだろうが、
例えばWebアプリケーション作る時にshを第一選択肢に上げるか?
hello world以外は特にsh使う場面って思いつかないんだが。

247 :デフォルトの名無しさん:2009/03/09(月) 17:48:50
>>246
普通にファイル処理やテキスト処理には使うし、
処理を自動化するのにも使うし、
定期的にどっかのサイトにアクセスして、特定の情報だけを記録するとか、
その程度の用途には当たり前に使うと思うが。

本格的なプログラミングか、ワープロとか表計算みたいに出来合いのアプリで済ませるか、
二者択一だったらパソコンライフなんて送れねーよ。

それとも、プログラミングってのはアプリとwebの開発のためだけにあんのか?

248 :デフォルトの名無しさん:2009/03/09(月) 17:54:32
小規模ならまずシェルで出来ないか考えるよな

249 :デフォルトの名無しさん:2009/03/09(月) 17:54:45
>>247
例外は認めないのかよw
普遍的な事のように書くから変な誤解受けるんだろ。

んで、それらの用途にシェル使わない人もいると思うが何かデメリットでもあるのか?
「UNIXの世界ではふつー」とかじゃ理由にならんだろ。
例えば毎秒起動とかだったらさすがに少々面倒でもshを第一選択とするのが吉だと思うが。

250 :デフォルトの名無しさん:2009/03/09(月) 17:58:02
>>249
>んで、それらの用途にシェル使わない人もいると思うが何かデメリットでもあるのか?

同じことができるならそれでいい。
ただし、より面倒臭くなることはあるだろう。
何も難しくないワンライナーでできることに他の物使うとか、そういうのは単なるアホだろ。

251 :デフォルトの名無しさん:2009/03/09(月) 18:06:37
トリッキーなことしなくても普通にシェルでできるなら、それが一番簡単なんじゃね?
コマンド並べれば動くから
難しいナンチャラ理論やらウンタラ指向やらも考えなくて済む

プログラマでないエンドユーザや管理者にも使えるのは大きなメリットだと思うな

252 :デフォルトの名無しさん:2009/03/09(月) 18:07:23
>>250
要するに余計面倒な時だけsh使うでもいいわけね。
>>244はとてもそういう論調には見えないけど。

そういう俺はよくshスクリプト書くがな。

253 :デフォルトの名無しさん:2009/03/09(月) 18:10:49
>>252
w3m -dump http://www.media-k.co.jp/jiten/wiki.cgi?%A1%E3%B4%E9%CA%B8%BB%FA%A1%A6%A3%C1%A3%C1%A1%E4 | grep '´_'

254 :デフォルトの名無しさん:2009/03/09(月) 18:11:49
>>250
> 何も難しくないワンライナーでできることに他の物使うとか、そういうのは単なるアホだろ。

Perlプログラミングに没頭してる合間とかだったら、AWKの方が少々短くても
Perlのワンライナーを選択することはあるな。

短く書けるっつったってせいぜい数バイトだろ>>228。頭切り替える方が面倒だわ。

255 :デフォルトの名無しさん:2009/03/09(月) 18:13:28
>>254
Perlに没頭してるあなたにとってはPerlでやるほうが簡単なんでしょうね
別にそれはそれでいいのでは?
だからといって、それはあなた個人の特殊事情で簡単に感じるだけなのだから、
シェルでやるほうが手間が少ない人にまで強要すべきことではないでしょう

256 :デフォルトの名無しさん:2009/03/09(月) 18:15:10
>>255
いつ強要したんだよww俺はこうだって言っただけじゃん。
逆に>>244なんかshで出来ることにPerl使う奴は外道みたいな書き方じゃん。

257 :デフォルトの名無しさん:2009/03/09(月) 18:17:24
この人論点が分かってないからトンチンカンな事を言うのかね。

「何事もshが第一選択にするのが普通、じゃなきゃ外道」

みたいな主張がおかしいと言ってるだけなんだが。

258 :デフォルトの名無しさん:2009/03/09(月) 18:22:07
>>257
話がかみ合わない理由って案外簡単なんじゃない?
普通にUNIX系OS使ってる人にとってshって標準的な道具だから、
シェルで作業するってのは鉛筆で文字を書くのと同じくらい簡単で当たり前なんだよ。
だから、どうしても他の物を試す前にshで、っていう発想になるだけでしょ。

259 :デフォルトの名無しさん:2009/03/09(月) 19:01:03
いったい、シェルの話をしているのかシェルスクリプトの話をしているのか
はっきりさせてくれ。

260 :デフォルトの名無しさん:2009/03/09(月) 19:09:12
つーかPerlの話しようぜ


261 :デフォルトの名無しさん:2009/03/09(月) 19:20:03
>>259-260の流れわろた


262 :デフォルトの名無しさん:2009/03/09(月) 19:41:35
この現代に、WEBアプリ以外に何があるの?
世界じゅうどこを見て回っても、WEBアプリしか無いんだから
awk も sh もいらん。perl しか選択の道は無いだろ。

263 :デフォルトの名無しさん:2009/03/09(月) 19:43:50
最近の家庭電化製品はマイコン内臓でずいぶん賢くなった。
しゃべる電子レンジのファームウエアを awk や sh で書けると思ってんの?

264 :デフォルトの名無しさん:2009/03/09(月) 19:56:31
宗教の勧誘みたいw

265 :デフォルトの名無しさん:2009/03/09(月) 20:00:33
shのほうが慣れてるからsh使うという人が、昔は多かった。
イマドキのPerlerには、Perlのワンライナーのほうが慣れてる人が多いんだろうね。

266 :デフォルトの名無しさん:2009/03/09(月) 20:06:24
>>265
perlの人は

ls

と打たずに

opendir(DIR,'.');
@file = sort readdir(DIR);
foreach(@file){
$time = localtime ((stat($_))[9]);
print "$time"."\t"."$_\n";
}
closedir(DIR);

とやるわけですね?
簡単なことをいちいち
perl ふがほげ
perl うんたらかんたら
ってやるのは不自然なんですけど


267 :デフォルトの名無しさん:2009/03/09(月) 20:10:37
lsで済むことならlsじゃねえの普通
Windowsユーザならlsなんぞ打たずにファイラとかエクスプローラだろうしな

でも、スクリプトの話じゃなかったのか

268 :デフォルトの名無しさん:2009/03/09(月) 20:13:40
ファイルの行数調べるのも「Perlでどうやろうか」とか考えちゃうのね
cat hoge | wc -l
とせずに

269 :デフォルトの名無しさん:2009/03/09(月) 20:14:54
そこは
wc -l <hoge
catとか使わないな

270 :デフォルトの名無しさん:2009/03/09(月) 20:15:05
>>267
シェルとシェルスクリプトに何の違いがあんの?
コマンドが単発か複数かの違いだけじゃん?

271 :デフォルトの名無しさん:2009/03/09(月) 20:15:32
ファイルに記述するか
その場でうちこんで終わりかの違いじゃね

272 :デフォルトの名無しさん:2009/03/09(月) 20:17:15
シェル言語の有用性認めないなら
シェル言語使わなけりゃいいじゃん
そこまで言うならPerlだけで暮らせ

273 :デフォルトの名無しさん:2009/03/09(月) 20:18:57
bashのコマンド使わないでperlだけで暮らしたらさぞ便利だろうねw

274 :デフォルトの名無しさん:2009/03/09(月) 20:23:47
Windowsユーザの9割はbashなんて使ってないけどね

275 :デフォルトの名無しさん:2009/03/09(月) 20:26:16
>>274
この話ではWinユーザは無関係と思われ

UNIXの操作ではシェルが母国語みたいなもんなのに
簡単な用事でも外国語使いたがる変人だけが対象

276 :デフォルトの名無しさん:2009/03/09(月) 20:30:51
それって、いもしないキャラを作り上げてない?

277 :デフォルトの名無しさん:2009/03/09(月) 20:40:09
awk '/UNIX/ || /Linux/' hoge

perl -ne 'print if /UNIX/ || /Linux/' hoge

シェルを普通に使いこなしてる人なら最初の方が明らかに簡単だろ?
打鍵数だけじゃなく、構文的にも。

「何でもPerl」ってやりかたが変だってのは、そういうこと。
shは古い、awkやgrepは低機能だと文句言いながら、より難しくやってる人たちを変だと言ってるだけさ。

で、シェルとシェルスクリプトをやたらに区別したがってる奴がいるが、本質は同じだろ。
シェル使って作業して、コマンドを複数使って仕事しようとすると、シェルスクリプトと言われるだけで。

278 :デフォルトの名無しさん:2009/03/09(月) 21:04:33
>>277
その例なら
grep '(UNIX|LINUX)' hoge
かなあ
awkなんて使わないよ

279 : ◆TWARamEjuA :2009/03/09(月) 21:09:44 ?BRZ(10000)
my @textfiles = grep /txt$/, qx|ls -l|;
でもえぇやん。。。

280 :デフォルトの名無しさん:2009/03/09(月) 21:13:16
>>278
環境によって動かないとおもいまつ
GNU grep 2.5.3
では少なくとも×

grep -e UNIX -e Linux hoge

これなら動きます
ただし、awk使うのと難しさに大差ありません

281 :デフォルトの名無しさん:2009/03/09(月) 21:15:29
例を挙げれば挙げるほど
Perlより簡単な方法が出てくる件

282 :デフォルトの名無しさん:2009/03/09(月) 21:21:06
>>280
ありゃ
egrepならいいのかな?

283 :デフォルトの名無しさん:2009/03/09(月) 21:21:44
>>282
そうでつね

284 :デフォルトの名無しさん:2009/03/09(月) 21:29:38
ここまでの流れを見た率直な感想


Bシェルとかgrepとかawkとかsedなんて前時代の遺物だと思ってたけど・・・
今でも十分に使えんじゃん

285 :デフォルトの名無しさん:2009/03/09(月) 21:45:28
結局どうやるのがもっとも効率的かを的確に判断できるように
あらゆるスキルを磨いとけってこった。

286 :デフォルトの名無しさん:2009/03/09(月) 22:15:16
専用のコマンドの方が使い勝手がいいのは当然だよね
それでも sed や awk を使うのでは1行で済まない場合は
(シェルスクリプト組むような場合は)、Perl の方がシンプルになってくる

287 :デフォルトの名無しさん:2009/03/09(月) 22:19:03
ワンライナーの話をしてるのに
なんでshのコマンドラインとワンライナーを比べるんだか・・・。
ネジ緩んでるの?後者は一応スクリプトだぞ。

コマンドはスクリプトで書くのが大変or不可能なことをするために
存在するんだからwcとか例に持ってくるのは愚の骨頂。


288 :デフォルトの名無しさん:2009/03/09(月) 23:24:23
>>286
簡単なことだけならシェルスクリプトの方がシンプルだと思うが

>>287
それって自分の首絞めてないか?
コマンド単体で強力ならそれを利用したスクリプトも強力なわけで

289 :デフォルトの名無しさん:2009/03/09(月) 23:42:01
>>287
ワンライナーってコマンドラインの延長じゃねーの?
質的な違いなんてねーよ

290 :デフォルトの名無しさん:2009/03/09(月) 23:48:37
質問です!
Perlとsedとawkとbashはどれがいちばんつおいのですか?


291 :デフォルトの名無しさん:2009/03/09(月) 23:57:59
perlで話題が無いからって、そこまで引っ張ることないだろ(w

292 :デフォルトの名無しさん:2009/03/10(火) 00:00:57
じゃあ無理やり話題作りを。
問:以下のシェルスクリプトをPerlに直しなさい。

#!/bin/sh
o=$(echo "$@" | sed 's/ /+/g' | sed 's/ /+/g')
w3m "http://www.google.co.jp/search?hl=ja&q="$o"&meta=lr%3D&aq=f&oq="

293 :292:2009/03/10(火) 00:08:22
ちなみに、
sed 's/ /+/g' | sed 's/ /+/g'
の部分は
sed 's/[  ]/+g'
でも同じですが、
全角スペースと半角スペースを列記すると見た目にわかりにくくなるので、
問題文ではあえて別々に処理しとります。

294 :デフォルトの名無しさん:2009/03/10(火) 00:15:36
sedやw3mがシェルスクリプトの一部だというなら
perlも仲間に入れてあげなよ

295 :デフォルトの名無しさん:2009/03/10(火) 00:18:46
perlだけは絶対入れない。絶対ニダ

296 :デフォルトの名無しさん:2009/03/10(火) 00:21:18
sedとかawkでやると楽な事とperlでやるのが楽な事の境界線を
判断するのは難しいよな

297 :デフォルトの名無しさん:2009/03/10(火) 01:53:00
まーあれだ、シェルがどーこーとかほざいてる奴らが言ってるのはどうせbashだろ。
糞linuxごときの標準シェルなんぞどーでもえーわ

298 :デフォルトの名無しさん:2009/03/10(火) 06:31:06
どーでもえーことに熱くなれるっていいネ!!

299 :デフォルトの名無しさん:2009/03/10(火) 11:47:12
Linux板のシェルスクリプトスレはここほど釣れなかった
からといってここに八つ当たりしなくてもねえ。

300 :デフォルトの名無しさん:2009/03/10(火) 22:07:54
RSSから指定期間の祝日を取得するスクリプトを書いてる。
ある程度の日付の範囲をもって複数の祝日を取得するときは問題なく動作するんだけど、ある特定の祝日を一つに絞って実行すると上手く動作しない。
printをあちこちかませて調べてるんだけどどうも$keyが上手く取れてない様子。通常はURLが入るんだけどNGの場合はXMLのタグ名がなぜか入ってきてNGになってしまう。

上手く動かすには何が足らないんだろ?
use LWP::UserAgent;
use XML::Simple;
&Holiday ("2009-02-01", "2009-04-01"); # OK
&Holiday ("2009-03-20", "2009-03-21"); # NG
sub Holiday {
my $feed_base = 'http://www.google.com/calendar/feeds/japanese@holiday.calendar.google.com/public/full';
my $sdate = $_[0]; # この日を含む開始日
my $edate = $_[1]; # この日を含まない終了日
my $query = "start-min=${sdate}&start-max=${edate}";
my $feed_url = $feed_base . '?' . $query;
my $ua = LWP::UserAgent->new;
my $res = $ua->get( $feed_url );
if( $res->is_success ){
my $xml_parser = XML::Simple->new();
$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
my $holidays_data = $xml_parser->XMLin( $res->content );
foreach my $key ( keys %{ $holidays_data->{ entry } } ){
#print "$key\n";
my $holiday_day = $holidays_data->{ 'entry' }{ "$key" }{ 'gd:when' }{ startTime };
print $holiday_day , "\n";
}
}else{
die $res->status_line;
}
}

301 :デフォルトの名無しさん:2009/03/10(火) 23:08:10
質問です。
以下のコードを実行するとhoge_fooという出力を期待していたのですがfooとしか表示されません。
おそらく_が何か演算子としての働きをしているんだと思いますが、
一体これはどういう意味を持つ演算子なんでしょうか?教えてください。
Perlのバージョン:This is perl, v5.8.8 built for MSWin32-x86-multi-thread

$hoge="hoge";
$foo="foo";
print "$hoge_$foo\n"; # 出力:foo
print "$hoge\_$foo\n"; # 出力:hoge_foo

302 :301:2009/03/10(火) 23:10:45
$hoge="hoge";
$foo="foo";
$hoge_="まさか・・";

print "$hoge_$foo\n";
print "$hoge\_$foo\n";

どうみても誤解釈です。ほんとうにありがとうございました。

303 :デフォルトの名無しさん:2009/03/10(火) 23:11:02
>>301
3行目で$home_ を展開してる。
サンプルコードの最初に
$hoge_ = "HOGE";
て入れてみると、3行目の出力が「HOGEfoo」になる。

304 :デフォルトの名無しさん:2009/03/10(火) 23:11:34
あ、>>302で解決してますね

305 :301:2009/03/10(火) 23:17:29
>>303,304
レスどうもありがとうございました。

306 :デフォルトの名無しさん:2009/03/11(水) 10:31:12
くだすれスンマセン
($self->{year},$self->{month},$self->{day}) = ( gmtime time + $time_difference * 3600 )[5,4,3]

この [5,4,3]っていうのはどういうことなのですか?
こういう書き方の呼称がわからないのでググれなくて

307 :デフォルトの名無しさん:2009/03/11(水) 10:50:28
slice

308 :デフォルトの名無しさん:2009/03/11(水) 13:46:55
list

309 :デフォルトの名無しさん:2009/03/11(水) 18:19:50
>>306
ググる前にマニュアルを読めばいいと思うよ。
http://perldoc.jp/docs/perl/5.10.0/perldata.pod

310 :デフォルトの名無しさん:2009/03/11(水) 18:31:28
>>309
perldata読めばいいってはじめからわかってたら困らんだろ。

311 :デフォルトの名無しさん:2009/03/14(土) 10:04:59
少しお聞きしたいのです。

以下のようなソースがありまして、

$| = 1;
print "Start\n";
$i = 0;
while($a = <>){
 print "Loop: $a $i\n";
 $i++;
}
print "End\n";

コマンドラインから perl test.pl などとして起動すると、
Ctrl+Z(ENTER)でEOFを渡して(よくわかってない?)中断して終了できますよね。

しかし、EOF(0x1a)を、
ファイルで渡したり(perl test.pl < test.txt)、Delphi等のプログラムから渡したりすると
上記プログラムでは終了してくれなす。
これを終了してくれるようにするにはどうしたらよいでしょうか?

312 :デフォルトの名無しさん:2009/03/14(土) 10:06:38
>>311
捕捉
> EOF(0x1a)を、ファイルで渡したり
これは、バイナリエディタで 74 65 73 0D 0A 74 65 73 74 0D 0A 1A 0D 0A のように記述しました。


313 :デフォルトの名無しさん:2009/03/14(土) 11:13:25
シグナル打ち込め

314 :デフォルトの名無しさん:2009/03/14(土) 11:24:01
>>311
1A は関係ないと思う。
1A は有っても無くても終了するはずだよ。
でないと UNIX などは大変なことになる。
1A は Windows だけの習慣。UNIX のテキストファイルには普通 1A は無いからね。
原因は何か他にあるんじゃないの?

315 :311:2009/03/14(土) 12:15:10
ごめん、環境かいてなかった。

OS: Windows Vista SP1 32bit
perlは体分前に入れたものなので古い

This is perl, v5.8.3 built for MSWin32-x86-multi-thread
(with 8 registered patches, see perl -V for more detail)

>>314
ファイルをつっこむと、1Aで終了せずに、ファイル全部読み込んだら終了します
プログラムで(というか以下のライブラリ)で読むと、1A送っても無限ループが続く幹事
http://maxxdelphisite.free.fr/doscmd.htm

1AってそもそもEOFじゃないんのかな?

316 :デフォルトの名無しさん:2009/03/14(土) 12:27:16
>>315
先ず先に<>はSTDINとARGV両方を示す事を理解しろ。
プログラム引数に何か渡されたら、< であろうが、ARGVとして扱われ、
ARGVがあれば、暗黙のうちに<>は<ARGV>として挙動する。
従って
====
while(<>){ print "ARGV: $_" }
while( ($_=<>) !~/^$/ ){ print "STDIN: $_"}
====
をhoge.plとして保存して以下の様に実行した場合、
perl hoge.pl < hoge.pl
は、ARGVの中身を全てプリントした後にSTDINの処理をする
(STDIN処理は、何も入力せずにreturnで終了)。

外部ファイルにシグナルを入れて流し込むのが仮に可能だと
しても、それをどのタイミングで使うかは書き手に任される訳だから、
素直に終了フラグを立てるのが普通では無いの?


317 :デフォルトの名無しさん:2009/03/14(土) 13:49:03
なんか変なのが沸いた

>>プログラム引数に何か渡されたら、< であろうが、ARGVとして扱われ、

へー


318 :デフォルトの名無しさん:2009/03/14(土) 13:55:55
ファイルハンドルがって意味じゃねえの?
それでも言葉不足だけどw
perl hoge.pl < hoge.pl
は、
while(<ARGV>){ print ; }
でも
while(<STDIN>){ print ; }
動くよ。


319 :デフォルトの名無しさん:2009/03/14(土) 13:57:02
最終行「でも動くよ。」


320 :デフォルトの名無しさん:2009/03/14(土) 14:08:58
知ったかぶり者を論うのやめろ。荒れるから。

321 :へんなの:2009/03/14(土) 14:09:01
あーすまん。
言葉も変だし、5.8までと5.10で挙動が違うわ、>>316
>>316の例とかは全面撤回(5.10では動く)


322 :デフォルトの名無しさん:2009/03/14(土) 14:28:14
CPANやperldoc.jpでのPODトランスレータは何を使っていますか?

Pod::HTML, Pod::HtmlEasy, Pod::Xhtml, Pod::Tree::HTML,
Pod::Simple::HTML, Pod::Simple::XHTML...と、色々試していますが、
L<Foo>やら=item * <Bar::Baz>やらマルチバイト文字やら、
一部に対応しているものがありますが、全部に対応したものはないように
感じました。

323 :デフォルトの名無しさん:2009/03/14(土) 17:02:33
>>315
>ファイルをつっこむと、1Aで終了せずに、ファイル全部読み込んだら終了します
>プログラムで(というか以下のライブラリ)で読むと、1A送っても無限ループが続く幹事

結局どうなの?終了するの?無限ループするの?どっちなの?
結局、何がしたいの?どういう動作を期待してるの?

324 :デフォルトの名無しさん:2009/03/14(土) 19:47:30
>>311 が使ってるOSでは、0x1a を送っても 0x1a にすぎず EOF にはならない。
どうしてもそれを望むなら OS を CP/M に換えるといい

325 :デフォルトの名無しさん:2009/03/14(土) 21:48:07
I love you

326 :デフォルトの名無しさん:2009/03/16(月) 20:40:31
二重のforeach修飾子は使えないのでしょうか?

perl -E '
@tmp=([1,2,3],[4,5,6],[7,8,9]);
for (@tmp){
for (@{$_}){say}
}'

出力
1
2
3
(以下略)

という構文をforeach修飾子を使って、以下のように書いたのですが、

perl -E '
@tmp=([1,2,3],[4,5,6],[7,8,9]);
say for @{$_} for @tmp;'
コンパイルエラーになってしまいます。

このような二重のforeach修飾子は使えないのですか?
それともコードが間違っているのでしょうか?

perlのバージョンは
v5.10.0 built for x86_64-linux-thread-multi
です。


327 :デフォルトの名無しさん:2009/03/16(月) 20:59:27
修飾子はひとつしかつけられません。(perlsyn参照)

Any simple statement may optionally be followed by a SINGLE modifier,
just before the terminating semicolon (or block ending).


328 :デフォルトの名無しさん:2009/03/16(月) 21:15:11
rand()で、0が出る確率というのはあるのでしょうか?

もしくはrand()で出る一番小さな数字というのがあれば教えて頂けないでしょうか。

329 :326:2009/03/16(月) 21:19:15
>>327

ありがとうございます。
参考になりました。

330 :デフォルトの名無しさん:2009/03/16(月) 21:51:39
>328
perldoc -f rand

331 :デフォルトの名無しさん:2009/03/16(月) 23:58:47
$data = "19:09:34 hoge 294";

if($data =~ /\d\d:\d\d:\d\d \d*/){
    print "マッチ\n";
}else{
    print "マッチせず\n";
}

「数字数字:数字数字:数字数字 いくつかの数字」という文にだけヒットさせたいんですが、
何故か余計な文字の入っている上の文でもヒットしてしまいます。
どうしてヒットしてしまうんでしょうか?

環境:This is perl, v5.8.8 built for MSWin32-x86-multi-thread

332 :331:2009/03/17(火) 00:01:27
*だと\dが0の場合も含まれるんでした。
*を+にしたらうまくいきました。

333 :デフォルトの名無しさん:2009/03/17(火) 00:42:36
関数のreturn値って成功の場合1で、失敗の場合0が普通なのでしょうか?
標準関数はこのパターンが多いような気がします。
シェルスクリプトの場合だとたいてい逆ですよね?


334 :デフォルトの名無しさん:2009/03/17(火) 07:18:18
成功の場合に真を、失敗の場合に偽を返す
って考えれば Perlの関数の多くも コマンドの終了コードも同じ

335 :デフォルトの名無しさん:2009/03/17(火) 08:34:52

アフォ?

336 :デフォルトの名無しさん:2009/03/17(火) 16:16:53
>>333
そだよ
だからsystem関数の使い方には注意

Perl6では、system関数の戻り値もPerlの流儀になる

337 :デフォルトの名無しさん:2009/03/17(火) 20:36:43
引数がAから始まって、後が全部数字かどうかチェックするのって

if($ARGV[0] =~ /^A+[0-9]$/)
でいいのかな


338 : ◆TWARamEjuA :2009/03/17(火) 20:38:57 ?BRZ(10001)
>>337
おしいかも。
/^A[0-9]+$/

でもその前にchomp入れた方がよいかも♪

339 :デフォルトの名無しさん:2009/03/17(火) 20:47:23
おおお、なんと優しい
ありがとーw

340 :デフォルトの名無しさん:2009/03/17(火) 23:20:12 ?PLT(54324)
/\AA[0-9]+\z/

341 :デフォルトの名無しさん:2009/03/18(水) 04:15:45
xms

342 :デフォルトの名無しさん:2009/03/18(水) 09:46:26
\d+はダメなの?

343 :311:2009/03/18(水) 10:41:45
>>316
時間が空いてすいません。

^Z(1A)はシグナルなのでそもそもファイルからは渡せないもんなんでしょうか?(単にデータとして受け取られる)

問題は、通常のプログラムから標準入力を渡した場合なのですが、これもファイルから渡したのと同様になる
ものなのでしょうか?
つまり、何かのデータをフラグと見立てて、それを検出したら終了、というような作業が必要なものか、と。

344 :311:2009/03/18(水) 10:44:13
>>323
期待する動作は、プログラムで1Aを送ると終了して欲しい、ということです。
ターミナルやコマンドプロンプトなどで、^Zを送ったときと同じような動作を期待しています。

345 :デフォルトの名無しさん:2009/03/18(水) 10:44:39
>>342
\d や \w はロケールや UTF-8 フラグによってマッチする文字が変わる。例えば全角数字。
$ は改行の直前にもマッチするので、"A10\n" =~ /^A[0-9]+$/ が真となってハマる初心者多し。
^ は /m が指定されていない限り文字列先端にしかマッチしないので、\A だとやや偏執的
とも感じる。用心深いに越した事はないけれど、/\AA よりは /^A の方が見た目がスッキリ
して読みやすい。

http://perldoc.jp/docs/perl/5.10.0/perlreref.pod
http://perldoc.jp/docs/perl/5.10.0/perlretut.pod

346 :デフォルトの名無しさん:2009/03/18(水) 11:35:38
>>344
1Aが入ってきたら終わるように書けばいいだけ。

347 :デフォルトの名無しさん:2009/03/18(水) 16:01:22
Perl業界におけるPerl 6の立ち位置がよく分からないんですが、
雰囲気的にはどんな感じなんでしょうか?

348 :デフォルトの名無しさん:2009/03/18(水) 16:24:04
>>347
Web業界に限って言えば様子見ムード。

349 :デフォルトの名無しさん:2009/03/18(水) 16:28:27
Parrot1.0が出ましたが、これ使うと何が出来るようになるんですか?
他言語との連携が楽になるだけ?

350 :デフォルトの名無しさん:2009/03/18(水) 16:40:10
>>344
CP/Mからの呪縛。

DOS(Windows)とUNIXそれぞれの、改行コード、終端コード、
テキストモード、バイナリモードについて、ググるなりして理解するのが先。

351 :デフォルトの名無しさん:2009/03/18(水) 18:44:37
>>345
d

352 :デフォルトの名無しさん:2009/03/18(水) 20:17:40
>>344
だから 0x1a が EOF と思ってる時点で間違ってる
まずここを理解しろよ

CTRL-Z 押下は EOF を送るための特殊な操作であって、
それが歴史的な理由で CTRL-Z (0x1a)になってるだけであって
0x1a を送れば EOF になるわけじゃない。


353 :デフォルトの名無しさん:2009/03/19(木) 01:24:01
>>344
if (ナントカ eq "\x1a") { exit }

こういう発想は思いつかんの?

354 :311:2009/03/19(木) 07:08:15
>>346 >>352-353
理解しました。ありがとう。

355 :デフォルトの名無しさん:2009/03/20(金) 02:20:00
@a = ('1','2','3','4','5','6')
@b = ('2','3')

という配列があった時に、@aから@bを削除して

@c = ('1','4','5','6')

を作りたいのです。ループ回すしか無いのでしょうか?
大崎氏(http://www.din.or.jp/~ohzaki/perl.htm#ArrayUnique)の、

# 配列 @array から重複した要素を取り除く

{
my %count;
@array = grep(!$count{$_}++, @array);
}

みたいな華麗な手法があるなら知りたいです。

356 :デフォルトの名無しさん:2009/03/20(金) 03:24:57
@count{@b} = @b;
@array = grep(!defined($count{$_}), @a);

357 :デフォルトの名無しさん:2009/03/20(金) 05:09:05
@c = grep{!((join ',', @b) =~ /(?:^|[^0-9])$_(?:[^0-9]|$)/)} @a;

すごく…力わざです…

358 :デフォルトの名無しさん:2009/03/20(金) 06:47:02
>>355
みたいなじゃなくてそれ使えよ

359 :デフォルトの名無しさん:2009/03/20(金) 16:49:14
>>355
use Array::Utils;

@a = ('1','2','3','4','5','6');
@b = ('2','3');
@c = Array::Utils::array_diff(@a, @b); # (1,4,5,6)

360 :デフォルトの名無しさん:2009/03/20(金) 16:52:41
>>359
最近ではそういうのを華麗というのか?

361 :デフォルトの名無しさん:2009/03/20(金) 17:25:05
モダン(笑)

362 :デフォルトの名無しさん:2009/03/21(土) 21:33:12
教えてください。恥ずかしいんですが...

sample.html
--------------------
<html>
2009-03-20
</html>
--------------------

yyyy-mm-dd.pl
--------------------
#!/usr/bin/perl

use Time::Local;

($s, $mi, $h, $d, $mo, $y, $w) = localtime(time);

$lastupdate = sprintf("%04d-%02d-%02d", $y + 1900, $mo +1, $d);
$yesterday = sprintf("%04d-%02d-%02d", $y + 1900, $mo +1, $d-1);

s/$yesterday/$lastupdate/g sample.html;
--------------------

363 :362:2009/03/21(土) 21:34:06
(続き)
sample.html内の2009-03-20を2009-03-21に置換したいのですが、
これじゃだめなんですよね? どうしたらいいでしょうか。

ちなみに、ワンライナーっていうんですよね、それで
$ perl -i -p -e 's/2009-03-20/2009-03-21/g;' sample.html
みたいにすると置換できましたが、s/foo/bar/のfoo, barの部分に
変数を使いたいんです。

目的は、社内LANで公開しているweb(html)内の最終更新日時の表示を、
ちょっとした理由から、毎朝午前5時とかに、その日の日付に変えること、です。

よろしくお願いします。

364 :デフォルトの名無しさん:2009/03/21(土) 21:45:51
>>363
javascriptじゃだめなの?

365 : ◆TWARamEjuA :2009/03/21(土) 21:51:44 ?BRZ(10001)
04月01日だと、$yesterdayに04月00日が生成される伊予柑♪

366 :362:2009/03/21(土) 22:00:24
しくしく。。。いじわるですね。。。というか遊ばれていますね。。。

javascriptでもいけるんでしょうか。
それから、おっしゃるとおり04月00日になりそうですね。
perlで行くとしたら、そこは勉強して、何とか回避策を考えようと思います。

WSH, perl, あと何だろう、いくつか候補を考えたのですが、perlは
まったくといっていい初心者です。sedも。正規表現は理解はしている
つもりですが使ったことがあまりないです。

どんな手段でもよいのですが、何となくperlがよさそうだと思って、
この板に来てしまいました。。。

あらためて、どんな手段(言語、手段、ツール)がいいかを含めて
教えてください。<(_ _)>

367 :デフォルトの名無しさん:2009/03/21(土) 22:11:34
>>362
1) SSIで最終更新日時を書くのが楽
2) Perlでやるなら、File::Slurpで読んでDateTimeで計算するのが楽

かね。
そもそも、

A) sample.htmlにベタ書きしてある最終更新日時の翌日を書けばいいのか、
B) sample.htmlの最終更新日時をただ表示すればよいのか(上記1.でよい)、

そのあたりの要件がはっきりしません。
更新日時についても、営業日でなくて暦日で良いのか、とか。

ちょっとまってね、これから書くから。

368 :デフォルトの名無しさん:2009/03/21(土) 22:15:53
明らかにSSIが楽。

369 :デフォルトの名無しさん:2009/03/21(土) 22:19:42
# YYYY-MM-DDをその翌日に置き換える場合
# ただし13月32日とかも引っ掛かって甘いので注意
# しかも、最終更新日以外でも、くだんの正規表現に引っ掛かった値が変換されるので注意

use strict;
use warnings;
use File::Slurp;
use DateTime;

my $file_name = q{sample.html}; # $ARGV[0]とかの引数で渡すとか好きにして
my $file = read_file($file_name, array_ref => 1);

LINE:
foreach my $line (@$file) {
$line =~ s{
(\d{4}) - (\d{2}) - (\d{2})
}{
DateTime->new(year => $1, month => $2, day => $3)
->add(days => 1)
->ymd();
}xmse;
}

write_file($file_name, $file);

370 :362:2009/03/21(土) 22:19:54
すみません...

そもそも、から行きますと、

A) sample.htmlにベタ書きしてある最終更新日時の翌日を書けばいい

です。

営業日ではなく暦日でOKです。
土日祝日もインフラが停止しなければ365日毎朝更新したいです。

というのは、会社のデータベースからあるまとまった形のデータを
Excel形式で落としてきて、それにパスワードをかけて、所定のフォルダに
アップロードし、それを地方拠点にイントラウェブで提供します。

最終更新日を更新したいというのは、そのアップロードの案内ページなんです。

データを落としてきて、パスワードをかけて、所定のフォルダにアップロード
するところまでは、マクロとMS-DOSのバッチファイルとタスクスケジューラと、
恥ずかしいうにょうにょなやり方でどうにか実現しました。

が、そうしたところ、案内のhtmlファイルも自動で日付を変えられるだろうと、
偉い人から言われまして...

371 :369:2009/03/21(土) 22:22:40
Template-Toolkit(Template)とかHTML::Templateを使う手もあるね。

ただ、>>370の書き方を見ると、
土日でもアップロードされたデータが更新されているなら、
touch sample.html
してアップロード案内ページだけ最終更新日時を変えれば、
A)はB)と同じになるよね。

そうすればSSIでもやれるんじゃないかな?

372 :362:2009/03/21(土) 22:22:46
>>369さんありがとうございます。

さっそく明日試してみます。

SSIについては鯖管さんに相談してみます。
そういうとこ、小回りのきかない、相談窓口も親身になってくれない
会社です。。。

373 :369:2009/03/21(土) 22:26:43
うい、367=369=371れす。

鯖管は別なのか……。
まあ、SSIを検討してみてよ。日曜なのに大変だね。

もしPerlでどうしてもやりたいなら、>>369を使う場合、
DateTimeとかFile::Slurpは標準では入っていないから、
CPANから導入出来るかも聞いておいて。

374 :デフォルトの名無しさん:2009/03/21(土) 22:29:14
あー、LINE:も要らないし(逐行処理の名残)、そもそもよく考えたら
my $file = read_file($file_name, scalar_ref => 1);
して
$file =~ s{略}{略}xmseg;
すりゃよかったか。

しつこくてごめん。

375 :デフォルトの名無しさん:2009/03/21(土) 22:33:23
さらにしつこいが、scalar_refするなら$$fileを置換に突っ込むんだった罠。
チラ裏。

>>322が気になった今日この頃。比較表とかないかな?

376 :362:2009/03/21(土) 22:40:12
重ね重ね、ありがとうございます。

日付を表記するのに、yyyy-mm-ddは、そのhtmlファイルでその更新日の
部分だけにしてあります。よくわからないなりに、ここだけは見つかるように、
ここだけの形にしておかなければいけないだろうと思いました。

CPANからの導入についても明日確認してみます。
正規表現の本もperlの本も、いつか勉強しなければと積ん読になっています。
(恥ずかしながら)

ところで私、普段はぜんぜん違う板の住人です。切羽詰まってここに来ました。
こんなに速くレスをいただけるとは思っていませんでした。
本当にありがとうございます。

perl、勉強しますね。今はお金とか在庫とかの勘定ばかりやっていますが、
小学生の頃はベーマガとかで勉強したクチです。

おやすみなさい。

377 :デフォルトの名無しさん:2009/03/21(土) 22:41:04
PBPとtokuhiromの受け売りだが、
13月32日に引っかけないためにはRegexp::Commonを使おう

378 :デフォルトの名無しさん:2009/03/22(日) 00:28:52
>>369
これはちょっとマズいんじゃないの?
コメントでは YYYY-MM-DD と書いてるけど、実際の処理が
\d{4}-\d{2}-\d{2] では、全然年月日じゃない文字列にもマッチしかねない。

もちろん年月日かどうか完璧な判定はできないけど、
>>362 にあるようにマッチさせる文字列が昨日の日時でいいなら
そういう風に限定すべき

379 :デフォルトの名無しさん:2009/03/22(日) 01:19:26
某所で再びFizzBuzz問題がはやっているようなのでPerlで書いてみました!添削してください!

perl -e 'for ($n=1;$n<16;$n++) {my$res;!(($n%3||($res="Fizz"))&&($n%5||($res=$res."Buzz")))||($res&&print "$res\n")||(print "$n\n");}'

380 :戦犯369:2009/03/22(日) 02:48:29
>>378
thxです。
ついでに、sample.htmlのエンコードを考慮してみた。

# UTF-8(BOMなし)で保存してね
use strict;
use warnings;
use utf8;

use DateTime;
use Encode::Guess;
use File::Slurp;

# ファイルの中身を変数に突っ込む
my $file_name = q{sample.html}; # $ARGV[0]とかの引数で渡すとか好きにして
my $file      = read_file($file_name, scalar_ref => 1);

# ファイルのエンコードを類推して、UTF-8に変換する
# 決め打ちならこんなことをせず、use Encodeしてdecode, encodeする
my $encoding  = guess_encoding($$file, qw(cp932 euc-jp utf8));
die "Can't guess"
    unless ref $encoding;
if ($encoding->name() ne 'ascii' || $encoding->name() ne 'utf8') {
    $$file = $encoding->decode($$file);
}

# 昨日のYYYY-MM-DDを得る
my $yesterday = DateTime->now(time_zone => 'local')
                        ->add(days => -1)
                        ->ymd();
# つづく

381 :戦犯369:2009/03/22(日) 02:49:50
# つづき
# >>362式なら
# my (undef, undef, undef, $day, $month, $year) = localtime();
# my $yesterday = sprintf("%04d-%02d-%02d", $year + 1900, $month + 1, $day - 1);


# ファイルの中身で昨日のYYYY-MM-DDに合致すれば変換する
$$file =~ s{
    ($yesterday)
}{
    # ファイルに書いてある最終更新年月日(昨日)を、
    my ($year, $month, $day) = split q{-}, $1;
    # 翌日(つまり今日)に変換する
    DateTime->new(year => $year, month => $month, day => $day)
            ->add(days => 1)
            ->ymd();
    # >>362式なら
    # sprintf("%04d-%02d-%02d", $year, $month, $day + 1);
}xmseg;

# ファイルのエンコードを元に戻す
if ($encoding->name() ne 'ascii' || $encoding->name() ne 'utf8') {
    $$file = $encoding->encode($$file);
}

write_file($file_name, $file);

__END__

まあ、
SSI > テンプレート使用 > ベタ置換
の順が楽なんだろうけど。

382 :デフォルトの名無しさん:2009/03/22(日) 02:57:58
なにを持って善しと成すのかわからんけど、俺も作ってみた

perl -e 'for(1..15){my$r;$_%3or$r="Fizz";$_%5or$r.="Buzz";$r or$r=$_;print"$r\n"}'

添削してくだちぃ

383 :デフォルトの名無しさん:2009/03/22(日) 03:12:33
個人的には、勉強するためならいきなりCPANに頼るのはどうかと思った。

いきなりDateTimeを使わずにsprintfでやった方がいいし、
いきなりFile::Slurpを使わずにopen関数を使った方がいいと思うけど、
面倒くさすぎて放り投げられるとPerlスキーとしては寂しいので、
CPANに依存してみた。今は反省している。

FizzBuzzについては、
1. 要件を実現出来ているんなら、
2. ワンライナーなら、
3. FizzBuzzでゴルフしたり難読化選手権を開くんじゃなければ、
多少腕白でもいいと思うけどね、俺は。

敢えてPBP的に見ても、
a. C的なforでなくforeachを使おうとか、
b. $_でなくてちゃんとforeach my $num (1 .. 15)にしようとか、
c. ""で括らなくていいときは''で括ろうとか、
そんなつまらない指摘しか出来ないけど。

あとはあれか、>>379なら、C的なforをどうしても使うときは、
$n <= 15の方が直感的とかか。

384 :デフォルトの名無しさん:2009/03/22(日) 03:20:37
あ、うそ、ごめん。
>>381の二つめの>>362式は、3月32日になるw
ゆえに素直にDateTime使おう。

385 :379:2009/03/22(日) 03:36:54
>>382-383
ありがとうございます!>>382さんのコードの方がPerlっぽくていいですね。
ぼくのはJavaとかでも使えるテクしか使ってないや。
最近Perlはワンライナーしか書かなくなってさっぱり鈍ってしまった。

386 : ◆TWARamEjuA :2009/03/22(日) 10:10:15 ?BRZ(10001)
1日前ってそんなに難しいのかしら?
time - 86400
でよさそうな。。。

387 :デフォルトの名無しさん:2009/03/22(日) 10:34:11
うるう秒をちゃんと扱わないシステムならな

388 :デフォルトの名無しさん:2009/03/22(日) 11:15:10
>>387
UNIX時はどれも閏秒は算定してないと思うが。
システムによって現在のUNIX時が食い違ったら困るだろ。

389 :デフォルトの名無しさん:2009/03/22(日) 13:00:39
超頭悪い会話が繰り広げられている

390 :デフォルトの名無しさん:2009/03/22(日) 13:15:46
>>389
>>389

391 :362:2009/03/23(月) 05:38:24
おはようございます。
ご報告が遅くなりました。

>>381さんに教えていただいたスクリプトを昨日、会社で使って
(ファイル名など一部変えました)、まだ1日(1回)だけですがテストとしては
うまく動いたようです。

今朝出社してうまく書き換わっているかどうか。これから出勤です。
うまくいったら引き続き使います。

ではみなさま、また縁がありましたらどうぞよろしくお願いします。

392 :デフォルトの名無しさん:2009/03/23(月) 07:49:00
>>389
仕様上はどちらでもいいことになっているが、先発製品との互換上、
どのシステムもうるう秒は算定していない。

うるう秒はいつ発生するか算定できないからどっかから情報取得する必要があるし、
tarファイルを移転する時とか、NTP使う時とか困るだろ。

よほど金融系のシステムとかでなければ、NTPクライアントを随時走らせておけば大きな支障はない。

393 :デフォルトの名無しさん:2009/03/23(月) 09:22:29
いちおうtzfile(5)とか見ればわかるけどうるう秒扱えるようにはなって
いるんだよね。

実用上はうるう秒のたびに時計を進めたり戻したりして1日の秒数は
一定としてしまうのが楽な場合がほとんどだから設定した例は自分の
周りでは見たことない。

天文とかは過去のある時刻との間の時間みたいのをきっちり出せない
と困りそうだけど。

394 :デフォルトの名無しさん:2009/03/23(月) 09:23:10
うるう秒を勘案するシステムは存在しないってこと?

395 :デフォルトの名無しさん:2009/03/23(月) 13:06:04
>>394
一般的なUNIXtimeの扱いの話であって、
そういったシステムが存在しないとは誰も言ってない。
極端な話、協定世界時を管理してるシステムなんかは当然勘案しなきゃ困るでしょ。

396 :526:2009/03/24(火) 19:51:11
ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。

debian etch の上で、perl-tk をいれて触っています。
どうにも日本語が表示されませんので、どなたか詳しい人、アドバイスをお願いします。
perlは、 v5.8.8
perl-tkは、804.027-7
です。
よろしくお願いします。


397 :デフォルトの名無しさん:2009/03/25(水) 04:25:03
エスパーじゃないんだからさ、それじゃ答えようがないよ。

とりあえず>>4
あとやったこと書け

398 :デフォルトの名無しさん:2009/03/25(水) 14:49:23
ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。

昨日から体の具合が悪いんですが、何かの病気でしょうか?
どなたか詳しい人、アドバイスをお願いします。

どんな薬を飲めばいいですか?医者に診せたほうがいいですすかね・・・
何科の医者に行けばいいですか?
よろしくお願いします。

399 :デフォルトの名無しさん:2009/03/25(水) 14:53:25
エスパーじゃないんだからさ、それじゃ答えようがないよ。

400 :デフォルトの名無しさん:2009/03/25(水) 17:06:54
@test
赤、A、あ、   #$test{0}
黄、A、い、   #1
青、A、あ、   #2
赤、B、あ、   #3
赤、C、い、   #4
青、A、あ、   #5
例えばこういう配列があったとして
各項目ごとに一番多い文字列(赤 A あ)をそれぞれ取り出したいんですがどのようにすればいいんでしょうか?

401 :デフォルトの名無しさん:2009/03/25(水) 17:28:24
「こういう配列」

402 :デフォルトの名無しさん:2009/03/25(水) 17:36:06
>>400
my @dat = ( 'red,A,a', 'yellow,A,b', 'blue,A,a', 'blue,B,a' ) ;
my @cache ;
for ( @dat ){ my $cnt = 0 ; $cache[$cnt++]->{$_} ++ for split /,/ ; }
printf "%s\n", sort { $_->{$b} <=> $_->{$a} } keys %{$_} for @cache ;

日本語? => 自分で考えて
同じ個数の物があったら? => 知らん。


116 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)