12/01/18 02:58:16.13
CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: URLﾘﾝｸ(hibari.2ch.net) )
このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。
URLﾘﾝｸ(www.perl.org)
● 2011/10/30 現在の最新版: 5.14.2
▼ 前スレ
Perlについての質問箱 49箱目
ｽﾚﾘﾝｸ(tech板)
リンク集は >>2-3辺り
Perl 日本語処理の基礎の基礎 >>4辺り
2:デフォルトの名無しさん
12/01/18 02:58:43.37
[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: URLﾘﾝｸ(www.site-cooler.com)
[本]
リャマ: URLﾘﾝｸ(www.oreilly.co.jp)
駱駝: URLﾘﾝｸ(www.oreilly.co.jp)
Effective Perl: URLﾘﾝｸ(ascii.asciimw.jp)
クックブック: URLﾘﾝｸ(www.oreilly.co.jp)
Perl ベストプラクティス: URLﾘﾝｸ(www.oreilly.co.jp)
Perl Hacks: URLﾘﾝｸ(www.oreilly.co.jp)
[オンラインマニュアル]
最新のドキュメント: URLﾘﾝｸ(search.cpan.org)
perldoc.jp: URLﾘﾝｸ(perldoc.jp)
perldoc.perl.org: URLﾘﾝｸ(perldoc.perl.org)
3:デフォルトの名無しさん
12/01/18 02:59:04.49
[モジュール]
CPAN.com: URLﾘﾝｸ(search.cpan.org)
河馬屋二千年堂: URLﾘﾝｸ(homepage3.nifty.com)
[テクニック]
Perl メモ: URLﾘﾝｸ(www.din.or.jp)
Perl のページ: URLﾘﾝｸ(homepage1.nifty.com)
Perl の小技: URLﾘﾝｸ(homepage3.nifty.com)
[Perl 5.8 Unicodeメモ]
URLﾘﾝｸ(www.rwds.net) (修正)
URLﾘﾝｸ(www.namazu.org)
URLﾘﾝｸ(www.lr.pi.titech.ac.jp)
4:デフォルトの名無しさん
12/01/18 02:59:23.08
# [Perl 日本語処理の基礎の基礎]
# このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
# このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
# 入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
# まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
use Encode;
# 次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
# 【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
# ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
# ※2. OS に渡す文字列（ファイル名，dos コマンドのオプションなど）は、
# この例のように cp932 でエンコードする必要があります。
5:デフォルトの名無しさん
12/01/18 02:59:49.36
Encodeモジュール （現在のPerl文字コードの標準）
URLﾘﾝｸ(search.cpan.org)
UNICODEでわからなくなったらここを読め
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(perldoc.jp)
6:デフォルトの名無しさん
12/01/18 07:56:08.27
DBIを使ってMySQLなどのデータベースを扱う時に、
データベースへ送るSQL文はutf8へエンコードした方が良いのでしょうか？
$dbh->do(encode_utf8("UPDATE table SET name = 'てすと～～～'"));
このように書いても、また、encode_utf8を抜いて書いても、
どちらで試してもエラーは出ず、文字化けするような事もありませんでした・・・
不要ならオーバーヘッドが起きるのでencode_utf8せず処理したいのですが、
一応utf8へエンコードしておいた方がよいでしょうか・・・？
7:デフォルトの名無しさん
12/01/18 08:59:16.41
>>4
前に書いたけれど、
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
は実際には
use open qw(:encoding(cp932) :std);
で充分じゃないの？
8:デフォルトの名無しさん
12/01/18 09:18:22.98
>>6
DBI は Perl のエンコードのことは考えずに、SET NAMES で指定したエンコー
ディングで文字列がエンコードされているものとみなすので、UTF-8 なら引数
を encode しようがしまいが関係なしのはず。
select で返ってきた値は decode しないとその後の処理でおかしくなる可能性
が高い。
9:デフォルトの名無しさん
12/01/18 09:38:05.76
>>8
教えてくれてありがとうございます。
わかりました、selectで取得する時だけdecodeするようにします。
何度も申し訳ないですが、もう一つ質問させてください。
オブジェクトを作って、インスタンス化し、
そのメソッド名を変数で指定する事は可能でしょうか？
input1、input2、input3 というメソッドがある場合、
my $obj = MyObject->new();
@list = (input1, input2, input3);
for my $m (@list) {
$obj->$m("代入");
}
雰囲気的にはこんな感じで処理したいのですが・・・
もちろん、これではエラーが出てうまく動きませんでした。
どうすればうまく動いてくれるでしょうか・・・
10:デフォルトの名無しさん
12/01/18 10:18:49.41
>>9
> $obj->$m("代入");
これは可能。
URLﾘﾝｸ(perldoc.jp)
> 矢印の右側は典型的にはメソッド名ですが、メソッド名やサブルーチン
> リファレンスが入った単純スカラ変数も使えます。
> @list = (input1, input2, input3);
my @list = qw(input1 input2 input3);
11:デフォルトの名無しさん
12/01/18 10:29:41.60
>>10
教えていただきありがとうございました。
可能だと言われ、見なおした所・・・
配列に入れてたメソッド名をタイプミスしてました・・・
助かりました、ありがとうございました。
12:デフォルトの名無しさん
12/01/18 11:17:21.10
コマンドプロンプトでperlを実行するにはどうしたらいいんですか？
コマンドプロンプトウィンドウにソースコードファイルをドラッグしてエンター押しても
ファイルが開くだけでした。
今まではBJDなどの簡易サーバーでブラウザで実行結果表示していたからやり方わからないです
13:デフォルトの名無しさん
12/01/18 11:24:31.37
perl perlscript.pl
14:デフォルトの名無しさん
12/01/18 11:30:41.49
>>12
>>2
URLﾘﾝｸ(www.site-cooler.com)
15:デフォルトの名無しさん
12/01/18 20:17:30.94
>>12
コマンドプロンプトの扱い方から勉強しなおせよ糞
コマンドプロンプトの使い方知ってたらファイルドラッグとかするわけないだろ
Perl以前の質問をPerlスレでするとか荒らし？
16:デフォルトの名無しさん
12/01/18 23:18:51.34
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
17:デフォルトの名無しさん
12/01/18 23:33:05.75
>>7
use open qw(:encoding(cp932) :std);
だと単語数が多い割にはドキュメント性が低くて、何を cp932 と
するのか分かりにくいのが難点。せめて :std がデフォルトになっ
ていて、省略できればよかったのに。
18:デフォルトの名無しさん
12/01/19 04:12:48.44
はいはいそうだね
19:デフォルトの名無しさん
12/01/19 18:11:56.44
open(OUT,">test.dat");
close(OUT);
このように空のファイルを作ったときエディタを開くと文字コードがshift-jisになっています。
エディタのステータスバーの右下のところがsjisになってます。
空のファイルでもEUCかUTF-8形式にしたいです。
どうすれば文字コードを指定してファイルの作成ができるのですか？
20:デフォルトの名無しさん
12/01/19 18:25:56.46
>>19
エディタのデフォルト設定の問題ですよね。
21:デフォルトの名無しさん
12/01/19 19:54:33.01
ここまでのｱﾌｫがいるとはさすがに思わなんだ……
ゆとりとかそういうレヴェルを遥かに超越したとんでもないｋｓ・ｋｚだ
お前にゃあプログｒマイング一切は向いていない
22:デフォルトの名無しさん
12/01/19 20:38:57.78
なるほど、それであれほど言われてもSHFT-JISに固執してたのか
謎が解けたよ
ぶっちゃけ君にパソコンは無理
いや、煽りとかそんなんじゃなくて、真面目な話で
23:デフォルトの名無しさん
12/01/19 20:39:55.16
>>21
＞お前にゃあプログｒマイング一切は向いていない
文法エラー
24:デフォルトの名無しさん
12/01/19 21:28:34.09
>>19
ゴミは帰れよ
25:デフォルトの名無しさん
12/01/19 22:07:38.62
Net::Twiterとかそのあたりで、TwitterのURLから書き込み内容とかのデータを取得するAPIってないかな。
CPANのドキュメント漁ってるけど見つからない・・・俺が節穴なのかな。
26:デフォルトの名無しさん
12/01/19 22:15:38.31
URLﾘﾝｸ(twitter.com)
からその内容を取りたいってこと？
Net::Twitter(::Lite)?のドキュメント読んでそれが見つからないと言ってるのなら節穴なのかもね
27:デフォルトの名無しさん
12/01/19 22:16:28.00
> Twiter
たぶんfusianaなんだろうなー
> TwitterのURLから書き込み内容とか
こっちのつづりは合ってるのにな―
28:デフォルトの名無しさん
12/01/19 22:20:10.49
節穴とゴミしかいないスレｗｗｗｗｗｗ
29:デフォルトの名無しさん
12/01/19 22:21:29.66
>>26
そう。やっぱりあるよな。俺が節穴すぎるのか。
見なおしてくる。
30:デフォルトの名無しさん
12/01/19 22:21:49.70
ゴッミでぇーーーすッ！！！！
31:デフォルトの名無しさん
12/01/19 22:24:45.73
ゴミはゴミ箱へ
32:デフォルトの名無しさん
12/01/19 22:32:37.04
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
と言いましたが、ｱﾌｫなので誘導は不要です。単にスルーでお願いします。
33:デフォルトの名無しさん
12/01/19 22:49:19.95
ああ見つかった。俺節穴だな・・・。
34:デフォルトの名無しさん
12/01/19 23:17:51.29
chinge
35:デフォルトの名無しさん
12/01/19 23:34:08.31
and Aska
36:デフォルトの名無しさん
12/01/19 23:42:46.80
Perl5.005までは
Perlについて
ｽﾚﾘﾝｸ(tech板)l50
を使って同じ質問が繰り返されないようにすることを提案します。
37:デフォルトの名無しさん
12/01/19 23:45:58.11
うるさいゴミ
38:デフォルトの名無しさん
12/01/20 01:50:05.47
>>36=ただの自治厨
39:デフォルトの名無しさん
12/01/20 02:11:40.81
hoge.plがおいてあるフォルダにあるテキストファイル名を
取り込みリストに格納したいのですがどうしたらできますか？
40:デフォルトの名無しさん
12/01/20 02:13:26.80
要するに ls *.txt の結果を受け取りリストに格納したいのです
41:デフォルトの名無しさん
12/01/20 05:38:32.82
opendir(my $dh, './') or die $!;
my @list = grep(/\.txt/ ,readdir($dh));
closedir($dh);
42:デフォルトの名無しさん
12/01/20 05:41:25.50
あ、ｐｌおいてあるとこるか
'./ 'をdirname($0)に変更かな
use File::basenameしといて
43:デフォルトの名無しさん
12/01/20 12:47:09.53
>>22
PCインストラクター、SE、PGもやってきているのでパソコンが無理ってことはないです
パソコンは会社で一番できるし、上司よりもできるのでパソコンは得意です
44:デフォルトの名無しさん
12/01/20 12:48:18.90
perlで２次元配列を使うにはどうすればいいのか教えてください
45:デフォルトの名無しさん
12/01/20 13:01:22.37
>>43
偽物乙
子供が用語だけ並べてもダメよ
46:デフォルトの名無しさん
12/01/20 13:16:36.03
>>44
↑
このゴミ何？
47:デフォルトの名無しさん
12/01/20 14:10:35.25
>>44
リファレンスを使うんだ
48:デフォルトの名無しさん
12/01/20 15:09:56.81
>>43
そのパソコン大先生が何でこんなスレで質問なんかしてるの？
49:デフォルトの名無しさん
12/01/20 16:44:50.86
>>44
URLﾘﾝｸ(perldoc.jp)
50:デフォルトの名無しさん
12/01/20 16:56:05.01
>>42
こうなったんですが・・・
ちなみにperl hoge.plはエラーはないものの正しく動作しません
$ cpan -i File::Basename
CPAN: Storable loaded ok (v2.20)
Going to read '/home/****/.cpan/Metadata'
Database was generated on Fri, 20 Jan 2012 05:11:07 GMT
Running install for module 'File::Basename'
CPAN: YAML loaded ok (v0.71)
The most recent version "2.83" of the module "File::Basename"
is part of the perl-5.15.4 distribution. To install that, you need to run
force install File::Basename --or--
install F/FL/FLORA/perl-5.15.4.tar.gz
CPAN: Time::HiRes loaded ok (v1.9719)
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
51:デフォルトの名無しさん
12/01/20 17:57:57.85
>>50
5.15.4 なら File::Basename は標準で入っているのでわざわざ入れなくていい。
>>41-42 の言わんとしている事はこう。
#!/usr/bin/perl -w
use strict;
use File::Basename; # URLﾘﾝｸ(search.cpan.org)
my $path_separator = '/';
my $dir = dirname($0); # URLﾘﾝｸ(perldoc.jp)
opendir(my $dh, $dir) or die $!;
print map "$dir$path_separator$_\n", grep(/\.txt\z/, readdir $dh);
# もしくはこう。
print map "$_\n", glob "$dir$path_separator*.txt";
# 本当に ls *.txt が欲しいのならこう。
print `ls *.txt`; # URLﾘﾝｸ(perldoc.jp)
52:デフォルトの名無しさん
12/01/20 18:28:25.53
↑クソワロタｗｗｗｗｗｗｗｗｗ
53:デフォルトの名無しさん
12/01/20 19:57:50.62
>>51
perl v5.10.1 だったのですができました。
ありがとうございます。
失敗してた理由はいまから調査します。
54:デフォルトの名無しさん
12/01/20 20:08:47.55
>>53>>50>>40>>39ですが
ただしく作動しなかった理由がわかりました。
デバッグしてる時の話ですが
ある場所で処理を止めたいので
sleep(100);
を挟んでいました。sleepはちゃんと止めたい場所の下に入れてたのですが
どうも出力が遅れる事が多いのです。
なぜだかわかりません。環境はcygwinです。
<>;で止めるほうがいいのでしょうか？
$ uname -r
1.7.9(0.237/5/3)
$ perl -v
This is perl, v5.10.1 (*) built for i686-cygwin-thread-multi-64int
（略）
55:デフォルトの名無しさん
12/01/20 20:18:10.53
>>44
ものぐさなPerlの世界へようこそ。
他のスクリプト言語に慣れているのならperlrefとperlvarを一読することをお勧めします。
Perlでは配列をネストしようとするとすべてペッタンコに並列化してしまいます。
my @aa = ('foo', 'bar');
my @ab = ('hoge', 'fuga');
my @ac = (@aa, @ab); # => ('foo', 'bar', 'hoge', 'fuga')
$ac[2]; #=> 'hoge'
二次元配列を扱う場合はリファレンスを使って下さい。
my @ac = (\@aa, \@ab); # => (['foo', 'bar'], ['hoge', 'fuga'])
$ac[1]->[0]; #=>'hoge'
並列化する意図がなければ、配列を全てリファレンスとして扱う方が分かりやすいかもしれません。
my $aa = ['foo', 'bar'];
my $ab = ['hoge', 'fuga'];
my $ac = [$aa, $ab];
$ac->[1]->[0]; # => 'hoge', これは次のように省略できます。
$ac->[1][0];
次は一時変数の時にお会いしましょう。ごきげんよう。
56:デフォルトの名無しさん
12/01/20 20:29:21.69
>>54
Perlにはデバッガーがついています。
便利ですので、眠たがらずに是非活用しましょう。
URLﾘﾝｸ(d.hatena.ne.jp)
57:デフォルトの名無しさん
12/01/20 20:43:49.46
>>56
デバッガーがある事を知りませんでした。
使ってみます。
ありがとうございました
58:デフォルトの名無しさん
12/01/20 22:24:17.89
Perlの基本はあらかたわかったけどどういう時にどういうモジュール使えば良いのかよくわからんな
これは自分で調べながら経験を積むしか無いのか
59:デフォルトの名無しさん
12/01/21 01:05:01.17
モジュール探すのは時間がかかるし解説サイトが英語ばかりだから
ちょっとしたものは自分で作る方が早いよ
なんでもかんでもモジュールに頼るとプログラミング力が養われない
60:デフォルトの名無しさん
12/01/21 01:09:01.61
>>59
LWPなしにネット関係の処理すると思うとぞっとします。
61:デフォルトの名無しさん
12/01/21 01:26:13.81
>>59
こういうこと言う奴が既存のモジュールよりもいい物を作れたためしがない
62:デフォルトの名無しさん
12/01/21 02:02:55.88
難しい理由の一つに英語を挙げるヴァカがいるのはこのスレですか？
自分の頭の悪さではなく言語を言い訳にするとかガチ池沼ｗ
さっさと回線切ればいいのにｗｗｗ
63:デフォルトの名無しさん
12/01/21 02:38:05.80
いまさらplaggerをlinuxにインストールしようとしてるんだけど、
今はもうできないの？
CPANから全然入らない。
64:デフォルトの名無しさん
12/01/21 03:58:50.99
ソース落としてきてコンパイルすればすむ話だろ
65:デフォルトの名無しさん
12/01/21 07:31:44.56
>>63
自分はcpanmでできました。
どうしてもだめならテストかっとばしたらどうでしょう。
66:デフォルトの名無しさん
12/01/21 07:34:26.98
>>56
何も環境を用意しなくても、-d を指定するだけで使える便利さ。
それに比べてPHPときたら…
67:デフォルトの名無しさん
12/01/21 11:33:14.02
PHP使ってる奴は情弱
脳に問題あるのかと思うくらい情弱
68:デフォルトの名無しさん
12/01/21 13:51:32.86
【プログラミング部】 PHPが100倍速で動くようになったぞー
ｽﾚﾘﾝｸ(poverty板)
69:デフォルトの名無しさん
12/01/22 12:28:25.82
UTF8にしたのに文字列の中でユニコードの特殊文字が使えません。
例えば○の中にRが入っている文字®という文字を文字列の中に入れたいんですが
この文字列をエディタにコピペするとただのRになってしまいます。
$str = "あああ®ｗｗｗ";というようにしたいのですがうまくいきません。
UTF8ではユニコード文字が使えるんじゃなかったのですか？
70:デフォルトの名無しさん
12/01/22 12:33:46.33
UTF8が使えるエディタに変更してください。
Perlとは全く無関係の話です。
71:デフォルトの名無しさん
12/01/22 15:14:56.72
>>69
Perl関係ないのに書き込むなよゴミ
72:デフォルトの名無しさん
12/01/22 18:08:49.84
いいだろカス
73:デフォルトの名無しさん
12/01/22 18:17:42.73
病的折衷主義のガラクタ出力装置から出てくるのはやっぱりゴミカスか
74:デフォルトの名無しさん
12/01/22 18:34:04.56
だったらPython使えよ
外人が作ってて書き方は一つしかないきっちりしたPythonを！
75:デフォルトの名無しさん
12/01/22 18:41:25.91
> 外人が作ってて
お前はゴミカス同様に欧米コンプとかあんのか？
ｱﾌｫじゃねーの？
何人が作ろうと関係ないじゃんか
これだから低能のｋｓは困る
巣に引っ込んでろｇｍ
76:デフォルトの名無しさん
12/01/22 20:00:47.37
突っ込むようなところじゃないのに突っ込んでファビョってるヴァカは可哀想としか言いようがない
77:デフォルトの名無しさん
12/01/22 20:05:16.19
>>75
＞何人が作ろうと関係ないじゃんか
ところが関係あるんだなぁこれが。
特にRubyが嫌いでPythonに定着した人たちにとっては。
78:デフォルトの名無しさん
12/01/22 20:11:01.45
>>77
もしかするとお前はスレタイも読めないのか？
本当に日本人なのか？
それ以前にアルファベット読めるのか？
ここはperlのスレだぞ？
Rubyの何かと勘違いしていないか？
外人が作ったから良いんだみたいなｋｓなオナニーショーはRubyｽﾚでやってろgomi
あとどこら辺に国民性が出てるのか言えるんだろ？
言ってみろよｋｚ
まあお前は低能の肥溜めのハエ以下の蛆だからぁ
何も語れずにクソひり出して大人しく墓穴に入ってりゃあいいさ
79:デフォルトの名無しさん
12/01/22 23:13:11.23
お手本になる、小さくまとまってて綺麗なPerlモジュールってCPANで言うとどれ？
玉石混交とはよく聞くけど、何が「玉」で何が「石」か判断つかない。
お勧めあったら教えて。
80:デフォルトの名無しさん
12/01/22 23:44:10.02
うるさいゴミ
81:デフォルトの名無しさん
12/01/23 01:07:04.73
図書館の地図の日本海に「東海シール」を貼りつける韓国人
図書館所蔵地図の日本海の上に「東海シール」を貼りつける韓国人たち
画像
URLﾘﾝｸ(mamorenihon.files.wordpress.com)
January 16, 2012
URLﾘﾝｸ(ameblo.jp)
URLﾘﾝｸ(www.youtube.com)
82:デフォルトの名無しさん
12/01/23 17:51:18.91
ファイルを開くときの例外処理って必ずする必要があるのですか？
このようにファイルを開けなかった場合はデフォルト値にしたい場合
例外処理するとopenでプログラムが終了されて、デフォルト値にすることができないのでこのようにするしかないんですが
@default_hobby_list=("ゲーム","アニメ","PC");
open(IN,"hobby.dat");
@hobby_list = <IN>;
close(IN);
#@hobby_listが取得できなかった場合
if(@hobby_list==0){
@hobby_list = @default_hobby_list;
}
83:デフォルトの名無しさん
12/01/23 18:38:24.25
例外処理って何のこと？
普通にこんなのじゃいけないの？
if (open my $f, 'filename') {
なんか処理;
close $f;
} else {
デフォルト処理;
}
84:デフォルトの名無しさん
12/01/23 18:50:24.48
>>82
それだと読み込んでも配列がゼロ行なら処理しちゃうよ。
それでも良いなら良いけどね。
あと、例外処理って"or die"のことか？
別にdieじゃなくても
$operror = 0;
open(IN,"hobby.dat") || $operror = 1;
とかできるぞ。
85:デフォルトの名無しさん
12/01/23 19:06:52.71
例外処理は必須じゃなくてアプリケーションのポリシーによるのだけど、
open が失敗するのはファイルが存在しない場合だけじゃないので、
ファイルの存在確認をしたいだけならファイルテスト演算子を使うべきだし、
open についても die じゃなくてもせめて warn $! ぐらいはしといたほうが、いざ想定外が起こったときにも原因究明に時間かけなくて済むよ。
# >>85 - for popup
use strict;
use warnings;
my $filename = './hobby.dat';
my @default_hobby_list = ("ゲーム", "アニメ", "PC");
my @hobby_list;
if (-f $filename && -r _) {
open my $in, '<', $filename or die "cannot open: $!";
@hobby_list = <$in>;
close $in or die "cannot close: $!";
}
if (@hobby_list) {
chomp @hobby_list;
} else {
# file not found or empty
@hobby_list = @default_hobby_list;
}
86:デフォルトの名無しさん
12/01/23 19:08:24.40
あ、最後のif-elseのifのほう無駄だな。最初のifに含めればいいだけだ。
87:デフォルトの名無しさん
12/01/23 19:40:05.40
>>84
> open(IN,"hobby.dat") || $operror = 1;
|| の方が = より優先順位が高いので compilation error になる。
88:デフォルトの名無しさん
12/01/23 21:51:24.57
行の末端から読んでソートするにはどうすればいいですか？
？かすでいいばれすうどはにるすトーソでん読らか端末の行
（例）
yahoo
apple
goo
banana
↓
banana
apple
goo
yahoo
--
入出力は何でもいいです。
89:デフォルトの名無しさん
12/01/23 21:53:35.59
宿題みたいだなー。答えたくないなー。
90:デフォルトの名無しさん
12/01/23 22:15:47.71
>>88
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(perldoc.jp)
91:デフォルトの名無しさん
12/01/24 03:29:33.24
Twitterは32分で返信きてた
このスレのハゲは本当に無能ばかりだな
>>89
問題外
分からないならレスするなカス
>>90
遅い
URL貼るだけに何分かかってんだよ
92:デフォルトの名無しさん
12/01/24 03:35:44.74
じゃあこんな所じゃなくてトゥイッタァーでやればよくね？
93:88
12/01/24 03:37:43.23
>>88≠>>91
94:88
12/01/24 03:38:44.21
早い話がリモートホストの集計がしたいのですが
どうやったらいいのでしょうか？
逆順ソートすればいいのかと思ってるのですが
95:デフォルトの名無しさん
12/01/24 04:52:04.82
リモートホストの集計と逆順への並べ替えの関係がよくわからんのだが
これじゃだめなのかい
while (<>) {unshift @data, $_}
96:デフォルトの名無しさん
12/01/24 05:03:23.47
>>94
>>88 のままでいいなら >>90 の関数を使って
print map reverse . "\n", sort map scalar reverse, qw(
apple.com
example.jp example.net example.org
goo.ne.jp
google.com google.co.jp
namco.jp namco.co.jp
yahoo.com yahoo.co.jp
apple.com
);
TLD・ドメイン名・ホスト名を区別して揃えてくれるソートルーチンが欲しいなら
既存のアクセス解析ツールのコードをあたってもらった方が早いし、
ここでダラダラ再発明されても困る。
97:デフォルトの名無しさん
12/01/24 17:38:29.94
クソスレわらた
98:デフォルトの名無しさん
12/01/24 17:48:39.15
>>97
失せろゴミ
99:デフォルトの名無しさん
12/01/24 17:54:44.03
↑頭悪そう、PHP厨か？ｗ
100:デフォルトの名無しさん
12/01/24 17:59:28.47
最強の言語はＰＨＰでしょ
Ｐｅｒｌ（笑）とかｗ
101:デフォルトの名無しさん
12/01/24 18:02:50.11
>>100
コマンドラインから実行でも<>が無いと何にもできない最強言語乙。
102:デフォルトの名無しさん
12/01/24 18:04:13.29
>>100=ゴミ
103:デフォルトの名無しさん
12/01/24 18:05:01.39
うるさいゴミ
104:デフォルトの名無しさん
12/01/24 18:06:21.48
PHP<?笑?>
105:デフォルトの名無しさん
12/01/24 19:14:07.96
PHP厨≦PHP＜ゴミ
106:デフォルトの名無しさん
12/01/24 22:06:37.84
use strict;使わない奴は基地害
107:デフォルトの名無しさん
12/01/24 22:31:34.63
必要なときにPerl4使えない奴は単なる無能
108:デフォルトの名無しさん
12/01/24 22:34:47.74
C風のスタイルしか受け入れない奴も基地外
Perlやるならnext ifぐらい理解しやがれ脳弱
109:デフォルトの名無しさん
12/01/24 22:37:42.45
>>108=Cに挫折した低脳
110:デフォルトの名無しさん
12/01/24 22:39:54.64
つまりstrictとかないphpが最も優れた言語。
111:デフォルトの名無しさん
12/01/24 22:41:58.57
>>110
PHPが優れているのは正しいが
それはstrictがあるからだ。
112:デフォルトの名無しさん
12/01/24 22:50:36.15
言語仕様が全体で一貫している言語が必ずしも優れているとは限らない
PHPはそれを教えてくれる
113:デフォルトの名無しさん
12/01/24 23:19:53.30
PerlとPHPを比較する人は無能。
ついでにその人はプログラマでもない。
114:デフォルトの名無しさん
12/01/24 23:26:10.67
>>113
説得力のある理由を言えなければ
お前が無能ってことでｗ
115:デフォルトの名無しさん
12/01/25 00:04:43.29
つまりFORTHが最強ってこと？
116:デフォルトの名無しさん
12/01/25 00:06:57.76
このスレに来てるだけですでに・・・
117:デフォルトの名無しさん
12/01/25 01:52:31.34
ゴミは書き込むなって
118:デフォルトの名無しさん
12/01/25 01:55:09.99
>>114 君がプログラマじゃないから。説得力あるだろ。
そもそもそんな理由聞いてる時点でな……
ま、学生のスレだな。
119:デフォルトの名無しさん
12/01/25 02:07:33.90
要はＰＨＰはＰｅｒｌの比較対象ではないということだ。
Ｐｅｒｌ＝プログラミング言語
ＰＨＰ＝産廃
言い方を変えれば、
カレーとうんこを比較する人は低能。
ついでにその人は料理人でもない。
120:デフォルトの名無しさん
12/01/25 02:10:49.39
な。すぐ二つ並べて比べて下らないこと書きたがるだろ。
121:デフォルトの名無しさん
12/01/25 02:12:31.16
php厨は失せろよ・・・
122:デフォルトの名無しさん
12/01/25 02:36:33.52
>>118が説明能力なさすぎてワロタｗｗｗｗｗｗｗｗｗ
説明できずに恥さらすだけならレスしなきゃいいのにｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
123:デフォルトの名無しさん
12/01/25 02:41:07.46
いちいち具体的に書くメリットなかったのよ。数年ぶりに来ただけだしね。
別に恥じゃないよ。正直どうでもいい。
ただプログラマが減ってるのは残念かな。
124:デフォルトの名無しさん
12/01/25 06:02:52.46
>>109
今さら自己紹介は要らんよ
125:デフォルトの名無しさん
12/01/25 09:21:43.20
>>108
if (open(IN, "abc") == 0) {
die("なんたら");
}
とかも勘弁してほしいｗ
126:デフォルトの名無しさん
12/01/25 10:06:30.98
嫌ならPerl使うなよゴミ
127:デフォルトの名無しさん
12/01/25 10:15:09.46
>>126
Perlスタイルも理解できないお前が言うことかよ脳弱
128:デフォルトの名無しさん
12/01/25 12:14:44.28
昨日から沸いてる>127みたいな基地害はなんなの？
129:デフォルトの名無しさん
12/01/25 12:24:21.83
>>128
荒らしたいだけの脳弱だから放置しろ
お前みたいなヴァカが相手するから住み着くんだろ
130:デフォルトの名無しさん
12/01/25 13:21:16.15
>>124
自分にとって自己紹介だから他人も自己紹介してると思ったのか。
C程度で挫折するとかかわいそう。
131:デフォルトの名無しさん
12/01/25 13:45:37.69
ゆとりっていいね
132:デフォルトの名無しさん
12/01/25 13:48:02.54
2chは4,5人で徒党を組まれて荒らされると打つ手無しだからな。
どうにもならんわ。
133:デフォルトの名無しさん
12/01/25 13:53:28.72
仮にID出すようにしたって、何の役にも立たんしな
ここに来るような奴なら、IDなんていくらでも変え放題
134:デフォルトの名無しさん
12/01/25 14:21:01.95
> C程度で挫折するとかかわいそう。
同じことを何度も言うとは、よっぽど嫌な思い出があるんだろうな
135:デフォルトの名無しさん
12/01/25 14:45:19.58
たった2回で何度もとか言い出すとかよっぽどトラウマあるんじゃねｗ
136:デフォルトの名無しさん
12/01/25 14:50:07.15
くだらないレスしてるならsageろ。
137:デフォルトの名無しさん
12/01/25 15:01:43.23
>>134
荒らすなよゴミ
138:デフォルトの名無しさん
12/01/25 15:14:17.14
> 荒らすなよゴミ
> 嫌ならPerl使うなよゴミ
> ゴミは書き込むなって
> PHP厨≦PHP＜ゴミ
> うるさいゴミ
> >>100=ゴミ
> 失せろゴミ
> うるさいゴミ
139:デフォルトの名無しさん
12/01/25 15:17:23.65
1 ：デフォルトの名無しさん：2011/12/18(日) 17:23:47.01
やはりPHP書きよりPerl書きの方が頼りにされていた日立製くん所との案件で
おれはコーディング開始時期に遅れてしまったんだがちょうど書きはじめたみたいでなんとか耐えているみたいだった
おれは別派遣先にいたので急いだところがアワレにもPHP書きがくずれそうになっているっぽいのがメール会話で叫んでいた
どうやらPHP書きがたよりないらしく「はやくきて～はやくきて～」と泣き叫んでいるコーダーのために俺は契約解除を使って普通ならまだ付かない時間できょうきょ参戦すると
「もうついたのか！」「はやい！」「きた！Perlきた！」「メインPerl書ききた！」「これで勝つる！」と大歓迎状態だったPHPはアワレにもコーダーの役目を果たせず泣いていた近くですばやくPerlを書いてコーディングした
PHP書きから裏メールで「勝ったと思うなよ・・・」ときたが開発メンバーがどっちの見方だかは一瞬でわからないみたいだった
「もう勝負ついてるから」というと黙ったので日立プロパーのJava書きの後ろに回り、モジュールのテストをして何週間かしてたらサーバーサイドのコーディングは終わった
「Perl書きのおかげだ」「助かった、終わったと思ったよ」とPHP書きを行き帰らせるのも忘れてメンバーがおれのまわりに集まってきた忘れられてるPHP書きがかわいそうだった
普通なら裏メールのことで無視する人がぜいいんだろうがおれは無視できなかったみんなとよｒこびほめられたかったので打ち上げ飲み回に誘ってやったらそうとう自分の裏メールが恥ずかしかったのか自社に帰って行った
140:デフォルトの名無しさん
12/01/25 15:31:26.60
何かの言語が使えるのにそれ以外の
言語で躓づくとか普通ならあんまり無いけどな・・・
141:デフォルトの名無しさん
12/01/25 15:41:38.78
こんにちは。Perl初心者です。
下記は、入門書によくあるカウンターのお決まりの一文らしいのですが、
open(DAT, "+< $datfile");
flock(DAT, 2);
$data = <DAT> +1;
<DAT>の意味が理解出来ません。
＜＞の意味はなんですか？ なんで＜＞を付けるのか分かりません。
本には、その事は一切スルーされているのですが、
何故HTMLでも無いのに＜＞で囲う必要があるのかが、分かりません。
ご教授宜しくお願いします。
142:デフォルトの名無しさん
12/01/25 15:50:10.01
>>141
＞ご教授宜しく
意味不明。
日本語もまともに使えない池沼がプログラム？
143:デフォルトの名無しさん
12/01/25 15:56:07.35
初心者って付ければ免罪符になると思ってるヴァカは帰ってね
144:デフォルトの名無しさん
12/01/25 16:06:10.50
誰か情報乞食の>141に教えてやれよ
145:デフォルトの名無しさん
12/01/25 16:10:30.01
>>141
URLﾘﾝｸ(perldoc.jp)
146:デフォルトの名無しさん
12/01/25 16:25:23.18
そんなことも自分で調べられない＞＞１４１は
この高度情報化社会には不要
147:デフォルトの名無しさん
12/01/25 17:02:07.65
春厨かな
148:デフォルトの名無しさん
12/01/25 17:07:02.52
>>142
「質問に答えるスキルはないので、取りあえずそこを突っ込んでみました」
ってかｗ
149:デフォルトの名無しさん
12/01/25 17:15:35.49
これも同じ春厨
76 ：デフォルトの名無しさん ：2012/01/22(日) 20:00:47.37
突っ込むようなところじゃないのに突っ込んでファビョってるヴァカは可哀想としか言いようがない
129 ：デフォルトの名無しさん ：sage ：2012/01/25(水) 12:24:21.83
荒らしたいだけの脳弱だから放置しろ
お前みたいなヴァカが相手するから住み着くんだろ
143 ：デフォルトの名無しさん ：sage ：2012/01/25(水) 15:56:07.35
初心者って付ければ免罪符になると思ってるヴァカは帰ってね
150:デフォルトの名無しさん
12/01/25 17:22:13.69
可哀想な奴の多いすれ
151:デフォルトの名無しさん
12/01/25 17:23:10.88
>>147=ニート
152:デフォルトの名無しさん
12/01/25 17:31:49.05
ニートじゃねぇよ
一般企業は５時に終業だって知ってる？
153:デフォルトの名無しさん
12/01/25 17:33:59.02
※※※※お知らせ※※※※
必要な情報も出たので
叩かれてキレた141が暴れております
154:デフォルトの名無しさん
12/01/25 17:37:31.46
>>152
まともな企業なら、就業時間外だろうが自分の携帯からだろうが
会社で2ch禁止 って知ってる？
155:デフォルトの名無しさん
12/01/25 17:39:56.06
>>153
本当にゴミはゴミみたいな書き込みしかできないんだな。
156:デフォルトの名無しさん
12/01/25 17:40:52.04
今日は大繁盛だな。
157:デフォルトの名無しさん
12/01/25 17:41:38.98
17:02だからもう会社から出てるかもしれなくね?
158:デフォルトの名無しさん
12/01/25 17:45:19.73
17時終業だからって17時に帰れる会社なんてあるわけないだろｗｗｗ
普通は終電間際にならないと帰れないのが普通ｗｗｗｗ
159:デフォルトの名無しさん
12/01/25 17:46:40.65
うちは2chでもTwitterでも短時間ならおｋって言われてる
160:デフォルトの名無しさん
12/01/25 18:21:59.48
>>158
日本語もままらないあわれな社畜
161:デフォルトの名無しさん
12/01/25 18:34:03.05
ニコニコニュース＋α 「韓国『金正日萌え』ツイート逮捕事件」
URLﾘﾝｸ(live.nicovideo.jp)
【会場のご案内】
2012/01/26(木) 開場:20:50 開演:21:00
反国家的ツイートにご用心？！
この事件から見える韓国社会の姿とは？
23日に配信されたニコニコニュースの記事が、
ネット上で大きな反響を呼んでいます。
その記事とは、
韓国で「金正日萌え」とツイートした24歳のパク・ジョングンさんが、
同国の国家保安法違反で逮捕されたことを報じたもの。
コメントは2000件以上、まとめサイトにも多数転載されました。
記事：『韓国で「金正日萌え」とツイートした青年が逮捕される』（2012年1月23日）
今回、ニコニコ生放送では、逮捕されたパクさんの友人で、
立教大学の留学生でもあるキム・ソンハさんに詳しくお話を伺います。キムさんは、
国家保安法など韓国の社会システムに関心があり、研究・執筆活動をしています。
また、パクさんを自身のウェブマガジンの連載で逮捕前から取り上げるなど、
今もっともパクさんを知る人物でもあります。
国家保安法とはどういう法律なのか？
韓国ではどう受け止められているのか？
イ・ミョンバク政権が韓国の若者に不人気な理由とは？
韓国で沸き起こるデモの話や韓国社会の問題点について、
キムさんというひとりの若者の視点から語ってもらいます。
聞き手は、数々の公安事件や経済事件の取材に携わり、
元共同通信社記者でソウル特派員も務めたジャーナリストの青木理氏。
162:デフォルトの名無しさん
12/01/25 18:40:02.43
「たった80人で"欧州でも大人気"？」K-POPのブーム捏造に韓国本土からも批判噴出中
またぞろ、韓国メディアによるK-POPブームのゴリ押しが露見した。
韓国が欧州の若者1,208人を対象に行った「韓流および国家ブランド調査」で、韓国と聞いて思い浮かぶイメージの2位が「K-POP」だったというのだ。
この結果にネット掲示板などでは「日本でも作られた人気なのに、欧州で人気なんかあるはずがない。」などとブーイングが殺到している。
「実は、このデモも韓国側のヤラセ説が根強いんです。デモの様子が動画サイトのYouTubeにアップされているのですが、
これを見ると韓国人スタッフらが集まった現地の少数のファンたちにデモの動きを指示していることが分かります。
実際、パリやロンドンの大手CDショップに行ってもK-POPアーティストのCDなんて置いていない」
（韓国のエンタメ事情に詳しい音楽ライター）
URLﾘﾝｸ(www.cyzo.com)
163:デフォルトの名無しさん
12/01/25 19:34:39.29
Ｋポップなんか流行るわけないだろ
俺の周りには聴いてる奴一人もいないぞ
164:デフォルトの名無しさん
12/01/25 20:03:11.74
俺の周りには 一人もいないぞ
165:デフォルトの名無しさん
12/01/25 20:14:16.54
>>156
ニートの人が住み着いたんだよ。
166:デフォルトの名無しさん
12/01/25 21:06:39.77
なんでネトウヨがコピペしてんだ
クソスレだけにしとけって
167:デフォルトの名無しさん
12/01/25 22:14:31.38
>>145神様
返事が遅れて申し訳ありません。”○┐
調べるのに相当時間が掛かりましたが、本当にありがとうございました。
そのHPのリンク先に、私が求めていた答えがズバリありました！
<FILEHANDLE> は readline(*FILEHANDLE) とも書けます。
なるほど・・・前者の方が短くてスマートな命令文ですね。
しかし、初めてPerlを始めようとする私には不思議なタグに感じられて困惑してました。
的確な御指導ありがとうございました。
168:デフォルトの名無しさん
12/01/25 22:26:27.20
低能ほど長文を残していく良い例
初めてとか感じられたとか、ここはいつからお前の感想を書く場所になったんだ？
169:デフォルトの名無しさん
12/01/25 22:43:44.10
質問するだけして無言で去るよりはマシ
170:デフォルトの名無しさん
12/01/25 22:54:39.44
>>167
まず、適当な入門書を通読しろよ。
んな、英語で言えば「is」って何ですか？みたいなレベルのことがいちいち訳分からん状態じゃ
あまりに非効率だ。
171:デフォルトの名無しさん
12/01/25 22:54:56.80
質問の仕方からして根本的に頭悪いんだから長文くらい許してやれ。
172:デフォルトの名無しさん
12/01/25 22:58:21.97
>>170
それができない程ゴミだからこのスレできいてんだろｗ
回答者のことをおだてればパシられてくれる
人力検索くらいにしか思ってないぞｗｗ
そうじゃなきゃURL一つ貼った奴に
「神様」とかおちょくった呼び方しないってｗｗｗ
173:デフォルトの名無しさん
12/01/25 23:06:10.14
>>170
学習姿勢のない池沼には何言っても無駄。
174:デフォルトの名無しさん
12/01/25 23:14:31.92
知恵遅れの小学生を捕まえて、いい大人がよってたかってフルボッコ
恥ずかしくないのかね
明らかにおかしいんだからスルーすればいいのに
175:デフォルトの名無しさん
12/01/25 23:57:39.57
知恵遅れの小学生をいじめるのはたいがい小学生だろう
176:デフォルトの名無しさん
12/01/26 08:36:29.15
ここよりWebProg板の質問スレのほうが親切
177:デフォルトの名無しさん
12/01/26 08:38:30.24
しかしWebProg板で高級シェルスクリプトの話は出来んのよね
178:デフォルトの名無しさん
12/01/26 10:20:36.14
WebProgは馬鹿にこき使われるのが好きなMが多いからな
179:デフォルトの名無しさん
12/01/26 10:52:47.05
AWKで言うFNRってどうすればいい？
NRは$.があるけど…
180:デフォルトの名無しさん
12/01/26 13:30:41.42
ステマ
181:デフォルトの名無しさん
12/01/26 14:16:46.91
>>179
各ファイルの終端はeofで検出できるから、その都度$.=0する。
同時にNRも必要なら、変数要るけど。
URLﾘﾝｸ(perldoc.jp)
182:デフォルトの名無しさん
12/01/26 18:18:08.84
>>181
なるほど…
・PerlでEOFを意識したことがなかった
・$.を書き換えるという発想がなかった
ので、ちょっとビックリした。
他にはeof検出時の$.を保存して
差分を出すとか色々やり方ありそうだ、thx
183:デフォルトの名無しさん
12/01/26 18:49:56.47
>>181のURLはアフィ目的
184:デフォルトの名無しさん
12/01/26 18:53:36.68
うるさいゴミ
185:デフォルトの名無しさん
12/01/26 21:27:03.50
橋下市長 君が代起立斉唱は思想信条の自由ではない
公務員改革に精通する木下敏之氏（前佐賀市長）が指摘する。
「口先で丸めこむだけでは通用しなくなる。橋下氏は“役人は敵”という原理主義者ではない。
自分のことを好きでも嫌いでも構わないが、自分の政策を実現できる働く役人が良い役人と考える
プラグマティスト（実用主義者）なのでしょう」
君が代起立斉唱すべきか否かというのは思想信条の自由に関する問題ではなく、
組織として決めたことは守りましょうという組織論なのだ。
URLﾘﾝｸ(www.news-postseven.com)
186:デフォルトの名無しさん
12/01/26 22:26:26.51
誰かdankogai黙らせてください
いつまでjcode.pm振りかざすんですか
187:デフォルトの名無しさん
12/01/26 22:45:06.58
dankogaiの作った
Perl標準のEncodeモジュールを
使いましょうねｗ
188:デフォルトの名無しさん
12/01/26 22:45:18.55
>>186
お前が黙れよ池沼。
189:デフォルトの名無しさん
12/01/26 23:34:33.31
断固、害。
190:デフォルトの名無しさん
12/01/27 00:05:26.04
くそすれ
191:デフォルトの名無しさん
12/01/27 00:27:47.78
use strict;
use Encode;
192:デフォルトの名無しさん
12/01/27 01:54:01.16
(アマチュア、または初心者の場合)
use strict;
use Jcode;
193:デフォルトの名無しさん
12/01/27 01:57:07.39
（ｱﾌｫの場合）
use stricts ;
use warning ;
194:デフォルトの名無しさん
12/01/27 03:46:17.41
へぇ
195:デフォルトの名無しさん
12/01/27 04:40:20.23
（俺の場合）
use struct;
「あっ」
196:デフォルトの名無しさん
12/01/27 11:12:08.06
【ひこちん】捻じ曲げるマスコミとだまされる俺
URLﾘﾝｸ(www.nicovideo.jp)
フジ偏向・花王デモ四国 前半
URLﾘﾝｸ(www.nicovideo.jp)
フジ偏向・花王デモ四国 街宣
URLﾘﾝｸ(www.nicovideo.jp)
日本の政治家は日本国民の為にこそ働けよ！
URLﾘﾝｸ(www.nicovideo.jp)
野田首相側、１１１万円受領 暴力団に便宜疑いの社長側献金
URLﾘﾝｸ(www.nicovideo.jp)
【今週の御皇室】両陛下の御公務と、天皇陛下の御言葉[桜H24/1/26]
URLﾘﾝｸ(www.nicovideo.jp)
【守るぞ尖閣】国会議員現地視察・中山市長電話インタビュー[桜H24/1/26]
URLﾘﾝｸ(www.nicovideo.jp)
【国民愚弄】野田首相のブーメランと読売新聞の増税扇動[桜H24/1/26]
URLﾘﾝｸ(www.nicovideo.jp)
【被災地の声】碇川町長と菅野村長が安倍元首相と会談[桜H24/1/26]
URLﾘﾝｸ(www.nicovideo.jp)
【柚原正敬】台湾総統選・立法院選から見る日台関係[桜H24/1/25]
URLﾘﾝｸ(www.nicovideo.jp)
197:デフォルトの名無しさん
12/01/27 11:16:29.42
Perlはレガシー
198:デフォルトの名無しさん
12/01/27 11:43:30.80
>>197
さんざんてめーでレガシーな書き方しといてその開き直りか
199:デフォルトの名無しさん
12/01/27 15:22:20.21
（お前の場合）
use homo;
「アッー！」
200:デフォルトの名無しさん
12/01/27 15:29:40.28
>>198の反応のしかたもレガシー。
201:デフォルトの名無しさん
12/01/27 20:58:05.36
破廉恥
202:デフォルトの名無しさん
12/01/27 23:42:28.14
モダンがモダンでないように、レガシーもレガシーじゃないんだよね
言葉は変化するというけれどこれはただの誤用だよね
意図的かもしれないからその手には乗らないけどね
203:デフォルトの名無しさん
12/01/28 04:26:30.31
>>202=低脳
204:デフォルトの名無しさん
12/01/28 04:33:31.84
>>203＝ゴミ。
205:デフォルトの名無しさん
12/01/28 06:13:29.65
>>205=ハゲ
206:デフォルトの名無しさん
12/01/28 06:31:04.60
>>206=俺
207:デフォルトの名無しさん
12/01/28 10:53:37.80
>>206=通算50206番目の書き込み
208:デフォルトの名無しさん
12/01/28 11:17:06.33
引数の0と何も引数がないのをうまく区別する方法はないでしょうか？
例えば、program 0なら引数の0を使って処理をしてprogramだけだとエラーを表示するようにしたいのです。
if(!ARGV[0])だと引数に0を入れてもエラー処理に行っちゃうので・・
209:デフォルトの名無しさん
12/01/28 11:20:15.35
どんな言語でもそうだが、
if ( ここ ) {}
に入れるものは、bool型かオブジェクト（参照型）だけ。
数値型や文字型なんかを入れたらいかん。
perlで言えば、オブジェクトでないのなら
必ず、”ここ” で比較しろ。
210:デフォルトの名無しさん
12/01/28 11:21:20.63
つまりどういうことなんですか！
211:デフォルトの名無しさん
12/01/28 11:22:16.34
defined
212:デフォルトの名無しさん
12/01/28 11:34:32.88
if (@ARGV)
213:デフォルトの名無しさん
12/01/28 11:35:43.56
if(%HASH)
なんでこれやったらおかしい動きするわけ？
214:デフォルトの名無しさん
12/01/28 11:41:20.81
>>213
馬鹿には理解できないから諦めろ
215:デフォルトの名無しさん
12/01/28 11:42:44.70
え？空のハッシュなんだから
空の配列と同じく偽になるべきでしょう？
216:デフォルトの名無しさん
12/01/28 11:44:09.41
>>214
お前には聞いてないから黙っとけやゴミ。
217:デフォルトの名無しさん
12/01/28 11:46:31.13
>214←はい、今日の歩く恥さらし1匹目はいりましたー
218:デフォルトの名無しさん
12/01/28 11:51:05.62
煽ってる>>214も頭おかしいけど、
ム板で挙動を表現するのに
＞おかしい動き
とか言っちゃう池沼もスルーするべき。
219:デフォルトの名無しさん
12/01/28 11:55:21.57
>>216
公開掲示板でそれはおかしい
相手を選択したいならコミュニティやＭＬで質問するべき
220:デフォルトの名無しさん
12/01/28 11:57:29.61
>>213
おかしい動きｗｗｗｗしてるのはお前の頭の中だろｗｗｗｗｗｗｗｗｗｗ
221:デフォルトの名無しさん
12/01/28 13:14:08.64
>>213 >>215
URLﾘﾝｸ(perldoc.jp)
> ハッシュをスカラコンテキストで評価した場合、ハッシュが空のときにだけ偽が返されます。
> キー/値のペアが登録されていれば、真を返します。
> (注: 5.12.x までの perl では) tie したハッシュがスカラコンテキストで評価されると、
> (略) 致命的エラーとなります。
my %hash; print '1:', %hash ? 'true' : 'false', "\n"; # false
%hash = (); print '2:', %hash ? 'true' : 'false', "\n"; # false
# true。undef はキーにも値にもなり得る
$hash{ undef() } = undef; print '3:', %hash ? 'true' : 'false', "\n";
# 2。関数である事を明示していないので、文字列 'undef' と解釈されている
$hash{ undef } = undef; print '4:', scalar keys %hash, "\n";
# 2。undef を文字列コンテキストで評価すると空文字列なので 3: と重複
$hash{''} = undef; print '5:', scalar keys %hash, "\n";
# 3。空文字列と '0' は別
$hash{'0'} = undef; print '6:', scalar keys %hash, "\n";
# 3。数値の 0 を文字列コンテキストで評価すると '0'
$hash{ 1 - 1 } = undef; print '7:', scalar keys %hash, "\n";
print scalar %hash, "\n"; # '2/8' のような文字列
%hash = (); print scalar %hash, "\n"; # '0'
222:デフォルトの名無しさん
12/01/28 13:22:49.29
javascriptの比較演算の茨っぷりに比べればまだ……
223:デフォルトの名無しさん
12/01/28 14:26:34.59
こういう下を見て我慢するタイプのヴァカって成長しないよね
224:デフォルトの名無しさん
12/01/28 15:07:51.17
こういう他人を見下してばかりいる池沼も成長しないよね。
225:デフォルトの名無しさん
12/01/28 15:12:08.08
下等動物には、そもそも成長なんて概念はないからな。
死ぬまでこのままだよｗ
226:デフォルトの名無しさん
12/01/28 15:14:19.82
加藤茶生物
227:デフォルトの名無しさん
12/01/28 16:18:01.13
>>208
>>212 でOK
if (@array) は配列の要素数を見てるので、0が入ってれば要素数は１なので、真になる。
配列はスカラーコンテキストで評価されると、その要素数を返す。
ifの条件部分はスカラーコンテキスト。
分かりやすくscalarと明示的に書いてもいい。 if (scalar @array)
228:デフォルトの名無しさん
12/01/28 16:19:02.25
そういえばfor以外にリストコンテキストって何があったっけ。
229:デフォルトの名無しさん
12/01/28 16:30:24.45
リストコンテキストとかスカラコンテキストってのは
Perの言語仕様の失敗した所の一つだよな。
230:デフォルトの名無しさん
12/01/28 16:40:19.75
お前って人生失敗した馬鹿の一人だよな
231:デフォルトの名無しさん
12/01/28 16:41:58.85
うん
232:デフォルトの名無しさん
12/01/28 17:33:10.32
>>239
習得の障害になる。だが、習得するとそのご利益に感動する。
233:デフォルトの名無しさん
12/01/28 17:40:27.80
↑
×>>239
○>>229
234:デフォルトの名無しさん
12/01/28 18:14:12.32
>>232
例えばどんなときに感動した？
235:デフォルトの名無しさん
12/01/28 18:16:44.05
君みたいに習得できなかった脳弱に遭遇したときかな。
236:デフォルトの名無しさん
12/01/28 18:19:36.21
答えられないなら書くなよｗ
237:デフォルトの名無しさん
12/01/28 18:20:37.28
>>235=糞
238:デフォルトの名無しさん
12/01/28 18:21:25.24
>>236
よう脳弱！
239:デフォルトの名無しさん
12/01/28 18:32:34.17
>>229
Perってなんだよ
パーはてめーの頭だろ
240:デフォルトの名無しさん
12/01/28 21:38:08.27
スカラコンテキストとかリストコンテキストは
最初良くわからなかったな。
でも、wantarrayみたとたん一瞬で理解した。
ただの関数の引数の一種にすぎないんだって。
俺にとってはこう見えてる。
foo(123) → foo(FLAG_ARRAY, 123)
scalar foo(123) → foo(FLAG_SCALA, 123)
foo(flag, value) {
if(flag == FLAG_ARRAY) { // wantarray
・・・
} else {
・・・
}
}
あとは読み出し元のコードの書き方で、
フラグが適当に変わるだけ。
241:デフォルトの名無しさん
12/01/28 21:44:27.65
void contextのこと忘れないであげて
242:デフォルトの名無しさん
12/01/28 21:51:39.01
PerがPerlでないように、PerlもPerじゃないんだよね
言葉は変化するというけれどこれはただのtypoだよね
意図的かもしれないからその手には乗らないけどね
243:デフォルトの名無しさん
12/01/28 22:49:00.42
【中国ＢＢＳ】２０３０年に韓国が日本を抜く？ 反対意見が多数
中国大手検索サイト百度の掲示板に、「2030年に韓国のＧＤＰは日本を追い越すって本当？」というスレッドが立てられた。
これに対して反対意見が多数寄せられている。
● スレ主：八戒窘6
アジア開発銀行のデータによれば、2030年に韓国のＧＤＰは日本を追い越すらしい。
● せんとう
どんな予測も多少なりとも正確ではない所があるが、今回の話はあり得なさ過ぎる。
● ｓａｔａｙ醤
本当にデタラメだな。アジア開発銀行によるレポートだって？じゃあバンク・オブ・アメリカや欧州の銀行の結論はどうなのよ？
● 佚名野菜地
アジア開発銀行ってのは、韓国人が開いているのか？
● Ｊｏｓｅｐｈ19969
俺の妄想では、2100年日本人の1人当たりのＧＤＰは46万ドル、韓国は8万だな！
● ｏ落葉不知秋ｏ
その頃までに韓国という国が残っているかどうかも分からないぞ。
● 梨花陰凉
死んでも信じない。
● ＭａｋｉのＬｏｖｅ
なんか最近、韓国のニュースが多くね？
URLﾘﾝｸ(news.searchina.ne.jp)
244:デフォルトの名無しさん
12/01/29 00:09:08.57
変数XをXのまま計算して答えを出す方法ってあるでしょうか？
例えば、Y=(X-4)^5という式があったとして代入すれば答えを出すのは簡単なんですが、
Y=X^5+A*X^4+B*X^3・・・+E(A-Eは数字が入ります)
というような形の式を得たいのです。
245:デフォルトの名無しさん
12/01/29 00:10:42.68
>>244
URLﾘﾝｸ(uni.2ch.net)
246:デフォルトの名無しさん
12/01/29 00:23:13.06
>>244
数式処理でググると色々出てくるんじゃね
247:デフォルトの名無しさん
12/01/29 00:26:19.45
>>244
？、書いてあるのでいいじゃん、と思うのだが、
よくわからないので、自分で書いた動かないコードを貼るのがいい
248:デフォルトの名無しさん
12/01/29 00:53:44.57
>>244
URLﾘﾝｸ(www.wolframalpha.com)(X-4)^5
Perlを始めとした多くのプログラム言語は数を直接計算する為の道具です。
数式を計算するようデザインされたものではありません。
一般的なプログラムで解を得るには：
与えられる数式を数の組で定義し、
YをXの多項式で表現する方法を定義し、
数式を多項式に展開するロジックを定義しなければなりません。
ロジック無しでは簡単な因数分解すら解くことはできません。
上のリンクはかつてMathematicaという名前で販売された高価で複雑で膨大な
数式処理ソフトウェアをウェブサービスに当てはめたようなものです。
"show steps"ボタンを押すと、愚直なプログラム言語が
如何に数式を計算するかを垣間見ることができると思います。
249:デフォルトの名無しさん
12/01/29 09:30:46.02
そんなことも知らないのか
250:デフォルトの名無しさん
12/01/29 11:01:32.23
>>244
> 変数XをXのまま計算して答えを出す方法ってあるでしょうか？
あります
中等学校で数学という教科でその方法を習います
251:デフォルトの名無しさん
12/01/29 11:46:43.07
>>250
コンピュータは中学生以下ということですか？
252:デフォルトの名無しさん
12/01/29 11:49:29.79
ああ、>>250 って1行目の日本語がおかしいのか。
最後の文が本当で、式変換したいってこと？
253:252
12/01/29 11:50:09.01
まちがえた、.>>250じゃなくて、>>244
254:デフォルトの名無しさん
12/01/29 11:58:30.22
でも数式処理とかいうfuckでshitな作業は
lisp使えば楽に出来そうな予感はする
perlにゃ向いていない気もする
ゴリ押しすりゃ出来そうだけど
クソの塊みたいなスパゲチーコードになるはずだ
255:デフォルトの名無しさん
12/01/29 13:08:30.14
URLﾘﾝｸ(www.ichinoseki.ac.jp)
URLﾘﾝｸ(ja.wikipedia.org)数式処理システム
HPの電卓でもできたような気がする。
今ならiなんとかのアプリに登録されてそう。
256:デフォルトの名無しさん
12/01/29 13:33:01.54
数学の問題を読む時点で国語の能力が必要となる罠。
257:デフォルトの名無しさん
12/01/29 14:09:49.24
>>251
ヒント：道具は使う人しだい
258:デフォルトの名無しさん
12/01/29 14:42:34.60
まあ俺ぐらいの年代だとスパゲッティーは辞書を引かないと分かんない
から、これからはナウくパスタスクリプトって言ってもらいたいね。
259:デフォルトの名無しさん
12/01/29 15:00:40.56
>>258
子供並みの文章力では
煽りにすらならんわ
260:デフォルトの名無しさん
12/01/29 15:43:16.11
第一ヒント：印刷に関係がある
261:デフォルトの名無しさん
12/01/29 16:05:55.11
第二ヒント：逆ポーランド記法（LISPとは違うのだよ、LISPとは！）
262:デフォルトの名無しさん
12/01/29 16:10:33.87
答え：JavaScript
263:252
12/01/29 16:47:40.97
ああ、俺がアホだった。 >>242の日本語は特に間違ってないな。
264:デフォルトの名無しさん
12/01/29 17:00:20.73
>>244が欲しいのは式の展開じゃないの？
>>248が答え(expanded form)をだしてるけれど。
URLﾘﾝｸ(reference.wolfram.com)
265:252
12/01/29 17:01:36.83
うぅ、、すまん、>>244 だ。
途中式が欲しいなんて思ったことないから、わかんないや。
いちおう、CPANでMath関係を探してみてるけど。
266:232
12/01/29 18:19:56.11
>>234
たとえば、
$str = <$fh>;
@str = <$fh>;
の両方が成立すること。
プログラムをしていてストレスを感じることは普段と違って余計なことを
意識したり、余計なことを書かねばいけないことなんだ。
普段、人間相手だと細かく言わなくとも通じるように、状況に応じて対応を
変えるというのは人間には自然なんだと思う。だから、状況に暗黙に対応してくれるほうが
明示的じゃないと対応しないほうより楽で、Perlっていいなとおもってしまう。
ただし、これは、CとかVBとかしか知らない経験の少ないアマチュアプログラマの意見だ。
場違いだったかも。
267:デフォルトの名無しさん
12/01/29 20:12:55.81
>>266
コード見て何をしたいのか全くわからんねｗ
上の方、ファイルの行数を取得するのか？
それとも一行目を取得するのか？
そんなのいちいち覚えてないといけないだろ？
今、お前は心の中でどういう機能か説明しただろう？
コードってのは読むもの。
普通に読んだら、それが動きを表すほうがいい。
ファイルのgetLineCount
ファイルからgetLine
ファイルからgetAll
ファイルから何をしたいのか、
説明しなくても分かるだろう？
説明が必要なものと、説明が不要なもの。不要な方が良い。
268:デフォルトの名無しさん
12/01/29 21:02:35.91
多分そういう徹頭徹尾膨大な英単語羅列で言語が出来てたら
ここまではやんなかったと思う
ごくごく単純に何かのテキスト開いて処理するだけの豪華なフィルタが欲しい、
そのためにあるようなモンだから
ファイルのオープンとかいう初歩の初歩ののっけからウンザリするほどの長さがあったら、
気楽に使うこたぁーーできない
コードの表音的な部分だけじゃあなくて表意的な部分、シジルとか。
もっと言えばコードの意味じゃなくて形のようなものも読んでる
他の言語はやたらと英単語が多くて、最近のperlもその傾向があるけど、
英単語がやたらと多いと説明読むだけでめんどいこともある
269:デフォルトの名無しさん
12/01/29 21:02:41.95
BASICのLET「呼ばれた気がしたが気のせいだった」
270:デフォルトの名無しさん
12/01/29 21:34:11.40
はいはい、COBOLER、乙。
271:デフォルトの名無しさん
12/01/29 21:34:51.92
> $str = <$fh>;
> @str = <$fh>;
これって演算子オーバーロードと同じようなものだろ？
str = fh->$()
str = fh->@()
とくれば
str = $(fh)
str = @(fh)
こう置き換えられ、
str = $fh
str = @fh
こうなるのが自然な形
本来はこうあるべきだが、残念なことにPerlはオブジェクト指向じゃなかった。
引数の型で呼び出すメソッドが決められなかったので
代入先の型で呼び出すメソッド側で判断できるようにした。
272:デフォルトの名無しさん
12/01/29 21:48:10.26
はいはい、オブジェクトオタ、乙。
273:デフォルトの名無しさん
12/01/29 21:55:31.86
できれば、反論が欲しい所ｗ
ま、無理か。
274:デフォルトの名無しさん
12/01/29 21:59:39.73
特に反論する内容はない。
275:デフォルトの名無しさん
12/01/29 22:47:45.25
>>267
ある程度覚えるのはしょうがない。程度問題。
数式を全部文字列であらわされたらしんどい。
良く使う機能だからこそ、記号化されてる。getLineとか一般的な機能にそんな長い名前は要らない。
276:デフォルトの名無しさん
12/01/29 23:14:40.47
javadriveからのコピペ
File file = new File("c:\\tmp\\test.txt");
FileReader filereader = new FileReader(file);
int ch;
while((ch=filereader.read() ) != -1){
System.out.print((char)ch);
ch = filereader.read();
}
perlでの例
open my $fh , "<", "test.txt" or die $!;
while (my $line = <$fh>){
print $line ;
}
open my $fh , "<", "test.txt" or die $!;
while (<$fh>){
print;
}
277:デフォルトの名無しさん
12/01/29 23:18:06.49
ついでにとほほからも
一行読み込み Java
FileReader in = new FileReader("file.txt");
BufferedReader br = new BufferedReader(in);
String line;
while ((line = br.readLine()) != null) {
System.out.println(line);
}
br.close();
in.close();
278:デフォルトの名無しさん
12/01/29 23:26:02.86
シングルクォートを使った場合のパス処理がよく分かりません。
my $abc = '$abc';
my $str = '$abc';
my $expr = '$abc';
print $str =~ /$expr/;
これが偽になるのはなんでですか？
279:278
12/01/29 23:38:27.90
あ、分かった。
すみません、おおボケかましてましたわｗ
280:デフォルトの名無しさん
12/01/29 23:48:44.54
>>267
getlineでもgetlinesでも好きに書けばいいじゃーん。
use 5.12.0;
use IO::File;
open(my $fh, '<', \"foo\nbar\nbaz\nqux") or die $!;
while(defined(my $line = $fh->getline)){
print $line;
}
$fh->close;
281:デフォルトの名無しさん
12/01/30 01:17:54.92
Perlの元来の用途はテキストの加工なワケで、そのために
文字列の一行入力なんていうあまりにも頻繁に使うであろう操作は
いちいち命令なんて使わずに専用の演算子でいいじゃない、となったんだろな
282:デフォルトの名無しさん
12/01/30 01:31:42.08
だろうね。
でも、アプリ（ウェブアプリ含む）だと
テキスト入力ってあまり行わないんだよな。
283:デフォルトの名無しさん
12/01/30 10:54:50.13
ARGVについて詳細を調べたいのですが、どのドキュメントを引けば良いのかが分かりません
perlvarでは無いようですし…どこにあるのでしょうか？
284:デフォルトの名無しさん
12/01/30 10:55:51.79
ごめんなさいありました…
285:デフォルトの名無しさん
12/01/30 23:15:38.93
ここくる前に体系的な本読んだほうがいいぞ
286:デフォルトの名無しさん
12/01/30 23:27:07.96
と言われてどこから入手したのかラクダ本(第1版)やらリャマ本(第1版)読んで勉強するのが
このスレのいつものパターン
287:デフォルトの名無しさん
12/01/30 23:32:39.37
んなもん古本で買えば良いだろ、と思ったが、
アマゾンのマケプレだと現行版は中古で買う気が失せるほど高いんだね。
初版は1円だけど。
288:デフォルトの名無しさん
12/01/30 23:42:34.64
ラクダ本は一番新しい第3版が2002年出版、5.6準拠だぞ
(英語版は2月に第4版出るけど)
今勉強するとしたらWebに限る
289:デフォルトの名無しさん
12/01/30 23:47:51.17
>>288
＞今勉強するとしたらWebに限る
んで「<>ってなんですか？」とか「ARGVって何ですか」とか「コンテクストって何ですか？」と
匿名掲示板で質問するのか？
ふざけんじゃねーよ。
290:デフォルトの名無しさん
12/01/30 23:56:26.47
>>289
じゃあラクダ本読んでるやつはそんな質問しないってか？
291:デフォルトの名無しさん
12/01/30 23:59:52.59
おこりんぼ
292:デフォルトの名無しさん
12/01/31 00:08:59.00
今から勉強するならPythonとかだろ…
293:デフォルトの名無しさん
12/01/31 00:20:17.95
>>292
なんで？
294:デフォルトの名無しさん
12/01/31 00:20:56.23
初めてのPerl 第3版の古本を買うか、図書館で借りればいいよ。
295:デフォルトの名無しさん
12/01/31 00:27:56.15
>>293
Perlはバッドノウハウの塊だし
296:デフォルトの名無しさん
12/01/31 00:33:53.49
>>295
そうだな。Pythonを使えば全てのバッドノウハウから解放される。
それどころかバッドノウハウに頼らざるを得なくなる場面が根本的に発生しなくなる。
297:デフォルトの名無しさん
12/01/31 00:41:12.14
でもPythonでワンライナー書きたくないな～
298:デフォルトの名無しさん
12/01/31 00:55:15.22
u"これはUnicode文字列です"
これがバッドノウハウじゃなかったら一体バッドノウハウはなんなんだよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
pythonはクソと汚物とｱﾎの塊だろｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
uだよu！！！！！！！！！！！！！！
ﾊﾞｶｱﾎｸｽﾞ三拍子そろった BAD NOWHOW だよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗ
299:デフォルトの名無しさん
12/01/31 01:04:00.44
perl -pe's/ｗ//g'
300:デフォルトの名無しさん
12/01/31 04:22:42.35
300ｹﾞﾄ
301:デフォルトの名無しさん
12/01/31 04:46:57.94
それでもゴミPHPよりははるかにマシ
302:デフォルトの名無しさん
12/01/31 08:08:45.72
0xFF これは16進数です
と何が違うんだい？
303:デフォルトの名無しさん
12/01/31 10:46:32.08
NOWHOW
ここはつっこんでいいところなのだろうか。
しかし恥かかされたと憤ってさらに草生やされたらたまらんからスルーがいいのかな…
304:デフォルトの名無しさん
12/02/01 01:51:41.90
そのほうがいい。それに今もDOS使ってるから、BATノウハウも必要だしな。
305:デフォルトの名無しさん
12/02/01 03:31:27.03
またそんな必死に釣りを仕掛けんでも
306:デフォルトの名無しさん
12/02/01 03:49:11.39
>>303
草に隠れて見逃してたｗ なんというステルス
307:デフォルトの名無しさん
12/02/01 05:22:54.38
PerlってーとCGIとしての用途しか思い浮かばないけどお前ら何作ってんの？
308:デフォルトの名無しさん
12/02/01 06:12:14.08
自分だと、サーバの自動処理とか大体Perlだなー。
309:デフォルトの名無しさん
12/02/01 07:14:13.51
$str = <STDIN>;
と記述しても入力欄が表示されないんですが、どうしたらいいのでしょうか。
何か他に記述することがあるのですか、どなたか教えてくださいませ。
310:デフォルトの名無しさん
12/02/01 07:44:01.47
どういう環境でperlを起動させているのかわからないと
答えようがないんじゃないかと
311:デフォルトの名無しさん
12/02/01 08:07:38.38
>>307
俺はむしろCGIで使ったことがないw
Unix系なら各種フィルタやシェルスクリプトでサクッとやれることが
Windowsのデフォルトの環境だとサクッと出来ない
でもコマンド一式入れるのは色々と面倒いから
Perlにその辺をやらせてるな
ワンライナーだったり、.batに埋め込んだり…
312:デフォルトの名無しさん
12/02/01 08:36:29.83
> Windowsのデフォルトの環境だとサクッと出来ない
JScriptつかえばいいやん。
313:デフォルトの名無しさん
12/02/01 09:02:31.35
>>312
おめぇはそれでいいや
314:デフォルトの名無しさん
12/02/01 11:02:27.54
>>312
JScriptg/WSHで一通りのテキスト処理は出来るけど
それは果たして「サクッと」と呼べるのだろか
315:デフォルトの名無しさん
12/02/01 11:55:56.52
学生の頃は掲示板とか作って遊んでたが
今は禿丸じゃ手に負えないテキスト置換に使っている。
316:デフォルトの名無しさん
12/02/01 13:30:50.51
Apacheのログ解析ツールとか作ったな
既存のツールだと不満だから作ったが
結局解析結果を見るのに飽きて全く見なくなって、いつの間にかどっかいった
317:デフォルトの名無しさん
12/02/01 16:06:03.12
Perlを使い始めて20年、今でも日常のちょっとしたツールはこれで作ってる。
面倒な文字列処理があまりにも易々とできてしまうので、やめられん。
318:デフォルトの名無しさん
12/02/01 20:22:37.76
$HOME/bin/ 以下の俺コマンドの類はほとんどPerlだわ。
319:デフォルトの名無しさん
12/02/01 23:09:02.27
CGI、CGIってよく言われてるけど、おれもあんまり作ったことがない。
Perlはテキスト処理や、日ごろのちょっとした処理に使ってる。
320:デフォルトの名無しさん
12/02/01 23:11:17.91
>>309を書き込んだ者です。
環境は、お名前ドットコムというところのレンタルサーバーで、ぽちぽち練習しております。
DELLのノートPC、WinXPを使用しています、エデイタはPadreのデフォルト設定です。
何度試しても<STDIN>が使えないのですが、どうしたらいいのでしょうか。
321:デフォルトの名無しさん
12/02/01 23:13:36.06
print STDERR "お名前を入力してください=";
$str = <STDIN>;
322:デフォルトの名無しさん
12/02/01 23:14:38.96
chomp($str);
print STDERR "こんにちは、$str さん。\n";
323:デフォルトの名無しさん
12/02/01 23:19:32.99
print "Hello, world\n";
は実行できるの？
324:デフォルトの名無しさん
12/02/01 23:24:12.08
エデイタに違和感がする。
325:デフォルトの名無しさん
12/02/01 23:40:41.42
>>320
だから一冊本を通読しろっての。何度も同じこと言わせんな。
326:デフォルトの名無しさん
12/02/02 00:03:11.64
perl のバージョンが書いてないから、インストールされてないことも
考えられるね。きっと Hello, world も無理だよね。
327:デフォルトの名無しさん
12/02/02 00:05:05.83
>>320=基地害
328:デフォルトの名無しさん
12/02/02 00:44:52.33
>>325-327
解決策を提示できないなら黙ってろゴミ
329:デフォルトの名無しさん
12/02/02 01:12:37.86
>>328
なにが「解決策」だよｗ
池沼はうせろ
330:デフォルトの名無しさん
12/02/02 01:22:20.27
>>320
CGIに関する質問は板違いです。 >>1を参照してください。
レンタルサーバー云々の話はそちらでお願いします。
331:デフォルトの名無しさん
12/02/02 01:23:43.64
309です。
こんな池沼しかいない底辺スレで質問した私が馬鹿でした。
二度ときません。
332:325
12/02/02 01:35:56.94
>>328
解決策は提示しただろうがクズ。
>>325を100回読みなおせ精神異常。
333:デフォルトの名無しさん
12/02/02 01:40:41.96
ニートの分際で生意気だな
334:デフォルトの名無しさん
12/02/02 02:20:50.61
解決策とその理由をきちんと順序立てて提示するとなると
ちょっとした本一冊書ける量になる予感
335:デフォルトの名無しさん
12/02/02 03:26:58.47
Padreを使ってみた。コマンドプロンプトで入力すればいい。
オプションでExternalなんとかをオフってると詰むけど。
336:デフォルトの名無しさん
12/02/02 03:46:48.54
エスパーすると、PerlIOとhtmlタグを混同しとるんじゃなかろうか。
<STDIN>使えば<form><input type="text"></form>が出力されると勘違いしてる節がある。
どっちも角括弧使うし。
337:デフォルトの名無しさん
12/02/02 04:32:05.42
嬉しそうにスレ違いな書き込みをしてる社会不適合にエスパーは不要
338:デフォルトの名無しさん
12/02/02 06:01:52.06
まぁそうカリカリせず。
板違いはその通りなんだけど、どうして勘違いしちゃうのかは興味ある。
分からない方にとっちゃどう聞いていいかも分からんわけで。
自分の納品物がこんな風に動かねーってクレーム入れられた場合どう誘導するのが一番かな。
IO::Interactiveあたり噛ましてエラー吐かせて説明するとか？
339:デフォルトの名無しさん
12/02/02 07:00:14.59
>>338
雑談スレ 4
ｽﾚﾘﾝｸ(tech板)
ネットワークプログラミング雑談
ｽﾚﾘﾝｸ(tech板)
【総合】 Webprog板質問雑談スレッド 1
ｽﾚﾘﾝｸ(php板)
ｺﾚｶﾗWebProgｵ勉強ｼﾖｳﾄｼﾃﾙ香具師ｶﾞ雑談ｽﾙｽﾚ
ｽﾚﾘﾝｸ(php板)
340:デフォルトの名無しさん
12/02/02 12:54:16.59
連想配列のkeyの名前は文字数制限や使えない文字はあるんですか？
ファイルパスをkeyにしたいんですけど好ましくないんでしょうか？
$file_path="./log/bbs_name/test.dat";
$FILE_LOCK_FLG{$file_path}=1;というようにです
341:デフォルトの名無しさん
12/02/02 13:13:33.29
それで何か問題あったの？
342:デフォルトの名無しさん
12/02/02 13:39:55.23
うるさいゴミ
343:デフォルトの名無しさん
12/02/02 13:40:32.30
連想配列のkeyの名前は文字数制限や使えない文字はあるんですか？
344:デフォルトの名無しさん
12/02/02 13:41:51.30
>>340
URLﾘﾝｸ(perldoc.jp)
見る限り「ハッシュキーに使える文字の制限」の記述はなかったので大丈夫だと思われ
345:デフォルトの名無しさん
12/02/02 13:42:38.12
そりゃあるだろうよ。
100兆文字使えるわけないだろ。
常識で考えろ池沼。
346:デフォルトの名無しさん
12/02/02 13:44:44.80
>>345
そんな頭の悪い発言で先生面するのはやめなさい
347:デフォルトの名無しさん
12/02/02 13:45:17.95
そしてフォルダ名からkeyにマルチバイト文字が混入し、バグに苦しむ低脳(>>340)であった
348:デフォルトの名無しさん
12/02/02 13:46:38.13
なにいってんだこいつ(AAry
349:デフォルトの名無しさん
12/02/02 13:47:18.71
趣味グラマだけどPerlが好きで、今更だけどラクダ本買って今読んでるんだけど
冒頭にラリーの言葉でPerlのコミュニティは素晴らしいって書いてあったんだよね。
それで穏やかな気持ちになってさ、2chのPerlスレはどうなんだろって覗いてみたんだがお前らカリカリしすぎﾜﾛﾀ
350:デフォルトの名無しさん
12/02/02 13:49:18.63
カリカリしてるのは煽りたいだけの糞以下ゴミクズ基地害１匹だけ、マジで消えろよ
351:デフォルトの名無しさん
12/02/02 13:52:23.42
>>350
自己紹介乙。
カリカリしてるって笑われてるぞｗ
こんな時間から書き込みしてるとか余程程度の低いニートなんだろうな。
お前生きてる価値あんの？ｗ
352:デフォルトの名無しさん
12/02/02 13:52:51.43
>>350
俺にはキミが一番カリカリしてるように見える。
とりあえずもちつけ。
353:デフォルトの名無しさん
12/02/02 13:52:51.74
>>349
もうぶっちゃけるけど、Perlに限らずム板マ板にまともなプログラマはいないよ。
みんなブログやTwitterあるいはGithubで情報発信や交流している。
名無しさんにうずもれて満足して、ここにしか居場所がないようになると
それだけ新しいプログラミングの習得が遅れる。
このスレで書かれてるコードが10年前基準のレガシーなものだらけなの見ても分かるでしょう？
354:デフォルトの名無しさん
12/02/02 13:55:14.63
またレガシー厨か
355:デフォルトの名無しさん
12/02/02 13:56:55.33
そうだな、俺も基本的に情報交換はTwitterだわ。
2chは惰性でチェックしてる。
356:デフォルトの名無しさん
12/02/02 15:11:21.74
>>340
文字数制限は
自分で調べろバーカ
357:デフォルトの名無しさん
12/02/02 15:14:20.58
>>356によってこのスレの存在意義は完全否定されました
今までPerl質問スレをご利用頂き、ありがとうございました
358:デフォルトの名無しさん
12/02/02 15:16:11.02
だから今こうやって調べてるんじゃないですか。
359:デフォルトの名無しさん
12/02/02 15:23:10.58
最近レスの流れが早いな
360:デフォルトの名無しさん
12/02/02 15:45:46.55
>>340
perlgutsでは、キーの長さはU32になってるから、
短くても32bitで表現できるバイト長は保障される(コンパイルされた環境に依存)だと思う。
use Config qw(config_vars);
print config_vars('u32size');
361:デフォルトの名無しさん
12/02/02 17:50:11.77
プログラマーって根暗で穏やかじゃない人が多いですね
このスレ見て思った
362:デフォルトの名無しさん
12/02/02 17:57:06.32
>>361
ここはいつからお前の感想掲示板になったんだ？
ブログにでも書いてろ真性基地害
363:デフォルトの名無しさん
12/02/02 17:59:41.62
おやおや威勢のいいお兄さんだ
364:デフォルトの名無しさん
12/02/02 18:09:31.55
>>361
で？
根が明るいだけしかとりえのないプログラムスキル皆無のゴミが何の用？
365:345
12/02/02 18:12:56.25
>>360
ほらな、だから100兆文字は無理だって言ったんだよ
考えればすぐ分かるだろ
366:デフォルトの名無しさん
12/02/02 18:14:29.13
>>362
じゃあここは何のスレなのかな？
質問しに来た人に対しちゃんと答えるスキルはあるけどあえて教えずネチネチいじめるスレなのかな？
367:デフォルトの名無しさん
12/02/02 18:14:51.41
>>361
自己紹介は自己紹介板でやれや板違い
368:デフォルトの名無しさん
12/02/02 18:20:02.08
自分は根暗でもなく穏やかだと思ってるイケヌマン(>>361)がいるときいて
韓国の首都上海からテポドンに乗って飛んできました！
369:デフォルトの名無しさん
12/02/02 18:22:15.52
>>361
下手な釣りでも大漁で良かったなｗ
370:デフォルトの名無しさん
12/02/02 18:32:51.50
どう見ても自演です
寂しいのかな
371:デフォルトの名無しさん
12/02/02 19:10:41.33
>>349
ここはPerlのコミュニティじゃなくて2chだから。
372:デフォルトの名無しさん
12/02/02 19:13:11.92
荒らすのだけが目的の奴がまぎれてるからなあ。
前はコテハンもどきを使っててあぼーんしやすかったんだけど
最近使わなくなったのか別の奴が流入してきたのか
紛らわしくていかん。
373:デフォルトの名無しさん
12/02/02 21:01:26.52
>>372=荒らすだけが目的の奴
374:デフォルトの名無しさん
12/02/02 21:11:44.51
どうせPHP厨かレガシー厨だろ。
PHP厨はPerlが存在する限り日の目を見ることはないからな。
375:デフォルトの名無しさん
12/02/02 21:19:30.42
キーについて質問してるヴァカがいるけどどうせ何一つ調べずに質問してるんだろうなキモい
376:デフォルトの名無しさん
12/02/02 21:49:34.23
>>361は自演だったのか
恥ずかしいなおいｗ
377:デフォルトの名無しさん
12/02/02 22:02:22.60
activeperlをwindowsで使っています
ms-dosの8.3形式の短いファイル名の一覧を取得する方法はありますか
378:デフォルトの名無しさん
12/02/02 22:07:37.89
全一覧取得→性器表現
379:デフォルトの名無しさん
12/02/02 22:26:48.32
>>377
Win32::GetShortPathName()
URLﾘﾝｸ(search.cpan.org)
380:379
12/02/02 22:29:16.51
補足。
URLﾘﾝｸ(support.microsoft.com)
381:デフォルトの名無しさん
12/02/02 22:55:05.58
>>377
採用されそうにないが
D:\hoge\fuga の一覧
my @filename_8_3 = grep {/\S+ +\S+ (\S+) +\S+/, $_ =$1} qx'dir /x D:\hoge\fuga';
382:デフォルトの名無しさん
12/02/02 23:08:23.66
㌧
ばっちり動きました
383:デフォルトの名無しさん
12/02/03 00:54:51.78
>>320
レンタルサーバーがDELLのノートPCでWinXPをインストールしてあるんですか？
ところでインストールしてあるPerlのバージョンはいくつですか？
ちなみに
perl -v
でバージョンを調べられますよ。
384:デフォルトの名無しさん
12/02/03 01:06:10.78
>>320
文章からしてそのレベルでは無理
お前はもっと低級な言語でもやって標準I/Oなんかを学習するべき
385:デフォルトの名無しさん
12/02/03 01:11:34.15
あと<STDIN>が使えない段階でPadreを使うのは早いですよ。
本質的でないところではまってしまい、前に進みません。
また分からないことがあったら遠慮なく聞いてください。
386:デフォルトの名無しさん
12/02/03 02:47:06.11
Padreはゴミ
Perlという言語ではゴミしか作れないだろうけど。
387:デフォルトの名無しさん
12/02/03 02:51:13.22
使い捨てに向いた言語って、結構な褒め言葉じゃね？
388:デフォルトの名無しさん
12/02/03 03:03:11.29
ＰＨＰ厨様こんな夜中まで書き込みご苦労様です＾＾
Ｐｅｒｌはゴミしか作れませんが、ゴミすら作れず時間が失われるだけのＰＨＰよりはマシですね＾＾
389:デフォルトの名無しさん
12/02/03 03:06:54.70
ほら、嫉妬してる奴が釣れちゃっただろｗ
390:デフォルトの名無しさん
12/02/03 03:15:03.86
猫に小判
豚に真珠
PHP厨にPerl
391:デフォルトの名無しさん
12/02/03 03:23:47.79
効いてる効いてる
392:デフォルトの名無しさん
12/02/03 15:24:03.30
ス テ マ の 予 感
393:デフォルトの名無しさん
12/02/03 21:54:38.24
PHP厨にPerl
394:デフォルトの名無しさん
12/02/04 00:24:37.03
CAPTCHAの認証を破るモジュールとかないよね・・・
無理かな
395:デフォルトの名無しさん
12/02/04 00:28:30.15
ぼくの考えた最強の
PHPeruby
396:デフォルトの名無しさん
12/02/04 00:36:47.06
モジュールとして公開されてたら誰でも破れるだろボンクラ
誰でも破れるものをわざわざ手間かけて実装する低脳がどこにいるんだよパーかおめ
397:デフォルトの名無しさん
12/02/04 00:37:53.32
だよな
諦めるっきゃないか
398:デフォルトの名無しさん
12/02/04 00:45:12.94
モジュールですべてを行おうとするから出来ないんであって、
文字を判読して打ち込むところを人間にしてもらうように
作ればいんじゃね？ただし人間というのは当然、自分以外のっ
てことだけど。エッツな画像とかをえさにすれば、入力して
くれるひともいるでしょ。
399:デフォルトの名無しさん
12/02/04 00:45:28.75
お前が高脳で諦めずにそういうモジュールを完成させても
公開すれば間もなくみんなCAPTCHAやめて別の方法とると思うぞｗ
そこまで高い的中率を求めるのでなければ自作もできるんじゃない？
画像認識の話になるからそれ系の話を探せば出てくるかもな。
400:デフォルトの名無しさん
12/02/04 00:48:52.22
エロ画像ダウンロード画面でCAPTCHAと入力窓出して、入力されたら裏で認証するとか？
確かにそれだとバレないな。
401:デフォルトの名無しさん
12/02/04 01:07:55.48
Perl使いにはハードルの高いものだな
402:デフォルトの名無しさん
12/02/04 01:11:22.73
CAPTCHA認証は100%不可能。超むずい
403:デフォルトの名無しさん
12/02/04 01:13:37.43
作るほうはたくさんモジュールあるんだけどなｗ
404:デフォルトの名無しさん
12/02/04 01:16:32.05
JDownloader
405:デフォルトの名無しさん
12/02/04 08:15:03.85
Perlとは違うがCAPTCHA破りならPWNtchaとかあるにはある
URLﾘﾝｸ(caca.zoy.org)
ロシアや中国あたりでは人海戦術でCAPTCHAを破る専門の仕事があるらしいが……
406:デフォルトの名無しさん
12/02/04 10:41:21.75
>>399
>公開すれば間もなくみんなCAPTCHAやめて別の方法とると思うぞｗ
それはそのとおりだと思うけど、>>394の要件に含まれていないからいいよ。
407:デフォルトの名無しさん
12/02/04 10:48:29.60
手動はメンドイな
本当なんつーものを開発してくれたんだよ
408:デフォルトの名無しさん
12/02/04 10:49:20.61
最近は犬と猫の色んな写真を8枚くらい表示して
犬の画像を全部選択しろとかもあるな
CAPTHAの次はこれが標準になるだろう
俺の予想ではその次は全部同じ生き物の写真になると思う
例えば全部人間で、商談してる写真やら野球してる写真やら絵を描いてる写真が10枚程表示されて
「スポーツをしてる画像を全部選べ」みたいな
さらにその次は馬鹿撃退用に知識を問う画像が表示されるだろうな
アンコールワットやマチュピチュなんかの写真が12枚程表示されて
「世界遺産を全部選べ」みたいな
画像からググるのはほぼ不可能に近いから一般常識のない馬鹿は撃退される
それを突破しようと思ったら人工知能レベルのモジュールが必要
今から作っとけ
409:デフォルトの名無しさん
12/02/04 10:49:27.86
たった100兆文字くらい、京なら余裕でしょ。
ちょっと昼休みに試してみるわ。
410:デフォルトの名無しさん
12/02/04 10:50:26.60
>>408
ぐあああ
不可能だ
411:デフォルトの名無しさん
12/02/04 10:51:09.72
日本語とかもあるし大変だろ
412:デフォルトの名無しさん
12/02/04 10:52:18.31
そこはほら、jperlだょ
413:デフォルトの名無しさん
12/02/04 10:56:38.26
>>398の方法がすでに>>408をすでに解決している件
414:デフォルトの名無しさん
12/02/04 10:58:06.65
s/すでに//
415:デフォルトの名無しさん
12/02/04 11:07:35.20
CAPTHAの件、
文字を扱えるのは人間だけだってことか
utf8フラグが文字を扱えるわけじゃないってことか。。。
416:デフォルトの名無しさん
12/02/04 11:27:22.19
>>415
何を言ってるのかさっぱりわからん。
データを見た時、データだけでそれが文字かどうかは人間しか分からないから
データとは別に、utf8フラグを明示的につけてやることで
コンピュータが文字と認識できるようになるってことだろ
417:デフォルトの名無しさん
12/02/04 11:37:30.63
>>415-416
どっちも意味わかんねーよ
418:デフォルトの名無しさん
12/02/04 11:43:31.42
今日は土曜日！二日市に行こうかな。
でもな、特に目ぼしいものナさそう。
ノートパソコン欲しい。mac book airよさそうと思ったけど、最低８万するんだね。
たかい。
419:デフォルトの名無しさん
12/02/04 11:47:43.01
>>417
ようするにファイルのことだよ。
ファイル中身を見ただけじゃ、それが文字ファイル
（テキストファイル）なのかバイナリファイルなのか分からない。
もちろん、入っているデータや拡張子から推測はできるが
100%正しい訳じゃない。
それは変数に入っている値も同じで、
コンピュータ（Perl）は中に入っているのが文字なのかバイナリなのか分からない
その二つを区別できなければ、”文字”数の情報が必要な処理や
1文字づつ処理するような関数が作れない。
よくあるのが、マルチバイト文字を渡したら、1文字の左半分だけ残って
右半分が落ちてデータが壊れるとかね。
だから、UTF8フラグというものが必要で、それをつけることでPerlは
文字として判断できるようになる。
まあ、これがモダンな（といっても何年も前から）のPerlの文字列の扱い方。
420:デフォルトの名無しさん
12/02/04 14:26:37.57
>>398
CAPCHA認証を行っている多くのサイトは、まさに今それをやってるんだよ。
Googleから判読不能な文面を受け取って、自身のCAPCHAシステムに組み込み、
入力の集積結果をGoogleに渡してお金を貰うという仕事だ。
421:デフォルトの名無しさん
12/02/04 14:42:49.67
CAPCHAは無理だろ
記号着地問題とかフレーム問題とかクリアせにゃ
超精度のOCRのようなモンができても、
文字じゃなくぬこ写真が出てくれば、それまでだ
画像を記号に変換するつよーいAIが登場しないと、
CAPCHA突破はﾑﾘﾑﾘだぁ
422:デフォルトの名無しさん
12/02/04 15:16:05.36
愛くるしいぬこ写真がこれ程凶悪な障壁になろうとは誰が予想しただろうか
423:デフォルトの名無しさん
12/02/04 16:01:40.04
ファイルテスト演算子の-dでディレクトリかどうかを判断すると
ディレクトリが多数あるのに「.」「..」しかヒットしないんですが、なにが原因ですか？
424:デフォルトの名無しさん
12/02/04 16:06:17.48
□判定前のファイルとフォルダ混在した一覧にはフォルダはあるのか
□対象ディレクトリのパスは間違っていないか（特に相対パスの場合）
425:デフォルトの名無しさん
12/02/04 16:17:13.41
どんな言語であろうとCAPCHAは無理なんだな
そりゃCAPCHAが大流行するわけだ
426:デフォルトの名無しさん
12/02/04 16:18:02.35
-d 使っているまさにそのコードで cwd してみそ
427:デフォルトの名無しさん
12/02/04 16:25:57.57
ぼくが考えた最強の
KATO-CHA
428:デフォルトの名無しさん
12/02/04 16:31:44.21
ちゃっとだけよ（はあと）
429:423
12/02/04 16:41:35.10
>>424
レスありがとうございます
・フォルダはあります。
・対象ディレクトリのパスは間違ってないです。コード中の
while (my $file = readdir $dh) {
if (-d $file) {
print $file;
}
となってるところを
while (my $file = readdir $dh) {
print $file;
にしてみたらちゃんと目的のディレクトリを含むファイルの羅列がprintされました。
なぜファイルテスト-dが成功しないんでしょうか？
430:423
12/02/04 16:44:42.38
>>426
レスありがとうございます。
use Cwd qw(getcwd);
$ret = getcwd();
print $ret;
したら、このコードが置いてあるディレクトリ名が表示されました。
ディレクトリハンドルに指定したディレクトリとは違います。
431:デフォルトの名無しさん
12/02/04 16:50:22.36
if (-d $file)
を
$filepath = "検索対象のディレクトリ/" . $file;
if (-d $filepath)
に変更するとか？
432:423
12/02/04 16:53:17.98
レスありがとうございます。
$fileに入ってるディレクトリ名はすでにフルパスなんです。
もしかしてWindowsだとファイルテストが機能しないとかあるんでしょうか？
433:デフォルトの名無しさん
12/02/04 16:54:46.49
utf8フラグは自分で立つわけじゃないから、CATCHAを破ってくれないってことでおｋ？
434:デフォルトの名無しさん
12/02/04 16:56:32.96
use utf8; 使ってる場合は、このスレの専門家が長文で丁寧に教えてくれる。
それまで待て。
435:423
12/02/04 16:56:47.06
>>431
すみません。読み込む直前でフルパスじゃありませんでした。勘違いしてました。
言われたとおり改めて変更してみたらうまくいきました。
ありがとうございました！
436:デフォルトの名無しさん
12/02/04 17:10:42.40
どういたしまして
437:デフォルトの名無しさん
12/02/04 22:12:09.11
>>420
エッチな画像見てそのうえGoogleから給料貰えるなんて最高じゃないか
438:デフォルトの名無しさん
12/02/05 06:26:00.76
ぐああああ
CAPCHA対策された
手でシコシコ面倒くさいな・・
439:デフォルトの名無しさん
12/02/05 09:33:17.78
迷惑スクリプト乙
440:デフォルトの名無しさん
12/02/05 12:39:58.42
URLﾘﾝｸ(codepad.org)
600851475143 の素因数のうち最大のものを求めよ。
という問題をエラトステネスの篩を使って解こうとしたんですが上手くいきません。
どこがいけないんでしょうか。