トップページ⇒php
1001コメント311KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2009/02/16(月) 11:42:29ID:gvPTpodw
Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1218030872/
0566nobodyさん2009/05/29(金) 17:59:48ID:???
複数のプログラムで使うサブルーチンをexample.pmとして保存し読み込ませる際に質問なのですが、
useとrequireどちらで読み込ませればいいのでしょうか？
今一違いがよくわかりません。
0567nobodyさん2009/05/29(金) 18:09:51ID:???
つ perlfunc を読むとか。
0568nobodyさん2009/05/29(金) 18:20:24ID:???
apache 2.2.9とperl 5.8.8とmod_perl2-2.0.4を使ってCGIを作ろうとしています。
コードにエラーがあった場合、
Software error: ほげほげ
という出力がブラウザに出てしまうのですが、
これを抑制してInternal Server Error等を返すようするにはどうしたらよいのでしょうか。
0569nobodyさん2009/05/29(金) 18:33:00ID:???
コードにエラーがあればプログラムが実行されずにInternal Server Error返すと思うが
05705682009/05/29(金) 18:38:59ID:???
すいません
参考にしていた入門記事の
use CGI::Carp qw(fatalsToBrowser);
をのせいだったみたいです
お手数をおかけしました。
0571nobodyさん2009/06/05(金) 03:14:34ID:N+0uLK7Z
以下のようのものをイメージしております。パスワードを入力して認証後に
、HP上のある特定のテーブル（枠内）に画像をUPしたり、コメントを記入
できるようにしようとしております。枠は例えば一列を（名前・画像・
コメント）としてそれぞれの会員へ割り当てます。あくまでもその枠は、
割り当てられたメンバーしか入力と更新ができない仕組みにしたいと思いま
す。画面としては、HP枠テーブル内に設置されている「更新ボタン」を押す
→パスワード入力画面（認証）→画像UP/コメント記載入力フォーム→HPに
画像UP/コメント修正反映。という形です。パスワードは、会員それぞれが
違うPWをもっていて、他人の入力可能枠に入力をしようとしてもパスワード
が合わない限り、画像UP/コメント入力ができない形です。全般的に初心者と
いうこともあり、教えていただければ助かりますが、特に行き詰っているの
が
１．会員ごとにＰＷを割り振り、上記のように更新場所を分けた場合、認証
CGIは会員ごとそれぞれに作成する必要があるのでしょうか。それとも、こ
のＰＷで認証された会員はこの場所の更新を許可させるというような設定
はできるのでしょうか。
２．フォームで入力したデータを既存のhtml形式のｈｐに更新処理をする
ことは可能なのでしょうか。フォームで入力したデータを
掲示板（cgi)に書き込む事はできるようですが、htmlのテーブル（枠）に
書き込む事はできるのでしょうか。
３．フォーム（cgi）で入力したデータを指定した場所へ書き込むにはどう
したらよろしいのでしょうか。指定の方法はどうやればよろしいのでしょう
か

以上です。

0572nobodyさん2009/06/05(金) 05:00:07ID:???
>>571
複数ユーザーで使える画廊のようなページですかね
まだバイトの身なので見当違いなことを言ってるかもしれませんがアドバイスを。。。

1はCGI2つで実現できると思います。
例えば、画廊ページをhtmlで作り、認証フォームページ表示CGIを作り、実際の処理を認証CGIでするとします
画廊ページからは更新をクリックしたときに、認証フォームページ表示CGIに枠IDを渡します
認証フォームページ表示CGIでは、ユーザーID、ユーザーパスワードなど必要事項を入力する欄とともに、
このcgiに渡された枠IDを hidden 属性で渡せるフォームを出力します
これで3も解決です
認証CGI側ではあらかじめ枠IDとユーザーID・ユーザーパスワードを関連付けたデータを持っておき、
(多分選択肢はデータベースに入れるか他のファイルに書いておくかcgiに直書きかくらい)
フォームから渡ってきたデータと照合します
2の画像の更新については、画廊ページの雛形をまず用意しておき、(画像の入るところなどには{Image}のような仮の文字列を入れておく)
認証CGI側で読み込み本来の画像のurlなどに置換して出力します
こんな感じでいけるかと

