- 1 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ]
- "The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
( WEBプログラミング板 pc11.2ch.net/php/ )
CGIの質問は答えが Perlと全然関係ない話に帰着する場合が
多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2008/08/11 現在の最新版（安定版）: 5.10.0
● 2008/08/11 現在の開発版: 5.9.5
▼ 前スレ
Perlについての質問箱 36箱目
pc11.2ch.net/test/read.cgi/tech/1215569470/
リンク集は>>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは>>5-6 あたり
- 159 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 18:46:09 ]
- >>158
まちがえた。
○ようは、randで、65-95、かつ98-120の数字がほしい、
- 160 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 19:19:20 ]
- >>157 発想を変えてみる
@str = (a..z,A..Z);
print $str[rand(@str)];
- 161 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 20:25:45 ]
- >>160
なんもプリントされないんだけど。
- 162 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:08:40 ]
- こうですか？
$x = int(rand(52));
print chr(($x + ($x % 2) * 63+ 130)/2);
- 163 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:17:41 ]
-
my $a;
do {
$a=int(rand(123-65)) +65;
say "fault!";
} while ($a<=96 or $a>=91);
print $a;
↑これやると無限ループになる。なんで？
- 164 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:20:53 ]
- >>163
自己解決した。
orじゃなくてandだった。
こんな難しいバグも一人でデバッグできるオレ様の単価は
120万円/月くらいですか？
- 165 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:29:18 ]
- my $a;
my $b;
for ($b=1;$b<=8;$b=$b+1){
do {
$a=int(rand(123-65)) +65;
} while ($a<=96 and $a>=91);
print chr($a)," ";
}
↑やったーパスワード発生器できたよー
- 166 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:34:31 ]
- system q|cls|;
my $a;
my $b;
for ($b=1;$b<=8;$b=$b+1){
do {
$a=int(rand(123-65)) +65;
} while ($a<=96 and $a>=91);
sleep(0.5);
print chr($a)," ";
}
print "\n";
↑こっちのほうが、ちょっとかっこいいかな？
- 167 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:46:46 ]
- 今、考えてるのは、
配列に、３つの要素が入ってるとして、
その３つの要素を連結して、一つの文字列にして、
スカラー変数にいれるということ。
@a=('a','b','c')
だとして、
$b="abc"
にしたいということ。
自分で考えるから、おまいら、絶対に正答を書くなよ！
いいか、絶対に書くなよ！
- 168 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:50:53 ]
- sub genpass {
my @chars = (0..9, "A".."Z", "a".."z");
join "", map { $chars[rand(@chars)] } 1..8;
}
print genpass(), "\n";
- 169 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:55:05 ]
- >>168
こ、これは、、、
スカウターの数字が、、、
パールレベル１２を超えてるだと？！
- 170 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 22:01:36 ]
- これ以上このスレに常駐するなら、あぼーんするからコテつけてくれ。
- 171 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:11:06 ]
- use feature qw( :5.10 );
use Time::HiRes 'sleep';
$|=1;
#----------------------------------
system q|cls|;
my $a,$b,@c,$e;
for ($e=1;$e<=5;$e=$e+1){ #外側のforループ
for ($b=1;$b<=3;$b=$b+1){ #内側noforループ
do {
$a=int(rand(123-65)) +65;
} while ($a<=96 and $a>=91); #do-while文
push(@c, chr($a));#生成したランダム文字を配列にプッシュ
}
my $d;
$d=join ("",@c);#配列に格納されている文字をスカラー変数に代入
say "$d";#文字を出力
@c=();#配列を初期化
}
#----------------------------------------
↑やったー
ランダムな3連文字列を5回出力することに成功
あとはソート部分のロジックだけだー
- 172 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:14:45 ]
- >>168
実を言うと、
＞print genpass()
ここがわからなかったりする。
無名サブルーチンの呼び出し？
サブルーチンを呼び出して、その返り値を
プリントしている？
- 173 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:22:56 ]
- randの引数に、配列を入れるってのは、ありなのか？
- 174 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:25:31 ]
- ありだよ。
- 175 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:25:54 ]
- レベル低い質問ばっかりだな
- 176 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:26:48 ]
- >>175
妬むなよ！
- 177 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:27:05 ]
- レベル低い煽りばっかりだな
- 178 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:28:28 ]
- そりゃ、初心者の廚が常駐してんだもん、
レベルの高い質問になるわきゃねえ。
まあ、夏休みが終るまでの我慢我慢。
- 179 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:44:47 ]
- 夏休みであって欲しいとか小中学生であって欲しいとは思う。
- 180 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 01:03:15 ]
- >>168
見ればみるほどすごいわ
天才だろこれ
- 181 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 01:53:07 ]
- >>180
grepやmapは暗黙的なloopを構成できるので、
馴れればすぐにそれっぽく書けるようになるよ。
- 182 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 01:56:59 ]
- さーせん、xmlの変更処理で、簡単で短いコードを教えてください。
検索処理ではなく、変更処理っす、文字列でなく、xml文章として扱って変更するタイプ。
入力xmlは、標準入力かファイル名、出力するxmlは標準出力
処理前xml
<xml? ....ありきたり>
<root:yesroot>
<!-- subtree -->
<subt e='befoore' />
</root:yesroot>
変更後xml
<xml? ....ありきたり>
<root:yesroot>
<!-- subtree -->
<subt ele='after' />
</root:yesroot>
自分で作るにあたって参考にしたサイトは、
www.ibm.com/developerworks/jp/xml/library/x-xmlperl1.html( 1 - 3)
なんですが、どうも簡単。ってレベルじゃないと”感じ”ました。
javac,c,python,rubyでやっても同じじゃん。みたいな。
- 183 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 02:11:33 ]
- >>181
みっともないやつだな
- 184 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 02:59:31 ]
- >>182
> 検索処理ではなく、変更処理っす、文字列でなく、xml文章として扱って変更するタイプ。
Perl は入力をほとんど常にバイト列として扱います。
XML として扱いたいなら XML::* モジュール郡を使ってください。
> javac,c,python,rubyでやっても同じじゃん。みたいな。
そういうことなら Perl にこだわる必要もないのでは?
- 185 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 10:54:11 ]
- CGIレベルでなくて、純粋なコンソールレベルの
perlの入門書を探しているんだが、あんまりないね。
結城さんのは読んだし、すぐわかるperlは今読んでるし。
- 186 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:08:22 ]
- Perl初めて塾 やさしいPerl ［表計算的処理編］
ミニマルPerl
Perlクックブック Volume 1
等々あるけど、べつに結城本でもテキスト処理はカバーしてるよ。
CGIも処理の大半はテキスト処理だし
- 187 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:19:56 ]
- 何でこんな変な文字列になるのですか？
$a = "\Q声";
print $a # => \申ｺ
- 188 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:24:45 ]
- \Q ... \E は英数字以外の文字にバックスラッシュを追加する
- 189 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:37:28 ]
- >>188
そうなんだ
サンクス
- 190 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 17:11:25 ]
- >>172
ヒント：
sub hogehoge(){
'Hello World!!';
}
print hogehoge(); #Hello World!!
- 191 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 19:53:40 ]
- >>190
なにか、名前はついてるんですか？
「サブルーチンの、無宣言呼び出し」とか。
名前がわからないと、本で調べることもできないし。
たぶん、このサブルーチンの呼び出し方は
入門書レベルでは解説ないですよね？
＆をつけて呼ぶ方法しかのってないのが普通だと思う。
- 192 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 20:09:01 ]
- 本が古いだけなんじゃ
- 193 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 20:31:06 ]
- ラクダ本だと「裸のワード」ってよばれてる。
$, @, & とかなくてクォーテーションで囲まれてない文字列をどう解釈するか。
@list = (hoge, hage);
print $list[1];
とかね。
- 194 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 20:41:57 ]
- >>191
>＆をつけて呼ぶ方法しかのってないのが普通だと思う。
…いつの時代の人ですか？
- 195 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 21:02:35 ]
- …誰も突っ込まんから一応突っ込むが、
>>168はごくごく普通のサブルーチン
>>190はプロトタイプ付きのサブルーチン（引数を取らないと宣言している）
本人は解ってて書いてるのかも知れんが、
sub hoge(){
my $dat = shift ;
…
}
とかやる奴が出てきそうで怖い
ってここまで書いて初心者スレじゃない事を思い出した。ご丁寧に書く必要なかったな
- 196 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 21:30:42 ]
- 初心者スレとかあるの？
- 197 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 22:03:03 ]
- webprogにあるよ
- 198 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 22:46:49 ]
- >>195
微妙に難しいな。
いや解説してくれたのはありがたいんだけど。
プロトタイプってレベル２だろ。
- 199 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 23:16:23 ]
- あっち池。
Perlコーディング初心者質問スレ Part 58
ttp://pc11.2ch.net/test/read.cgi/php/1218030872/
くだすれPerl（超初心者用）2
ttp://pc11.2ch.net/test/read.cgi/php/1204488452/
- 200 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 00:14:27 ]
- >>199
一時期そちら方面でもお見かけしたのですけれど、
どうも、その…、回答者の質がお気に召さないご様子でして、
大変光栄なことに、数を撃てばなにがしかの情報が引き出せて、
かつ適度に遊んでもらえるこちらに居を定められた模様なのですよ。
個人的に殿下には、同じあちらでも下記スレをおすすめ申し上げたい。
pc11.2ch.net/test/read.cgi/php/1158647441/l50
- 201 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 00:39:07 ]
- 何度同じサイクルを回れば気が済むんだよ、チンポしゃぶりどもが。
- 202 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 00:54:32 ]
- おまえもな
- 203 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:09:57 ]
- おまえもな
- 204 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:17:11 ]
- おれらもな
- 205 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:17:56 ]
- おまえだけだよ
- 206 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:24:36 ]
- いやいやおまえもだろ
- 207 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 02:58:59 ]
- もういいです
- 208 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 14:06:12 ]
- いやいやよくない
- 209 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 15:22:53 ]
- こういうのははっきりさせとかないとな
- 210 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 20:06:37 ]
- 正規表現って、
s///と、
tr///と、
m///と、
3つの種類しかないの？
- 211 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 20:13:12 ]
- つ split(//)
別にこれらが正規表現な訳では無い
これらのパターンマッチ関数で正規表現を使用しているという事
- 212 名前：デフォルトの名無しさん [2008/08/20(水) 20:38:24 ]
- 質問age
hoge.plは処理の中でlocaltimeを取得するんですが、hoge.pl自体の改修はせずに
実行時にlocaltimeを指定してやることは可能でしょうか？
別のhogehoge.plを作って、その中で指定した値をlocaltimeとしてhoge.plに渡して実行
みたいなことができるとベストなんですが。
- 213 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 22:30:23 ]
- 意味不明
- 214 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 23:05:42 ]
- >>212
が言いたいのは、たぶん、
hogehoge.plの中味で、
$a=123456;
とかを指定。
そんで、
localtime=$a;
とかにする。そんで、
hoge.plを実行するときに、引数で渡す。
perl hoge.pl localtimeとか。
そしたら、hoge.plが、引数として渡された
localtimeを食って、localtimeとして実行する。
こんなイメージだと思う。違ってたら言って。
- 215 名前：212 mailto:sage [2008/08/21(木) 00:00:51 ]
- >>214
すいません、ちょっと違います。
hoge.plは純粋にlocaltimeを取得するだけで
引数をlocaltimeとして扱うという機能はありません。
例えば、実行するとそのときの時刻をテキストに書き込む、といった感じです。
実行したときの実際の時刻とは違う時刻を取得させたいのですが
hoge.pl自体を改修せずに実現できないものかと考えております。
- 216 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 00:28:35 ]
- 最初から、そのhoge.plが、
引数を食うような設計になってないと、
無理なんじゃないかな。
- 217 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 00:33:33 ]
- ビルトイン関数をユーザ定義関数で置き換えることって出来なかったっけ？
- 218 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 01:13:12 ]
- # hogehoge.pl
chomp( my $the_world = `time /t` );
my $you_want = '00:00';
system( 'time', $you_want ) and die;
system( 'perl', '.\\hoge.pl' ) and die;
system( 'time', $the_world ) and die;
# そんなことやってると、もっと恐ろしいものの片鱗を味わうことになる。
# 今のうちにやめとけ。俺は止めたからな。
- 219 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 01:50:57 ]
- ビルトイン関数のオーバーライドはできるよ
- 220 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 02:25:11 ]
- localtime($hogehoge::hogetime) とか hogehoge::hogetime() にするのが本当に無理な状況なら
権限がないので書き換えられないと書いてそうなんだけどな。
- 221 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 13:06:25 ]
- www.nicovideo.jp/watch/sm2744352
これってperlでもできるのかな？
- 222 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 17:19:21 ]
- ああ
- 223 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 18:22:30 ]
- Q.「～はPerlでも可能ですか?」
A.「できます」
ほとんどの "～" について上記の答が返ってきます。
"～" が「電気ストーブの作成」である場合等、いくつかの例外を除いて。
- 224 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 18:28:57 ]
- >>221
電気ストーブ作りたいならここ参考にね☆
pc11.2ch.net/test/read.cgi/php/1010583350/
- 225 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:11:55 ]
- なんか質問の趣旨が誤解されてるようですが、
perlで同じ物作れるか？って質問でなくて、
perlでソースコード組むときに、このシステム使って
ネット経由でペアプログラミングしたりとか、
自分のコーディングを録画して中継したりとか
できるのかな？って意味だったのですが。
- 226 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:15:18 ]
- うむ
- 227 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:15:21 ]
- ああ
- 228 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:36:43 ]
- kazato.run.buttobi.net/cgi-bin/material/src/vm002_0183.png
perl版のこういうの作らない？
while
文字列の長さを取得する ループを作る
みたいなの
- 229 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:37:33 ]
- >>226
ちょっとperlでソースコード書いて、
>>221のシステムでうぷしてもらえませんか？
- 230 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 04:29:53 ]
- >>228
作っていいぞ。
>>229
うｐっていいぞ。
- 231 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 10:20:37 ]
- ばかなんじゃないの
- 232 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 14:42:37 ]
- おまえもな
- 233 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:14:57 ]
- おまえもな
- 234 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:17:41 ]
- ∧＿∧ ／￣￣￣￣￣
（ ´∀｀）＜ オマエモナー
（ ） ＼＿＿＿＿＿
｜ ｜ |
（＿_）＿）
- 235 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:55:27 ]
- 言い出しっぺの法則。
自分が欲しいものは自分で作れ。
- 236 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 16:35:25 ]
- >>235
言い出しっぺの法則は、「言い出しっぺがやらない限り誰もやらない」だ。
- 237 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:02:15 ]
- >>236
言いだしっぺの法則は、「お前がやれ」って返って来る法則のことじゃないのか？
- 238 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:10:39 ]
- >>237
いなかっぺ大将は、「キクしゃん、ハナしゃんと西一の三角関係」を描いた物語ですよ確か。
- 239 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:49:44 ]
- >>238
違うダス！
わしとキクしゃんの恋愛物語なんダス！
- 240 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 08:37:58 ]
- かなりのおっさんがいる？
- 241 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 17:41:35 ]
- にぎりっぺ
- 242 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 18:58:42 ]
- ActivePerl v5.10.0 を使用しています。
LWP::UserAgent を使用して、たとえば https://mixi.jp に接続すると、
Client-SSL-Warning: Peer certificate not verified がレスポンスヘッダに出てくるのですが、
これを解消するためにはどうすればよいのでしょうか。
- 243 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 19:16:50 ]
- Crypt::SSLeayを入れる
- 244 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 19:19:37 ]
- Crypt::SSLeay は 0.57 が入っていました。
- 245 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:01:55 ]
- OSはWindows２０００でActivePerlについての質問です。
よくCPANから○○をとってきてインストールしろとか
みますが、Activeperlを使っている人は、PPMで
インストールできるモジュールしか使えないのでしょうか？
PPMのインストールのメニューに出てくるという意味です。
- 246 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:07:55 ]
- PPMを起動すると、
kazato.run.buttobi.net/cgi-bin/material/src/vm002_0191.png
こんな画面がでてきて、ほしいファイルを右クリして
インストールする仕組みになっています。
これって誰が管理しているか知りませんが、
たぶんactivestate社がやってるんですよね。
で、PPMのメニューに出てこないものは
インストールできないのかなと。
- 247 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:09:17 ]
- 最近perlも飽きてきた。
どの入門書読んでも、だいたい同じこと書いてあるから。
で、今日はレファレンスについて勉強してみようと思いますが、
グーグルで検索するときに、レファレンスなのでしょうか？
それとも、リファレンスなのでしょうか？
- 248 名前：デフォルトの名無しさん [2008/08/23(土) 21:17:47 ]
- ぐぐれカスとも言えない新技だな
- 249 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:51:20 ]
- >>247
両方ぐぐれよ。
あるいはreferenceで。
- 250 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 22:12:34 ]
- >>245
やってやれないことはないけど、気合と根性が必要。
俺はPPMに無いものはCPANからアーカイブを取ってきてMinGW+nmakeでインストールしてる。
が、Windowsには類似のAPIがない、UNIXべったりのモジュールには苦戦してる。
(同じ機能はあってもAPIの仕様が全然違う)
- 251 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 23:53:26 ]
- セーブファイルをネット上に保存する、ってのは
かんたんにできるのかな。
アップローダーみたいな、、、っていうのかな？
print (FILE www.abc.com/abc.txt);
みたいな。
- 252 名前：デフォルトの名無しさん [2008/08/23(土) 23:56:31 ]
- 以下のように①とかそういうのを全部変換したくて延々書いているのですが、
速く処理出来るようにするにはどのようにしたらよいのでしょうか？
$str=~s/Ⅰ/1/g;
$str=~s/Ⅱ/2/g;
$str=~s/Ⅲ/3/g;
$str=~s/Ⅳ/4/g;
$str=~s/Ⅴ/5/g;
$str=~s/Ⅵ/6/g;
・・・
$str=~s/①/(1)/g;
$str=~s/②/(2)/g;
$str=~s/③/(3)/g;
・・・
- 253 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 23:58:38 ]
- アロー演算子っていうのは、
ハッシュのレファレンスを表すときにしか
使わないんですか？
- 254 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:01:07 ]
- >>252
コーディングの行数を減らしたいってこと？
コンピューターの処理速度を速くしたいってこと？
- 255 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:03:32 ]
- $str=~tr/Ⅰ-Ⅹ/1-10/g;
$str=~tr/①-⑩/(1)-(10)/g;
これだと動かないかな。
- 256 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:15:10 ]
- use strict 'refs';
↑これって書かないと動かないの？
それとも、use strictを書けば、その中に含まれるの？
- 257 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:37:44 ]
- ha??
- 258 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:44:24 ]
- >251
自分のパソコンと相手のパソコンが繋がれてあったとして、
こちらのパソコンを操作するだけで相手のパソコンのHDDに書き込むことができるか？という問いに近い。
>252
ローマ数字に対応してるかどうか分からんけど、Unicode::Normalizeとかは？
ギャル文字の正規化めんどくせぇなあ……（ぼやき）
- 259 名前：デフォルトの名無しさん [2008/08/24(日) 00:44:35 ]
- >>254
処理速度のほうです。
>>255
有り難う御座います。
$str=~tr/①-⑩/(1)-(10)/;
$str=~tr/①-⑨/1-9/;
上の方法では出来ず、下の方法では出来ました。
括弧を付ける方法とかあるんでしょうか？
|
 |
