Perl / Per Henrik
1: 名無し募集中。。。 2013/10/15(火) 07:41:40.88 0
呆けてきちゃってもう駄目だ
2: 名無し募集中。。。 2013/10/15(火) 07:43:10.31 0
List::Compare使おうとしたらエラー出たんだけど
単純にモジュールがインストールされてないだけなのにそれに気付かなかった
単純にモジュールがインストールされてないだけなのにそれに気付かなかった
3: 名無し募集中。。。 2013/10/15(火) 07:48:33.14 P
javascriptしか組めない
4: 名無し募集中。。。 2013/10/15(火) 07:56:45.52 0
sub main {
open my $pipe1, '-|', "ls -1 " . $folder1
or die qq/Can't open pipe: $!/;
open my $pipe2, '-|', "ls -1 " . $folder2
or die qq/Can't open pipe: $!/;
my @filelist1 = <$pipe1>;
my @filelist2 = <$pipe2>;
close $pipe1;
close $pipe2;
my $lc = List::Compare->new(\@filelist1, \@filelist2);
my @intersection = $lc->get_intersection;
print @intersection;
}
出来上がったスクリプト
open my $pipe1, '-|', "ls -1 " . $folder1
or die qq/Can't open pipe: $!/;
open my $pipe2, '-|', "ls -1 " . $folder2
or die qq/Can't open pipe: $!/;
my @filelist1 = <$pipe1>;
my @filelist2 = <$pipe2>;
close $pipe1;
close $pipe2;
my $lc = List::Compare->new(\@filelist1, \@filelist2);
my @intersection = $lc->get_intersection;
print @intersection;
}
出来上がったスクリプト
7: 名無し募集中。。。 2013/10/15(火) 08:03:41.35 0
>>4
ls使うとかアホだろ
opendir使えよ
ls使うとかアホだろ
opendir使えよ
5: 名無し募集中。。。 2013/10/15(火) 08:00:00.91 0
perl 全然わからないわ
2つのフォルダを比較して差を見る感じかな
同期とかバックアップ用のスクリプトっぽい
2つのフォルダを比較して差を見る感じかな
同期とかバックアップ用のスクリプトっぽい
6: 名無し募集中。。。 2013/10/15(火) 08:02:28.33 0
俺も全然分からないけど同じファイル名のファイルを表示？
8: 名無し募集中。。。 2013/10/15(火) 08:03:48.42 0
そうフォルダ比較してダブってるファイルをリストアップするだけ
9: 名無し募集中。。。 2013/10/15(火) 08:04:51.41 0
cd folder2
ls `ls folder1` 2>/dev/null
それならこれでできるんじゃない
ls `ls folder1` 2>/dev/null
それならこれでできるんじゃない
10: 名無し募集中。。。 2013/10/15(火) 08:06:28.93 0
>>9
ls使うのは間抜け
ls使うのは間抜け
12: 名無し募集中。。。 2013/10/15(火) 08:07:26.09 0
>>10
他にどんなコマンドあるの？
それシェルスクリプトだけど
他にどんなコマンドあるの？
それシェルスクリプトだけど
13: 名無し募集中。。。 2013/10/15(火) 08:10:26.87 0
>>9
その方が簡単だったか
俺はこういうの慣れてなくて駄目だな
その方が簡単だったか
俺はこういうの慣れてなくて駄目だな
11: 名無し募集中。。。 2013/10/15(火) 08:06:55.69 0
＞ open my $pipe1, '-|', "ls -1 " . $folder1
＞ or die qq/Can't open pipe: $!/;
ここはこれでええやん
opendir $folder1, $folder1 or die qq/Can't opendir: $!/;
＞ or die qq/Can't open pipe: $!/;
ここはこれでええやん
opendir $folder1, $folder1 or die qq/Can't opendir: $!/;
14: 名無し募集中。。。 2013/10/15(火) 08:12:07.13 0
perlを使うにしても List::Compare とか大げさに持ち出すのは醜い
16: 名無し募集中。。。 2013/10/15(火) 08:15:09.04 0
>>14
でも車輪の再発明するのは避けたくない？
でも車輪の再発明するのは避けたくない？
17: 名無し募集中。。。 2013/10/15(火) 08:17:06.41 0
>>16
List::Compare のモジュールはcpanとか使って設定したの？
あれ面倒くさくて苦手だ
List::Compare のモジュールはcpanとか使って設定したの？
あれ面倒くさくて苦手だ
20: 名無し募集中。。。 2013/10/15(火) 08:20:16.33 0
>>17
コンソールから
cpan
install List::Compare
これだけだから超簡単じゃない？
コンソールから
cpan
install List::Compare
これだけだから超簡単じゃない？
27: 名無し募集中。。。 2013/10/15(火) 08:28:54.37 0
>>20
あれそんな簡単だったかだいぶ前の事で忘れてたごめん
ところで最近パッケージ管理が増えまくってキモくなってしまった
svn, cvs, git, pip, gem, elpa...もう嫌だ
あれそんな簡単だったかだいぶ前の事で忘れてたごめん
ところで最近パッケージ管理が増えまくってキモくなってしまった
svn, cvs, git, pip, gem, elpa...もう嫌だ
29: 名無し募集中。。。 2013/10/15(火) 08:33:03.44 0
>>27
バージョン管理だ何だって面倒臭いよね
バージョン管理だ何だって面倒臭いよね
19: 名無し募集中。。。 2013/10/15(火) 08:18:12.99 0
>>16
あんた知能指数低いの？
ハッシュにファイル名を入れれば
共通部分でも差分でもフォルダーが3つ以上になってもなんでも対応できる
あんた知能指数低いの？
ハッシュにファイル名を入れれば
共通部分でも差分でもフォルダーが3つ以上になってもなんでも対応できる
22: 名無し募集中。。。 2013/10/15(火) 08:22:09.53 0
>>19
なんでそんなカリカリしてるのよ
目的通りの結果が得られて本人が満足すればいいじゃない
なんでそんなカリカリしてるのよ
目的通りの結果が得られて本人が満足すればいいじゃない
24: 名無し募集中。。。 2013/10/15(火) 08:22:39.93 0
>>19
なんでもかんでも自分でコーディングするのはもう時代遅れじゃないかな
なんでもかんでも自分でコーディングするのはもう時代遅れじゃないかな
15: 名無し募集中。。。 2013/10/15(火) 08:13:02.70 0
俺も昨日のカタカタ書いてた
たまーにスレ一覧のスナップショットとるんで
何時何分(10分単位)のスナップショット持ってるかを
ロックマンのパスワード風に表示するやつ
なんの意味もないけど
1 2 3 4 5 6 (これが分)
0
1 o
~~~~全然ないので省略
9 o o
10 o o
11 o o o
12 o
~~~~以下24まで続く
たまーにスレ一覧のスナップショットとるんで
何時何分(10分単位)のスナップショット持ってるかを
ロックマンのパスワード風に表示するやつ
なんの意味もないけど
1 2 3 4 5 6 (これが分)
0
1 o
~~~~全然ないので省略
9 o o
10 o o
11 o o o
12 o
~~~~以下24まで続く
26: 名無し募集中。。。 2013/10/15(火) 08:26:16.98 0
自分でコーディング出来ない人はちょっと応用しないといけなくなるとお手上げ
28: 名無し募集中。。。 2013/10/15(火) 08:31:58.86 0
>>26
コーディングできないわけじゃなくて既存のモジュールで出来ることは
そっちに任せてるだけだから
コーディングできないわけじゃなくて既存のモジュールで出来ることは
そっちに任せてるだけだから
31: 名無し募集中。。。 2013/10/15(火) 08:44:04.42 0
Emacs 24 にアップデートしたけど思った以上に便利になった
33: 名無し募集中。。。 2013/10/15(火) 09:09:01.82 0
バブルソートがわからなくて挫折した
34: 名無し募集中。。。 2013/10/15(火) 09:15:49.12 0
数値計算に使ってるけどPerl便利だよね
計算自体はCでやってるけど結果の整理出力とかはPerlならサッと出来て良い
計算自体はCでやってるけど結果の整理出力とかはPerlならサッと出来て良い
41: 名無し募集中。。。 2013/10/15(火) 11:05:53.67 0
>>34その使い方に興味があるんだよなあ
Cで必死こいて幾つものフォルダに分けながら出力、は出来るんだよ
でもそれをもう一回、条件を分けて各フォルダからCSVファイルのこの部分だけ切り出して
一つのファイルに並べて出力、なんてのはperlに任せたほうが良い、と聞いていた
Cで必死こいて幾つものフォルダに分けながら出力、は出来るんだよ
でもそれをもう一回、条件を分けて各フォルダからCSVファイルのこの部分だけ切り出して
一つのファイルに並べて出力、なんてのはperlに任せたほうが良い、と聞いていた
35: 名無し募集中。。。 2013/10/15(火) 09:15:58.78 0
昔学生の頃にソートのプログラム何種類も作ったな
今じゃバブルソートとかちっとも思い出せないけど
今じゃバブルソートとかちっとも思い出せないけど
36: 名無し募集中。。。 2013/10/15(火) 09:17:56.32 0
スクリプトだからコンパイル要らないしね
最近じゃもうCとかC++とかでプログラミングすることなくなったな
最近じゃもうCとかC++とかでプログラミングすることなくなったな
37: 名無し募集中。。。 2013/10/15(火) 09:28:59.58 0
Wolfpedia 復活してくれないかな
39: 名無し募集中。。。 2013/10/15(火) 10:24:55.56 0
パイソンお勧め
40: 名無し募集中。。。 2013/10/15(火) 10:44:05.15 0
ハロ個別相場のサイト人いる？
ああいうのやろうか悩んでるんだが
ああいうのやろうか悩んでるんだが
44: 名無し募集中。。。 2013/10/15(火) 12:40:41.28 0
perl書けるけど他人のは読めないし
自分のも古いと読めないな
自分のも古いと読めないな
45: 名無し募集中。。。 2013/10/15(火) 13:02:46.50 0
>>40
http://6460715.smallvictori.es/
のこと?
なら、オレだけど
オレはrubyとRを使ってて、perlは10年以上前に足を洗ったので>>44状態
>ああいうのやろうか悩んでるんだが
オークファンから落として数値をまとめるだけなら、結構簡単だよ
一番大変だったのは出典の内容から枚数を判定するところ
http://6460715.smallvictori.es/
のこと?
なら、オレだけど
オレはrubyとRを使ってて、perlは10年以上前に足を洗ったので>>44状態
>ああいうのやろうか悩んでるんだが
オークファンから落として数値をまとめるだけなら、結構簡単だよ
一番大変だったのは出典の内容から枚数を判定するところ
42: 名無し募集中。。。 2013/10/15(火) 11:13:09.72 0
http://www.kent-web.com/perl/
http://www.kent-web.com/perl/chap9.html
ディレクトリ操作なんて昔はPC弄りで必須だったのに
今じゃクリック1発だから誰も覚えないねえｗ
http://www.kent-web.com/perl/chap9.html
ディレクトリ操作なんて昔はPC弄りで必須だったのに
今じゃクリック1発だから誰も覚えないねえｗ
43: 名無し募集中。。。 2013/10/15(火) 11:18:24.44 0
findやらxargsやらで大部分は事足りちゃうからなあ
上でも言われてるけど車輪の再発明はできるだけ避けたい
上でも言われてるけど車輪の再発明はできるだけ避けたい
No comments :
Post a Comment