こんな説明で分かりますかね？
0573nobodyさん2009/06/05(金) 17:20:18ID:N+0uLK7Z
>>572さん、ありがとうございます。571です。複数のユーザで使える画廊ページ
のイメージはあっております。私が素人のため、ぱっと読んだだけでは、
よく分かりませんが、hidden属性等キーワードをいくつかいただきましたので、
少し、やり方などを調べてみます。また、分からないことがありましたらよろしく
お願いします。
0574nobodyさん2009/06/06(土) 16:54:15ID:???
ハッシュについての質問です。
\t区切りにして保存したdatファイルからデータを読み込む際に
foreachでハッシュに入れて$example{$hoge}{$huga}で読み込めばいいのか、
foreach+正規表現使ってdatから１行だけ抜き出すのがいいのか、どちらがいいやり方なのでしょうか。

0575nobodyさん2009/06/06(土) 16:59:43ID:???
俺はgrepが好き
0576nobodyさん2009/06/06(土) 18:05:42ID:???
>>575
ぐぐってみました。
こんなのがあったんですね。参考になりました。
早速試してみようと思います。
0577nobodyさん2009/06/06(土) 18:14:36ID:???
>>574
データの使われ方による
0578nobodyさん2009/06/06(土) 18:43:32ID:???
>>574 じゃないけど質問

grep って foreach みたいにメモリにがっつり読み込むの？
それとも While みたいに逐一読みに行ってくれるの？
0579nobodyさん2009/06/06(土) 18:49:55ID:???
foreach みたいにメモリにがっつりの意味がわからん
0580nobodyさん2009/06/06(土) 18:55:37ID:???
メモリにがっつりでも、レンタル鯖なので気にしません！
0581nobodyさん2009/06/06(土) 18:58:33ID:???
>>579
何か勘違いがあるんだろ

恐らくファイル読み込み関連でそういう混乱が生まれたんじゃないかと。
0582nobodyさん2009/06/06(土) 19:10:32ID:???
>>578
フィルタみたいなものだから、がっつりメモリ取るよ。
つか、Perlは基本的に何でもリスト展開してから動くように出来てる。
foreachの昇順の範囲演算子は最適化されるけど。
0583nobodyさん2009/06/07(日) 00:15:37ID:???
>>582
端折りすぎた感のある文を読み取ってくれてありがとう

やっぱそうなってるんですね。
数メガならだいじょうだろうけど、十数メガ〜数十メガの TSV を扱うにあたって考えてるとこだったので。

やっぱ DB にプッシュしろってとこかな ＾＾；
0584nobodyさん2009/06/07(日) 00:20:57ID:???
>>583
その方が有りえない
0585nobodyさん2009/06/07(日) 00:33:27ID:???
>>583
十数メガのTSVをバシバシ扱ってるけど、鯖屋は文句言わないよ
0586nobodyさん2009/06/07(日) 02:47:53ID:???
本当は文句を言うべきところなのに
鯖屋が気づいてないだけって可能性もあるな
美味しくいただいちゃいましょう
0587nobodyさん2009/06/07(日) 13:52:57ID:???
mapを使用するときに今何番目の要素を処理しているのか上手く知る方法はあるのでしょうか？

やりたいことは、@before = ('a', 'b', 'c')とう配列があったときに、
”この配列の要素”をkey、”その配列要素の場所”をvaluとしてハッシュを作ることです。

今はmapの外に$iを用意して下記の様にしています。

my @before = ('a', 'b', 'c');
my $i=-1;
my @after = map { ++$i => $_ } @before;

