- 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 あたり
- 730 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:50:39 ]
- >>713-722
多分だけど、googleに限らず大手の検索エンジンなんか数百台〜数千(数万？)台のサーバーで
構築されてるんだろうから、毎回必ず同じ結果が返って来るとは限らないんじゃない？
(Yahooなんかは、同一環境でもCookeiが違えば、件数どころか上位十件が全然違うこととかもあるw)
たしかgoogleは、ブラウザの HTTP_ACCEPT_LANGUAGE あたりで使用言語の優先順位を判定して
各言語のサーバへリダイレクトしてるとか聞いたことある。
(例えば、一般的な日本語ブラウザでgoogle.comにアクセスしても、co.jpの方へ飛ばされる。とか)
>>726
「perl サブルーチン 引数」とか「perl shift」とか。
- 731 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 14:19:56 ]
- PerlとPHPはまったく別物なのでしょうか？関連性とかあるのかな、と。
その辺のことよく知りません。
- 732 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 14:35:03 ]
- >>731
ないから諦めてください
- 733 名前：713 [2008/09/08(月) 15:19:52 ]
- >>717-722
皆様ありがとうございます。
>>730
そうなんですか…。
じゃあ日本語を検索した際、プログラムで手動と同じ検索結果を出そうとするのは事実上困難って事ですよね…。
わかりました。
ありがとうございます。
- 734 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 15:25:32 ]
- どういう通信するか観察してきちんと真似てやればなんとかなると思うけどね。
- 735 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 16:19:48 ]
- >726
どこらへんも何も、普通に引数を渡してるだけだぜ？
- 736 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 21:59:04 ]
- 配列から指定の要素番号を抜き出して、
削除するってできるの？
popの要素番号指定版。
$number = pop @array[5];
みたいな。@arrayの要素番号５が抜き出されて
$numberに入り、なおかつ
＠array[５]は消え去る。
- 737 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 22:25:25 ]
- >>735
つsplice
- 738 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 22:34:02 ]
- >>737
つ>>736
- 739 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 23:44:23 ]
- >>39お願いします
- 740 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:01:37 ]
- >>738
頭から1行ずつ読めばそのうち任意の行に到達するよ。
- 741 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:05:42 ]
- ところで>>713はなにをやっているの？
CGIでもないようだし、
にも関わらずWEBのデータ-を取ってきて
なんか遊べるようだが、これって
なんで名前なの？
どういう本にのってるの？
- 742 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:18:37 ]
- >>741
perl スクレイピング
でぐぐれ
- 743 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:27:08 ]
- へーこんな用語があったんだ。
初めて知ったわ。
俺の書いてきたPerlスクリプトは9割がスクレイピングだー
- 744 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:30:41 ]
- オライリーからも本出てるよ。
俺の初めて書いたperlはそれの第一章とかだった気がするｗ
- 745 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 02:00:44 ]
- #------------------１
my @a=(1..10);
map {$_ = $_ *2} @a;
print "@a\n";
#--------------------１
#--------------------------
#-----------------------２
my @a=(1..10);
map {$_ = $_ *2} (@a);
print "@a\n";
#------------------２
↑これ、１も２もどっちも
実行できるんだけど、mapの配列の（）パーレンは
必要ないってこと？
- 746 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 02:36:15 ]
- ●１
map {print $_,"\n" } 0..10;
これだとちゃんと１〜１０が表示されるのに
●２
map {print $_,\n } 0..10;
これだとなぜかアドレスが出てしまう。
なんでだろう？
- 747 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 03:09:08 ]
- my @a=qw(aaaaa bbb ccc ddd eee fff abf haty juy ade il erat tyu dfg gu );
my @b=grep {$_=~'a'} @a;
print "@b\n";
#---------------------------------------
grepのときに、スマートマッチ〜〜使えないのか。
my @a=qw(aaaaa bbb ccc ddd eee fff abf haty juy ade il erat tyu dfg gu );
my @b=grep {$_~~'a'} @a;
print "@b\n";
#--------------------------------
↑これだとエラーが出る。＝〜にしないとだめらしい。
- 748 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 03:53:32 ]
- my %hash;
$hash{name}='john';
$hash{age}='25';
$hash{city}='london';
print "@{[%hash]}\n";
↑なんでこれでハッシュの中味が出力されるの？
- 749 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 04:03:47 ]
- 何故〜なの？という質問のときは、
「自分は○○されると想ったのに」と付け加えるとアドバイスしやすい。
- 750 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 04:24:40 ]
- @{[%hash]}
これの記法がまったく意味がわからん
- 751 名前： ◆TWARamEjuA mailto:sage [2008/09/09(火) 06:59:06 BE:980633-2BP(7089)]
- (grep 1, each %hash)
かな？
- 752 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:38:24 ]
- 何年ここにいて、そんな頓珍漢な解答をする？ > クソコテ
実行結果すら合わねえじゃねえか
- 753 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:39:16 ]
- jp.youtube.com/watch?v=PIyzRW7L6eY&feature=related
これの最後のやつがちょっと意味わかんないかも。
mapの lcの組み合わせたやつ。
- 754 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:44:28 ]
- $words="a title of a webpage";
$words = join ' ', map {ucfirst lc} split / /,$words;
print "$words\n";
↑これね。
- 755 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:47:38 ]
- >>754
1. スペースで split => 単語毎になる。
2. lc $_ で全部小文字（$_ の表記省略）
3. 2. の結果を ucfirst で一文字目だけ大文字化。
4. スペースでくっつける
- 756 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:00:27 ]
- >>736
my $index = 2 ; # 抜きたいindex
my @dat = qw( 1 2 3 4 5 6 ) ;
push @dat, ( splice @dat, $index )[1.. $#dat - $index] ;
print @dat ;
定番
- 757 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:03:04 ]
- >>750
%hash をリストと見做して [] にて無名配列へのリファレンスに突っ込む。
@{} にてそのリファレンスをデリファレンス。
- 758 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:04:38 ]
- >>756
$numberが…
二行に分ければ済む事だけど
- 759 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:27:14 ]
- jp.youtube.com/watch?v=xBTsQ6e7gXY&feature=related
これって何やってるの？
- 760 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 11:56:00 ]
- >>740
了解しました。
一気にその行に行く方法はないんですね。
- 761 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 12:24:25 ]
- >760
配列にでも突っ込めば？
- 762 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 12:42:21 ]
- >>760
あらかじめ各行の先頭位置を別に記録してあればseek一発だが、そういう
準備がされてなければ頭から読むしかないね。なにもないときは頭から
改行を頼りに行数を数えるしか何行目か知る方法はないのです。
- 763 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 14:04:15 ]
- >>761
行数が多い場合、コストが高そうな気がして。。。
>>762
やはりそうですか。
どもです。
- 764 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 16:22:23 ]
- yyyymmddの日付を比較したいのですが
どうすれば一番簡単ですか
- 765 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 16:48:42 ]
- 比較だけなら、そのまま比較すれば意図した通りの結果になるんじゃない？
- 766 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 22:38:26 ]
- ディレクトリの中にファイルがあったら
ディレクトリを空にする、という処理をしたいのですが
if(-e "$path/"){
削除処理
}
みたいなものだと、ディレクトリそのものが認識されて
ファイルを認識してくれません
どうすりゃええんでしょうか
- 767 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 22:40:18 ]
- >>766
ディレクトリを読んでファイルがあるかどうか調べるといいよ。
- 768 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 22:57:02 ]
- opendirあたりでヤルしかないですか
遠回りだと思ってたけどそれが一番なのかな
- 769 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:02:59 ]
- グロブ使えよ。
中作業だろ。
- 770 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:05:57 ]
- File::Slurpのread_dirが便利
- 771 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:17:50 ]
- これじゃダメ？
if(<$path/*.*>){
削除処理
}
- 772 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:45:39 ]
- >>769
グロブの使い方がわからないであります
>>770
多分はいってないです
>>771
ためしてみます
- 773 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 01:45:46 ]
- ５．１０が動くレンタルサーバーってどこがある？
- 774 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 02:24:36 ]
- 事前に膨大な乱数表作っておいて、
substrだけで抜き出して会話するってできる？
- 775 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 05:35:12 ]
- >774
どういうこと？
- 776 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 05:42:43 ]
- my $a="g'oiaherugbapowirhaysrgpairhja]ierhgtauw[eifbgaeirhuecf[awierbawirt]aebm";
等の100万語ぐらいの膨大な量の乱数表みたいな
語句のリストをあらかじめ作っておいて、
「hello」って表示したい場合は
「５」番目と「７番目」と「12番目」を抜き出して
表示する」みたいな。
たまたま、うまくつながってるところを見つけると、
ポイントアップです。
- 777 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 05:43:46 ]
- index と substrを組み合わせたゲームね。
- 778 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 06:04:15 ]
- （１）
use feature qw( :5.10 );
my $t;
$t=localtime;
say $t;
-------------------------------
（２）
use feature qw( :5.10 );
my $t;
$t=localtime(time);
say $t;
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
（１）と（２）で、実行結果が変わらないのだが、なんで？
どっちでもいいの？
じゃあ、timeの立場は？
- 779 名前： ◆TWARamEjuA mailto:sage [2008/09/10(水) 06:58:15 BE:654023-2BP(7089)]
- >>752
わはは！
描いて、全然ちゃうわ！と気が付いて投稿窓を閉じたつもりが送信されてたョ（呆）
- 780 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 07:03:36 ]
- Perlの勉強するときに、実は
ものすごく脳力というか
エネルギー使うんじゃね？
漏れは30分か1時間もやると
ぐったりして集中力がなくなる。
読んでも頭に入らなくなる。
- 781 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 07:16:34 ]
- >778
捨てハンでもトリッブでもいいから、なんか分かりやすい名前つけたらどうだ？
たぶん皆喜ぶぞ。NG指定するのに。
- 782 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 09:10:05 ]
- じゃあアンケートとって
スレ住民の５１％以上が賛成してたら
そうするよ。
- 783 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 10:28:58 ]
- 住人は>>781の一人だから賛成100％が可決。 俺は通りすがり。
- 784 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 14:27:20 ]
- トリッブはねえよ
- 785 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 16:28:39 ]
- >>782
50.4%が賛成だとアウトなのかが気になる
- 786 名前：デフォルトの名無しさん [2008/09/10(水) 19:11:24 ]
- Perlで作ったツールをUSBメモリに入れて持ち運びたいんですが、
Perlの動作環境込みで持ち運ぶのは無理でしょうか？
テキストファイルの処理がメインでLinuxとActivePerlでの動作は確認しています。
しかしActivePerlがインストールされているWindowsマシンは少なく、
客先ではActivePerlのインストールも許されていない ので困っています。
- 787 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 19:19:03 ]
- そのUSBに入れときゃいいやん
- 788 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 21:04:57 ]
- >>786
「Perlで書いたツールを持ち歩きたいけれど、フルセットの実行環境は要らない」
PAR - Perl Archive Toolkit があなたのわがままを叶えてくれます。
- 789 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 21:13:34 ]
- PAR の話は「perl.exe だけで足りるかもしれない」と伝えてからでいいんじゃないのか。
- 790 名前：788 mailto:sage [2008/09/10(水) 21:37:22 ]
- >>789
ああ、もっともだね。先走りました。
- 791 名前：sage [2008/09/10(水) 22:17:56 ]
- 教えて下さい
windowsでperlを書いてるんですが
$dirName = "C:\\Documents and Settings\\Administrator\\My Documents\\新しいフォルダ";
@res = `"dir \"$dirName\""`;
を実行すると
ファイル名、ディレクトリ名、またはボリューム ラベルの構文が間違っています。
となってしまします。どこがいけないでしょうか？
- 792 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 22:29:18 ]
- (1) >>2をやっていない？？
(2) ディレクトリ名にスペースがあるとエラーになる？？
- 793 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 22:30:21 ]
- >>2じゃなくて>>4だった。
（３）Perlでは日本語のフォルダ名を扱えない？？
- 794 名前：sage mailto:sage [2008/09/10(水) 22:42:52 ]
- >>792
説明が不足して申し訳ないです。。。
日本語のフォルダが大丈夫なのは確認済みです。
ディレクトリ名にスペースがあると上手くいかないんです。。。
>>4をやっても駄目でした。
- 795 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 22:58:31 ]
- >>794
$dirName = '"C:\Documents and Settings\Administrator\My Documents\巨乳女子校生・公園で立ちバック"';
@res = `dir $dirName`;
スペースが入るときは "こう 囲んで 渡す" ってとこまでたどり着いてるのに惜しいな。
'これ' と "これ" の使い分けに慣れるといいよ。
- 796 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 23:24:02 ]
- >>792,793
答えようとするのは良いけれど、
確信がないなら検証してからにしてくれ。
質問者が混乱するから。
- 797 名前：sage mailto:sage [2008/09/10(水) 23:56:44 ]
- ご支援ありがとうございます。
>>795
教えてもらった方法で上手く出来ました。
ありがとうございます。
追加で申し訳ないのですが
>>791のコードでディレクトリ名を引数で渡したい場合はどうしたらよいでしょう？
やりたい事のイメージ：
%>perl test.pl "C:\Documents and Settings\Administrator\My Documents\貧乳女子高生・あばらで洗濯"
test.plの内容
$dirName = $ARGV[0];
@res = `dir "$dirName"`;
ちょっとまだ''と""の違いを正確に理解できていない様です。。。
'' => 文字をそのまま代入
"" => 変数を展開して代入
という認識なのですが他にも違いがあるのでしょうか？
- 798 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 00:43:41 ]
- >>797
'"ああああああ いいいいい うううう"'
これでいけるんじゃない？知らんけどｗ
- 799 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 00:50:29 ]
- >>797
$dirName = '"' . $ARGV[0] . '"'; # 消えても懲りずにくっつける
@res = `dir $dirName`;
たぶん期待の動作になると思うんですよね。
>perl test.pl "C:\Documents and Settings\Administrator\My Documents\着衣のふくらみ・貧乳編"
perldoc perlintro
perldoc perlop
辺りに書かれてますが '' と "" では \ がエスケープ文字なのか、文字 \ なのかというのも変わってきます。
- 800 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 01:20:03 ]
- ところでバッククォートってsystemとおんなじだっけ？？
- 801 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 02:38:32 ]
- >>800
うーん、マニュアル読んだら分かることだしねえ。
どうしても誰かに聞きたきゃ、くだすれ方面だろうね。
くだすれでも引かれるレベルの質問ではあるけど。
- 802 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 04:43:45 ]
- systemにリストで渡した方が引数を勝手に解釈されなくて済む
- 803 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 04:45:32 ]
- RMってどういう意味？
ReMake?
- 804 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 04:49:05 ]
- remember
- 805 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:01:59 ]
- RozenMaiden
- 806 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:47:59 ]
- perlで関数、サブルーチンに渡す引数ってどちらから評価されますか？
- 807 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:48:26 ]
- こないだのScraperの問題、情報調べてきてやったんだけど。↓
ただ、どうしても日本語の検索キーワードが
文字化けしてしまう。いろいろ調べると、Google
Search History の RSS は UserAgent がブラウザ
ぽくないと charaset=utf-8 じゃなく、charset=ISO
-8859-1 を返してきやがる。
- 808 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:49:14 ]
- nanntoka (A, B, C);
↑この場合、Aから実行なのか、Cから実行なのか、って意味？
- 809 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:50:11 ]
- サブルーチンに渡す引数は、左からだな。
関数は知らない。
- 810 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:55:33 ]
- >>808
そうですそうです
>>809
thx、ちなみにそのサブルーチンでは（ｒｙってのはどっかに規定されてる物なの？
- 811 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:56:25 ]
- おー なんだよー
こんな良いページがあるじゃんかよー
ちゃんと教えてくれよー
www.tkrb.jp/modules/summary1/index.php?id=7
- 812 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 06:38:21 ]
- 今発見したが、これはいったいなんなんだー
choco.lv3.net/test/read.cgi/program/1210740268/
- 813 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 11:04:17 ]
- >>810
特に決まっていない
- 814 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 17:14:04 ]
- 簡易HTTPサーバを書くのが便利そうなモジュールを探してみたら、
POE::Component::Server::HTTP
POE::Component::Server::HTTPServer
POE::Component::Server::SimpleHTTP
があるようなのですが、どれを使うのが良いんでしょうか？
- 815 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 20:55:36 ]
- 用途による
- 816 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 00:26:49 ]
- my $q = CGI->new(); # CGIオブジェクト
my $fh = $q->upload('filename'); # ファイルハンドル兼ファイル名
my $temp_path = $q->tmpFileName($fh); # アップロードされた #ファイルのフルパス
fileparse_set_fstype('MSDOS'); # WinIE用パス文字設定
my $filename = basename($fh); # アップロードされたファイルの # ファイル名
my $upload_path = "$upload_dir/$filename"; # 保存先フルパス
move ($temp_path, $upload_path) # File::Copy の moveメソッドで
or die $!; # 移動
close($fh); # おまじない
これを改造して、バカでかいファイルでもタイムアウトしないようにしたいのですが
ttp://www.bioinfo.jp/tips.html#background1
これをどこに組み込めばできますか
- 817 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 01:24:44 ]
- 下記のバージョンで、CPANからモジュールが
入れられるようになりました。感動した。
・XAMPP(1.6.2)
・Perl Add-on(5.8.8-2.2.4)
・Active Perl(5.8.8.817)
って書いてあるけど、もしかして、
PPMのほかに、CPANから直接入れる方法もあるの？
Activeperl。
- 818 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 05:43:51 ]
- もしかして、５．１０が動くレンタルサーバーってないの？
アメリカで１０＄のとこ、一個見つけたけど。
- 819 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 06:47:03 ]
- jp.youtube.com/watch?v=fPwHSyCrZB8&feature=related
forループの条件部って
こうやって書いてもよかったんだ！
- 820 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 07:26:47 ]
- うぜえ、消えろカス
- 821 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 07:42:01 ]
- >>820
おまえがな
- 822 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:05:08 ]
- do
{
do
{
do
{
do
{
print "hello\n";
}
}
}
}
やっぱ男だったら
doのネストだよな！
- 823 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:21:08 ]
- {
{
{
{
print "hello\n";
}
}
}
}
よく考えたら、doがなくても
動くじゃないか！
- 824 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:26:20 ]
- for $_(1..10){
print $_*2,"\n";
}
↑これだと動くんだけど、
for $_(1..10){
print "$_*2"."\n";
}
↑これだと動かない。
なんで？？？
- 825 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:57:51 ]
- ・さっきから鳥肌立ちまくり(の俺センスある)
・朝４時に何見てんだ俺……(でもそんな俺かっこいい)
・泣けた、疲れてるのかな……(でも疲れてる俺かっこいい)
・徹夜の上酔ってる俺が来ましたよ(こんな頑張ってる俺かっこいい)
・小３で全クリできたわ(さすが俺)
・８９年生まれだけど知ってますｗ(俺って博識だから)
・ここからの展開が神(俺見たことあるし見所も知ってるんだぜ)
・これを笑えない香具師はｾﾝｽない(俺は笑えてるからｾﾝｽある)
・これ○○だと思うの俺だけ？(ちょっとずれてる俺かっこいいor｢俺もそう思うよ｣待ち)
・この時○○は××でした(そんなﾄﾘﾋﾞｱも知ってる俺すげー、敬語だし)
・は？表出ろやカス(返事なかった、俺の勝ち)
・まだこのシリーズやってたんだ、しょうがねえから見てやるか(俺が見てやってるんだからありがたく思えよ)
・神曲ktkr ←これより○○の方が神だろ(マイナー曲を挙げる俺って通だなー)
・shita cyan 禁断の海馬に手を加えて 驕れる無能な創造神にでも 成った心算なの(わざわざ歌詞職人やる俺えらいなー)
- 826 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 10:17:16 ]
- sub abc(@%@%){
my $a=shift;
my $b=shift;
my $c =$a+$b;
print "$c\n";
}
abc(3,4);
↑これでエラーでないとか、
プロトライプの意味ないじゃん！
- 827 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:27:32 ]
- >818
ヒントだけ。「板違い」
- 828 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:29:41 ]
- サブルーチンの引数について勉強するといいと思うよ
- 829 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:31:31 ]
- 初心者なのですが質問させていただきます。
push(@array,$item);
これを[splice]を使って書くと、
splice(@array,@array,0,$item);
このようになるようですが、開始位置に書いてある[@array]は、「配列の要素数」と考えて
よろしいのでしょうか。それとも要素数じゃないのでしょうか。
「要素数」は添え字の値より１多い数なので、それを開始位置に書いてあるのがよくわからなくて
混乱しました。
- 830 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:40:12 ]
- >>829
> 「要素数」は添え字の値より１多い数なので、それを開始位置に書いてあるのがよくわからなくて
> 混乱しました。
添え字の値より1多い数が開始位置じゃなかったら、なにが開始位置になるんだょ。
|
 |
