编程练习2-筛选出及格和不及格的人从高到底排列

有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

tcl

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

#incr i
#}
close $fp

以下为程序运行结果：