この$iを使わずに実現する方法があったら教えて欲しいです。
この$iがとれない様であれば、forでやった方がキレイかなと思ってしまいます。
0588nobodyさん2009/06/07(日) 13:54:15ID:???
すみません。書き間違えました。
×　@after
○　%after
0589nobodyさん2009/06/07(日) 14:03:51ID:???
ハッシュのスライスでぐぐれ
0590nobodyさん2009/06/07(日) 14:39:07ID:???
>>587
my %after = map +($before[$_] => $_), 0..$#before;
05915902009/06/07(日) 14:41:30ID:???
>>589の言いたいのはこうか
my %after;
@after{@before} = (0..$#before);
05925872009/06/07(日) 15:03:39ID:???
>>589-591
ありがとうございます。
590, 591 の方法はおもいつきませんでした。。
0593nobodyさん2009/06/07(日) 15:09:57ID:???
# 因みに map() やスライスを使わない場合:
$after{$_} = $before[$_] for 0 .. $#before;
0594nobodyさん2009/06/07(日) 16:38:29ID:???
catalystを使ってるんですが、
forwardメソッドで呼ばれるメソッドに
引数を渡す際に複数の変数を渡したいと思っています。
このときqw/$a $b/と書くと変数展開されませんし、
qq/$a $b/と書くと渡される値が"$aの中身 $bの中身"という1つの変数になってしまいます。

これを$a,$bそれぞれの値として渡すにはどのようにすればよろしいでしょうか?
0595nobodyさん2009/06/07(日) 23:16:10ID:???
$c->forward('foo',[$a,$b]);

sub foo : Private {
my $c = shift;
my $args = shift;
my $a = $args->[0];
my $b = $args->[1];

}


????
}


0596nobodyさん2009/06/07(日) 23:23:24ID:???
cpanのモジュールのトップレベルの名前空間の一覧はどこかで見れませんか？
Test とか Class とかが知りたいです。
05975942009/06/07(日) 23:53:56ID:???
>595
その方法でうまくいきました。
ありがとうございました。

いろいろな形を試してみて、
( 'foo', [$a],[$b] )の形で動いたので
とりあえずこの方法でやっていこうかと思っていました。
0598nobodyさん2009/06/08(月) 00:08:41ID:???
>>596
そのまんま、cpanをby-moduleで見るのじゃあかんの？
ttp://www.cpan.org/modules/by-module/

それともこういう話？
ttp://d.hatena.ne.jp/yappo/20081010/1223630386
0599nobodyさん2009/06/08(月) 00:39:27ID:???
>>598
cpan.orgの方のページで解決しました。そんな便利なところがあると知りませんでしたorz
ありがとうございました。
0600nobodyさん2009/06/08(月) 20:56:10ID:???
ソートについての質問です。
例えば以下のようなハッシュの配列をソートしたいのですが、

my @member = (
{ 'name' => 'SUZUKI', 'point' => 80, 'pref' => 'TOKYO', 'flag' => '1'},
{ 'name' => 'TANAKA', 'point' => 100, 'pref' => 'OSAKA', 'flag' => '1' },
{ 'name' => 'SATOH', 'point' => 100, 'pref' => 'TOKYO', 'flag' => '0' },
);

１．ハッシュの'name'の値の昇順で配列をソートするにはどうすればよいでしょうか？
２．ハッシュの'flag'の昇順・'pref'の昇順で配列をソートするにはどうすればよいでしょうか？
３．ハッシュの'pref'の昇順・'point'の降順で配列をソートするにはどうすればよいでしょうか？

よろしくお願いします。
0601nobodyさん2009/06/08(月) 21:13:22ID:???
@member= sort{$a->{name}cmp$b->{name}}@member;
@member= sort{$a->{flag}<=>$b->{flag} || $a->{pref}cmp$b->{pref}}@member;
@member= sort{$a->{pref}cmp$b->{pref} || $b->{point}<=>$a->{point}}@member;

簡単な宿題だな
0602 ◆TWARamEjuA 2009/06/08(月) 23:13:57ID:???
>>600
>>1
だと思う。。。
0603nobodyさん2009/06/10(水) 20:00:53ID:???
OSを再インストールした後から
なぜかPerlのオートフラッシュが有効にならなくなってしまいました。
Debianをetchからlennyに変更したのでバージョン関係の
問題のような気もするのですが解決策が見つかりません…
何かご存じの方がいたら教えてください。
環境は下記のような感じです。
Debian/lenny Apache/2.2.9 mod_perl/2.0.4 Perl/v5.10.0
よろしくお願いします。
0604nobodyさん2009/06/11(木) 04:02:08ID:???
ユーザーアイコンをアップロードできるようなものを考えています。
アップロードできる形式はgif、png、jpegで、
アップロードすると(ユーザーID).gifのような名前になります。
アイコンを更新する場合、アップロード前に
古いアイコンを削除する必要があるので、以下のように書きました。

