04/05/20 13:10
perl 5.005 を使っていますが、
このような古い環境で UTF-8 → Shift JIS (EUC でも可) の
変換方法がありましたらお教え願えますか?
210:nobodyさん
04/05/20 13:57
>>209
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(openlab.ring.gr.jp)
ｽﾚﾘﾝｸ(php板)
ｽﾚﾘﾝｸ(tech板)
211:209
04/05/20 14:07
>>210
jcode.pl の方ばかりを気にしていたので.pm の方をすっかり失念していました。
スレ汚しすいませんでした。
212:nobodyさん
04/05/26 11:48 3xdgk57n
use strict;
sub new {
my $that = shift;
my $class = ref($that) || $that;
my $self = { a=>{A=>'A',B=>'B'}, b=>[qw/A B/] };
bless ($self, $class);
return $self;
}
sub method {
my $self = shift;
my $a = $self->{'a'};
my $b = $self->{'b'};
}
$a,$bをデリファレンスして利用するのではなくて
型グロブで選択的別名定義して%a,@bと実装できますか？
できるのでしたらどのように実装するのでしょうか？
213:nobodyさん
04/05/26 17:14
sub method{
my $self = shift;
our(%a, @b); # or use vars pragma
local *a = $self->{a};
local *b = $self->{b};
$a{foo} = 1;
push @b, 'foo';
}
またはAlias.pmとかな。
URLﾘﾝｸ(search.cpan.org)
どっちにしてもあまりメリットは感じないが。
214:nobodyさん
04/08/08 10:03 Ejd6WZ6r
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift
equips => undef
}, $pkg;
}
ここでequipsを配列にしたいのですが、
そのような事は可能でしょうか？
push($self->{equips}, $object);
$self->{equips}->[1]->getEffect();
($objectは別のクラスオブジェクトでgetEffectはそのメソッド)
みたいな感じで使いたいのですが。
215:nobodyさん
04/08/08 13:06
equips を配列へのリファレンスにすることならできる
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift,
equips => []
}, $pkg;
}
としておいて
push(@{$self->{equips}}, $object);
$self->{equips}->[1]->getEffect();
216:nobodyさん
04/08/09 19:13
巷のスクリプトを見るとPerlでサブルーチンにプロトタイプ宣言を行っていない
ものがほとんどなのですが、なぜプロトタイプ宣言を行っていないのでしょうか？
プロトタイプ宣言を行うと低速化したりという弊害等があるのでしょうか？
sub func($$@) #プロトタイプ宣言あり
sub func #プロトタイプ宣言無し
217:nobodyさん
04/08/09 20:38
>>216
反対に、宣言しなくてもいいのにわざわざ宣言するメリットって何?
その「巷のスクリプト」とやらはサブルーチン呼び出すのに &
つけてたり、メソッドとして呼び出してたりしてないか?
あと Perl 関係のメインスレは以下なので以後はそちらに。
ｽﾚﾘﾝｸ(php板)
ｽﾚﾘﾝｸ(tech板)
218:nobodyさん
04/08/09 21:35
>>217
コンパイルタイムの型チェックと最適化がされるらしいので、
より効率的でより安全だと思うのですが。
219:nobodyさん
04/08/20 07:16
らしいじゃなぁ
PerlOPみて調べて自分で考えろ
220:nobodyさん
04/08/31 01:56
>>219
要するにあなたは何も知らないんですね ;-)
221:山崎 渉 ◆hG4XfSMGTg
06/02/17 13:07:09
ブヒャヒャヒャヒャｗｗｗｗｗｗｗ
222:nobodyさん
07/02/10 21:36:53
簡単にお金稼ぎ！！！
以下の手順でやれば、無料でお金稼ぎができます。
企業も広告の宣伝になるから、お金をくれるわけです。
最初の１日目で 2000 円～3000 円 は確実に稼げます。
実際の作業は数十分程度、１時間はかかりません。
(1) URLﾘﾝｸ(sinsetsu.lxl.jp)
↑このアドレスからサイトに行く。
(2) ゲットマネー登録サイトに移動するので、
そこで無料会員登録をする。
※フリーメールアドレスでもＯＫ。
(3)ポイントを稼ぎます。
懸賞の応募や無料会員登録をすればするほど、
ポイントが貰えます。
他にも沢山種類があるので、１日目で
約 20000 ポイントは GET できます。
(4) 10000 ポイントから、現金に交換できます。
(5)キャッシュバックという所がありますので、
そこから交換をしましょう。
これで現金を稼ぐといいですよ！！！
無料会員登録はこちらから↓
URLﾘﾝｸ(sinsetsu.lxl.jp)
223:nobodyさん
07/03/23 07:33:44
>>168
お前頭悪いなｗｗｗ
ばああああああああああああああああああああかｗｗｗｗｗｗｗｗｗｗｗｗ
死ねクズｗｗ