- 1 名前：デフォルトの名無しさん [2013/03/08(金) 13:01:05.08 ]
- JavaScript, Perl, PHP, Python, Ruby, …
スクリプト言語をすべて扱うスレッドです。
最強のスクリプト言語は、どれよ？
さあ、死ぬまで語りやがれ！！！
■ スクリプト言語の用途
Webアプリ、シェルスクリプト
■ スクリプト言語の特徴
実行速度に優れているわけではないが、
取り回しに優れ、コードの作成や修正が容易、プログラマの負担が軽い！
・インタプリタ
・動的型
・正規表現
・クロージャ
などを利用できるものがある。
長いコードはここで
ttp://play.island.ac/codepaste/
【Perl,Python,PHP】LL ﾊﾞﾄﾙﾛﾜｲﾔﾙ 29【JS,Ruby】
toro.2ch.net/test/read.cgi/tech/1361576195/
- 32 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 12:29:21.74 ]
- >>31
Pythonのその条件分岐は無くても同じ
xs = [1,2,3,4,5,6,7,8]
print(([0] * 5 + xs)[-5:]) #=> [4, 5, 6, 7, 8]
- 33 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 12:32:19.79 ]
- >>32
ほんとだ。
ついでに padRight も。
def padRight(lst, n):
return ((lst + [0] * n)[:n])
- 34 名前：33 mailto:sage [2013/03/09(土) 12:33:45.72 ]
- インデントが消えてしまった。連投ｽﾏｿ。
def padRight(lst, n):
return ((lst + [0] * n)[:n])
- 35 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 12:59:45.16 ]
- perl
>>18
use 5.016;
use warnings;
use Tie::File;
tie my @list, 'Tie::File', 'todo.dat' or die $!;
given($ARGV[0]){
when('add'){ push(@list, $ARGV[1]) }
when('list'){ print map{ "$_: $list[$_ - 1]\n" } (1 .. @list) }
when('done'){ splice(@list, $ARGV[1] - 1, 1) }
default{ say "$0 usage: (add todo/list/done number)" }
}
>>22
my @l = (1, 3);
my @r = ((0) x 5, @l)[@l .. $#l + 5];
- 36 名前：デフォルトの名無しさん [2013/03/09(土) 13:19:16.57 ]
- >>31
なんで順番かわるんだろ
- 37 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 13:21:07.05 ]
- >>35
perl は二度と使いたくないと決心を新たにしました。
- 38 名前：31 mailto:sage [2013/03/09(土) 13:25:49.63 ]
- >>36
ごめん。貼り付ける計算結果を間違えた。orz
正しくは、
In:= PadLeft[{6, 5, 4, 2, 1, 3}, 5]
Out= {5, 4, 2, 1, 3}
- 39 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 13:50:02.25 ]
- 完動品として、>>18を俺ならこう作る
#!/usr/bin/perl
use strict;
use warnings;
my ($com, $msg) = @ARGV;
open(my $FH, "+<", "todo.data") || die("ファイルが開けない");
flock($FH, 2);
my @data = <$FH>;
if (!defined $com || $com eq "") {
print "todo [add | done | list] [value]\n";
} elsif ($com eq 'add') {
push (@data, $ARGV[1]."\n");
} elsif ($com eq 'done') {
splice(@data, ($ARGV[1] - 1), 1);
} elsif ($com eq 'list') {
for (my $i=0; $i<scalar @data; $i++) { print $i + 1 , ':', $data[$i]};
}
seek($FH, 0, 0);
print $FH $_ for (@data);
truncate ($FH, tell($FH));
exit;
- 40 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 13:57:24.34 ]
- $msg に値入れてるのにARGV[1]見てるのは、ちょっとした茶目っ気
- 41 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 14:29:05.12 ]
- 少ないな、もっと色々な言語の人くれよ
- 42 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 14:33:01.43 ]
- >>35って配列をファイルに書きだすコード抜けてる？って思ったら
Tie::Fileだと配列への変更がファイルに反映されるのか
search.cpan.org/~toddr/Tie-File-0.98/lib/Tie/File.pm
やはりあなどれないPerlあなどれない
- 43 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 14:38:25.99 ]
- Perl好きな俺が言うのもなんだけどタイはわかりにくい・・・
- 44 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 18:09:12.85 ]
- Thailand
- 45 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 19:08:30.26 ]
- おぉ？RubyやPHPのソースがないんじゃないか？
雑談の時は賑やかなのにソース晒すとなったら静かだなおい
- 46 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 19:36:50.88 ]
- rubyのひとは2chにソース貼るの極端に嫌う
著作権が自動的に2chに譲渡されるとか何とか
- 47 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 20:30:12.74 ]
- >>18
require "yaml"
filename = "todo.yaml"
todo = File.exists?(filename) ? YAML.load_file(filename) : []
case ARGV[0]
when "add"
todo << ARGV[1]
YAML.dump(todo, open(filename, "w"))
when "list"
todo.each_with_index {|s, i| puts "#{i + 1}: #{s}" }
when "done"
idx = ARGV[1].to_i - 1
todo.delete_at(idx)
YAML.dump(todo, open(filename, "w"))
end
>>22
xs = [1,3]
p [0] * (5 - xs.size) + xs
別にruby詳しいわけじゃないから推奨されてない書き方してるかも
- 48 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 20:42:36.02 ]
- >>46
それをやたら主張する人が一時期いたんだよな
- 49 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 20:57:35.20 ]
- >>46
Ruby処理系のパッチなんかを2chに貼ると怒られることはあるけど
お題の答えを貼るのまで嫌がったり問題視したりはしてないはず
- 50 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 21:06:29.34 ]
- >>46>>49
それじゃオープンソースアプリの一部をコピペしたりしたら、
その一部が2chの著作物になるのか？
そんな主張が認められるのか？
だとしたら、コピペしまくれば2ch所有のソースばかりになるな
- 51 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 21:12:53.25 ]
- それってソースコードに限らないだろうし、とんでもないことになるよね
市販の小説をコピペしても2chの著作物になるなんて
- 52 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 21:17:58.60 ]
- >>50
バトンといっしょで権利を持たない人から権利を承継することはない
だから誰かの著作物であるソースを2chにコピペしても2chが著作権を取得することはない
49で書いたのは「Rubyに不具合あったのでここ（2ch）にパッチ貼っちゃいますね」的な事例
- 53 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 21:18:07.75 ]
- クソスレ
- 54 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 21:36:39.84 ]
- たまにはガウチェ(ﾟдﾟ)！使いさんの回答を見たい
- 55 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 22:29:32.32 ]
- なるほど、Rubyユーザーはバグ見つけても上流にパッチ投げないクソが多いんですね
- 56 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 23:05:27.22 ]
- xs=[1,3]
(5-xs.size).times{xs.unshift(0)}
- 57 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 01:00:11.68 ]
- いつまで僕らはdankogaiを崇め続けなければならないのか
anond.hatelabo.jp/20130309205518
Perlのためにdankogaiがたくさんコードを書いて貢献したのは知っている。
で、その貢献とやらは何十年にも渡って僕らが崇め続けなければならないほど凄いものだったのか？
僕らはいつまでdankogaiに「凄いですねー」ってご機嫌を取り続けないといけないの？
英語圏でこれほどまでに自分の過去の貢献を誇示し続けるOSSプログラマって少ないよ。
dankogaiがいつまでも過去の貢献を振りかざし続けるのはもうそれは老害と言われても仕方が無いんじゃないかなあ。
古参OSSプログラマがみんな過去の貢献にあぐらをかいて若者を見下すようになったらOSSは確実に終わる。
- 58 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 01:33:09.13 ]
- >>57
これ書いたの誰かわかるわ〜ｗ
まあ同意だけど
- 59 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 01:35:43.28 ]
- Perlの連中はわざわざこんなエントリ書かなきゃならんのか
ご愁傷様
- 60 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 02:04:37.36 ]
- Twitter界隈でここんところPerlがディスられてたが
ついにこのスレに飛び火したかw
- 61 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 02:21:10.61 ]
- perl撲滅されたら困るんですね
よくわかります
- 62 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 02:25:17.22 ]
- dankogaiもライブドア事件のときに朝生でKYな存在だったのに
書評をコンスタントに書くだけでなぜか重鎮的な地位を手に入れたよな
あれは不思議で仕方なかった
- 63 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 02:40:17.43 ]
- 係属は力なり
- 64 名前：デフォルトの名無しさん mailto:sage [2013/03/10(日) 02:47:21.58 ]
- 祇園精舎の鐘の声
|
 |