opendir DIR, "./icon" || die("directory open error");
my @icons = readdir DIR;
@icons = grep $_ =~ /$id/, @icons;
closedir DIR || die("directory close error");
foreach my $icon (@icons) {
unlink "./icon/" . $icon;
}

ところが、これを実行したところ、プログラムがそこで止まってしまいます。
エラー等は吐かずにただ止まってしまうので、原因が分かりません。

$idとマッチするファイル名を@iconsに集めるまでは上手くいっているようなので
foreach以降に問題があるようですが、解決策がどうしても見つかりません。
どこに問題があるかご存知の方がいましたら、ご教示ください。
よろしくお願いします。
0605nobodyさん2009/06/11(木) 08:20:11ID:???
解決するか分からないけど
opendir DIR, "./icon" || die("directory open error");
while (my $icon = readdir DIR) {
unlink "./icon/" . $icon or die $! if /^$id\.(?:gif|png|jpe?g$)/i;
}
closedir DIR || die("directory close error");

ユーザー増えると遅くなるからディレクトリなめるやり方は良くないよ
0606nobodyさん2009/06/11(木) 09:00:08ID:???
ファイルグロブを使わない限り、ディレクトリをなめるのは仕方ないんじゃないか。
メモリ使用量の問題はあるが。

opendir DIR, "./icon" || die("directory open error"); これと
opendir(DIR, "./icon" || die("directory open error")); これは
等価なので、括弧使って優先順位を変えるか、優先順位の低いorを使う。

あと、複数ファイルをまとめて消した方がサーバに優しいと思われ。
0607nobodyさん2009/06/11(木) 10:11:35ID:???
606が指摘している問題のためopendirのエラーを拾えてないから
closedirに失敗してエラーで止まっているに100カノッサ。

実行時のカレントディレクトリの位置が期待したところと違うか
パーミッション関係かどっちかあたりかな。
0608nobodyさん2009/06/11(木) 11:59:18ID:???
>>604
書き直してて気が付いたことを。

ID の割り当てがどうなってるかわかりませんが、例えば ID が 60 って人がファイルをアップしたとしますよね？
600 の人も 6000 の人も 160 の人もファイルが上書きされたり、消されたりするので、そのマッチの仕方はやめた方がいいです。

またユーザーアイコンが１つしか無さそうなので、-e でファイルの有無を確認してから作業したほうがいいかと思います。
0609nobodyさん2009/06/11(木) 12:05:54ID:???
>>608
ファイル名がわかってて削除するだけなら、-eすんの無駄じゃね?
いきなりunlinkでいいと思う。
0610nobodyさん2009/06/11(木) 12:17:45ID:???
png か gif か jpg か確認する必要があるかと
0611nobodyさん2009/06/11(木) 12:18:21ID:???
一律 jpeg に固定しちゃえば >>609 さんの言うとおり決め打ちで OK
0612nobodyさん2009/06/11(木) 12:19:39ID:???
my @fext = qw/jpeg jpg png gif/;
my $newicon; # ここに既に新しいファイルデータが入ってるとする
my $newfext; # 新しいファイルの拡張子
my $userid = 60;


# ファイル検索
my $userfname = '';
foreach (@fext){ $userfname = "./icon/$userid.$_" if -e "./icon/$userid.$_" }

# 仮出力
if(open(OUTFH, '>', "./tmp/$userfname.tmp")){
　　binmode OUFH;
　　print OUTFH $newicon;
　　close(OUTFH);
　　# 移動
　　move("./tmp/$userfname.tmp", "$userid.$newfext");
}


こんな感じか
0613nobodyさん2009/06/11(木) 13:07:23ID:???
ディレクトリをもう1階層作って、
その名前を $userid / 100 とかにするのも、運用回避としてはアリか。
0614nobodyさん2009/06/11(木) 13:36:13ID:???
ファイル一つしかないことが分かっていて、サフィックスも限定できるなら、
my $complete = unlink(map{ "./icon/$id.$_" } qw(gif png jpg jpeg));
こんなでもいけるだろうけど。
06156042009/06/11(木) 14:30:45ID:???
皆様、ご助言ありがとうございます。
>>606さんのご指摘を受け、上記部分以外も含め open および close まわりは
すべて or に修正いたしました。

