Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re^2: TK Toplevel Window List

by Anonymous Monk
on Feb 12, 2013 at 20:44 UTC ( #1018444=note: print w/replies, xml ) Need Help??

in reply to Re: TK Toplevel Window List
in thread TK Toplevel Window List

Thanks! The ...->interps ... works great on the Linux side with X11. Thought maybe there was a data structure in the Perl interpreter which could be queried for all of the windows so it was OS independent. Sounds like not. Appreciate all of the help!!! Thanks!

Replies are listed 'Best First'.
Re^3: TK Toplevel Window List
by Anonymous Monk on Feb 13, 2013 at 17:02 UTC

    Finally was able to retrieve the window list from Perl

    Win32 using some ugly code:<\p>

    if ($^O eq "MSWin32") { my @pt = `tasklist /v`; # Get the process list from Windows (NT, 2 +K, XP, 7) foreach my $p (@pt) # One process per line { if ($p =~ m/perl\.exe/ig) # Keep only the Perl processes { my @p2 = split(/\s+/, $p, 11); # Any space after 11 is par +t of the window title my $nm = $p2[10]; $nm =~ s/\s+$//g; # Remove trailing whitespace ... } } } else { # Use interps approach }

    Thanks again for the great inputs!

      Ay carumba, so you're not gonna search Tk::Wm documentation for list?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018444]
[Perl300]: secure in sense it should not cause any security concerns, create some loop holes.... I don't know much about it but don't want to cause any problem for security guys here
[Perl300]: I used sendmail before for a few times but read that is causes some security issues so trying something better/secure this time
[1nickt]: If you use a remote SMTP server there should be no local security issues. Your mail server probably wants an encrypted connection, so the message contents cannot be stolen.
[jedikaiti]: Greetings, Salutations, and all that Jazz
[Perl300]: ok, and for future if I want to use local box for something similar, then will Email::Sender:: Simple be a good choice?
[1nickt]: It's a framework that allows you to specify the Transport agent to whatever you want. You could even write your own.
[1nickt]: Perl300 More doc
[hippo]: In that case, use Net::SMTPS and also encrypt your content before you send it eg. with Crypt::GPG

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (11)
As of 2017-10-17 16:03 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (234 votes). Check out past polls.