File: delrows

package info (click to toggle)
lrslib 0.73-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 16,888 kB
  • sloc: ansic: 20,893; sh: 279; makefile: 252; perl: 97; csh: 51
file content (14 lines) | stat: -rwxr-xr-x 211 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/bin/csh

set n=3
set arr = ( 1 2 3 )
echo $arr
set j = $n
cp $1 $1.tmp 
while ( $j > 0 )
   echo $arr[$j]
   cat $1.tmp | inedel  $arr[$j] >! $1.tmp.out
   mv -f $1.tmp.out $1.tmp
   cat $1.tmp
   @ j-- 
end