また、IDですが、アルファベット3文字＋数字5文字の固定長にしており
ID発行時に重複もチェックしておりますので、
>>608さんのご指摘のようなIDマッチの重複はありません。

それでもまだ止まるので、もう少し止まる箇所を絞り込んでみたのですが、
どうもunlinkで止まっているようです。
unlinkで止まる原因にはどういったものが考えられますでしょうか。
0616nobodyさん2009/06/11(木) 15:49:34ID:???
ドメインとかPATHとかファイル名は消していいので、エラーログをさらしてみて
0617nobodyさん2009/06/11(木) 15:50:59ID:???
固定長のIDにするならアルファベット部分を５文字にして大文字小文字を区別しないと
「そんなにユーザー居ないし」でスクリプト組むのはやめたほうがいいですよ
0618nobodyさん2009/06/11(木) 16:21:44ID:???
unlink $file or die $!;
だけにして実行するとかrm $fileでコマンドラインから
は消えるのかとかして原因の切り分けしろよ。
止まるなんて抽象的な表現じゃ分かんないだろ
0619nobodyさん2009/06/11(木) 17:33:08ID:???
Perl超初心者ですが、よろしくお願いします。
読み込んだファイルの'key'という文字が出てくる次の行から
アウトプットさせたいんだが、うまくいかないです。

$flag = 0;
while($line = <IN1>){
chomp $line;
if($line =~ m/^key/){　
$flag = 1;
print OUT1 $flag;
}
}

while($line){
if($flag == 1){
print OUT1 "$line\n";
}
}

みたいな感じで書いてみたんですが
if($line =~ m/key/)が認めらんねぇ、みたいなこと言われました。

どうしたらうまくいくか、教えてください。
0620nobodyさん2009/06/11(木) 17:50:32ID:???
$line=~ /key/ and print OUT1 <IN1>;
0621nobodyさん2009/06/11(木) 17:56:42ID:???
my $flag = 0;
while(my $line = <IN1>){
　　print OUT1 $line if $flag;
　　$flag = 1 if $line =~ /key/;
}

試してないけど、これでおｋ
0622nobodyさん2009/06/11(木) 18:05:02ID:???
>>619
行の終わりに全角スペースが入ってたから、それが原因だと思う。
全角スペースを可視化できるエディタを使うといいよ。
0623nobodyさん2009/06/11(木) 18:05:22ID:???
>>620さんのは質問者の希望する動作にならない
>>621さんので確認した
俺はテストしただけ
06246192009/06/11(木) 18:16:41ID:???
>>620-623
皆、ありがとうございます。
>>621さんのプログラムで早速やってみたところ、なぜか
print OUT1 $line if $flag;
の行におかしなものがあるぜ、と言われて、動いてくれませんでした。
考えられる原因としては、何があるでしょうか？
06256192009/06/11(木) 18:25:39ID:???
ご、ごめむ。
>>622さんの意見を適用するとできました。
皆、ほんとにありがとー。
0626nobodyさん2009/06/11(木) 18:45:20ID:???
>>615
パーミッションとかは関係ない？
0627 ◆TWARamEjuA 2009/06/11(木) 19:54:12ID:????BRZ(10072)
旧Rock54鯖(banana238.maido3.com)にて、perl5.8.6/FreeBSD5.4だったかな？
unlinkがうまく動かなかったので、、、
unlink $file;
で済ませられるところを、、、
unlink $file unless -f $file;
と描いた記憶が蘇りました。

OS由来の変な誤動作とかかもしれないですね。
あと、単純にdiskがあやうすかも。
smartmontools等で確認するのも良いかも。
0628nobodyさん2009/06/11(木) 20:10:41ID:???
単純に、パーティションが違うだけじゃね
unlinkは、inodeの削除でつよ

> unlink $file unless -f $file;

