note
tobyink
<p>If you can persuade the [mod://Wx] module to install on your system (WxWidgets does work on Mac, so it should theoretically, and according to the CPAN testers service there are successful install reports from Mac OS X), then you could investigate my [mod://Ask] module. It's as simple as:</p>
<c>
use Ask qw( file_selection info );
my $file = file_selection("Please choose a file!");
info("You chose: $file");
</c>
<p>Then Ask does the rest. If the user has run your script through the Mac terminal, Ask should detect this, and to input and output via the terminal. If they've launched your script by, say, double clicking it in Finder, it will notice there's no terminal and interact with the user via dialog boxes.</p>
<p>I do keep meaning to write a <a href="http://blogs.perl.org">blogs.perl.org</a> post about Ask.</p>
<p><b>Update:</b> blog post written... <a href="http://blogs.perl.org/users/toby_inkster/2013/01/ask-not-what-your-user-can-do-for-you.html">Ask not what your user can do for you...</a></p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=&#x5B;caller(0)]->&#x5B;3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1013934
1013934