Perlコーディング初心者質問スレ Part 56

**nobodyさん** · 2007/09/16(日) 19:49:43

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >2 以降

前スレ　ttp://pc11.2ch.net/test/read.cgi/php/1180492441/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/

**nobodyさん** · 2008/02/02(土) 11:21:37

修士雇う経営者がいないなら高卒って言えばいいだけのこと
そんなこともわからないのか？

**nobodyさん** · 2008/02/02(土) 12:03:51

perl土方は頭悪いな。
高卒で足りる仕事には高卒の賃金しか払わないという事だよ。

**nobodyさん** · 2008/02/02(土) 13:18:25

>>872
それ、学歴詐称にあたるんじゃないの？
ちょっと前、問題になったでしょ。

**nobodyさん** · 2008/02/02(土) 13:33:00

perl土方は新聞を読まない。

**nobodyさん** · 2008/02/02(土) 13:46:46

WEB系いきゃいいんじゃないの？
個人的にはなにがなんでもPerlとかいってるPerl使いは嫌だけど

**nobodyさん** · 2008/02/02(土) 14:25:02

Perlがちょっとくらいできても仕事ねえぜ、と修士出の自宅警備員が言ってみる。

>>874
それ公務員ね。試験区分に対象の学歴があってそれに沿うことが望ましいとされてるから。

というかこれマ板のネタだろ。

**perl好き情報３回生(本物)** ◆qqt5.0NxB6 · 2008/02/02(土) 14:40:08

ちょっと失礼します。
僕はWebprog板に>>869と同一内容の書き込みをした者です。
>>869は偽者であって僕がマルチポストをしたのではないことを明言しておきます。
トリップをつけたので本物しか相手をしないようお願いいたします。
迷惑をおかけして申し訳ありません。
お騒がせしました。

**nobodyさん** · 2008/02/02(土) 15:45:41

質問です。XML::RSSを使って、外部から取得したRSSを加工してHTML(euc-jp)に出力しているのですが、
一部の記号（それも機種依存文字含む）が文字化けします。

－ →　\x{ff0d}
㎜　→　\x{339c}

機種依存文字に関しては、根本的に対応することに意味があるのか疑問ですが、せめてwindowsな環境で
文字化けしないようにしたいのです。どうしたらいいでしょうか？

あんまし分かっていませんが、重要そうな部分だけ。
use XML::RSS;
use LWP::Simple;
use encoding 'euc-jp', STDOUT => 'euc-jp';
use open IN => ":encoding(euc-jp)";
use open OUT => ":encoding(euc-jp)";
binmode OUT => ":encoding(euc-jp)";

my $rss = new XML::RSS;
$rss->parsefile($site_file);
my $item_list = $rss->{'items'};
$item = ${$item_list}[0];
my $desc = $item->{'description'};

#一応対策っぽいことをやって一部の記号には対応できた
$desc =~ tr/\x{005C}\x{00A5}\x{2014}\x{203E}\x{2225}\x{FF0D}\x{FF5E}\x{FFE0}\x{FFE1}\x{FFE2}/
\x{FF3C}\x{FFE5}\x{2015}\x{FFE3}\x{2016}\x{2212}\x{301C}\x{00A2}\x{00A3}\x{00AC}/;

**879** · 2008/02/02(土) 15:48:16

ちなみに、
～　→　\x{FF5E} に化ける問題は、一番下に書いた置換で解決したのですが、\x{FF0D}は何故かそのまま
文字化けしたままです…

**879** · 2008/02/02(土) 15:55:11

すいません、>>880は単純ミスでした、取り消します。

**879** · 2008/02/02(土) 15:57:31

忘れていました。エラーメッセージが出ます。
hogehoge.cgi: "\x{ff0d}" does not map to euc-jp at hogehoge.cgi line 183.

**nobodyさん** · 2008/02/03(日) 01:13:34

