1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| #!/bin/csh
set directory = "/media/DATAPART1/PS/"
cd $directory
set l = 1
set nb_fich = `ls PS-*.txt | wc -l`
ls PS-*.txt > nom_fich
while($l <= $nb_fich)
set filename = `head -n $l nom_fich | tail -1`
set file = `echo $filename | awk '{print $l}'`
set numel = `cat $directory$file | wc -l`
set i = 1
set num = 24
while ($i <= $num)
set line = `head -n $i $directory$file | tail -1`
set line = `echo $line | sed 's/[:]/ /g'`
set line = `echo $line | sed 's/[/]/ /g'`
set line = `echo $line | sed 's/[-]/ /g'`
set nom = `echo $line | awk '{print $1}'`
set value = `echo $line | awk '{print $2}'`
if($nom == "cbeg")then
set c1 = $value
echo $nom ":" $value
endif
if($nom == "cend")then
set c2 = $value
echo $nom ":" $value
endif
if($nom == "Intertrace")then
set det = $value
echo $nom ":" $value
endif
if($nom == "dist_piq0")then
set diff0 = $value
#echo $nom ":" $value
endif
if($nom == "Diff_elec")then
set diffelec = $value
#echo $nom ":" $value
endif
if($nom == "perp")then
set typa = $value
#echo $nom ":" $typa
endif
@ i++
end |
Partager