Daily Archives: 2012年7月13日

post by yamamoto | | 0 | 711 views

perl メモ 配列のある要素の後ろに挿入

@array =  (1, 2, 3, 5, 6); @array = insert2array( 5, 4, @array); sub insert2array {     my $front = shift;     my $me = shift;     my @list = @_;     my @output;         #print "$#list\n";     #print "$front => $me \n";     if ($#list < 0){         push @output, $me;     } else {             foreach my $item (@list){             if ($item ...

post by yamamoto | | 0 | 580 views

一行コマンド ファイル一覧

データ処理した途中の履歴ファイルの一覧を出すため、 この一行で出せます。 ls -l section_structure_*.csv |awk '{print $9}' section_structure_1341980953.csv section_structure_1341999986.csv section_structure_1342001339.csv section_structure_1342060694.csv section_structure_1342061705.csv section_structure_1342066473.csv section_structure_1342066838.csv section_structure_1342067415.csv section_structure_1342067939.csv section_structure_1342068406.csv section_structure_1342069234.csv section_structure_1342070617.csv section_structure_1342071515.csv section_structure_1342072417.csv section_structure_1342073485.csv