Help for this page

Select Code to Download


  1. or download this
    for my $server (@servlist) {
   my @cmd = `pulldata -e $server`;
   for (@cmd) {
      ...
  2. or download this
       #if ($line =~ '^\s+(\w+):\s.*')
    if ($line =~ /^\s+(\w+):\s/)