Opened by Gast at 2005-01-29 02:00
hallo,
ich gebe offen zu, ich habe von perl wenig ahnung.
momentan benutze ich ein shell-script dazu aus zwei text-files eine html zu machen. das dauert leider sehr lange. das source file ist zumindest über 6000 zeilen lang. ich vermute das liegt daran, daß die verwendeten utils einfach nicht für so einen zweck gemacht wurden...
und ich habe halt die hoffnung, dass das mit perl besser funktionieren würde
vielleicht ist ja hier jemand so nett und übersetzt mir die paar zeilen kurz, damit ich das ausprobieren kann.
das wäre sehr lieb
vielen dank im vorraus dafür
\n\n
<!--EDIT|renee|1106993737-->
ich gebe offen zu, ich habe von perl wenig ahnung.
momentan benutze ich ein shell-script dazu aus zwei text-files eine html zu machen. das dauert leider sehr lange. das source file ist zumindest über 6000 zeilen lang. ich vermute das liegt daran, daß die verwendeten utils einfach nicht für so einen zweck gemacht wurden...
und ich habe halt die hoffnung, dass das mit perl besser funktionieren würde
vielleicht ist ja hier jemand so nett und übersetzt mir die paar zeilen kurz, damit ich das ausprobieren kann.
das wäre sehr lieb
vielen dank im vorraus dafür
Code: (dl
)
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
#! /bin/bash
main() {
htmlhead "IP Tabelle"
tablehead
file2table ip xxx
tablefoot
htmlfoot
}
htmlhead() {
echo "<html><title>$1</title><body>"
}
htmlfoot() {
echo "</body></html>"
}
file2table() {
FILE=$1
HIGHLITE=$2
for LINE in $(cat $FILE.raw|tr " " "|"); do
HOST=`echo $LINE|cut -d "|" -f 2`
IP=`echo $LINE|cut -d "|" -f 3`
echo -n "<tr>"
if [ `echo $HOST|grep $HIGHLITE` ]; then
BA="<b>"; BE="</b>"
else
BA=""; BE=""
fi
echo -n "<td>$BA$HOST$BE</td><td>$BA$IP$BE</td>"
DESC=`cat $FILE.desc|grep $HOST|cut -f 2-`
if [ "$DESC" ]; then echo -n "<td>$BA$DESC$BE</td>"; fi
echo "</tr>"
done
}
tablehead() {
echo "<table>"
}
tablefoot() {
echo "</table>"
}
main
<!--EDIT|renee|1106993737-->