Opened by cc at 2004-01-11 17:49
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
Net::Ping läuft nicht unter Windows, wenn man Perl 5.6.x hat, weil dort $SIG{ALRM} auch nicht funktioniert. Mit 5.8.x habe ich $SIG{ALRM} zum laufen bekommen. Net::Ping hatte ich auf Arbeit gebraucht, da habe ich aber noch die alte Perl-Version, also rufe ich es so auf:
Ach und Mails senden kann ich auch nicht portabel. Es gibt keinen SMTP-Server, ich muß dafür Win32::OLE nehmen.\n\n
<!--EDIT|steffenw|1078264803-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
sub Ping
{ my $ip = shift; # Übergabe IP-Adresse
my $pingmax = PingMax;
my $answer = `ping -w 1000 -n $pingmax $ip`;
DosToWin \$answer; # Umlaute umwandeln
my $number = scalar $answer =~ s/(Bytes=32)/$1/mg;
$number == PingMax or do
{ $answer =~ s/^\s*\n//; # führende Leerzeilen löschen
$answer =~ s/\n\s*\n/\n/g; # Leerzeilen löschen
};
return $number;
}
Ach und Mails senden kann ich auch nicht portabel. Es gibt keinen SMTP-Server, ich muß dafür Win32::OLE nehmen.\n\n
<!--EDIT|steffenw|1078264803-->
$SIG{USER} = sub {love 'Perl' or die};