Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
Works, but could I eliminate the "perl \strawberry\c\bin\":
C:\>perl \strawberry\c\bin\ -l diebelr -s dynprod,aimprod
Getopt fails:
C:\> -l diebelr -s dynprod,aimprod XX 0 YY 0 Use of uninitialized value $LGN in concatenation (.) or string at C:\s +trawberry\ c\bin\ line 43, <DATA> line 101. Use of uninitialized value $LGN in concatenation (.) or string at C:\s +trawberry\ c\bin\ line 47, <DATA> line 101.
Can't find script:
C:\>perl -l diebelr -s dynprod,aimprod Can't open perl script "": No such file or directory
@INC & path:
C:\>perl -e "print @INC;" <code> C:/strawberry/perl/site/libC:/strawberry/perl/vendor/libC:/strawberry/ +perl/lib. C:\>path PATH=C:\winnt\system32;C:\winnt;C:\winnt\system32\WBEM;C:\Program File +s\Personal Communications;C:\DST\AWDView\BIN;C:\DST\AWDView\DLL;c:\dst\bin;c:\ds +t\awdwin\b in;C:\DST\EnCorr\BIN;c:\dst\bin;C:\Program Files\Support Tools\;C:\Pro +gram Files \Sybase\Adaptive Server Anywhere 6.0\win32;C:\DST\ICU;C:\Program Files +\ATI Techn ologies\ATI Control Panel;C:\PROGRA~1\CA\SHARED~1\SCANEN~1;C:\Program +Files\CA\S haredComponents\ScanEngine;C:\Program Files\Hitec Laboratories\Shared\ +APDFL\Bin; C:\Notes;C:\Program Files\Utimaco\SafeGuard Easy\;C:\PROGRA~1\IBM\CLIE +NT~1;C:\PR OGRA~1\IBM\CLIENT~1\Shared;C:\Program Files\putty;C:\strawberry\c\bin; +C:\strawbe rry\perl\site\bin;C:\strawberry\perl\bin;C:\winnt\system32\WindowsPowe +rShell\v1. 0;C:\DST\BIN
The script minus the DATA section:
#!/usr/bin/perl #!C:\strawbery\perl\bin\perl.exe #<> Run a command or program on a group of Systems use strict; use warnings; use File::Basename; use Getopt::Long; qw(); my ($SysGroup, $HFILE, $SYS, @libfiles, @finfo, @DataList, @SysLst, @P +arts, @Systems, @LIST, $LstCnt, $LINE, $truth, $sys, @list, $list, @c +olumns, $LOGIN, $Sup, $LGN, $GRP, @systems, $GrpCnt, @group, $SysCnt, + $grp, @Fields); GetOptions ("systems=s" => \$SYS , "login=s" => \$LGN , "group=s" => \ +$GRP ); @group = split(/,/, $GRP) if($GRP); @systems = split(/,/, $SYS) if($SYS); $GrpCnt=@group; $SysCnt=@systems; print "@list XX $GrpCnt YY $SysCnt\n"; @DataList = grep !/^\x23/, <DATA>; $truth=0; foreach $LINE (@DataList) { @Fields=split(/:/, $LINE); if($GRP) { foreach $grp (@group) { if ( "$LINE" =~ /:$grp:/){ $truth++; } } if ( $truth == $GrpCnt ) { push(@SysLst, $Fields[1]); } $truth=0; } elsif ($SYS) { foreach $sys (@systems) { if ( "$LINE" =~ /:$sys:/){ push (@SysLst, $Fields[1]); } } } } print "@SysLst\n"; print "$LGN\n"; my $cmd="start kitty.exe"; #my $args=" -l $LGN -agent -i \"C:\Program Files\PuTTY\MyKeys\RsaKey.p +pk\" -load "; my $args=" -l $LGN -load "; sub run_in_bg; $Sup="i"; foreach my $System (@SysLst) { print "$System\n"; run_in_bg "$cmd $args $System$Sup"; } sub run_in_bg { my $pid = fork; die "Can't fork a new process" unless defined $pid; # child gets PID 0 if ($pid == 0) { exec(@_) || die "Can't exec $_[0]"; } # in case you wanted to use waitpid on it #return $pid; } __DATA__ a list of systems...

In reply to Re^4: Windows strawberry perl Getopt::Long fails by Saved
in thread Windows strawberry perl Getopt::Long fails by Saved

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and all is quiet...

    How do I use this? | Other CB clients
    Other Users?
    Others imbibing at the Monastery: (9)
    As of 2018-06-22 19:34 GMT
    Find Nodes?
      Voting Booth?
      Should cpanminus be part of the standard Perl release?

      Results (124 votes). Check out past polls.