今は日本語処理はEncodeモジュール一択
# [Perl 日本語処理の基礎の基礎]
なんかへんなのに割り込まれちった。まあいいや。
1レスで理解できるutf8フラグ
use Encode;
バイナリと文字列は同じものなので区別なく扱えるのがUNIXやPerlの利点。
> バイナリと文字列は同じものなので
OSに関係なく、少なくとも文字列はバイナリデータに含まれます。
そしてバイナリデータを文字列のように扱えるのなら覚えることが
・バイナリ
つまんないこと言ってないで、Data::Dumper 答えてやれよ
テキストデータとバイナリデータの違いは何かという普遍的な議論へ
文字列フラグというければ、chr($n) で $n < 255 のときとそうでない
>>20 だから、そういうへんな挙動がないEncodeモジュールを
使ってくださいと書いてあるんだよ。
http://perldoc.jp/docs/perl/5.8.1/utf8.pod > utf8::encode($string)
>
> 論理キャラクタを、8ビットシーケンス表現に、PerlのUTF-Xエンコーディングに、
> (適切に)変換します。何も返しません。 Encode::encode_utf8()と同じです。
> 次のことに注意してください。レガシーのバイトエンコーディングを、
> Unicode にする変換に使うべきではありません:そのためには、Encode を使って下さい。
>>17 そこに書いた「文字列」を「文字列インスタンス」「文字列オブジェクト」
と書換えるのなら構わないけど、一般的な言葉の「文字列」をその定義に
しちまうのはどうよ？
そうでないと今、見えているものが文字列じゃなくなっちゃうぞ。
> そうでないと今、見えているものが文字列じゃなくなっちゃうぞ。
そもそも紙に手書きしたものも文字列だし、印刷した場合でも文字列。
>>25 意味がわからん。
今はコンピュータ上の文字の表現の仕方の話だろ。
手書きしたものとか言い出したら、
文字はバイナリではない（分子かなんかカ？ｗ）ということになるだろ。
なに関係ありそうで関係ないものの話持ちだしてんだかｗ
こいつは頭が悪いと認定してよさそうだ。
バイナリだけでは、それを文字として認識することは不可能。
>>27 中途半端に持ってくるなよ
基本的に、コンピュータは数字だけを扱います。彼らはそれぞれに番号を割り当てることによって、
文字や他の文字を格納する。ユニコードが発明される前に、これらの番号を割り当てるための
さまざまなエンコーディングシステムの何百ものがあった。単一の符号化に十分な文字が含まれていないことができます：
例えば、欧州連合（EU）だけではそのすべての言語をカバーするいくつかの異なるエンコーディングが必要です。
であっても英語のような単一言語の単一の符号化は、共通使用されているすべての文字、句読点、技術記号のための十分でした。
お互いに、これらの符号化システムは、また競合。つまり、二つのエンコーディングは、2つの異なる文字に対して同じ番号を使用して、
または同じ文字に異なる番号を使用することができます。任意のコンピュータ（特にサーバ）さまざまなエンコーディングを
サポートする必要があります。まだいつでもデータが異なるエンコーディングやプラットフォーム間で受け渡され、データは常に破損の危険性を実行される。
>>29 からも解るように、
「2つの異なる文字に対して同じ番号」を割り当てるわけ。
つまり番号からでは、どの文字かどうかはわからない。
そこで使用されるのが、エンコーディング（文字コード）
番号を文字として認識するには、文字コード情報が必要不可欠
ここがPerlスレなのは承知してるけど、文字列はPerlだけのものじゃないだろ？
>>31 そういう場合は文字を一旦バイナリに変換する。
そして他の言語でバイナリとして読み取ったものを
その言語用の文字列として変換するんだよ。
どうしてもバイナリと対比させたいんだなｗ
お前の母ちゃんバイナリ扱えるのか、ちょっと感心した。
もしかして、テキストエディタと
だからコンピュータに自動判定させるなって。
コンピュータは文字(文字列も)扱えないんだからさ。
文字(文字列)を扱っているのはお前で、お前のコンピュータが文字を
コンピューター一般においての文字列（テキストデータ）として話してる人と、
perlのutf8フラグの話が発端なんだから
（△△△クラスの）文字列オブジェクトって言ってくれれば、言っている
>>42 ここはperlスレ。
perlにおいて文字列オブジェクトとは
変数の値にUTF8フラグがついたもの。
>>41 格納される前は、格納されるものを何て呼べばいいの？
そこを議論しているつもり。
確かに格納される前の話はPerlと無関係かもしれないけれど、説明したり
するときにどうしてもそれを表わさないといけないよね？
つ ソース文字列
A) 文字列にはソース文字列が格納されている
文字列にはリテラルの語感があるので、A) が不自然に感じる。
>>44 これでも読んでください。
http://perldoc.jp/docs/perl/5.10.0/perlunitut.pod ・テキスト文字列(文字の文字列)
テキスト文字列、または 文字の文字列 は文字からなります。
バイト列はここでは無意味で、エンコーディングがあります。 各文字は単に文字です。
テキスト文字列は Unicode 文字列 とも呼ばれます; なぜなら、Perl では テキスト文字列は Unicode 文字列だからです。
・バイナリ文字列(バイト文字列)
バイナリ文字列、または バイト文字列 はバイト列からなります。
ここでは、文字はなく、単にバイトだけがあります。
外側の世界(現在の Perl プロセスの外側のあらゆるもの) との通信はバイナリで 行われます。
・エンコード
エンコード は テキスト から バイナリ への変換です
・デコード
デコード は バイナリ から テキスト への変換です。
質問：二次元配列の、最後の配列要素の最後の要素を参照するにはどうすればいいでしょうか。
なんてことはない、
print (@{$array[-1]})[-1];
print $array[-1][-1];
arrayって
54 ：
デフォルトの名無しさん ：2011/10/30(日) 18:36:16.81
アレィ
A') 数値にはソース数値が格納されている
変数に数値（数値オブジェクト）が格納されている。
>>51 >>52 ありがとうございます。
[-1]だと何故かダメなんです。表示されません。
>>57 -1 が使えない状況がおかしい。
使えないというコードそのままさらしてみ?
>>56 格納される前は？
これから格納しようかと思っているものの名称は？
>>59 要するに変数の右辺だろ？
変数に入れたからって、右辺の状態が
変更されるわけ無いだろ。
変数に入れるまでもなく、
数値、バイナリ値、文字列、ついでにオブジェクトだよ。
×要するに変数の右辺だろ？
右辺といってる時点でもうスクリプトの中の話になってるしｗ
え？ スクリプト外？
なら答えは
>>48 に書いてあるじゃん。
> 外側の世界(現在の Perl プロセスの外側のあらゆるもの) との通信はバイナリで 行われます。
はい、バイナリです。
おれ、この流れすきwww
スクリプトの外には出たものの、まだコンピュータの中だな。
1レスどころか66レスまでひっぱるutf8フラグ
utf8フラグがあるべきところ
{
>>58 環境はHTML出力なので、
あまり周辺を広げるとスレ違いになりそうなんすが、
my @current_month = calendar($mon,$year); #@current_monthに対象月の日にちデータを二次元配列で格納。
print @{$current_month[-1]}[-1]; #対象月の最終日を表示。
試したもの↓
print "$current_month[-1][-1]";
print "@{$current_month[-1]}[-1]";
print "@{$current_month[$#current_month][-1]}";
print "$current_month[$#current_month][-1]";
""を外してみてもダメでした。
calendar が1次元配列で返せば解決
「初めてのPerl 第３版」（ちょと古い）をひと通り読んで、
>>72 週ごとに区別する都合で２次元配列なんです。
いろいろ手間をかければ月の最終日が何日なのかは参照できると思いますが、
一発でアクセスできる方法があればなと……。
@{$current_month[-1]} は最終週を返しているか確認した？
use Data::Dumper ;
print (grep(/\d/,@{$current_month[-1]}))[-1];
一週間は7日固定で作られていて、最終週の後半は undef で
>>78 今日はもうコードをチェックしませんが、恐らく真理です……。
calendarモジュールから取得した日にちデータを、
実際のカレンダーのように、日～土までを一行として表組みしてます。
仮に月曜日でその月が終わるとすると、火～土までは空白セルとして表示するようになってます。
……とすると配列の最後尾にアクセスするんじゃなくて、
undefでない最後の有効値にアクセスするように書けばいいってことですよね。
いちいちループ使ってその配列の後ろからundefかそうでないかを調べていったほうが早いでしょうか。
一発で最後の有効値にアクセスする方法ってあります？
>>79 77氏がその質問を予見してて、答えの一案を書いてるだろ。
undef かもしれないものに直接 /\d/ はダメじゃね
use strict; use warnings; もしてないであろう
>>79 なら平気かしらんが
>>73 続・初めてのPerl 改訂版
まるごとPerl！ Vol.1
それに腐っても鯛、
プログラミングPerl 第３版
は、読む価値がある
でもその前に
プログラミングPerl 第２版
を薦めておく
オライリーだからいいって言ってるだけで
>>79 欲しいのは「二次元配列の最後の(undefではない)要素の値」なのか、
「その年・月の末日の日付」なのか、どっち?
後者ならその配列の値を参照する以外にも取得方法はあると思うが。
use Date::Calc qw(Days_in_Month);
print Days_in_Month($year,$mon);
とか。
まあ
>>77 の方法でもいいだろうけど。
Imager.pmで画像のリサイズをしています。
>>79 俺だとこうするかなぁ。行頭の空白全角にしてるけど：
my $last_day = (
grep { defined $_ }
map { @{$_} }
@current_month
)[-1];
>>18 Data::Dumperは出力結果をevalすると元に戻るというのも趣旨の1つ。
そのため、元がテキスト文字列だったものをevalしてもテキスト文字列
に戻るように、"\x{ff84}"という記法で出力している。
use warnings して warnings の出力ちゃんと見てればあんな質問する前に原因に気づけてるはずなんだよ……
90 ：
デフォルトの名無しさん ：2011/11/01(火) 17:59:02.82
perlのソート関数ってどんなソート方法が使われているんですか？
91 ：
デフォルトの名無しさん ：2011/11/01(火) 18:01:00.07
訂正：１０００＊（１０００ーｎ）回のループです
#!/usr/bin/perl -w
>>94 おー ありがとうございます。
ソースが職場なので、あとで確認してみます。
この辺の漢字圏の文化を踏まえたPerlの本が
あると良いのですけど、ありませんかね？
漢字とか知らないけど
ユーザが繰り出すモジュールで最先端が変化するってのも
Perlは管理する団体がないからね。
CJKV日中韓越情報処理 ケン ランディ、小松 章、逆井 克己
Windows 2000、Activeperl 5.8 の環境で、
>>83 お薦めだけでも300冊位思いついちゃってレスがまんどくさく
なっちゃったんだろうなｗ
103 ：
デフォルトの名無しさん ：2011/11/03(木) 19:34:23.06
とあるサイトで、ファイルのオープンは３つの引数を指定してオープンするのを強く推奨していました。
DBI で長ったらしい SQL を複数行で書きたいのですがどうすればいいですか?
my $dbh = $DBI->connect(引数);
my $sth = $dbh->prepare("SELECT なんちゃらかんちゃら ～ 超長ったらしい ～;"); # ←ここ！
$sth->execute();
$sth->finish();
$dbh->disconnect();
>>103 OS コマンドインジェクション
例えば次のような open 関数呼び出しは危険。
open($fh, $filename);
この状態だと $filename = ";halt"みたいにして外部コマンドを実行できる。
対策として、
open($fh, "<$filename");
open($fh, "<", $filename);
sysopen($fh, $filename, O_RDONLY);
みたいにすると OS コマンドを実行できなくなる。
>>102 ありがとうございます。
行ってみます。
>>104 $sql = <<"_SQL_";
SELECT foo FROM table WHERE ～
_SQL_
$sth = prepare( $sql );
107 ：
103 ：2011/11/03(木) 20:54:27.16
>>104 なるほど～
任意の外部コマンドが実行されてしまう可能性があるって事だったのですね・・・
わかりました、これからは３つ引数でオープンする事にします。
ありがとうございます。
ちなみに、sql文は、
my $sth = $dbh->prepare(
"SELECT なんちゃらかんちゃら ".
"FROM 超長ったらしい ".
"WHERE うんたらかんたら"
);
の、ように、俺は分割してます。
>>106 まちがった。
$sth = $dbh -> prepare( $sql );
だす。
(my $sql = <<END_SQL) =~ s/\n//g;
110 ：
104 ：2011/11/03(木) 21:13:42.72
>>106 >>107-108 ありがとうございます！
確かにヒアドキュメントとか文字列の結合を使えばできますねw
Cから乗り換えたばかりなのでなかなか思いつきませんでした。
111 ：
104 ：2011/11/03(木) 21:14:08.56
>>94 use utf8でうまく漢字が出るようになりました！
ありがとうございました。
>>87 うわ、ありがとうございます、よくわかりました。
前スレで答えてくれた方もありがとうございました。
>>104 折り返して書く小細工で極低頻度に発症するバグで呼び出されることも
あるのでそのまま1行で書くのもまた一興。
mooseのisaってStr,Intってあるけど、両方入ってくる可能性がある場合はどうしたらいいですか？
なるほど、Str|Intのほうが分かりやすくて親切かもと思ったけど、Strがある時点でNumも許容されちゃうからダメですね。
118 ：
104 ：2011/11/05(土) 16:49:36.33
>>114 ありがとうございます。
参考にさせていただきます。
正規表現で /$self->method/とやっても$selfだけ展開されちゃってて、教えてもらったのが
my $arrayref = [ $self->method ];
121 ：
119 ：2011/11/07(月) 01:10:07.93
えぇぇ、、、、それはなんか微妙ですね、、、、
>>119 なんだか変な方法で展開してるね・・・
${self->method}で十分だと思うんだけど・・・
わざわざ、$self->methodの値を配列のリファレンスにして、
それをデリファレンスしてる・・・
意味があるんだろうか・・・俺も教えてほしい
print "${\( some_func() )}"
if ($string =~ $self->method) {
>>123 いや、まじめなんだけど・・・
それが配列リファレンスだったとしても、
@{$self->method}で十分だと思うし・・・
どういう事なのですか？教えてください
まず
>>122 、${hoge} と ${self->method} とでは ${ } の意味合いが違う。
前者は $hoge だが、後者は self->method の戻り値をスカラーリファレンスと見做してデリファレンスするという意味になる。
しかし self->method なんてものは元々の話に出ていないので、見当違い。
次、
>>126 。$self->method の戻り値は配列リファレンスじゃなくて単品の文字列だから、
@ で配列にデリファレンスする前に [ ] で囲って要素1つの配列リファレンスに仕立ててあげる必要があるわけ。
>>127 あぁそっか、大きな間違いをしてた
$self->methodはサブルーチンのリファレンスだったね
しかし変な評価の仕方だな～って思って見なおしたけど、
言われてみれば、この形・・・
CGIとかでHTMLをヒアドキメントで書いた時、
その中で関数を実行する時に、この形書いた事があったや・・・
勉強になりました
129 ：
デフォルトの名無しさん ：2011/11/08(火) 00:01:09.30
ファイルポインタを指定した行の先頭に移動させるにはどうしたらいいんですか？
>>129 そもそも何行目かってのは
改行コードが何回出たかを数えないと特定不能
先頭から順番に読んで改行を数えるか
ファイル丸ごとリストに読んでから添字で飛ぶかしかない
ぶっちゃけそのままの方法が最善じゃないか？
>>129 @list = <$fh>;
とかやって配列で扱う
pushとpopでぽぽぽぽーん
>>129 $countとかいう不気味なカウンタ付けてるのが気になる
行数カウントなら自前で用意しなくても $. がある
相当な素人っぽいから、そこらの本やらサイトやらperldocやらを読んでみたほうがいい
134 ：
デフォルトの名無しさん ：2011/11/08(火) 12:17:14.78
>>134 たったの6年でドヤ顔されても困るんだがｗ
>>134 俺は13年だぜ（キリッ
しかし別に13年ずっとperlじゃないから、
ぜんぜん詳しくなく普通くらいなんだぜ！
出ました『普通』！！
>>138 print "hello world"; (ドヤ
文字列を直接スカラー変数にする方法はどのようにするのでしょうか？
my $string = "a";
単一の文字列リテラルに対してなら括弧いらんぞ
>>143 どうしてこういうヤツは例を上げれないの？
質問スレにお前は必要なの？
こういうことかな。めったに使わない気はする。
perlの本とかにはねーなー
147 ：
143 ：2011/11/09(水) 16:03:25.19
perlref にこんなんあるよ。
この本にありそうかな？
「すぐわかるオブジェクト指向Perl」 深沢千尋 2008
http://www.supee.jp/sop/contents.html 2-4 名もないスカラー~無名スカラーリファレンス
のところがそれっぽい
ただ、「スカラー変数のリファレンスはあまり役に立たない 」とズバリ書かれてる
でもその後に無名配列、無名ハッシュ、そして無名関数と続いて、
最後にはクロージャに行きつくはずだから、
無名スカラーのリファレンスは、かならず説明しなきゃーならないモンなんだろう
149 ：
141 ：2011/11/09(水) 16:25:07.58
おお、たくさん議論されている。
定数を作るのに役立つと、どっかのサイトで見た記憶がある
>>145 >>150 http://perldoc.jp/docs/perl/5.10.0/perlmod.pod#Symbol32Tables > シンボルテーブルの別の使い方は、「定数」スカラを生成するためのものです。
> *PI = \3.14159265358979;
constant プラグマやプロトタイプ宣言による定数は関数なので文字列中に埋め込みにくい。
#!/usr/bin/perl -w
use strict;
sub CONST () { 'foo' }
our $Const; *Const = \'foo';
print join ' ', 'bar', CONST, $Const, "baz\n";
print "bar ${\ CONST() } $Const baz\n";
$Const = 'quux'; # Modification of a read-only value attempted at ...
スカラ変数にblessするのをどっかで読んだがどこかは忘れた
定数なら内部フラグを操作する関数を利用する手もあるね
定数は関数にするってのはマズいのか？
ちょっと何言ってるかわかんないです。
>>155 sub HOGEHOGE() { 10; }
パ・パ・パパッパ～Perlライス
インストールされているモジュールの一覧を確認したいと思っています。
162 ：
160 ：2011/11/11(金) 17:14:09.51
>>161 new()の所で設定できるんですね。
解決しました。ありがとうございます。
163 ：
デフォルトの名無しさん ：2011/11/11(金) 21:37:08.92
my $output = `/bin/ls -ls`
>>163 my @output = `/bin/ls -ls`;
これで、配列outputの各要素に1行ずつ格納できる。
それをどう処理するかは、outputの扱い次第。
>>163 while(<>) での <> をダイアモンド演算子と呼ぶ。
普通のファイルハンドラならダイアモンド演算子の部分を
<FH>とか<$fh>などと書けばいいのであるが、
$outputというスカラで受け取ってはどう書くのが分からない……のだとする。
とすれば
>>164 の言う通り結果を配列で受け取って、
for (@output) {
#処理（$_が使える、$.は使えない）
}
のように、forで配列を書いて一行ずつ処理すればいい。
>>163 my @output = `/bin/ls -ls`;
foreach my $temp ( @output ){
# $tempが配列の各要素として扱える。
}
質問者ではないんだけど、リストコンテキストだから丸飲みってことだよね。
open my $fh, '-|', '/bin/ls -ls';
169 ：
デフォルトの名無しさん ：2011/11/11(金) 23:44:03.07
great!
Glad to help you. I wish this was StackOverflow so that I could get a +1 or more.
171 ：
デフォルトの名無しさん ：2011/11/12(土) 11:49:12.12
日本語でおk
どうやればいいのかさっぱりわからん
my $val = 1 / 3;
Math::BigInt
UTF8の文字列を[0-9a-z_]+のみに変換して、それを元に戻したいです。
181 ：
180 ：2011/11/14(月) 15:56:56.41
今まで試行錯誤続けて、いったんUTF8フラグを外すとちゃんと動作しました。
pack "H*" とかだと[0-9a-z_]じゃなくて[0-9a-f]になっちゃうけどそれでもいいのかい
>>181 utf8フラグを外さずに処理したいなら
use Encode;
my $word = unpack('H*', encode('utf8', 'フルーツ'));
# ...
$word = decode('utf8', pack('H*', $word));
とか
184 ：
180 ：2011/11/14(月) 16:17:56.04
>>182-183 ありがとうございます。範囲内に収まってたらOKってことで、解決しました。
あれ、でも自分で書いたのが
>>183 さんの方法と同じ感じだ
Encode::encode('utf8',$word);でフラグ外れるものと思ってた
>>184 ああ、utf8フラグを外すっていうのを
use utf8;
を使わないって解釈しました
use utf8;
要素が文字列の配列が空であるかを調べたいのですが
> 要素が文字列の配列が空であるか
すいません
うんでｆ
空？
if(hairetsu is sky) {
配列・イン・ザ・スカイ・ウィズ・ダイアモンド演算子
すみません寝てしまいました
defineというもの自体知らなかった初心者ですのでもう一度基礎から勉強しようと思います
初期化は@array = ();とやってました
>>191 わかりやすい解説ありがとうございます
おかげでやりたいことができました
196 ：
193 ：2011/11/15(火) 03:25:16.03
どういたしまして
activeperlでsleepさせている最中にwindowを休止させます
my $hoge = { hoge => 'HOGE' };
>>199 途中で書き込んでしまいました。。
リファレンスのアドレスを変えずに沢山の要素を追加したいです。
①これではアドレスが変わってしまいます。
my $hoge = { hoge => 'HOGE' };
print "$hoge\n";
$hoge = {
%$hoge,
huga => 'HUGA',
piyo => 'PIYO',
};
print "$hoge\n";
②これだとアドレスは変わりません。
my $hoge = { hoge => 'HOGE' };
print "$hoge\n";
$hoge->{fuga} = 'FUGA';
$hoge->{piyo} = 'PIYO';
print "$hoge\n";
--------------------------------
①のようにできると書くのが楽だし、1処理で済むので処理も早いのではないかと思っています。
しかしアドレスを変えずにリファレンスに追加するには②の方法しかないのでしょうか。
書くのが楽かどうかは趣味の問題だが、どうみてもハッシュをいったん
「アドレスが変わってしまう」わけではない。
204 ：
デフォルトの名無しさん ：2011/11/17(木) 21:22:00.11
あ～んまで文字について順に処理する方法が知りたいです
50個ぐらい手書きで問題ない
あからんまで手書きで問題ない
% perl -CO -Mutf8 -e 'print chr for ord "ぁ" .. 3+ord "ん"'
map { chr } ord('あ') .. ord('ん')
whileはきらい
orz(あ)
一人のNewbieがGuruに問うた。
URL はアクセスするのに使ってるわけじゃないから関係ない
新しいかどうかよりも、
インストールできなかったらちゃんとテストされてても意味がない件について
逆に言えば、インストールできればちゃんとテストされていて意味がある。
perlをインストールしようとしてて、いつの間にかCGI::url()のテスト
え？
つ SKIP
220 ：
デフォルトの名無しさん ：2011/11/19(土) 15:19:40.24
え？
>>198 以下のように時間を計測しながらsleepさせるとどうなりますかね？
my $sleep_time = 100;
my $end_time = time + $sleep_time;
sleep $end_time - time while $end_time > time;
>>212 スキップして先に進め
test(14,1,"SKIP CGI::url()"); #function.t
test(15,1,"SKIP CGI::url()"); #request.t
223 ：
212 ：2011/11/22(火) 13:36:21.87
>>213-217 改版が終わった安定した偶数バージョンを使いたいと思い5.10に行きつきました。
しかしよく調べると、5.10.1がありましたのでこれを使用することににました。
コメントありがとうございました。
>>219 ,221
最初SKIPというコマンドがあるのかと思って調べていましたがみあたらず、221で1の所で
判定しているんだということがわかり、SKIP方法が理解できました。
ヒント＆具体的な解説まであり助かりました。
遅くなりましたが、お礼＆無事インストールできたことを報告しておきます。
linuxにcpanで下記のようにHTML::Template::Proをインストールしました。
perl -MCPAN -e 'install HTML::Template::Pro'
インストールはできましたが、YAMLが無いというようなワーニングが出ました。
気になって下記を実行しましたが、以下のようなメッセージで落ちました。
perl -MCPAN -e 'install YAML'
Can't locate object method "install" via package "YAML" at -e line 1.
下記では、YAMLを読まない設定にした。とありました。
ttp://d.hatena.ne.jp/hsmnet/20110409/1302367029 YAMLを調べてみるとマニュアルあたりをさわるのに使うもののようですが、これは読まないようにして良いのでしょうか。
225 ：
sage ：2011/11/23(水) 22:56:05.45
XML::DOM
CSS Selector って言葉を知らんとみえる
確かにjQueryは便利すぎるよな。
229 ：
sage ：2011/11/24(木) 00:19:09.28
225です。
単純なことならHTML::TokeParserがお手軽で好きかな
サブルーチンを配列に格納したいです。
例えば
print $func[0]->();
236 ：
sage ：2011/11/24(木) 15:13:34.49
225です。
>>230 は結構よさげかも、、、。
でも、さがしたら 同名（実装はまったく別）のものがPHPにもあり、
さらに、検索するとそのほうが上に来る、というトホホぶり。
いわゆる「スクレイピング」の話しなわけですが、
なにかいい解決策ありませんか？ ＞ みなさま。
scraper使う
238 ：
sage ：2011/11/24(木) 16:45:25.42
225です。
そんなことよりなんで名前欄もsageにしているのか気になる
2ch初心者 && 「sageを入れる」ことは覚えている && sageをどっちに入れるか覚えていない
Web::Scraperできまりだな。
242 ：
デフォルトの名無しさん ：2011/11/25(金) 13:46:26.11
フォームで入力したパスワードを暗号化して元に戻すサブルーチンってありますか？
243 ：
sage ：2011/11/25(金) 13:50:03.63
244 ：
デフォルトの名無しさん ：2011/11/25(金) 20:46:04.70
引数でアスタリスクを渡すにはどうしたらいいんでしょう？
はい
オススメのIDE教えろ糞ども
V・I・M！V・I・M！
Visual Studio
イデ？
CGIに値を渡したいときの方法で質問です。
①
ttp://example.com/index.cgi/1/2/ と、$PATH_INFOで渡すのと
②
ttp://example.com/?a=1&b=2 と、.htaccessに「DirectoryIndex index.cgi」を書いてPOST風？（呼び方がわからない）で取得する方法があると思いますが、
みなさんどちらを使っていますか？
どちらを使おうか悩んでいます。
（最初、index.cgiを消して$PATH_INFOで渡せればすっきりするなと思いましたが、それだと
ttp://example.com/1/2/となって index.cgiを読ませる場所と$PATH_INFOの切り分けができないと気づいて今に至っています）
個人の好みになるかもしれませんが、こっちをこんな理由で使っているという感想などいただけたら参考にしたいと思います。
ちなみにformタグではGETを使用しています。
256 ：
254 ：2011/11/26(土) 22:24:28.56
>>255 CGI専用スレがあったんですね。
そちらに行ってきます。
失礼しました。
原書のプログラミングPerl 4版が12月に出た。
Larryがこれまで篭もっていたのは日本語学習のためだとしたら、
そいつはなんとも心強い。
そして裏切られるｗ
久しぶりにactiveperlインストールしたら、絶対パスじゃないとファイルの読み書きが出来ない
>>262 その場所にファイルを作る権限はあるの？
>>263 Administratorでログオンしてるので問題ないと思ってましたがperlディレクトリに読み取り専用チェック入ってました。
チェック外しても次にプロパティ開くとまたチェック入ってる…orz
perlどうこうってよりwindows7の問題でしょうか
XPの時は相対パスで使えてたんですが
しつもんです。
>>265 内部実装を直接呼んでるか、
ツールとして整えられたコマンドを使うかの違い。
内部的には、cpanコマンドはCPAN.pmを呼んでる。
あと最近はcpanminusがナウい
perlでは、空文字列が偽になるのはいいのですが、「"0"」も偽になるみたいで困ってます。
>>268 print ($a eq "" ? 'X' : $a);
$sが必ず文字列なら
undef "" 0
お前ら。
昔のPerlで止まってしまって、
>>273 へ～、知らなかった～って思って、
my $a = 2;
if ($a eq "1" // $a eq "2") {
print "１か２だな";
}else {
print "１でも２でもないな";
}
ってやったら、うまく動かないんですが釣りですかこの野郎
undef と他の偽値とを区別する話なら// でいいけど（perl >= 5.10 という注釈つきで）、
// を覚えたてでうれしくて仕方ないんだろうな。
>>273 0とか空文字扱いたい時に||じゃ困るってことだろ。
$v = 0;
$v //= 'default';
print "$v\n";
$v ||= 'default?';
print "$v\n";
283 ：
262 ：2011/11/28(月) 22:58:34.33
>>276 それこそモダンなperlを知らないのでお見苦しくてすみません。
open(FILE,'>','test.dat'); #こんな感じでしょうか
ググった末に警告レベル下げてUAC無効化しても相対パスだとファイル作成できませんでした。
でもその過程でコマンドプロンプトから実行する分には相対パスでも問題ないことが発覚。
CommandLineInterpreterの問題だろうとあれこれ試した結果、perl5.12.4.exeで開けば
大丈夫であることが分かりました。
よく分からないけど相対パス使えるようになったので良しとします。
スレ汚し失礼しました。
>>267 レスありがとうございます。
気になっていたことがすっきりしました。
cpanminusは後ほど調べてみたいと思います。
ありがとうございました。
>>283 > open(FILE,'>','test.dat'); #こんな感じでしょうか
openの構文、それぞれのパラメータの意味をきちんと調べたのか？
286 ：
262 ：2011/11/29(火) 13:49:43.06
>>285 open(ハンドル,ファイル); と認識してます。
>>286 それじゃ引数は2個だろうが。
なんか…根本的に向いてないね。
知識ではなく、物の考え方がね。
288 ：
262 ：2011/11/29(火) 14:48:19.01
3つ目の引数が何を指定するものか、さらっと検索した限りでは分かりませんでした。
いやそんなの検索しなくてもマニュアルに書いてあるぞ…
290 ：
デフォルトの名無しさん ：2011/11/29(火) 15:41:57.57
ほんと向いてないね。
>>283 で本人が終了させてんのに粘着する方もどうなんよ
292 ：
デフォルトの名無しさん ：2011/11/29(火) 15:46:55.86
293 ：
262 ：2011/11/29(火) 16:14:34.70
>>289 なんか荒れてるけどその話付き合った方がいい？
294 ：
デフォルトの名無しさん ：2011/11/29(火) 16:59:10.40
本人ｷﾀ━(ﾟ∀ﾟ)━ｗｗｗ
CPANモジュールガイドは良本
左の白いのまじおもしろくねー ヘラヘラしてそう
この前身タイツのアホは「これで真珠だ！」とか思ってねーだろな？
CPANモジュールガイドは駄本
駱駝本？
>>301 あれ？まじで？
俺はいままでモジュールってほとんど使った事なかったけど、
この本見て、こんな便利なモジュールいっぱいあるのかーって関心したけど・・・
でも、便利なモジュール使いまくると、
もうPerlじゃないね、違う言語になる
関心→感心
>>303 同意ですです。
まあ、その人の習熟度に依るんだろうけど。
正規表現の中に@を使ったらうまくいかなくて\@にしたら動いたけど、
配列
Perlは言語というよりCPANにアクセスするためのツールだと思ってる。
>>306 変数として展開されてしまうからな。
メアドの正規表現ならEmail::Valid使った方がいいかも。
$が展開されるのは判るけど、@なんか展開したって添え字の数になるだけだろうに
えっ？
>>308 俺は多機能テキストフィルタとして使うかな
>>311 まだ1/3くらい
実際に試しながら読んでるし・・・
何？後半で恐ろしい雑な説明になってるとか、
突然フォントのサイズが巨大になって内容が薄くなってるとか？
でも実際、教科書類の余白性は重要だ
文字列が全て全角カタカナだったらヒットさせる場合は下記でできたのですが、
(A|B|C)
318 ：
316 ：2011/12/02(金) 14:26:41.44
てｓｔ
(A|B)
321 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/02(金) 17:14:12.94
ゲーム開発者＞＞＞＞Perlエンジニア
>>321 F1レーサー＞＞＞＞車の整備士
と、言われてるくらい違和感ある
比べる物が違うだろ・・・
どうせ釣り針垂らすなら・・・
Rubyエンジニア（モダン）＞＞＞＞Perlエンジニア（老害）
これくらい大きくないと
Rubyそのものは別に悪いとは思わんが、
325 ：
316 ：2011/12/02(金) 17:53:00.83
>>317 ,320
解決しました。
ありがとうございました。
326 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/02(金) 21:03:43.76
Matzって朝鮮とか韓国人みたいな顔してるよな
痛々しいコテハンと、輪をかけて痛々しい中途半端さな鳥。
329 ：
デフォルトの名無しさん ：2011/12/03(土) 19:41:17.57
jap YahooJPN
>>328 そういうのについていちいち言及するのをやめるか、せめて対象にアンカー付けてくんない？
NGに一度指定したものは二度と意識しなくて済むようにって連鎖透明あぼーん設定してんだから。
331 ：
日系アメリカ人 ◆japuuq4c3Y ：2011/12/03(土) 21:46:16.68
物凄い悔しいご反応ですね
クソワラタｗ
ごめん誤爆
perl で2ちゃんに書き込むプログラムソースなんかは割りと見かけるけど
336 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/04(日) 10:44:10.25
自分で作れよカス
在日うぜーよｗ
338 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/04(日) 11:05:32.76
hibari.2ch.net/test/read.cgi/gamedev/1322167021/
なんだかんだ言っても文字列の処理はPerlが一番楽だったんだけど
久しぶりだな皆。
２週間ごとに１回、出社する程度だよ。
use utf8は仕方なく使ってるなあ。他にいい方法がないもんで。
またPerl忍者の偽者か?
もし本当に入社してたなら、お前こんなトコで明かしたら首切られるぞw
utf8は使いにくいんで使っていない。
やっぱりそうだよなぁ。
マルチバイト文字のことがよく分からないまま、思いつきで
Perlのマルチバイト文字処理はまあまあうまく折り合いつけてる方だと思うよ。
349 ：
335 ：2011/12/05(月) 05:01:03.99
perl 初心者が適当にやってみたけど、できない
・・・
my $ua = LWP::UserAgent->new(
agent => "Monazilla/1.00 hoshu-bot.pl/$VERSION",
cookie_jar => {},
);
sub sjis { encode('cp932', $_[0]) }
my $name = '';
my $mail = 'sage';
my $message = 'test';
my $res = $ua->post("
http://$host/test/bbs.cgi ",
[ bbs => $board_key, key => $thread_key,
FROM => sjis($name), mail => sjis($mail), MESSAGE => sjis($message),
submit => sjis('書き込む'), time => 1, hana => 'mogera' ],
Referer => "
http://$host/$board_key/ ");
・・・
この部分をどう変えたらいいんだろう
風も拗らせたししんどい
文字コードが何でこんなめんどくさいんですか？
元々向いてないこと無理やりさせてるんだから我慢しろって誰かが言ってた
ヒゲだろどうせ
use Sample;
つまりコンストラクタのオーバーロードしたいの？
>>351 文字コードがめんどくさくない言語処理系があるの？
あるなら教えて。後学のために是非。
そういえばjperlでShift JISのみを扱っていた時代は考えることが少なくて多少はラクだったかな。
でもいまどき文字コード変換は避けて通れないからねえ。Shift JIS決め打ちでは済まないわな。
357 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/05(月) 12:08:54.60
じゃっぷは文字コードもハンディ 英語もハンディ
358 ：
354 ：2011/12/05(月) 13:38:56.98
>>355 それで合っています。
よろしくお願いします。
正規表現に関して質問です。
360 ：
354 ：2011/12/05(月) 17:50:29.25
>>355 ,358
調べていたらどうも違うようです。
一度取り消して再度質問しなおします。
361 ：
354 ：2011/12/05(月) 18:03:55.55
#########################################
362 ：
354 ：2011/12/05(月) 18:05:09.09
#########################################
363 ：
354 ：2011/12/05(月) 18:06:39.57
上の続き↓
>>350 うん。
Webアプリとか書いてる人ならともかく
俺はシェルスクリプト的な使い方しかしてないし
システムの文字コードで書いておけば十分事足りる。
use utf8すればダメ文字の入ったファイルパスも直接指定できるのかと思ったら
ダメなままだし，俺にとっては利用価値を見いだせなかった。
利用価値を見出したから
>>365 既存のプログラムを順番に実行する＋αくらいならともかく、
それ以上のことをするならPerlで書くかなあ。
1レスで理解できるutf8フラグ
文字列フラグというければ、どうして文字列なのにフラグが立つ
>>364 ダメ文字と言っているからActivePerlの事だと思うけど
それはPerlの問題じゃなくてAPIの呼び出しにA系を使っているのが原因
W系を使って呼び出せば問題ない
>>368 あなたの文字列の定義とは？
人間が文字と思っているから文字なんだ。ではだめ。
そんな曖昧な定義はコンピュータは理解出来ない。
んなこたあない。
こまけぇこたぁいいんだよ！！
質問しておいて回答を制限するという..ﾅｲｽw
>>365 Perlの利用価値はずっと前から見いだしてるから使ってるけど
use utf8の利用価値は見いだせなかったということねw
>>369 うんうん。
use utf8はAPIもW系に切り替えてくれる万能薬なのかと想像してたら
全然違ったという；；
W系を呼び出せば問題ないってのは呼び出す方法があるの？
ダメ文字入ったファイル名の件はすっかり諦めてて
普段はワイルドカードで切り抜けてるけど
W系を呼び出す方法があるなら知りたい！
W系 A系ってなに？
ワロス系とアフォ系の略です
俺もActivePerlのutf8プラグマはcp932とUTF-8間の融通をきかせてくれるものと
つまりuse utf8がどういう効果があるか
読んでないからわからないんだろｗ
>>374 >>377 use utf8がどんな機能を持っているのか
ドキュメント読んで、ここに書いてみ。
単純にお前らが、ドキュメント読んでないだけってのが
よくわかるからさ。
381 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/05(月) 23:43:36.07
なんか凄い文字コード覚えた手のバカが必死だね
382 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/05(月) 23:44:20.72
ここは
男ってどうして無駄に自分が上だと張り合うのかね
全角ｗ
>>379 まぁ人それぞれだと思うけど，俺はとりあえず先に手を動かしてみるたちなんで。
だいたいのものは予想してた通りに動いてくれるし
あれ想像してたのと違うぞ？となったらそこで詳しく調べればいい。
「Unicodeで書くことを宣言してるんだから当然APIもUnicode版を呼び出してくれるんだろう…」
と事前に予想するのはごく自然なことだと思うけどなぁ。
>>380 面倒臭そうな奴だなぁ。
キミはこんなとこで粋がることに何かしらの価値を見いだしてるのかw
386 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/06(火) 00:04:38.65
君は
387 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/06(火) 00:06:35.37
様々な神経伝達物質とホルモンが攻撃行動と相関することが示されている。もっともよく言及されるのがテストステロンである。ある研究はテストステロン濃度と攻撃的な反応が明確に関連していると指摘した。
388 ：
デフォルトの名無しさん ：2011/12/06(火) 00:12:43.09
>>385 ☓自然
◯願望
～できるって勝手に（先に手を動かすｗ）思い込んどいて、自然だと思うけどなぁだってさｗ
>>385 > 「Unicodeで書くことを宣言してるんだから当然APIもUnicode版を呼び出してくれるんだろう…」
> と事前に予想するのはごく自然なことだと思うけどなぁ。
で予想が外れてマニュアルも見ずに
ワーワー騒いでいるわけ？
いいからマニュアル読んでこい。
> 「Unicodeで書くことを宣言してるんだから
391 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/06(火) 00:24:49.64
W系 A系ってなに？
392 ：
日系アメリカ人 ◆japYJPNx6A ：2011/12/06(火) 00:25:25.67
後１０分後に寝るので教えてください
がんばれクソコテ
自問自答乙
>>370 かなが50字だとすると、俳句は五、七、五で文字の並びは 50**(5+7+5) の
組合せがある。これはちゃんと上限があって、(数学的に)数え上げることが
できる。ただし、かなりの割合で意味をもたない文字の並びになっている。
意味をもつ並びは少ないと予想できる。
それでは、一体、いくつの並びが意味をもつと言えるのか？
デジタルデータは全て、広義のバイナリデータだといえる。その中にはテキス
トデータを意図するものを含んでいるだろうし、あるいは意図はせずともテキ
ストデータのように見えるものがあるかもしれない。
広義のバイナリデータのうち、テキストデータを含めないものを狭義のバイナリ
データとすると、狭義のバイナリデータとテキストデータの違いは何なのだろ
うか？
その違いは数学的に定義できるのだろうか？おそらくできないと思う。
で、お前にとっての文字列の定義は？
人間が文字と思っているから文字なんだ。
>>388 何がキミの琴線に触れたのか知らんがとりあえずもちつけ。
>>389 最初に予想が外れてることに気づいた時点で目を通したよ。
そしてがっかりしたわけだ。
>>390 コードの中のすべてのリテラル文字にフラグを立てるなら
それはコードそのものがutf8で書かれているのと同義と見ていいだろう。
実際utf8でコードを書くときしかuse utf8は推奨されてないのだから。
(ASCII文字だけが並んだリテラルにはフラグ立ちませんからw みたいなツッコミはやめてね。)
>>391 WindowsのAPIの話だよ。
同じAPIでも末尾がAのとWのとあるでしょ。
つまり俺が言いたいのは use utf8; 以前に -T と -B はうそっぱちだ
やーい、やーい、うそっぱち、うそっぱちぃ～
>>359 (?: )ってことかな？
それと、やりたいことって、文字列の削りだしなんかな。
>>354 の質問がよくわからん、、、、
両方のハッシュリファレンスを得たいって、path_homeとpath_tmpを別個に呼び出せばいいのではとも思うし、でもそれは望んでる答えではないだろうし、
前の質問の、引数を渡したいって動機もよくわからない。
package Sample2;
use base Sample;
Sample2->new("$file_name")
っというのだとダメ？
>>374 完全じゃないけど Win32::Unicode とか
俺は WIN32::API を使って自分で書いているけど
>>401 記号を検索する方法が分からないのですが、条件演算子としての三項演算子です？
削り出しと置換を同時に行えないかなと思いまして。
その対象の中に、()付きの量指定子が含まれるのです。
s/((文字列)量指定子 文字列)/文字列$1文字列/g;こんな感じの時に、外側の()でマッチした一覧だけを取り出したい場合はどうすればいいのでしょう。
>>361-363 親クラスのプロパティは以下で取ってこられるけど、なんか変な感じ？
my $hash= {
%{$class->SUPER::new},
path_temp => $path_temp,
};
>>354 の引数を渡したいというのはこういうことでしょうか？
package HOGE;
sub new{
my $class = shift;
my $path_home = [ split '/',$ENV{HOME} ]; #[A]
my $hash= {
path_home => $path_home,
@_,
};
bless $hash,$class;
}
package HOGE::FUGA;
use base qw( HOGE );
sub new{
my $class = shift;
$path_temp = '../../tmp/';
my $hash= {
path_temp => $path_temp,
};
$class->SUPER::new(%$hash);
}
406 ：
354 ：2011/12/06(火) 14:28:58.62
>>354 です。
別の問題が出てきました。
下記を実行すると①の箇所で以下のようなエラーが出ました。
Unknown encoding 'HOGE::FUGA=HASH(0x92ffb50)' at xxx.pm line ***
use base qw( Encode );をしているのでメインまでencodeが継承されるという認識なのですが、
認識間違いなのでしょうか？
HOGEパッケージのuse base qw( Encode );をメインで使うにはどのようにすればよいのでしょうか？
########################################
#メイン
use HOGE::FUGA;
my $hogehuga = HOGE::FUGA->new();
my $nihongo_utf8 = $hogefuga->encode('utf8','あああ'); #①
########################################
package HOGE;
use base qw( Encode );
sub new{
my ( $object, @args ) = @_;
my $hash ={hoge => 'HOGEHOGE'};
bless $hash,$object;
}
########################################
package HOGE::FUGA;
use base qw( HOGE );
sub new{
my ( $object, @args ) = @_;
my $class = $object->SUPER::new( @args );
$class->{fuga} = 'FUGAFUGA';
return($class);
}
409 ：
デフォルトの名無しさん ：2011/12/06(火) 15:39:36.14
Perl初心者です。マイナスの値をpack関数にてビックエンディアンに変換してから、unpack関数にて再度変換すると符号無しで変換されます。これは仕様でしょうか？
>>410 ,411
そんなのあったっけと思ったら5.9.2からか。
perl勉強したのだいぶ前だからなぁ。たまにはリフレッシュしないと
だめだな。
>>410 ､411
レスありがとうございます。確認してみます。
あれ、そもそも置換すると、複数キャプチャできないのですか？
何がやりたいのかさっぱりわからん……
置換もしながらキャプチャもしたいという欲張りさんなのかな。
420 ：
407 ：2011/12/06(火) 22:50:06.45
>>416 複数改行でのマッチ？とエスパーしてみた。
$txt =~ s/\A(～)\z/～/xmsg;
誰か
>>407 わかる方いませんか？
>>407 Encode::encode はオブジェクトのメソッドとして呼び出すようにできてないから。
>>404 （?: hoge）はグループ化するだけで、後方参照用に記憶させない
>>419 その通りです、ありがとうございます。
perlreではやり方が見あたらなかったので助かりました。
>>407 $hogefuga->encode('utf8','あああ')は、実際はencode($hogefuga,'utf8','あああ')のように
第1引数にオブジェクトを入れて呼ばれます。
>>421 が言うように、encodeは第1引数に文字コードを想定しているので、そこにオブジェクトが
来ると
>>407 のようなエラーになります。
以下のようにすれば望みの結果になるかもしれませんが、このような使い方を私は見たことはないです。
my $nihongo_utf8 = $hogefuga->can("encode")->('utf8','あああ'); #①
Encodeを継承する一般的な方法（Encodeを継承していいのかも含めて）を知りませんが、以下のように
encode/decodeのラッパー関数を作って、①と同じことをすれば望みの機能が達成できるかもしれません。
package HOGE;
use base qw( Encode );
sub new{
my ( $object, @args ) = @_;
my $hash ={hoge => 'HOGEHOGE'};
bless $hash,$object;
}
for my $func ( qw(encode decode) ) {
no strict "refs";
*$func = sub { goto shift->can("SUPER::$func") };
}
425 ：
デフォルトの名無しさん ：2011/12/08(木) 04:12:23.33
0001001100
$ perl -lpe 'my@a;push@a,pos while/1/g;$_=join(",",@a)||0'
427 ：
デフォルトの名無しさん ：2011/12/08(木) 06:03:09.60
Net::Google::Calendarを使って
ttp://shokai.org/blog/archives/1280にある googleカレンダーの予定を取得するプログラムを実行したいのですが
実行しても
403 Forbidden at /usr/local/share/perl/5.10.1/Net/Google/Calendar.pm line 619.
エラーが出て予定を取得できません.パケットが流れているのでうまくSSL通信できていないのだろうと思うのですが
原因としてどういったものが考えられるでしょうか？
試してないけど、loginではなくauthかoauthで認証しないとダメなんじゃないかな
429 ：
407 ：2011/12/08(木) 15:43:33.52
>>421 ,424
やっと理由が分かりました。
$hogefuga->encode()で呼び出すということは、第一要素にオブジェクトが入りますね。
encode()で呼ぶ場合はそれが無い。
スコーンと忘れてました。
たまに自分で作ったパッケージでも同じとこで間違えることがあります。
詳しい説明のおかげで理解することができました。
遅くなりましたが、お礼を申し上げます。
ありがとうございました。
～色々略～
>>430 ＞&kakouを呼ぶ前に毎回行った方が良い
そりゃ、サブプロ行く前に判断した方が早い。
他にはリファレンスを渡す。
>>431 ありがとうございます。
Perl側で何か上手くやってくれてるのならこの書き方でも問題ないかと思ったんですが、毎回まじめにメモリ確保して代入処理してくれてるってことでしょうか？
ところで、リファレンス渡しの場合は、明示的にリファレンスを渡すのと、$_[0]を直接編集するのではどちらの書き方が一般的なんでしょうか？
@_ の要素は実引数のコピーではなくエイリアスだから、文字列渡しでも my $dat = shift; とかするまではコピーは発生しないよ。
つっても
>>430 じゃサブルーチンの戻り値がその文字列だから結局コピーは不可避だけど。
処理するしないにかかわらずコピーを避けるなら、
kakou(\$dat, $in);
sub kakou {
my($dat_ref, $in) = @_;
return unless $in;
# $$dat_ref に直接ほげほげする
}
434 ：
デフォルトの名無しさん ：2011/12/08(木) 21:17:51.75
「Perlで有名な小飼弾に暴言を吐いたｷﾁｶﾞｲｗ OSSコミュニティから物凄いパッシングｗ」
http://blog.livedoor.jp/dankogai/archives/51733482.html 北畠徹也氏が代表の「テラ・インターナショナル」がPerlを勝手に商標登録
＞＞この北畠って人は、ツイッターとかでも自殺するって言って話題になったり
よく分からないNPOか何かに募金をしてくれってメールを数万人規模のMLに流したり
それらは実はチョットした技術的ミスだって釈明してたりする人らしいね
Tetsuya_K 北畠徹也
@dankogai の家に電話したら、「小飼弾は死にました」らしい。ざまみろ。ざまみろ。というか、死んだ方が社会にとって幸せ。以上。＃ どうでもいいが、jcode.plなんて簡単につくれるじゃろ。あんなので調子に乗るアホもどうかしてるぜ。
Tetsuya_K 北畠徹也
I compared my @klout with @dankogai, how does your @klout compare? klout.com/user/dankogai/… @Tetsuya_K に比べたら全く大したことねーな。大口叩く愚か者が。
コメントの一覧
「みんなおもしろいおもしろいいってるけど北畠さん完全にかわいそうな精神病の患者ですよね」
「コメント欄が病的で怖い。人格が分裂してる？」
「本当に何がしたかったんだろう・・・」
「無事取り消されたそうで。本当によかった。」
その人が頭おかしいのは前からわかってるのでもう名前も見たくないです
Perlのバージョンは 5.14 subversion 2 OS WinXP Pro sp3
↓これが答えだ！
= ~
'=' と'~'はくっついていないと駄目なんすか！？
へぇぇ、、、びっくりです。
>>438 ありがとうございます。
440 ：
437 ：2011/12/08(木) 23:13:22.62
どういたしまして
>>439 逆に 何故離れていてもいいと思ったのか知りたい
>>433 ありがとうございます。
kakou($dat, $in);
sub kakou {
my $in = $_[1];
return unless $in;
# $_[0] に直接ほげほげするか、my $dat_ref = \$_[0];するか
}
この方法でもコピーを避けれるかと思うのですが、
呼び出し側で\付けてリファレンスを渡してやる方が一般的なんでしょうか？
> $stringという値があります。
>>442 それでも同じではあるけど、っていうか
>>443 見て Encode::from_to はまさにそういう呼び出しの例だと思い出したけど、
そういうある程度一般的な関数の場合を除けば普通は呼び出し元で \$dat としておいたほうが「$dat の中身だけを直接変更する」という意図が一目瞭然だと思う。
>>443 from_to でいいと思うよ。それか decode('utf-8', $string) で utf8 フラグ付きの 'が' が得られる（decode_utf8($string) ではダメ）。
ただし、"\x{e3}\x{81}\x{8c}" ってのがそもそも普通の状態じゃない（大抵はコーディングミスかモジュールのバグ）ので、
意図してそういう状態にしてるんじゃなければ、まずその原因を探して取り除いたほうがいい。
（具体的には utf8 フラグなしの 'が' を utf8::upgrade すると "\x{e3}\x{81}\x{8c}" になるのだが、普通そんなことはするべきではない。）
446 ：
442 ：2011/12/09(金) 13:18:22.96
>>445 仰るとおりだと思います。参考になりました。
ありがとうございます。
掲示板のコメントだけをテキストファイルなどに出力するプログラムってperlが向いてると思うんだけどどう書いたら良いですか？
>>447 掲示板へアクセスしてログを取得
↓
ログの中から必要なコメントだけを抜き出し
↓
ファイルへ出力
↓
出力したファイルを見る事なく数年過ぎる
↓
「なんだこれ？あぁこんなの作ったっけイラネ」
↓
結果：無駄
>>447 どう、っつーても掲示板次第だと思うぞ
ブラウザ右クリしてソースの表示して法則をみつけるよろし
>>441 $_ を対象として /^[[:digit:]]/ をマッチさせた結果の
1の補数を $n に代入するだなんて、これっぽっちも思い
つかなかったんで。
>>441 くっつけて書けって本には書いてなかったもんで
まあ、ゆとりは大事だからねぇw
=と~ って考えるか =~ で1つと考えるかだろうねー。
= は代入演算子
>>451 え？まさか「= ~ と書いてもいい」とか載ってないよね？？
初期のC言語にもこの類の問題があったな。C=+3とか。
457 ：
デフォルトの名無しさん ：2011/12/10(土) 21:50:09.75
初めまして。cygwinでperlを動かそう思っています。
hello.plの中身をなぜ書かないのか気になる
459 ：
デフォルトの名無しさん ：2011/12/10(土) 21:58:29.15
すいません
> perl hello.pl
461 ：
デフォルトの名無しさん ：2011/12/10(土) 22:08:58.63
perl hello.pl と打ち込むと
>>455 まあ、
a=b+1;
でも
a = b + 1 ;
でも通るから、スペースは無視されるとでも思ったんじゃね?
《エスパーモード》
464 ：
デフォルトの名無しさん ：2011/12/10(土) 22:21:40.65
＞（たぶんデスクトップ上にある）
which perl
「カレントディレクトリ」と「カレントディレクトリの変更」を
あるいはフルパスで指定するとか
もう、すれ違いじゃない？
すでにCygwinについての質問になってるな。
proveコマンドでテストを実行できるのはべんりなのですが、
>>470 すみません、勘違いでした。
Test::Moreだと行番号がきちんと表示されるのですが、自作のツールだと表示されないようです。
もうちょっと調べてみます。
再度質問です。同じ出力をするスクリプトなのに、proveコマンドの挙動が違うのはなぜかについて。
続き
続き
475 ：
443 ：2011/12/12(月) 15:14:39.81
>>445 遅くなりました。
"\x{e3}\x{81}\x{8c}"はフォーマット的におかしいんですね。
しかし、モジュールの結果で返ってきてるんで、今回は仕方ないとあきらめておきます。
教えていただきありがとうございました。
また、別の疑問が出てきました。
utf8の日本語をConfig::TynyとYAML::XS::LoadFileでインポートしてDump::Dumper::Dumperすると下記のようになります。
Configの方は''で完全な文字列ですが、YAMLの方は""で変数展開用のダブルクォーテーションになっています。
この違いはプログラム作成側としては気にしなくて良いのでしょうか？
また、Dumperで確認するときにConfigの方が日本語が読めていいと思うのですが、YAMLでシングルクォートにする方法はどのようにすればよいのでしょうか？
#Config::Tyny
$VAR1 = [
bless( {
'_' => {
'keyword' => 'キーワード'
}
}, 'Config::Tiny' )
];
#YAML::XS
$VAR1 = [
'_' => {
'keyword' => "\x{30ad}\x{30fc}\x{30ef}\x{30fc}\x{30c9}"
}
];
476 ：
475 ：2011/12/12(月) 15:23:39.91
すみません。
>>475 は、少し意味が違いますね。
よく見たらUTF8フラグがついている。↓
"\x{30ad}\x{30fc}\x{30ef}\x{30fc}\x{30c9}"
YAMLでロードすると、内部コードに変換して取り込むんですね。
そのせいで""ダブルコーテーションになってそうな気がしますが、合っていますでしょうか？
これだとインポートした文字列を出力したい時に、
ファイル→インポート（内部文字コード変換）→出力（encode）
と、無駄な変換が発生している気がしますが、そんなに負荷はないのでしょうか？
おちついてください
>>475-476 Data::Dumper には U+0080 以上の文字を問答無用で16進表記してしまうという問題が
あるので、日本語をまともに出したい場合は
sub Data::Dumper::qquote { local $_ = shift; s/['\\]/\\$&/g; "'$_'"}
と書いておく(ただしこれだと Useqq=1 が動かなくなる欠点あり)。
Config::Tiny には read のほかに read_string があるようなので、
>>474 >「#」で始まる行が表示されません。
>>472 「#」ではじまる行は STDERR に出力されてるようだけど、そういうことじゃなくて？
>>478 追記。
$Data::Dumper::Useperl = 1;
これが必要なのを忘れてた。
482 ：
デフォルトの名無しさん ：2011/12/13(火) 17:29:10.64
my($year, $month, $day, $hour, $minute, $second)から
＞こんな事にモジュールは使いたくないので
Time::Localでも見てきやがれですｙｐ
>>484 だからCPANは使いたくないんだってば
Time::Local は Perl5 に標準添付だから CPAN は使わなくて済むと思うが。
ソースコードは提供されてないとか思ってんだろ(´_ゝ`)ﾌﾟｯ
CPANを使いたくないんじゃなくて
なにそれ地獄すぎる
>>482 CPAN使えない(使いたくない)奴がこの程度のことをモジュール使わんと自力で書けずに
2chなんぞに質問ぶっぱなしてる時点でオワってるとわたくしは思います。
素直にモジュール使え。
何か他人が煽って荒れてる…
>>484 ありがとうございました。
Time::Localごちゃごちゃしてて読む気なかったんですが、参考にして自分で実装しました。
しかし某ブログの計算式は何だったんだろう。
Perl用ではなかったんだけど、intくらいしか関数使ってなかったし。
本来は条件分岐とか一切なしに1行の計算だけで出せるものなんですか？
markdown.pl
http://daringfireball.net/projects/markdown/ についての質問です
Markdown 記法の説明は
http://blog.2310.net/archives/6 にありますが、
改行後に文字が続くと<p>でくくります。たとえば
テストですよ、
どうですか
この文字列はつぎのように展開されます。
<p>テストですよ、
どうですか</p>
英文ならこれでも体裁は良いのですが、html上日本語の文の場合いらない空白が出てきてしまいます
<p>テストですよ、どうですか</p>
このように改行直前の文字がマルチバイト文字（非ascii文字）なら
改行を取り除いて<p>でくくりたいのですがどう改変すればいいのでしょうか
markdown.plのsub Markdownがその改変すべき処理なのかと思ったのですが
どこから手をつければよいのかわかりません
>>491 > 本来は条件分岐とか一切なしに1行の計算だけで出せるものなんですか？
“某ブログ”に、考え方から計算式の導き方まで懇切丁寧に書いてある。
>>493 でもその肝心の計算式がそれっぽい数字は出るものの結果が合わないです。
計算過程は長すぎて、そこからあるかどうかもわからない間違い探しをするのも手間なので、結論を知ってる方が教えてくだされば早いのですが。
普通はTime::Localで済むので、わざわざ自分で何とかした方はいないですかね。
>>494 あんまりPerlと関係ないような気がするし、某ブログとやらも知らないけれど、
int を使ってるということだから、プログラミングの初歩で習うゼラーの公式と
同じ考え方を使うんじゃないの？
>>494 そんなことより、なぜTime::Localを使わず自分で実装したがるのかを知りたい。
Perlはインタプリタ言語だからライブラリをincludeすると重くなる？浅はか。
勝手にバージョンが変わって動かなくなるのが心配？そんな環境ならそもそもPerlを使うのが愚。
下手の考え休むに似たり。
>>482 ここで聞くまでもなく「UNIXタイムスタンプ」を(ブログ
なんかじゃなくて、ちゃんと)調べれば自然にできると
思うけどな。
>>480 そういうことでしたか。ありがとうございます。
↓これなんで文字化けするの？perlは今まで1文字も書いたことないし、
>>500 ・・・と、適当な事いっちゃったけど、
$pattern = ">([^<].+[^>])</";
こうだな。
>>502 Genius has come! ありがとうございます。
$pattern = '<small>(?:<font[^>]*>)*(.+)(?:</font>|</small>)';
ここまで作ってみたけどgreedy match使うと後ろの方に引っかかっちゃうよ系の罠に引っかかってた。
$pattern = '<(small|font).*>([^<>]+)</\1>';
> Genius has come
ActivePerlをWindowsにインストして
>>7 の 2行目から 5行目って
use open qw(:encoding(cp932) :std);
一個で済むんじゃないの？
もうなにがなんだか．．．
511 ：
デフォルトの名無しさん ：2011/12/17(土) 11:45:35.17
# [Perl 日本語処理]
# さまざまな機能をわかった上でどうしても，という方を留め立てする
# つもりはありませんが，
>>7 でできることのほとんどはもう
use Sjis;
require 'jacode.pl';
# に含まれてるかもです。
# いまさら
>>7 を使わずに，いなばの道を行くしかありません。
>>506 > system "dir 日本語.txt";
普通に通るぞ。
v5.12.3 build 1204
Perl 関係のスレで Sjis.pm とか jacode.pl を勧めてくる人って一人でやってんのかな。作者本人かしら。
>>513 たぶん 506 の人はプログラムを UTF-8 で書いてるのでは。
>>514 古いスクリプトの資産があって、なるべく変更したくないっていうんならともかく、
新しく書くんなら utf8 + Encode の一択でしょうね。
なるほど、use utf8;前提なら必要なのは
>>7 の
> # ※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
> # この例のように cp932 でエンコードする必要があります。
517 ：
506 ：2011/12/17(土) 14:34:01.02
100人乗っても大丈夫な道
ワニの集団に襲われたのに、よく皮剥がされただけで済んだよな
剥がされた皮はまだ被っていた皮なんじゃね？
524 ：
デフォルトの名無しさん ：2011/12/17(土) 17:51:05.69
フォームで入力した文字が、ファイルから読み込んだ文字列に何個含まれるか
また嫌モジュール厨が舞い戻ってきたか。
$count = ($input =~ s/\Q$keyword//g);
>>525 モジュールを使わないのであれば、自分でマルチバイトアンカー
リングする必要がある。
それはいばらの道だ．．．
ち、ちがうもん
「できればモジュールを使わない方法が知りたい」って人は理由を書いて、論破されたほうが幸せになれる
まあ「毎回モジュールの読み込みに時間がかかるから」てのは一昔前に俺も思ってたことあったな
Perlのバージョンが上げられないパターンは多そう
ここですぐ答えがもらえるような類なら、該当モジュールを読んでコピペでもした方が
>>533 特にOOなモジュールは1桁遅いからねえ
非力な環境ではキツい場合もあるな
「大きなファイルや沢山のファイルを入れると怒られるから本体と.dllだけ入れて動かすしかない」
strict.pm と warnings.pm は必ず使ってる。
>>537 それは Windows だとよくやる。テストマシン上とか。
ファイル2個だけでそこそこ役に立ってくれるのはありがたい。
>>539 よくある事なのか…理不尽だなんて言ってられんか
まあでも、素のコマンドプロンプトじゃほとんど何も出来ないこと考えると
Perlあるだけで世界が変わるだろな
JScriptもVBScriptも
つーか、みなさん環境に恵まれすぎだろう
おまいらが禁止されすぎなんだよ
jcode.plは禁止
ワンライナーで失敗したときってダサすぎんだけど
「ワンライナーみせつけてやるか（ｷﾘｯ」
スレタイのPerlには当然Perl4を含んでいると思っている
>>532 その人は個人的な制約で困っているわけじゃないだろうから論破しても意味
がないと思う。仮にその人がギブアップした場合でも他の人がそのポジショ
ンを補うことになるわけで、(2chで質問するかはともかく)「モジュールを
使わない方法」を模索する気がする。
論破しようとするも、先方が取り合わない
Sjisを使うのはアホでFA
リリース日がAFなので正しくは「ばか」、な？
そうかねこでも使えるのか、そりゃいいな
まあsjis扱いたかったらjperlがあるしな
558 ：
デフォルトの名無しさん ：2011/12/18(日) 18:08:58.87
文字列中のマッチした文字を太字にしてマーカー（色）をつけるようにしたいんですが困っています。
559 ：
デフォルトの名無しさん ：2011/12/18(日) 18:09:49.84
あ、subが抜けてたsub merkerです
560 ：
デフォルトの名無しさん ：2011/12/18(日) 18:11:36.05
あ、またまちがえた
561 ：
デフォルトの名無しさん ：2011/12/18(日) 18:13:27.37
あ、またまた間違えました
s#(?<!<)$marker_str#<span style="background:$marker_color;font-weight:bold">$marker_str</span>#g
綴りまちがってるのが気になってコードが考えられない
おっぱい禁止
>>563 何しろzentai_strのレベルだから、そこに気づくのも無理だろ
微妙に遅くなるかもしれないけど、こっちの方が確実だな。
もっとうまい書き方があるのかもしれないけど、とりあえず。
sub marker {
my ($s, $p, $c) = @_;
my @d = split m/(<.+?>)/, $s;
for (@d) {
next if /^</;
s|$p|<span style="background-color: $c">$p</span>|g;
}
return join '', @d;
}
これならたとえば marker($str, "style", "#ffcc99"); なんてのでも変換できるはず。
なお関数内で複数のパラメータを受け渡す時は my ($a, $b, $c) = @_; みたいにやるのが普通。
あとPerlとは関係ないが、今のHTMLではFONTタグの使用はおすすめできない。
style属性を使うならなおさら、
>>562 のようにspanを使うのが一般的。
PerlだけでなくHTMLも勉強しようぜ。
オレだったらshiftするなぁ
何回もmarker呼び出すんじゃなくて一回の走査で全部置換するようにすればいいんじゃないの。
569 ：
デフォルトの名無しさん ：2011/12/19(月) 14:46:27.96
アナルパールとかいうアダルトグッズあるよね
Perlerは手首に巻いたりするらしい
金井克子？
金井克子についての質問は板違いです。WEB プログラミング板でどうぞ。
576 ：
デフォルトの名無しさん ：2011/12/19(月) 17:47:26.91
makeはメイクだから
何がだからなのかわからん
on your mark!
579 ：
デフォルトの名無しさん ：2011/12/19(月) 19:16:58.60
$str="<FONT COLOR=\"#00ff00\">aaa</FONT>bbb<FONT COLOR=\"#00ff00\">ccc</FONT>";
.*?を.+?にしたらいいんじゃないの？
━┓
５７９だけど質問が違いました
>>584 理解できなかった理由は「長すぎたから」では無かろ。
#!/usr/bin/perl -w
use strict; use CGI qw(escapeHTML);
my $str = <<'EOH';
あああ<span title="FONT">FONT</span>www
<span title="www
www">あああaaaFONTwww</span
>aaa<span>FONT<span title="aaaあああaaa">wwwあああwww
</span>FONT</span>
EOH
print 'あああ = ', mark(\$str => 'あああ', with => '#00ff00'), "\n";
print mark($str => 'FONT', with => '#0000ff');
sub mark {
my($str, $target, %css) = @_;
With: {
defined $css{'with'} or last With;
local $_ = delete $css{'with'};
/^#/ and $css{'background-color'} = $_, last With;
}
$css{'font-weight'} ||= 'bold';
my $css = escapeHTML(join ' ', map "$_:$css{$_};", keys %css);
#
http://www.din.or.jp/~ohzaki/regex.htm#ReplaceOutside my $count = (ref $str ? ${$str} : $str) =~
s{ ((?:\G|>)[^<]*?) (\Q$target\E) } {$1<span style="$css">$2</span>}gx;
ref $str ? $count : $str;
}
>>585 おまえ、これまでのみんなの回答をぜんぜん読んでも試してもいないだろ。
質問する資格なしだな。
こういう手合いは、何か解決作やらヒントを知りたいんじゃなく、
590 ：
583 ：2011/12/20(火) 16:38:20.98
>>584 自分では結構よく書けたと思うんだがなァ……
具体的にどこら辺が分からなかったのか教えてくれると嬉しい。
コメント入れる時の参考にする。
$str =~ s/>bbbFONT</>bbbAAA</g;
>>586 リファクタリング練習。求む(反論 or 改善案)
sub mark {
my($str, $target, %arg) = @_;
my %css = (
# specify your default marker styles below:
'font-weight' => 'bold',
'background-color' => delete $arg{with},
%arg,
);
# Serialize CSS.
my $style = join ' ',
map { "$_:$css{$_};" }
grep { $css{$_} ne q{} }
grep { $css{$_} !~ /[":]/ }
grep { ref $css{$_} eq 'SCALAR' }
keys %css
;
my $count = (ref $str ? ${$str} : $str)
=~ s{
((?:\G|>)[^<]*?) (\Q$target\E)
} {
$1<span style="$style">$2</span>
}gx;
ref $str
? return $count
: return $str
;
}
こんなかんじじゃねーの。
タグで囲まれた中の置換最短プログラム
>>594 それだとたとえば $word='COLOR'; $str='<FONT COLOR="#FF0000">'; なんて時にアカン。
Web::Scraperとか重すぎ
また新たにヘンなコテハンが出てきたな。
自分「Web::Scraperっていうのいいですよ」
和田「そういうのは 使わないほうがいい 正規表現があるじゃないか」
自分「え？」
和田「たとえば和田が開発したＷＥＢアプリ Perlがあればそのまま導入できちゃいます 顧客先で」
自分「はい なんかCPANが簡単になるのあるらしいですけど」
和田「Web::Scraperというやらはな ＣＰＡＮから導入しないと大変 依存関係もめんどくさい」
和田「それならPerlだけで動く 標準的なソースコードのほうが導入しやすい」
自分「なるほど でもWeb::Scraperはいいですよ CSSセレクタもそろって抽出しやすいです 正規表現より凄いです」
和田「なんのための Ｐｅｒｌ！！！！ 正規表現は王道！！」
和田「Perlは好き だけど言語学習じゃないんだ 結局は何を作るか」
自分「はい」
和田「まあ見たまえ わしのサイトを
http://www.synck.com/ 」
自分「凄いです！和田さん！！」
600 ：
デフォルトの名無しさん ：2011/12/21(水) 13:25:27.47
HolyGrail「
説教君まだいたのか。
コテつけてくださいPerl忍者さん
my @words = ( 'sevens', 'even' );
>>603 その場合は否定戻り読み(?<!…)を使ってください。
>>603 > print "even=$_\n" if( $_ =~ /[^s]even/ );
> print "sevens=$_\n" if( $_ =~ /sevens/ );
[^s] は行頭にはマッチしませんことよ
あ、s/行/先/
609 ：
603 ：2011/12/22(木) 09:20:21.02
>>604-608 色々と情報ありがとうございます。
607がよさげなのでこれで対応しました。
ありがとうございました。
> ^$（先頭、最後尾）を使わずに実現したいです。
単語の部分文字列にマッチしたくないんだから、 ¥b を使えば楽な
> 単語の部分文字列にマッチしたくないんだから、
んなこた書いてないと思うけど。
seven と even を区別するだけなら \b でもできるけど、
たとえば revenge はマッチさせたいって場合だと困るね。
個人的には
>>604 でいいじゃんと思う。
一番いいのはHTMLパーサーを使うこと。
615 ：
デフォルトの名無しさん ：2011/12/24(土) 02:47:34.54
length()関数は日本語まじりの文字列でも文字数を返します
bytes::* は非推奨らしいよ
>>615 >>617 バイト数は文字コードによって違ってくるから
utf8ならencode_utf8でいいけどShift JISとか他のコードの場合はまた別
だよね
619 ：
デフォルトの名無しさん ：2011/12/24(土) 17:40:34.42
本来なら全角一文字は2バイトですよね？
>>619 いつから全角一文字が2バイトだと錯覚していた？
>>619 日本語文字に１０バイトくらい使う文字コードもあってもいいんじゃねーーーの？？？
622 ：
デフォルトの名無しさん ：2011/12/24(土) 17:48:06.93
shiftjisでうまくいきました
タグの中以外の文字列の置換やっとできた
無駄な努力ご苦労様としか
こういうゴミが日々生産されるのもperlの醍醐味
HTMLパーサー使えばもっと簡単に
何でも自分で作りたい年頃なんだろうな。
Perl厨って同じ正規表現をあちこちで使うやつ多いよな。
モジュールのサイトとかほとんど英語で書かれていて
お前がそう思うならなんちゃら
そうなんだすごいね！
モジュールのパスは、lib/5.8.8が標準モジュールで、
>>633 設定やディストリ次第だが概ねそんな感じ
彼が他人の回答も意見も全く読んでないことをよく示していますね
そもそも、引数を取り出すのに今どきshiftだもんなぁ…
>>624 のような石頭爺は万事これだから困る。
>>624 なら = @_ のほうがいいってのはわかるけど、
shiftで引数取ること自体は特定の場面では有用だろ。今も昔も。
'0'と'1'のみで構成された文字列を
場合によりけりかな。
>>639 my $str = '010111010010101010100101010';
print join( ' ', split(/([01]{4})/, $str) );
print join (' ', unpack("(A4)*", $str));
print join (' ', $str =~ m/..../g);
>>641 それだと余計な空文字列要素が間や先頭にできてしまう
>>644 切り詰めれば
$,=$";print$str=~/..../g
とかはできる。さらに $str じゃなくて $_ なら6文字縮むし、print のかわりに say が使えれば2文字縮む。
ワンライナーか競技ゴルフじゃなきゃやらんけど
書く文字数を減らすんじゃなくて、
俺はゴルファーでも一行野郎でもないので、
ここは文字列が4の倍数以外でも表示できる
>>642 を推したい。
>>641-647 ありがとうございます。色々と勉強になりました。
一応文字列は4の倍数で来るはずですが
何かの手違いで狂っていた場合に見つけやすいということで
>>642 にします。
pack/unpackは未だに苦手なので、あまり理解できていないのですが…
あとは
>>645 さんのもワンライナー用に覚えておこうかなと思いました。
パッと見で理解できる分、覚えやすいですし。
$ うんたらかんたら | perl -nE'$,=" ";say/..../g'
みたいな感じでサラッと書けたら楽しそうです。
終了しているとこなのにすまん
>>650 …盲点でした
考えてみれば、それだけのことですよね…
というか、むしろ何故それを思いつかなかったんだろう？！
split()してshift()とか俺は最初に何をしていたんだあああ
ちなみに後に(ｷﾘｯ)とばかりに書いたワンライナーに至っては
perl -pe's/(....)/\1 /g'
…要するに
sed 's/\(....\)/\1 /g'
になってしまいました…
ま、まあ
>>642 という良さげな案を貰えたので結果オーライということにしておきます！ありがとうございました！
どういたしまして。
653 ：
650 ：2011/12/25(日) 18:20:01.11
>>651 レスありがと
自分が当然こうだと思う答えが微塵も触れられてないと、
いささか不安になります
当たり前のことに気がつかないことって、結構あってこわいですね
>>653 目的が「表示したい」であって「文字列を加工したい」ではないから、
元データを破壊する方法は採らないし、
出力に流し込めば済むものをわざわざ変数に入れないのが自然。
置換の場合の別解: s/(?<=\G....)/ /g
>>650 お題だけ見るとそれで正解なんだけど、
察するにバイナリを整列させた上で何かを見比べようとしてる風に見える。
なら4桁毎に配列になってるほうが後々同じ事繰り返すリスクを減らせると思う。
「2桁目が1のヤツだけ抜き出したい」とか「出現頻度調べたい」とか。
1と0の羅列を目に見せるのが最終的な目的とはちょっと思えないかな。
656 ：
650 ：2011/12/25(日) 23:25:29.40
>>654 ,655
そういうことですか。やっぱ、気が回ってないのですね。
勉強になります。ありがとう
657 ：
650 ：2011/12/25(日) 23:36:46.91
あっ、654も読めてないのですね。
658 ：
657orz ：2011/12/25(日) 23:43:58.13
×654 ○651
map/grep/sortといった関数は、第1引数がブロックだとその後にカンマが要らないのですが、
#-- 初期化 --#
>>661 動かないコードを示されてもね…
だからヒントだけ。例えば↓
@array = (1, 2, 3);
@array = (@array, 4, 5, 6);
>>662 それだと新たなハッシュが作られませんか？
あくまでも現在のハッシュに追加したいのです。
>>661 データの追加なら↓とか
$hash = {
%{ $hash },
'name4' => 'value4',
'name5' => 'value5',
'name6' => 'value6',
'name7' => 'value7'
};
>>664 ありがとうございます。
参考ページまで付けて頂いて感謝します。
668 ：
デフォルトの名無しさん ：2011/12/27(火) 16:21:59.06
環境はcygwin windowsXPです。
open IN, '<:utf8', 'in.txt'
６６８ですが
>>669 うまくいきました
ありがとうございます
binmode STDIN, ":utf8";
をつかえばUTFフラグつきの文字列を受け取って貰えるかと思っていました
>>668 open (IN, "<:utf8", "./in.txt");
が最適解かな。
うわもう出てたごめん。
取り込んだ文字列を関数で処理しようとしましたが正しく処理されないのはなぜでしょうか？
in.txtを CRLFからLFにしたらなおりました
cpanplusで質問です。
$_ = decode('utf-8', $_) してる俺に隙はなかった
>>679 decode_utf8を使わぬとはまだまだだな
681 ：
デフォルトの名無しさん ：2011/12/28(水) 14:12:31.36
>>678 App::pmuninstall
で行けなかったっけ？
682 ：
678 ：2011/12/28(水) 16:35:13.45
>>681 おお出来ました。
ありがとうございました。
decode_utf8が気になって今ググってるのですが、decode_utf8の使い方は
sjisだと使えません。素直にdecode使ってください。
encode('utf8', 'フラグ付き') で得られた $str_utf8 をさらに encode してる時点でおかしい
文字コードがsjisなのに「use utf8;」としている時点でおかしい
>>686 ソースの文字コードと扱うデータの文字コードは別だからおかしくはないだろ
(1 .. 5)と(1, 2, 3, 4, 5)は何が異なるのでしょうか？
>>683 とりあえず use utf8; を外せばうまくいく。
必要になったときに use utf8; を使うようにすれば悩むことはない。
文字コード変換は Jcode.pm、フラグの悩み無用か。
だんだんと何に悩んでいるのかわからなくなりました
一度、Ｃ言語に戻ってPERLが必要になったらまたきます
ポインタより難しいPerlのutf8フラグさすが高級言語初心者お断り
ポインタよりリファレンスの方が難しいと思う
1レスで理解できるutf8フラグ
とある本ではPerl文字列を「"文字列"」って表現(""含む)してた
encode/decode が逆に感じる気もしないでもない?
情報源→符号化→通信路→復号化→受信
Perl様の視点から見てencode/decodeだもの
おれらはPerl様のしもべなのね
下位層を実装するときは、実装者が王様になってはいけないと思うの
えー?
ASCIIのときもそうしてたっけ？
to_bytes()/to_string()みたいな名前だったら分かりやすかったな。
つーか、素直に文字コード変換でいんじゃね？
encodeだけにするとかは？
あ、ごめん。
いやあるだろ データ列そのものが情報源
いやｗ
デタラメに乱数でねつぞうしたバイナリに
> Shift JISとかEUC-JPとかUTF-8とかはそれぞれのコード体系に
>>714 そういうことだ（キリッ）って恥ずかしくない？ｗ
バイナリにutf8フラグをつけたらどうなるかだって？
答えは出てる。
一部（全部）が壊れたutf8文字列だ。
壊れているってことが解るのも重要なことなんだが、
お前はランダムで捏造したバイナリを
どう扱って欲しいわけ？
>>715 > 例えば ASCII のときにそのことを意識してないでしょ？
論点がずれてるなぁｗ ま論点がずれた話に付き合ってあげるか。
ASCIIの時に意識してないというのは正確に言えば全部が
ASCIIで統一された世界であれば意識しないってことだよ。
残念ながら世界はASCIIで統一されていない。
ASCII以外を扱う世界で、ASCIIと同じように意識させない作るとしたら
すべてを何か一つのコードで統一しなければならない。ASCIIと同じように。
すべてをっていうのはPerlだけじゃなく内外すべての文書をUTF8なりなんなりで
統一するということ。それが可能ならその方法でいいよ。でも現実的じゃないよね。
じゃあどうするか、方法は2つある。
１．変数にどの文字コードが入ってるかを人間が意識してコーディングする
２．Perlの中だけは統一した世界を作って人間は変換処理だけをすればいい。
前者はShift JISとか日本語系文字コード以外も全て意識しないといけないので大変。
後者なら変換部分だけやれば、あとは文字コードを意識しないでいい。
つまり、ASCII以外を扱う世界において、ASCIIのように意識しないでいい最善の方法。
それがUTF8フラグ。
>>717 最後の一行（と最後から4行目のくだりも）に同意できないんだな、これが
「後者の変換部分」は「前者の意識しないといけないので大変」と
ASCIIコードはまァ、Perlの処理系の記述に使ってる「大前提」の存在だからな。
UTF8はUTF8でOS依存なのどうかならんのか
>>711 なんにしても外部から入力される文字列のコードページは
誰にも判断できないんだから自動判断するしかないわな
いわゆる外字を常に使っているような環境では、テキストといっても
そういう場合に、Encodeモジュールを使えば、
×そうなると外字を含むテキストデータはバイナリとして扱うのが当然の流れになる。
シフトJIS版のJPerlにもEUC版のJPerlにも文字列フラグはない。
（キリッ）
>>726 Latin-1のサポートをやめたら
バイナリデータが扱えなくなるぞ。
なんか最後の行で先手を打ったつもりだが無意味だ。
バイナリデータが扱えなくなるぞ。
>>726 馬鹿だなぁｗ JPerlを持ってきた所で意味ないじゃないか。
JPerlの制限分かってるか？
その制限はそのまんまお前が言うUTF8版Perlに当てはまるんだよ。
http://gihyo.jp/dev/serial/01/modern-perl/0031 > jperlの制約
>
> ただし，田中氏のパッチではすべてが2バイト文字対応されていたわけではありません。
> readme.sjには以下のような制約が残っていることも明記されています。
>
> tokenに漢字を使うことはできない
> 文字列の大小関係はCのライブラリ関数の実装に依存
> substrやreverseは漢字を意識しない
> index，rindexの返す値は（文字位置ではなく）バイト位置
これがまさにUTF8フラグがなかったら、実現不可能なことになってるんだよ。
substrやindexについては対応できなかったというより，
indexとか幻想とかそういうキーワードが出てくるなら
言われてる通り自分も名前が混乱の一端になってるような気がする。
Latin-1を捨てられないのであれば、同じ理由でシフトJISを捨てられない
「バイナリデータ」という用語を「デジタルデータ」と「非テキストデータ」
問題はPerlには変数に型がないから
いくら、なんだかんだ言ってもしょうがない。
そうだ、そうだ。オレが出口まで送ってやるから。
むしろたった数個の関数を追加したほうが手っ取り早いし、使う側も
ほう、すべてのテキスト処理関数に
どんな関数でも一文字づつ処理するだろう。
中で正規表現使っているような関数はUTF8フラグがあれば、
「使わないようにしていこう」と「取り除こう」は別、な。
UTF8フラグは存在し続けることで再発明を防いで欲しい。
テキスト処理関数の数はbytes.pmを見ると分かるようにたいした数ではない。
入力→decode()→処理→encode()→出力
連想配列についてですが
>>748 foreach(keys(%test)){
print "$_<br>";
}
750 ：
デフォルトの名無しさん ：2011/12/31(土) 20:05:54.57
昨日までファイルを追加書き込みモードでオープンすると
>>751 正直にいっとこう。
なんかいじったんだろ？な？
こりゃなんか絶対にいじったなｗｗｗ
754 ：
751 ：2011/12/31(土) 21:43:36.17
いじってないです。
まｓかインストしてから一度も再起動しなかった……
756 ：
754 ：2011/12/31(土) 21:50:49.73
インスト直後に再起動しました。
>>754 落ち着いてもう一度思い出すんだ。
環境変数はシェル毎に異なりうる。
設定が行われる前に開いていた違うシェルでは当然反映されない。
また再起動しなくても環境変数は反映させることができる。
古いファイルがリネームというのはどういう状況なのか
>>751 ではよく分からない。
一行だけじゃなくて、動くコードが無いと判断しようがない。
758 ：
デフォルトの名無しさん ：2012/01/04(水) 15:38:08.25
760 ：
デフォルトの名無しさん ：2012/01/05(木) 12:45:23.83
配列はunshiftで追加できるけど
761 ：
デフォルトの名無しさん ：2012/01/05(木) 12:46:35.75
連想配列に連想配列の要素を追加するという意味です
連想配列に前も後ろもないですよ
763 ：
デフォルトの名無しさん ：2012/01/05(木) 13:50:51.47
%todoufuken("toukyou","東京","chiba","千葉","gumma","群馬");
my @todoufuken = (
自分のIPアドレスやホストを取得するにはどうすればいいのでしょうか？
hostname は Sys::Hostname の hostname()
Perl以前の質問、CGIの質問、どっちにしてもスレ違いなんだなあ
>>769 hostname も変な環境変数しか出力されません
>>771 参考のためにどう検索したか教えて下さい
>>772 参考になりました
ありがとうございました
テキストファイルを開くとして
close
open my $fh, ...
そういうfuckな話が二ヶ月ほど前にあった
要するにこんなことがしたいだけです。
Perlじゃ簡単にできないんですね。
http://dev.classmethod.jp/etc/p3210/ The try-with-resources Statement
リソースを含めたtry文
プログラムが終了した際にクローズされていなければならないリソースを
try文に含めることができるようになりました。これらのリソースは
ステートメント終了時にクローズされることが保証されます。
>>777 >>779 ありがとうございます、これで安心して開けます
>>777 さんの最後が「閉じるほうも or die したほうが良いの？」と
ちょっと気になりましたが
>>779 さんのサイトからclose()で偽を返す場合について確認しました
パイプは分かるのですが
PerlIO層がエラーを返す場合ってどんな場合なんでしょう？
>>779 確かにその類のことがやりたかったことに違いはありませんが
煽り目的の成り済ましはやめて下さい。
うああレスアンカー間違えてる！
ええと…感謝とサイトは
>>781 さんへ、です…
初心者ですが詰まってしまいヘルプお願いします。
perl -nle 'use List::MoreUtils qw/zip/; print zip @{[qw(こんな 感じに 文字を 挿入 したい)]}, @{[split(/,/)]};' data.csv > newfile.text
>>782 > PerlIO層がエラーを返す場合ってどんな場合なんでしょう？
書き込んでいてcloseされると、バッファフラッシュでwrite(2)が呼ばれて、そのエラーが返ることがある。
よくネタにされるのが、デバイス領域が足りない(ENOSPC)。
この辺りはCと同じ。
>>785 ありがとうございます。しかし高度すぎて理解するのに時間がかかりそう。がんがります
>>786 MySQLの勉強してたんですけど、tableに一気にデータ入れたくてそれをperlでやってみようとしたらドツボにはまりました。
作ったのは以下のようなスクリプトなんですが、@<<<<<を長くすると不必要な空白が入ってしまいます。
------
open (NEWFILE, "> newfile.text");
open (DATA, "data.csv");
@data = <DATA>;
$length_data = @data;
for ($record_num = 0; $record_num < $length_data; $record_num++){
#print ("@data[$record_num]");
($id, $user_id, $title, $body, $created, $joined) = split(/,/,@data[$record_num]);
write NEWFILE;
}
close (NEWFILE);
close (DATA);
# Start Format
format NEWFILE =
insert into posts (id, user_id, title, body, created, modified) values (null, '@<<', @<<<<<', '@<<<<<', '@<<<<', '@<<<<<');
$user_id, $title, $body, $created, $joined
.
# End Format
---------------
それで、Formatのほうでは、@<<などの文字をVuser_idVなどの文字にして、writeのあとで文字置換しようとしたんですが、write NEWFILEの下に
while(<NEWFILE>){
s/Vuser_idV/$user_id/;
}
と書いてみたんですがダメでした。forループの中でその都度置換すればいいかと考えたんですが正しいやり方とかありますでしょうか。
回答じゃなくて申し訳ないけど
いくら丁寧な文章を書いても「がんがります」で台無し
あと、スクリプト見る限りではSQL命令をずらずら並べたテキストファイル作って
「すいません」
>>791 「す『み』ませんだろゴルァ」
>>791 はいはい先生は偉いお方だから口悪くても許されますねー
手元にあるのが95年初版のLearning Perlなんだけど、やっぱり古すぎたのか…。どうしよ
下記の3つのprintのうち、真ん中のprintの出力理由が分かりません。
print(("x" . utf8::is_utf8($str))? 'flag' : 'no flag', "\n");
print 3+5 . "km";
あ、関数名()が関数呼び出しの基本だからですね。
>>788 なるほど。
その辺まで突き詰めると、もうPerl固有の話ではなくなりそうですね。
色々調べてみます、ありがとうございました！
｜a.あいうえお
>>802 レスありがとうございます！
なるほど否定先読みを使ったアプローチをすれば良かったのですね。
マッチさせたくないケースは1行目より下に全角スペースだけの行がある場合なので
例えば
d.イロ ハニホヘト
チリヌルヲ
のように途中にスペースを含むケースはマッチさせたいです。
なので(?:(?!\n ).)*?)としたらうまくいきました。
本題からそれますが、このHERE演算子の使い方は初めて見ました。こういう使い方も出来るんですね。
示してもらった具体例をコードにするための方法としてぴったりしていると感じました。
趣味とはいえそこそこ長い間Perlを触って来ましたが、
まだまだ知らない事だらけのような気がしてきました。リャマボン買ってみようかなー。
>>804 折角 /m 付けてるんだからその場合 (?!\n ) より (?!^ ) の方が文意を読み取り易いかもな。
一方ロシアは grep や next if を使った
807 ：
デフォルトの名無しさん ：2012/01/08(日) 16:45:11.65
アレイを[-1]でアクセスしている古いスクリプトがあるのですが、
自分で試してから聞け屑
動かねえなら問題はそこ以外だ
810 ：
デフォルトの名無しさん ：2012/01/08(日) 16:51:53.54
古いperlがないから聞いたんだけど、インストールしないで試す方法を教えてちょうだい。
$ perl -le '@a=qw(f * c k);print $a[-1]'
>>809 抜き出すと、↓これで
my @a = ();
print $a[-1]->[0];
エラーメッセージは
Modification of non-creatable array value attempted, subscript -1 at x.pl line 2.
>>811 なぜか
print $a[-1];
はOKで
print $a[-1]->[0];
はエラーなのですよ。
それで、古いperlは[-1]で最終要素にアクセス出来たのでは? と予想したんだけど。
require 5.005;と書いてある。^^;
>>808 古いperlを入れずに試す方法を早く教えれ。
C言語の配列とアドレスを百ペン嫁
$ perl -le '@a=([],[],[qw(a h o)]);print $a[-1]->[0]'
最新バージョンでも15年前のスクリプトが基本的にそのままで動くように後方互換を維持してるのがperlだというのにな。良くも悪くも。
どーも。それじゃ[-1]は5.14でも最終要素ってことか。
馬鹿なくせにその自覚のまったくない質問者ってイライラするね。
バカっていうか、質問文が完璧だったという前提があるかのような自信はどこからくるのっていう、、、、
>>823 世の中にはおまえみたいな気違いもいる、といういい見本になってくれてありがとう。
perlref読めとしか……
826 ：
デフォルトの名無しさん ：2012/01/10(火) 17:59:44.50
formで入力したパスワードをこのようにhiddenで渡していくのは好ましくないんでしょうか？
>>826 >>827 に加えてついでに書いとくと
> formで入力したパスワードをこのようにhiddenで渡していくのは好ましくないんでしょうか？
好ましくないどころか根本から大間違い
829 ：
デフォルトの名無しさん ：2012/01/11(水) 01:19:01.38
でも結局はhiddenで渡していくしかないよな
なわけねーだろ
833 ：
デフォルトの名無しさん ：2012/01/11(水) 10:08:24.32
確認画面でパスワードなどをhiddenにしておくのがだめって
>>832 で徳丸本薦めてる一つ後のレスが「IPA()とベッタリの徳丸本なんかクソクラエ」と言わんばかりのダメダメ論理で泣けてくる
てゆか2chで徳丸本読んでる奴って100人もいないんじゃないか？
>>833 一体お前いつの常識に基づいてプログラムしてるんだ
手元にあるテキストは90年代に出版されたやつじゃないだろうな？
あとWebの基本知ってればReferer改ざんなんて誰でもできるぞ
>>834 すまん、これで最後にする
あとはセキュリティのセの字もわからん奴が暴れ続けないことを祈りたい
>>835 90年代でもそんなひどい本は売ってなかったろ さすがに…
>>834 ゴミカスって言った奴が真のゴミカス と昔から決まっている
バカがなんかほざいてます
Windows7 32bit + ActivePerlでGUIプログラミングをしたい人は
丸得本ってどれのことですか？
841 ：
デフォルトの名無しさん ：2012/01/12(木) 12:29:13.88
結局セッションを使ったとしてもセッションIDをhiddenに埋め込むわけだから
>>839 あ、俺も聞きたい。
Tkいじってて、GUI32:+LOFTに手を出してみたらLOFTがダメで、
wxPerlに手を出そうとして資料の無さに絶望してTkにもどった
趣味でいじっているだけの人間だけどGTK＋ってどう？
なぜTkのままじゃいけないのか自問しました。
>>840 ママゾンの和書のページに「本のお買い得情報・バーゲン」っていう
のがあります。
Tkは見た目が古い
時間がたてば古く見えるのは当然だと思うけど、これからも見た目を
>>847 TkはPPMでいれられない
5.14.2用どっかあるとこ知らない？
849 ：
デフォルトの名無しさん ：2012/01/15(日) 15:53:25.92
@hobby_list=("ゲーム","アニメ","パソコン");
855 ：
デフォルトの名無しさん ：2012/01/15(日) 18:19:01.35
>>851 ソースコードをEUCにするとソースコード中の全角文字が読めない文字になるので
好ましくないだからshift-jisでやってる。
パソコンをパソ\コンというように文字化けしないように
自動的に\を付けるようにするようにしたいのである。
utf8使えよアフォｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
>>849 前者は、まずソースファイル上でメタキャラクタとして認識された後に、データとして格納されている。
後者は、最初からデータとして扱われている。
なんでutf8で書かないのかな？
(エディタの問題じゃ…？
（ヴァカなのか……？
>>855 諦めてuse utf8とuse Encodeで処理したまえ。
855じゃないけど、utf8嫌いだから、shiftjisを細工なしに扱えるperlが欲しいや…
そんなこと言うとまたjacode.plとかSjis.pmとかいうゴミをドヤ顔で紹介する人が来ちゃうでしょ！
,.へ
use encoding 'cp932';
以下、「
>>865 空気嫁」が1000まで続きます
文字コードを攻略する一番の近道は
まあ、どおぉ～してもShift JISで処理したいまたは処理しなければならないなら、
use encoding qw(cp932); で十分。
>>869 それじゃだめだろ。
お前、use encodingの意味わかってないな。
だ～か～ら～、ちゃんとutf8フラグを勉強しろと。
シフトJISを使うときになぜutf8フラグ必要になるのかまるで
>>871 さらに
open(IN,"<:encoding(cp932)", "hobby.dat");
にすればおｋじゃね？
そんなバッドノウハウ覚えるぐらいなら、
は？decode()、encode()は基本だけど
utf8フラグが普通じゃない罠。
utf8フラグはPerlで文字列触る基本となってるのは事実。
１レスで理解できるコピペなかったけ？あれ出せばいいじゃん
1レスで理解できるutf8フラグ
CPAN本でdecode済みの文字列を"文字列"って表現してたのは良かったね(""含めて)
同意できない
誰かのご機嫌をとりながら書かなきゃいけないプログラミング言語って
>>883 えっ、Perl は言語の中ではご機嫌を取らないほうだろ？
悪いこと言わない。
うちは出来上がるデータが命だから、そういうことはできないのん
ちょっとよく分からん……
文字コード変換がロスレスだと考えるのは夢想的すぎる
>>888 cp932とeucjpms使わんから…
扱うデータがシフトJISの場合、コードに書かれているutf8による
891 ：
デフォルトの名無しさん ：2012/01/15(日) 23:53:59.04
ウインドウズでPerlやりたいんですが
じゃあlinux入れれば
893 ：
デフォルトの名無しさん ：2012/01/16(月) 00:00:05.86
オンラインゲームができなくなるからいやです
誰がお前のPC上のWindows消せと言った…
895 ：
デフォルトの名無しさん ：2012/01/16(月) 00:15:02.20
>>891 クノーピクスでも使っていやがれ
CD-ROMで起動できるfuckな環境だっぜ
colinuxつかって環境作ってる。便利。
899 ：
デフォルトの名無しさん ：2012/01/16(月) 00:56:21.65
文字化けする文字の後ろに\をつけるのだと難しいので
質問側も回答側もなんでこう…90年代から進歩してないんだ…
>>897 iconvインスコして、以下のバッチを作って、適当に名前付けて、パス通しておけばいいよ。
@echo off
perl %* | iconv -f utf-8 -t cp932
という私もcolinux突っ込んでる。
902 ：
デフォルトの名無しさん ：2012/01/16(月) 08:39:53.80
>>900 おれはいろんなperl入門のサイトで見て勉強してる
とほほとかKENTとか
釣れますか？
一人釣れたようですね
905 ：
デフォルトの名無しさん ：2012/01/16(月) 12:29:29.87
メモ帳でソース書いてるけど
906 ：
デフォルトの名無しさん ：2012/01/16(月) 12:39:04.00
$str="aaa\bbb\ccc";
\\
正規表現もだけど、もう1行目の時点で期待してるであろう文字列とは違ってるよね
バカしかいないのか
910 ：
デフォルトの名無しさん ：2012/01/16(月) 15:53:28.12
>>906 は解決しました
でも$str="あ表あ";
$str=~s/あ/ｗｗｗ/g;は置換できるけど
$str=~s/表/ｗｗｗ/g;はエラーで置換できませんでした
これの置換方法を教えてください
以下シフトJISの話題でループ
とりあえず、Windows環境でPerlやるヤツはファイルの先頭に
>>910 CP932で 表/ は(\x95,\x5C,\x2F)の並びになる。
\x5Cはバックスラッシュ(\)なので、次の文字のスラッシュ(/)はクォートされ、
リテラルキャラクタ扱いになる。
これを防ぐには、"\\"というようにバックスラッシュを二つ重ねて、
バックスラッシュをリテラルキャラクタにする。
つまり、表\/ (\x95,\x5C,\x5C,\x2F)の並びにすれば良い。
よって、
$str=~s/表\/ｗｗｗ/g;
これは、CP932の文字列をバイナリ列のまま扱うことに起因する問題なので、
>>7 を守れば問題は起きない。
参照:
http://perldoc.perl.org/perlre.html
914 ：
デフォルトの名無しさん ：2012/01/16(月) 17:55:11.13
メモ帳でANSI形式で保存して
916 ：
デフォルトの名無しさん ：2012/01/16(月) 18:11:20.47
なるほどわかりました
917 ：
デフォルトの名無しさん ：2012/01/16(月) 20:14:53.13
perl5.8以降のopen関数で書き込む場合ファイルハンドル、文字コード、ファイルパス
このメンバーで1000まで行こう、な
トロロベリーパールはどこにありますか？
>>917 古くはjcode.plなどを使って文字コードを変換してから書き出した。
その後、PerlがPerl5になるのにともない、Jcode.pmがリリースされ、
さらにその後、さすがのゆとり世代でもご存知かと思われるが、
以下、Encodeの酸鼻が続く
>>917 はPerl5.8以降を使ってはいけない会社で働かされているんだろうか
いま、うちの会社をばかにしましたか？
>>885 よっぽどの理由があるのでsjisで書かせてください。
俺も長いことやってるけどUTF-8なんて聞いたことないよ、
928 ：
デフォルトの名無しさん ：2012/01/16(月) 21:27:47.04
素直にutf8でやったほうが
どうしてもjcode.plでハングルを扱いたいです。
ハングルを扱うのならjcode.plは不要と思われ。素のperlだけで扱える。
>>929 プログラマにそんな選択の自由与えられていないだろ。
>>933 社長様がPerl4で書けなどと強要する脳内ブラック企業はもういいです
社長と俺しかいないのかよっ(しかもPerl4て、ぷぷ)
重要性の比較
・大規模データ
東電みたいなこと言うなよ。
>>937 そんなのをPerlで作ってるところなんて無いからｗ
webアプリのようなmod_perlとか使うなら大規模なシステムもperl使えそうだけど、
>>940 こういうとき絶対に「Java上で書かれた言語」とかじゃなく「生のJava」をお勧めされるよねｗ
コードをutf8で書いたらデータの互換性が無くなるとか
943 ：
デフォルトの名無しさん ：2012/01/17(火) 12:15:39.86
utf8とかいうの試してみたけどエラーで表示できませんでした
945 ：
デフォルトの名無しさん ：2012/01/17(火) 12:32:10.47
>>943 ソースにBOMついてない？
一応レス。
946 ：
デフォルトの名無しさん ：2012/01/17(火) 12:33:52.16
>>944 IEでこのブラウザでは表示できませんってエラーがでてくる
えっ？コマンドラインじゃないの？
948 ：
デフォルトの名無しさん ：2012/01/17(火) 12:39:44.90
>>943 terapad はutf-8n指定しないとBOM
が付くみたいだから、それためしてみ。
>>947 そしてどこで買ったか知らないが「表紙が赤い」オライリー本で勉強するいつものパターンですね、わかります
ブラウザはIEです、ってまず意味がわからん。なぜIEが出てくる。
951 ：
デフォルトの名無しさん ：2012/01/17(火) 13:07:22.28
>>943 はCGIとPerlの区別もついてないゴミクズ
よく恥ずかしくないなこのゴミ
>>1 すら読めない池沼はさっさと回線切れや
952 ：
デフォルトの名無しさん ：2012/01/17(火) 18:50:33.75
スレを無駄に消費しないでください
分かってる人しか回答していない事実
1000に届くついでに
5.8以前は全部いっしょくたでいいよ
それは立ててみないと分からないので try{} すべし
モダンPerlだのユニコードだのutf8フラグだのと机上でトップダウン
>>959 お前が無知なだけｗ
お前の知ってる方法で、世界中の言語を
扱ってみろよ。
世界中の言語を扱[わえ]ないからｗ
世界中の言語を扱うっていうのはどういうことを言っているの？
>>962 たとえば受信したメールを
文字化けしないように表示すること
内容を理解する必要はないわなｗ
>>961 扱ってみろと言ってるだけ。
練習すらできない？
文字を扱うのと言語を扱うことの区別がないとはｗ
高専あたりにゃクラス替えはないから
揚げ足のつもりはない。気が向いたらこっちのスレにも顔出してな。
揚げ足取りなんてつまらないことやめて、
1.第一に世界中の言語を扱うことがない。大事な主張なのでこれで２度目な。
扱うことがないかは問題ではない。
結局「いままでこの方法でやって来れたから」
お前のために練習できない。
> お前のために練習できない。
出来る奴と出来ない奴
そういう実験はお前がやって自己満足してろよ、おれは邪魔したりはしないよ。
実験じゃなく、実用で使ってる。
だから、実験でも実用でもお前の邪魔したりしないから、落ち着け。
えらい、えらい、おまえはえらい、おれはバカだ。そうだ、そうだ。
>>979 じゃまとかなにか勘違いしてるんじゃないのか？
俺は、お前以外の人に、最新のPerlはEncodeモジュールを
使うのが標準と伝え、お前のように勉強しない奴が
どれほどダメな人間かをこうやって伝えてるんじゃないか。
やってみろといってもやらない、
やらない理由探し、俺には必要ない。
言い訳ばかり、お前のしゃべる言葉すべてが
恥ずかしい言葉として、他に人の目に写っている。
それこそが俺がこうやってレスしている目的なんだがｗ
ようし、これで1000までいこうぜ！
邪魔どころか、俺の計画通り
そういえば、お前仕事は見つかったのか？
>>984 きっとその件についても
やらない理由を探してるよｗ
>>985 すまん、残り少なくなってきたが分からないので解説よろ。
>>986 仕事さがしてないってことだろｗ
Encodeモジュール程度でさえ、やらない理由を言ってるやつだぞ
仕事探しもやらない理由を言うばっかりでやってないに決まってるｗ
うめ
うめ
うめ
うめ
うめ
うめ
うめ
うめ
うめ
うめ
この世界はおれたちの心のようには美しくなくて、ときどきめげそう
うめ
1001 ：
１００１ ：
Over 1000 Thread このスレッドは１０００を超えました。
