本文共 557 字，大约阅读时间需要 1 分钟。

有txt文件第一列是姓名，第二列是分数，筛选出及格和不及格的人从高到底排列

shell

#!/bin/bashsort -n -r -k  2 grade.txt > grade_sort.txtawk '{if($2<60) print $0}' grade_sort.txt > fail.txtawk '{if($2>=60) print $0}' grade_sort.txt > pass.txt

tcl

set name {}set grade {}set fp [open grade.txt r]while {[gets $fp line]!=-1} {set list1 [split "$line"]puts $list1lappend name [lindex $list1 0]lappend grade [lindex $list1 end]}puts $nameputs $gradeset newgrade [lsort -integer -decreasing $grade]puts $newgrade#set length [llength $newgrade]#i=0#while {[$i < $length]} {#incr i#}close $fp

以下为程序运行结果：

转载地址：https://blog.csdn.net/qq_36480087/article/details/108502001 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！