qq_36480087的博客

使用Perl ，Tcl 或 C实现如下的功能： 从文件mail.list中读取联系人和联系邮箱，并在其中读取@nvidia.com的联系人，按字母表排序并写入nvidia.list。 mail.list文件内容大致类似如下: Jenny Jenny@163.com Jojo jojo@nvidia.com Keke keke@nvidia.com Lily lily@yahoo.com ...

初始文件a.txt a b c d e f o p q r s t 处理后文件b.txt a b a b c d a b c d e f o p o p q r o p q r s t shell #!/bin/bash array1=($(awk '{print $1}' a.txt)) array2=($(awk '{print $2}' a.txt)) length=${#array1[@]} size=$[$length/2] cat /dev/null >b.txt rec=()

##### 有txt文件第一列是姓名，第二列是分数，筛选出及格和不及格的人从高到底排列 shell #!/bin/bash sort -n -r -k 2 grade.txt > grade_sort.txt awk '{if($2<60) print $0}' grade_sort.txt > fail.txt awk '{if($2>=60) print $0}' grade_sort.txt > pass.txt ...

输入姓，返回名 perl #!/usr/bin/perl %map=('Lebron'=> 'James','Paul'=> 'George'); #create hash while(defined($line= <STDIN>)){ #将键盘输入保存为变量$line if( $line eq "Lebron\n" ) {printf "$map{'Lebron'}\n"} elsif( $line eq "Paul\n" ) #注意回车符\n {pr