Hej Janus
Janus Sandsgaard <spam@janus.dk> wrote:
> sadyhr@mail.tele.dk (Sebastian Adorján Dyhr) writes:
>
> > Skal jeg sende dig en screndump af et Macperl-vindue????
>
> Ja, hvis det er pænt og illustrativt.<tm>.
Specielt pænt er det næppe, det er bare en æble-skift-tre af noget kode
i stil med flg, som du selv må afgøre, om er pænt
/Seb
Perl -Sx "{0}"; Exit {Status}
#!perl
use Text::ParseWords;
use Mac::AppleEvents;
$line = MacPerl::Ask("Command line to execute:")
or exit 0;
@cooked = "ewords('\s+', 0, $line);
@raw = "ewords('\s+', 0, $line);
for $cooked (@cooked) {
$raw = shift @raw;
if ($cooked !~ /[*?]/ || $raw =~ /['"\\]/) {
push(@done, $cooked);
} else {
push(@done, glob $cooked);
}
}
if ($done[0] eq "perl") {
shift @done;
}
$args = "{\"" . join("\", \"", map { s/(["'])/\\$1/g; $_ } @done) .
"\"}";
MacPerl::DoAppleScript qq{
tell the current application
ignoring application responses
do script $args
end ignoring
end tell
}
# $args = "["" . join("", "", @done) . ""]";
#
# $evt = AEBuildAppleEvent("misc", "dosc", typeApplSignature, "McPL", 0,
0,
# "'----': $args") or die $^E;
# $rep = AESend($evt, kAENoReply) or die $^E;
#
# AEDisposeDesc $evt;
# AEDisposeDesc $rep;
>
> -j
--
Sebastian Adorján Dyhr -- sadyhr@mail.tele.dk
Jettesvej 3, 2. TH --
http://home6.inet.tele.dk/sadyhr
DK-8220 Brabrand - +45 86 25 10 50