Opened by DRACO at 2006-07-26 19:30
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Ein paar allgemeine Anmerkungen:
*) Du solltest Dir angewöhnen,
use strict und use warnings zu verwenden. Jetzt mögen die Programme noch übersichtlich sein, aber die beiden Sachen helfen Dir, viele Fehler zu vermeiden.
*) Du solltest Fehler abfangen.
*) Du solltest angeben, für was die Datei öffnest (lesend, schreibend).
*) Du solltest chomp verwenden
*) Statt alles in ein Array einzulesen und dann das Array abzuarbeiten, solltest Du schon beim Einlesen die Zeile "verarbeiten"
Das ganze sieht dann so aus:
*) Du solltest Dir angewöhnen,
use strict und use warnings zu verwenden. Jetzt mögen die Programme noch übersichtlich sein, aber die beiden Sachen helfen Dir, viele Fehler zu vermeiden.*) Du solltest Fehler abfangen.
*) Du solltest angeben, für was die Datei öffnest (lesend, schreibend).
*) Du solltest chomp verwenden
*) Statt alles in ein Array einzulesen und dann das Array abzuarbeiten, solltest Du schon beim Einlesen die Zeile "verarbeiten"
Das ganze sieht dann so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
my $pfad ="ip.list";
open(DATEI, "<", $pfad) or die $!;
while(my $dip_tab = <DATEI>){
chomp $dip_tab;
system "nmap -v -A $dip_tab > C:/log/$dip_tab.log";
print "scann fertig auf: $dip_tab\n";
}
close DATEI;
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/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/