http://grimore.i2p/networking/wake_on_lan/generating_wol_packets
; close S ; } # # process_file # sub process_file { my $filename = shift ; my ( $hwaddr , $ipaddr , $port , $password ) ; open ( F , "<$filename" ) or die "open : $!" ; while ( <F> ) { next if /^\s*#/ ; # ignore comments next if /^\s*$/ ; # ignore empty lines chomp ; ( $hwaddr , $ipaddr , $port , $password ) = split ;
wake ( $hwaddr , $ipaddr , $port , $password ) ; } close F ; }
# # Usage # sub usage { print << __USAGE__ ; Usage
wakeonlan [ - h ] [...