求人ってほとんどＰＨＰだよなぁ。プラスDreamWeaverの使用をセットで。
perl使ってるところはライブドアとかはてなとか高レベルに使いこなしてるところばっかり。
初～中級のところは全部ＰＨＰになってしまった。

**nobodyさん** · 2008/02/03(日) 03:35:42

モバイルならPerlも使ってるとこそこそこあるんでないか

**nobodyさん** · 2008/02/03(日) 11:14:58

正規表現とか以外なら、構文同じなんだからすぐに移植できるだろ。
あとはPEARとかを使いこなせればいいわけだから、Perlの基礎がある
のなら、１週間程度で、出来るといえるんでね？
Perlで作ったコードをPHPに移植して、これ、私が作りました、みたいな。

**nobodyさん** · 2008/02/03(日) 12:57:34

PEARってperlでいうCGI.pmみたいなもん？

質問 · 2008/02/03(日) 13:04:56

このスレでよいかわかりませんが・・・

項目を選択しボタンをクリックすると、あるページには選択した項目の画像ファイルを表示し、
もうひとつのページにはその選択した項目を表示させたいのですがどうしたらよいでしょうか？

最初のページには
<form action="A.cgi" target="表示させたいページ">
を埋め込んでいるのですが、当たり前ですがこれだと"表示させたいページ"にしか表示できません。

A.cgiのなかでさらにこの部分だけは他のページへ表示させるとかできませんか？

**nobodyさん** · 2008/02/03(日) 14:09:58

>>886
CPANじゃね？

**nobodyさん** · 2008/02/03(日) 14:12:18

>>887
それは、Perlの話じゃなくて、htmlの話じゃないの？
フレームタグを使って区切るか、テーブルタグを使って全部を表示させる方法がある。
板違いなので、これ以上の質問はしないように。

**nobodyさん** · 2008/02/04(月) 03:22:50

>>879
メッセージのとおりで、変換表に該当するものがないんでしょ。
euc-jpMSとか使わないといけないんじゃないの?

**nobodyさん** · 2008/02/07(木) 12:55:00

perl 5.8.5
CentOS 5.1

「out of memory」のときのエラーハンドリングの方法を教えてください。
dieのときは
$::SIG{__DIE__} = sub {～～～};
でいけることまではわかったのですが
「out of memory」がハンドリングできないのです。
よろしくおねがいします

**nobodyさん** · 2008/02/07(木) 15:49:01

OSの制限だから、ハンドリング考えるよりコード見直す。
それができないのなら、OSの制限上げる。メモリ積む。

**nobodyさん** · 2008/02/07(木) 19:10:28

perl5.8

my @value=(0,1,3,8);　　#任意のkey
my @hoge=('hoge1','hoge2','hoge3'....);　　#表示用配列
my $disp;
foreach (@value)
{
$disp .= ',' if $disp;
$disp .= $hoge[$_];
}

という処理をしているんですが、これってJOINでできませんか？
map使ってもこれより簡単に書けないですよね？

**nobodyさん** · 2008/02/07(木) 19:28:15

こういうこと？

my @value = (0, 1, 3, 8);
my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9');

print join ',', @hoge[@value];

**nobodyさん** · 2008/02/07(木) 20:34:51

>>894
おお。ありがとうございます。コードがすっきりします＾＾

**nobodyさん** · 2008/02/08(金) 09:47:17

すいません。もう一点。

my $value = "0,1,3,8";
my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9');

これは
join ',',@hoge[sprit',',$value];

ですよね？
splitしてjoinして勿体無い感じ。。

**nobodyさん** · 2008/02/08(金) 10:08:10

splitとspliceは別物

**nobodyさん** · 2008/02/09(土) 18:24:58

valueがスカラーで入れなきゃ一回joinで済む話。

**nobodyさん** · 2008/02/11(月) 09:15:09

