Opened by guest newbie at 2009-09-24 11:34
Danke erstmal für die super Hinweise. :)
Hier der code wie er momentan ausschaut. Die angesprochenen Probleme mit qx habe ich bereits. Kann ich das nicht mit
besser machen?
Und wie mach ich die Abfrage ob wget das pattern finden konnte? Unter /bin/sh würde ich einfach $? auswerten.
Kann das perl auch?
Hier der code wie er momentan ausschaut. Die angesprochenen Probleme mit qx habe ich bereits. Kann ich das nicht mit
Code: (dl
)
system
Und wie mach ich die Abfrage ob wget das pattern finden konnte? Unter /bin/sh würde ich einfach $? auswerten.
Kann das perl auch?
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
use strict;
use warnings;
# Config-Datei
my $config = './webpage_check.cfg';
# Oeffne Datei zum Lesen, bei Fehler brich ab
open my $fh, '<', $config or die $!;
# Lese jede Zeile ein
while( my $line = <$fh> ) {
# teile Zeile an Tabulator und nimm die Elemente
my ($fqdn) = (split /\t/, $line)[0];
print $fqdn;
my ($svc_id) = (split /\t/, $line)[1];
print $svc_id;
my ($comment) = (split /\t/, $line)[2];
print $comment;
my ($url) = (split /\t/, $line)[3];
print $url;
my ($pattern) = (split /\t/, $line)[4];
print $pattern;
# uebergib URL an wget
my $content = qx{ /usr/sfw/bin/wget -t 2 -T 5 -S -O - $url | grep "$pattern" };
print $content
}
close $fh;