Thread Datei mit x Zeilen und 5 Spalten auslesen | wget $1 $2 $3 usw. (25 answers)
Opened by guest newbie at 2009-09-24 11:34

renee
 2009-09-24 12:18
#126169 #126169
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
(ungetestet)
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl

use strict;
use warnings;

# Config-Datei
my $config = '/path/to/config.txt';

# 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 4. Element
    my ($url) = (split /\t/, $line)[3];

    # uebergib URL an wget
    my $content = qx{ wget $url | grep "String to check" };

    print $content
}
close $fh;


Lesestoff:
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Datei mit x Zeilen und 5 Spalten auslesen | wget $1 $2 $3 usw.