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
(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/ |