ファイルが無いならunlinkって・・・
0629nobodyさん2009/06/11(木) 20:23:23ID:???
通常ファイルじゃないならunlinkって・・・
unlink $file if -e $file;
って書きたかったわけじゃなくて？
0630 ◆TWARamEjuA 2009/06/11(木) 21:34:14ID:???
わははー♪＠笑って誤魔化す

if -f $file ですm(_ _)m
0631nobodyさん2009/06/11(木) 21:56:39ID:???
経験上、ブロックしちゃうのは大抵ファイルシステムの問題が多いかな。
ネットワークドライブだったり不良セクタが発生してたりという事が多い。
06326042009/06/12(金) 02:45:55ID:???
申し訳ないです。
抽象的とのことですが、実際、CGIにフォームを送信するとそこから進まなくなってしまい
ブラウザを閉じるまで画面遷移も一切無く、エラー画面もログも表示されないという
文字通り「止まる」としか表現しようがない状態だったのです。
切り分け不足だったのはひとえに自分の力不足です。

その後、unlink $file or die $!;に記述を修正して実行したところ
以下のようなログが表示されました。

[error] [client ::1] Operation not permitted at huga line 122., referer: hoge

122行目はやはりunlink $file or die $!;です。
Operation not permittedを調べてみましたが、実行権に関するエラーのようですね。
もう少し実行権まわりを検証してみて、まだ動かないようでしたら
またお知恵を借りにくるかもしれません。勉強になりました。ありがとうございます。
0633nobodyさん2009/06/12(金) 08:03:34ID:???
>>632
パーティションが違うんじゃないの？
0634nobodyさん2009/06/12(金) 08:22:59ID:???
>>605で
unlink "./icon/" . $icon or die $!
って書いてあるじゃん。力不足とかいう話じゃなくて姿勢の問題。
他にもいっぱいアドバイス貰ってるのに相手に失礼だろ。
0635nobodyさん2009/06/12(金) 11:12:28ID:???
utimeで更新時刻の変更は出来るようですが、
作成日時を変更することは出来ますか？
0636nobodyさん2009/06/12(金) 11:19:41ID:???
出来ないだろうな
i領域書き換えないといけないわけだし
0637nobodyさん2009/06/12(金) 11:38:04ID:???
う、出来ませんか…。
タイムスタンプ変更ソフトだと一括変更が多くて、
拡張子で分けたり条件で時刻だけ変更したり出来ないので
Perlでやりたいと思ったのですが残念です。
0638nobodyさん2009/06/12(金) 11:43:59ID:???
じゃあ一時ファイル作成してリネームを繰り返すしか
0639nobodyさん2009/06/12(金) 13:20:19ID:???
OSがWindowsなら、こんなのがあるけどね。
http://search.cpan.org/~wyant/Win32API-File-Time-0.006/lib/Win32API/File/Time.pm
06406042009/06/12(金) 14:18:45ID:???
>>634
ごめんなさい。
>>605さんの発言を見て、
初めてunlink "./icon/" . $icon or die $!を試すことに気づきました。
それでやってみて初めてエラーログに表示されたので、
他の方のアドバイスもすべて見て参考にしつつ
自力でもなんとかしないと逆に失礼だと思って>>632のように書いたのです。

書き方等、不快にさせてしまって本当に申し訳ないです。ごめんなさい。
0641nobodyさん2009/06/12(金) 16:46:11ID:???
635です、すみませんOS書いていませんでした…。
Windowsなので、>>639さんのリンクで解決しました！
ありがとうございました。
0642nobodyさん2009/06/16(火) 12:04:02ID:???
始めまして。質問させて頂きます。
『２００９．６．１５．火』という文字列を
『２００９/６/１５-火』という状態に置き換えしたいです。
$hoge=~ s/．/\//g で置き換え、
『２００９/６/１５/火』にしたあと一番最後の/を-に置き換えする事を考えていますが、
似たような処理が複数あるため、もっとシンプルに
『２００９/６/１５-火』に置き換えする方法をご教授頂ければ幸いです。
0643nobodyさん2009/06/16(火) 12:12:35ID:???
>>642
方法はそれでいいんじゃねーの? たくさんあるならサブルーチンで。
0644nobodyさん2009/06/16(火) 12:29:59ID:???
$hoge =~ s|『(\d+)．(\d+)．(\d+)．(.{1})』|『$1/$2/$3-$4』|;