ファイルの最後の行番号を取得したいんですが、
my $endline = $. while (<FH>);
としてとりえず取得できたんですが、
その後
seek FH,0,0;
として、また１行目から別の処理したいんですがうまくできません。
seekの戻り値をprintしてみると1を返してますが、先頭には戻ってないようです。
windows環境なのが原因でしょうか？

**nobodyさん** · 2008/02/11(月) 09:31:45

my $endlineだと局所化されて外側で取得できなくない？
seekしても$.はリセットされないから先頭に巻き戻したら$.= undefとかすればいい

**nobodyさん** · 2008/02/11(月) 11:26:23

>>900さんレスありがとうございます。

>局所化
あ、ほんとだ。ミスってました。

undef $.;
reset $.;
それぞれ試してみましたが変化ありませんでした。

その後に
while (<FH>) {
　　if ($. == $bigin .. $. == $end) {
といった処理をしたいんですが、どうもうまくいきません。

**nobodyさん** · 2008/02/11(月) 11:49:03

$. = 0;としたらうまくいきました。
ありがとうございました。

**nobodyさん** · 2008/02/12(火) 21:28:15

文字コードについて質問します。

utf-8から7bitJISへの変換なのですが、（メール送信のため）

Encode.pmもJcode.pmもローマ数字をJISにしてくれません。
Encodeでは「\x{2160}」と変換不可の場合のユニコード値に変換され、
Jcodeでは「?」になります

Ⅰ（ローマ数字１）
\xE2\x85\xA0　utf8　→　\x1B\x24\x42\x2D\x35 JIS

と手動で変換してやれば良いのですが、escシーケンスの処理がどうしたものかと・・・

**nobodyさん** · 2008/02/12(火) 23:23:01

use lib '../lib';
のように相対パスを使うと出来るけど
use lib '/i/cgi-bin/lib';
のように絶対パスを使うと動かなくなります
サーバーの設定によって絶対パスだと読み込めなかったりするんでしょうか
普通のリンクだと絶対パスでリンクできます

**nobodyさん** · 2008/02/12(火) 23:31:03

>>904
本当にそれが絶対パスであれば使えると思うのだが、おそらく違うんだと思う。

**nobodyさん** · 2008/02/13(水) 02:37:13

>>904
perlから使う絶対パスはwebサイト上の絶対パスじゃないよ。
・ http鯖がルートとして扱うディレクトリからの絶対パス
・鯖のOSの絶対パス
の違いを理解しような。

**nobodyさん** · 2008/02/13(水) 02:39:50

>>903
JISとかISO-2022-JPにはローマ数字はないから。

Encode::EUCJPMS - Microsoft Compatible Encodings for Japanese - search.cpan.org
http://search.cpan.org/~naruse/Encode-EUCJPMS-0.07/EUCJPMS.pm

あたりをいれて、cp50220 とか cp50221 で変換する。

**906** · 2008/02/13(水) 10:48:35

有難うございます
調べてみます

**904** · 2008/02/13(水) 10:49:51

>>906でした

**nobodyさん** · 2008/02/13(水) 12:25:12

>>907
ありがとうございます
Encode::EUCJPMSモジュールをいれて、

use Encode::EUCJPMS;
use Encode;
my $cp50220_str = Encode::from_to( $utf8_str , "UTF8" , "CP50220" );

で良いのでしょうか？
実はフォーム入力はShiftJISでして、CP932からutf-8に一旦エンコードしています。
これで問題はないでしょうか？

**nobodyさん** · 2008/02/14(木) 02:49:22

>>910
UTF-8に変換するときにエラーになってなきゃ大丈夫なんじゃない?
～あたりが微妙ではあるけど。

**nobodyさん** · 2008/02/14(木) 10:56:12

教えてください。サーバではなくて、自分のPCにPerlをインストールしています。

#!/usr/bin/perl

use strict;
print "IEを起動します...\n";
system("C:/Program Files/Internet Explorer/iexplore.exe");
exit;

__END__

上のようにすると、IEは起動するのですが、コマンドプロンプトは残ったままで
タスクマネージャーにも perl.exeｔが残っています。（残るというか待ってるようですが…）
IEを起動したあとはPerlも終了して欲しくて検索したらexecというのがあったので
exec("C:/Program Files/Internet Explorer/iexplore.exe");としたら起動しませんでした。
IE起動後速やかにPerlを終了させるにはどうすれば良いでしょうか。
PerlはActivePerl 5.8.8をインストールしました。

もう一つは、my $url = 'http://www.google.co.jp/'; とした時に
IEにこの$urlを開かせるにはどうすればよいのでしょうか。よろしくお願いします。

**nobodyさん** · 2008/02/14(木) 11:58:11

ヒント： system("start", $url);

**nobodyさん** · 2008/02/14(木) 12:23:37

>>913
うわぁぁ。ありがとうございました！

**nobodyさん** · 2008/02/14(木) 12:27:34

　　　　/＼＿＿_／ヽ　　ヽ
　　／　　　　::::::::::::::::＼　つ
　 . | 　,,-‐‐　　‐‐-､ .:::|　わ
　　|　､_(o)_,:　 _(o)_,　:::|ぁぁ
. 　 |　　　　::<　　　　 .::|あぁ
　　＼　 /( [三] )ヽ ::／ああ
　　　／｀ー‐--‐‐―´＼ぁあ

**910** · 2008/02/14(木) 12:58:24

>>911
ありがとうございます。
「～」は手動でE3 80 9Cに置き換えています。

では教えていただいた方法でやってみようと思います。

**nobodyさん** · 2008/02/14(木) 15:13:40

fedora8なマシンで監視装置をでっち上げようとしています

Net::SMTPについて教えて下さい

use Net::SMTP;

my $smtp = Net::SMTP->new( $mailhost );
$smtp->mail( $MailFrom );
$smtp->to( $MailTo );
$smtp->data();
$smtp->datasend( "From: $MailFrom\n" );
$smtp->datasend( "To: $MailTo\n" );
$smtp->datasend( "Subject: $e_subject\n" );
$smtp->datasend( "Mime-Version: 1.0\n" );
$smtp->datasend( "Content-type: text/plain; charset=ISO-2022-1\n" );
$smtp->datasend( "Content-transfer-encoding: 7bit\n" );
$smtp->datasend( "Reply-to: $MailFrom\n" );
$smtp->datasend( "$body\n" );

ここでbodyに例えばtestdataと入れると$bodyもメールとして届くのですが、
$bodyをtest:dataとする（半角コロンが入っている）と、$bodyが送られません

何が悪いのかご教示下さい

**nobodyさん** · 2008/02/14(木) 15:18:19

半角コロン

**nobodyさん** · 2008/02/14(木) 15:28:13

つ[ $smtp->datasend( "\n$body\n" ); ]

**917** · 2008/02/14(木) 15:31:16

>>919
できました
ありがとう　(　；∀；)

**919** · 2008/02/14(木) 15:57:21

>>920
よかったな。
バグった状態だと$bodyが送られてこないんじゃなくヘッダに入ってたはず。
メールヘッダと本文の切り分けは「半角コロンが入ってない行が登場した所から本文」って事になってるから、
どんな文が入るか分からん時は、ヘッダの最後に空行を入れれば桶。基本なんで覚えとくと便利。

**917** · 2008/02/14(木) 16:25:19

>>919
覚えておきます
ありがとうございました(^^
これで沈みます

**nobodyさん** · 2008/02/17(日) 21:47:50

>>921
ヘッダと本文は空行で分けられます。
ついでに言うと、改行は CRLF (\r\n) にすること。
MTA によっては受け付けてくれません。

**exe** · 2008/02/19(火) 11:44:47

ファイルにaからｚ、AからZを交互に連続で出力し、最後に改行して、この処理を１０回繰り返す方法を教えてください。
aAbBcCdDeE・・・yYzZ のような形です。お願いします。

**nobodyさん** · 2008/02/19(火) 12:05:44

宿題は自分でやろうな。

**nobodyさん** · 2008/02/19(火) 12:06:11

print "aAbB.....yYzZ\n";

を10個コピペでおｋ

**exe** · 2008/02/19(火) 14:24:58

すいません。10回出力はわかるんですが、for文を使ってaAbBcC...zZの表示方がわからないのでどなたかお願いします。

**nobodyさん** · 2008/02/19(火) 14:25:28

for(1..10) {
for(65..90) {
print pack("C*",$_);
print pack("C*",$_+32);
}
print "\n";
}

**exe** · 2008/02/19(火) 14:42:37

nobody さんありがとうございます。

ちなみに↓の形で書くと、どうしたらよいでしょうか。
何度もすいません。

open (FILE, '>test1.txt') or die "$!";

for my $count (0..9) {
for my $i ("a".."z") {

}
print FILE "\n";
}

close(FILE);

**nobodyさん** · 2008/02/19(火) 14:59:33

#
# $countってなんぞ？
#
open (FILE, '>', 'test1.txt') or die "$!";
binmode(FILE);
for my $count (0..9) {
for my $i('a'..'z') {
print $i;
print uc($i);
}
print FILE "\n";
}
close(FILE);

**nobodyさん** · 2008/02/19(火) 15:01:42

#
# ↑はウソ
#
open (FILE, '>', 'test1.txt') or die "$!";
binmode(FILE);
for my $count (0..9) {
for my $i('a'..'z') {
print FILE $i;
print FILE uc($i);
}
print FILE "\n";
}
close(FILE);

**exe** · 2008/02/19(火) 15:06:17

ありがとうございます。$Countは適当においてる変数です。

**exe** · 2008/02/19(火) 15:54:07

先ほど↑で作ったファイルを出力として、小文字のみを取り除いた結果を標準出力に表示するにはどうしたらよいでしょうか？
自力でやらないといけないのはわかっているのですが、時間がなくて・・どなたかお願いします。

**nobodyさん** · 2008/02/19(火) 16:04:55

#
# そういうウンコみたいな仕事を漏れにも回してくれよ
#
$sent = 'dTgZtyYthSGetLt';
$sent =~ s/[a-z]//g;
print $sent;

**nobodyさん** · 2008/02/19(火) 16:31:12

馬鹿だな、まずはおっぱいうｐしてからだろｊｋ・・・

**exe** · 2008/02/19(火) 16:55:41

仕事では無いです。笑われてるかもしれませんが初心者の
自分にとっては色々難しくて。時間もありませんでしたので・・

**nobodyさん** · 2008/02/19(火) 17:15:11

perlで外部サーバー上のファイルを読み込む方法はありますか？

OPEN("http://www.aa.com/a.cgi") みたいにして
a.cgiの出力結果を元にさらに処理をしたいと思っています

**nobodyさん** · 2008/02/19(火) 17:30:48

>>937
いい手じゃないが、Linuxでwgetが入ってる状態で漏れが使ってる方法

$foo = `wget -O- http://www.aa.com/a.cgi`;

**nobodyさん** · 2008/02/19(火) 17:45:18

いやそれが最強。wgetのWIN版もあるからな。-qも付けると良い。

**nobodyさん** · 2008/02/19(火) 17:55:56

LWP

**937** · 2008/02/19(火) 19:26:35

>>938
ありがとうございました
無事　取得することが出来ました。
あと[`]でくくるのはなぜなのでしょう？

**938** · 2008/02/19(火) 20:13:58

>939
モジュール使った方が互換性高いし、そっちの方が良いと思ったんで。
>940のLWPを使うのが最良だと思うが、使い方調べてる気分的な余裕がないんで、
wget使ってそのまま今に至る感じだ。

>941
外部コマンド実行だから。``で囲むと外部コマンドを実行して標準出力が戻ってくる。

ちなみに"perl -T"でやってると、そのままじゃ外部コマンド動かない事があるんで注意。
$ENV{'IFS'}, $ENV{'CDPATH'}, $ENV{'ENV'}, $ENV{'BASH_ENV'}, $ENV{'PATH'}を
退避・削除してから外部コマンドを実行し戻す必要がある。

**nobodyさん** · 2008/02/19(火) 20:26:04

LWP

**nobodyさん** · 2008/02/20(水) 08:23:23

>>937-942
http://search.cpan.org/~gaas/libwww-perl-5.808/lib/LWP/Simple.pm

**937** · 2008/02/20(水) 12:35:11

>>938-944
ありがとうございます。
LWPも使えました　研究してみます。

**nobodyさん** · 2008/02/20(水) 13:15:09

@urlの中に500くらいのサイトのURLが入っています。
そのURLのページにキーワードか書かれているかどうか調べるとき、

foreach (@url) {
　　LWPで取得してキーワードが見つかったら、$count++;
}

みたいにすると一つずつなので物凄く時間が掛かります。
10個くらい一気に取得する方法はないでしょうか？

**nobodyさん** · 2008/02/20(水) 13:35:03

同じプログラムを10個並列に走らせてそれぞれに50サイトずつ担当させるのが一番楽だと思うよ。

**nobodyさん** · 2008/02/20(水) 13:43:09

こういう場合ってほとんどはLWPで取得するのが一番時間かかってるのかな？

**nobodyさん** · 2008/02/20(水) 13:59:11

>>947
そうですか…分割してみます。

>>948
応答待ちが長いと停止状態です。

**nobodyさん** · 2008/02/20(水) 14:34:00

fork

**nobodyさん** · 2008/02/20(水) 15:01:34

プロセスで並列化するとプロセスAは終わってるけど
プロセスBは重いサイトがリストにあって終わってないとか
無駄に待ち時間増えるから、threads使える環境ならthreadsのが楽でない？

**nobodyさん** · 2008/02/20(水) 15:03:07

JISの文から携帯電話の絵文字部分を退避させたいと思っています。
正規表現について教えてください。

通常の2バイト文字と同様に絵文字[\x75-\x7B][\x21-\x7E]がエスケープシーケンス
\x1b\x24\x42と\x1b\x28\x42に囲まれます。

エスケープシーケンスをそれぞれ
$esc_in = "\x1b\x24\x42";
$esc_out = "\x1b\x28\x42";
とし、絵文字を
$emoji = "[\x75-\x7B][\x21-\x7E]";
とします。

元の文を
$str="今日は晴れでした■気温は10度です。";（■は笑顔の絵文字 \x79\x79 ）

この$strは
$esc_in今日は晴れでした■気温は$esc_out10$esc_in度です。$esc_out
とエスケープされます。

やりたい事はこれを
$esc_in今日は晴れでした$esc_out[7979]$esc_in気温は$esc_out10$esc_in度です。$esc_out

というように[]で絵文字コードを囲い、エスケープシーケンスの整合性をとるというものです。

どなたかご教授いただけないでしょうか？

**nobodyさん** · 2008/02/21(木) 00:49:43

それのどこがWeb Programmingなんだ?

**nobodyさん** · 2008/02/21(木) 02:07:00

JISコードは加工には向かないので、Encode::JP::Mobileあたり使って
いったんutf8文字列にしてから加工して戻す方がたぶん見通しいいよ。

**952** · 2008/02/21(木) 03:31:08

>>954

ありがとうございます。そちらの方で検討させていただきます。

このような複雑な置換について私は苦手でして、もしこれがお分かりになられるなら後学のためにも教えていただきたいのですが、ご無理でしょうか？

**nobodyさん** · 2008/02/21(木) 10:36:05

マッチした文字列の前後は$esc_inで囲って
マッチした文字列はルールに沿って変換
ってことかな？

**nobodyさん** · 2008/02/21(木) 10:36:46

×$esc_inで囲って
○$esc_inと$esc_outで囲って

**nobodyさん** · 2008/02/21(木) 10:39:56

無理に書くとこんな感じ? 全くお勧めしない。

# 絵文字部分を1文字ずつ加工。
# 1バイトずれてマッチしたり、ascii部分にマッチしないようにしてるので面倒
$str =~ s{
(
(?:\G | ^[^\1b]*\x1b\x24\x42)
(?:[^\x1b]{2}|\x1b\x28\x42[^\x1b]*\x1b\x24\x42)*?
)
([\x75-\x7b])([\x21-\x7e])
}{
sprintf "%s\x1b\x28\x42[%02x%02x]\x1b\x24\x42", $1, ord($2), ord($3)
}gex;

# 冗長なエスケープシーケンスの並びを除去
$str =~ s/(\x1b\x24\x42)+/$1/g;
$str =~ s/(\x1b\x28\x42)+/$1/g;
$str =~ s/\x1b\x28\x42\x1b\x24\x42//g;
$str =~ s/\x1b\x24\x42\x1b\x28\x42//g;

**952** · 2008/02/21(木) 14:20:04

>>958
ありがとうございます。
やはりすごい複雑になってしまうんですね。
(
(?:\G | ^[^\1b]*\x1b\x24\x42)
(?:[^\x1b]{2}|\x1b\x28\x42[^\x1b]*\x1b\x24\x42)*?
)

を見てもさっぱり理解できません。
これが絵文字でない文字を指すというのはわかるのですが、詳しく教えていただけないでしょうか？
または参考になる書籍などがありましたら教えていただけないでしょうか。

**952** · 2008/02/21(木) 14:25:02

書き忘れましたが、Encode::JP::Mobileを使い無事utf8にできました。

これを作った方すごいですね。こんな便利なものがあると知りませんでした。

**初心者** · 2008/02/21(木) 14:43:22

perlでカレンダーを作るのですが、プログラミングする内容としては何がひつようでしょうか？
何から書いていいやらとっかかりがわかりません。どなたかアドバイス等をお願いします。

**nobodyさん** · 2008/02/21(木) 14:48:53

ｇｇｒｋｓ

**nobodyさん** · 2008/02/21(木) 14:49:53

とりあえず以下のサブルーチンを作る

1. 本日の年・月・日・曜日を返す
2. x年y月z日の曜日を返す
3. x年y月1日の曜日を返す
4. x年y月の月末日を返す
5. x年y月の前月を返す
6. x年y月の翌月を返す
7. x年y月z日の前日を返す
8. x年y月z日の翌日を返す

**初心者** · 2008/02/21(木) 15:13:33

ありがとうございます。

**初心者** · 2008/02/21(木) 15:26:58

今年のようなうるう年かどうかを調べるにはどうしたらよいのでしょうか？

**nobodyさん** · 2008/02/21(木) 15:35:05

閏年の定義に当てはまるかどうかを調べればよい。>>965
西暦が4で割り切れて、100で割り切れなければ閏年。
西暦が4で割り切れて、400でも割り切れれば、100で割り切れても閏年。

**nobodyさん** · 2008/02/21(木) 15:35:25

いちいち相手にするからググればわかるような質問が絶えないんだよな

**nobodyさん** · 2008/02/21(木) 15:38:45

悪かった。今は反省している。

**nobodyさん** · 2008/02/21(木) 16:23:42

閏年を知る必要は無いはず。
月末=翌月1日の1日前（ｘ年y月の月末日=(x年y+1月1日)-1日）だから、
PerlインタプリタとOSとライブラリにバグがなけりゃ閏年だろうが、平年だろうが
関係なく計算できる。

Date::Calc使って計算すりゃ一発で出るだろ。

**nobodyさん** · 2008/02/21(木) 16:35:43

ググっても分からないような初心者質問って？

**nobodyさん** · 2008/02/21(木) 17:03:05

>>1