コンテンツへスキップ

#---------------------------------------------------------------------------------------------------
# gawkの使い方
#---------------------------------------------------------------------------------------------------

matsumoto@lvs1:/tmp$ cat list
11111:aaaaa:AAAAA
22222:bbbbb:BBBBB
33333:ccccc:CCCCC
44444:ddddd:DDDDD
55555:eeeee:EEEEE
11111:33333:FFFFF

# 先頭が11111または33333で始まる行を抽出する。
matsumoto@lvs1:/tmp$ cat list | gawk '{ if ($1 ~ /^11111/ || $1 ~ /^33333/) print $0 }'
11111:aaaaa:AAAAA
33333:ccccc:CCCCC
11111:33333:FFFFF

# 行末がDDDDDで終わる行を抽出する。
matsumoto@lvs1:/tmp$ cat list | gawk '{ if ($1 ~ /DDDDD$/ ) print $0 }'
44444:ddddd:DDDDD

# デリミッタ:の1カラム目が11111、2カラム目が33333の行を抽出する。
matsumoto@lvs1:/tmp$ cat list | gawk -F':' '{ if ($1 ~ /11111/ && $2 ~ /33333/) print $0 }'
11111:33333:FFFFF

# 先頭が11111で無い行を抽出する。
matsumoto@lvs1:/tmp$ cat list | gawk '{ if ($1 !~ /^11111/ ) print $0 }'
22222:bbbbb:BBBBB
33333:ccccc:CCCCC
44444:ddddd:DDDDD
55555:eeeee:EEEEE

"c:\Program Files (x86)\WinSCP\WinSCP.exe" /console /script="e:\tmp\test.upfile"

スクリプトファイル
===================================
option batch on
open <アカウント>:<パスワード>@<ホスト>
cd <ホストのディレクトリ>
option transfer binary
lcd <ローカルのディレクトリ>
put <アップロードするファイル名>  
get <ダウンロードするファイル名>
exit
===================================

ex)アップロード
===================================
option batch on
open matsumoto:password@192.168.46.151
cd /home/matsumoto
option transfer binary
lcd "e:\tmp"
put test.txt
exit
===================================

ex)ダウンロード
===================================
option batch on
open matsumoto:password@192.168.46.151
cd /home/matsumoto
option transfer binary
lcd "e:\tmp"
get test_download.txt
exit
===================================

#include 
#include 
#include 

#define S(a) (sizeof(a)/sizeof(a[0]))

int x[] = { 56, 10, 39, 15, 20, 62, 14, 39, 77, 17 };

void swap(int i, int j)
    {
    int t = x[i];
    x[i] = x[j];
    x[j] = t;
    }


void quicksort(int l, int u)
    {
    int i, m;
    if (l >= u) return;
    swap(l, randint(l,u));
    m = l;
    for ( i = l+1; i <= u; i++)
        if (x[i] < x[l])
            swap(++m, i);
    swap(l,m);
    quicksort(l, m-1);
    quicksort(m+1,u);
    }

int randint(int l, int u) {
    return rand()%(u-l+1)+l;
}

int main(void)
    {
    int i;
    srand(time(NULL));
    quicksort(0,S(x)-1);
    for (i = 0; i < S(x); i++)
        {
        printf("%d ", x[i]);
        }
    printf("\n");
    return 0;
    }

#!/usr/bin/perl
@A = ( 1000, 10000, 1001, 1002, 1003, 10030 ,10011,);
foreach $val (@A) {
        print "asigned number = [". $val . "]\n";
}

for ( my $i = 1000; $i < 99999; $i++ ) {
        print "i = [" . $i . "]\n";
        if ( ! grep($_ eq $i, @A ) ) {
                $unsignedNumber = $i;
                last;
        }
}

print "unasigned number = [" . $unsignedNumber . "]\n";