これでいいんじゃね

0645nobodyさん2009/06/16(火) 12:36:28ID:???
数字全角みたいよ。
0646nobodyさん2009/06/16(火) 12:42:00ID:???
s/．/\//g and s/(.*)\//$1-/　または
s/．(.*?)．(.*?)．/\/$1\/$2-/
0647nobodyさん2009/06/16(火) 12:58:04ID:???
>>646
*じゃなくて、+にすべき
0648nobodyさん2009/06/16(火) 12:59:39ID:???
>>645
じゃあこれでいいや

$hoge =~ s|『(.+)．(.+)．(.+)．(.{1})』|『$1/$2/$3-$4』|;

あと、なんでみんな無理して/使うんだろ
0649nobodyさん2009/06/16(火) 13:05:01ID:???
> .{1}
これが妙に気になる

あとエスケープが面倒なときは {}!|# 辺りを見かけることのほうが多いよ
0650nobodyさん2009/06/16(火) 13:14:08ID:???
初心者に示すときにわざわざ別のデリミタ使うほうが二度手間だろ
また聞き返されてそれの説明しなきゃいけないし
0651nobodyさん2009/06/16(火) 14:00:37ID:???
>>646
下の方法で対応できました。
どうもありがとうございました。
0652nobodyさん2009/06/16(火) 14:34:08ID:???
utf8かencodingを宣言しつつ、
$str =~ s{(\d\d\d\d)．(\d\d?)．(\d\d?)．(.)}{$1/$2/$3-$4}g;

>>644>>648さんに近いな。
0653nobodyさん2009/06/16(火) 16:23:50ID:???
なんでわざわざ正規表現使うんだ？
$str = sprintf '%s/%s/%s-%s', split '．', $str;

これでいいだろ
汎用性も十分
06546522009/06/16(火) 17:17:40ID:???
>>653
文章中に複数埋め込まれることを想定してるから。
0655nobodyさん2009/06/16(火) 17:40:25ID:???
わざわざっつーか、正規表現使う方が簡単だろｊｋ
0656nobodyさん2009/06/16(火) 17:49:48ID:???
正規表現読みにくい
0657nobodyさん2009/06/16(火) 17:51:54ID:???
>>656
最初だけ。
その最初を越えないと、ずっとだけど。
0658nobodyさん2009/06/16(火) 17:58:20ID:???
誰も読めないなんて言ってないぞ
特に今回なんかはセパレータが全角ピリオドだし見分けつかんよ
正規表現書くにしても二度手間とか思わず読みやすくして欲しい
0659nobodyさん2009/06/16(火) 19:40:53ID:???
2chの回答で、その水準を要求されても困るわけだが。
0660nobodyさん2009/06/16(火) 19:54:36ID:???
正規表現を使う時は、コメントをつけてるなあ。

処理の内容そのものを示すコメントって
あんまり良いコメントとは言えないのかもしれないけど。
0661nobodyさん2009/06/16(火) 20:19:22ID:???
では、今後よろしく >>660
06626602009/06/16(火) 23:17:31ID:???
>661
え？ 何が？
0663nobodyさん2009/06/16(火) 23:19:47ID:???
正規表現は読みにくいものだ
人間を機械に近づける代わりにエッセンスで書ける
06646612009/06/16(火) 23:45:46ID:???
>>662
Perlコーディング初心者質問スレなので、
コメントの書かれた正規表現での回答。
0665nobodyさん2009/06/16(火) 23:53:35ID:???
>664
ぼく質問する側だもん
0666nobodyさん2009/06/17(水) 00:46:18ID:???
変数に入ったリファレンスが、配列のリファレンスか、
ハッシュのリファレンスかを知る上手い方法はありますでしょうか？

今考えているのはsprintfでリファレンスを書き出してみて
その文字列の中にHASH かARRAYのどちらがあるかでやろうかと考えています。
他におすすめの方法があればお願いします。
■ このスレッドは過去ログ倉庫に格納されています