TWNet

Eyy mensen,

ik had eens ff een vraagje, ik ben wat aan het spelen met applescript, en vroeg me af of iemand kon helpen.

Ik probeer via een heeeeeeel simpel applescriptje:

Code: Selecteer alles

tell application "iTunes"
   "iTunes is currently playing: " & artist of current track ¬
      & " - " & name of current track ¬
      & " - " & album of current track ¬
      & " - " & time of current track
end tell


het nummer dat ik beluister laten tonen in x-chat aqua (mIRC variant voor apple).

De volgende regel code is nodig om het te tonen in het x-chat window:

Code: Selecteer alles

exec -o osascript /Users/wesleydegast/xchatscripts/iTunes_number.scpt


Wat het probleem is dat als ik het zo doe, hij het in een gewone regel zet, maar ik wil het in een "/me" regel. Nu is het command in x-chat daarvoor, gewoon het woord "me", maar als ik dat neerzet dan zet hij letterlijk de hierbovenstaande code neer (niet het applescript maar de x-chatlijn).

Heeft iemand enig idee hoe ik dit zou kunnen oplossen, heb al dingen geprobeerd, om het tussen "" te zetten of ' ' of // of whatever, maar het wil niet. Ik weet dat het niet aan het applescript ligt maar aan het lijntje in x-chat, maar ik dacht ik zal het er toch even bij doen.

en als je nou de '/me' in het applescriptje zet??

Code: Selecteer alles

tell application "iTunes"
   "/me is currently playing: " & artist of current track ¬
      & " - " & name of current track ¬
      & " - " & album of current track ¬
      & " - " & time of current track
end tell

Of ipv "/me" "describe" zo werkt het in mIRC.

how about this:

Using backquotes to capture output
With both system and exec, the output of the launched command ends up in the Perl's STDOUT. Sometimes, it's interesting to capture that output as a string value to perform further processing. This can be done simply by creating a string using backquotes instead of double quotes:

Code: Selecteer alles

$date = "date";
my $now = `$date`;
print "Time now is: $now";

When we placed date in backquotes, Perl executes date command, arranging the standard output to be captured as a string value, and in this case assigned to the $now variable.

als ik dat een beetje vertaal naar jouw situatie zou het dit ongeveer worden gok ik (totaal geen verstand van Perl of x-chat )

Code: Selecteer alles

sub np
{
   my $code = "exec -o osascript /Users/wesleydegast/xchatscripts/iTunes_number.scpt";
   my $np = `$code`;
   Xchat::command( "me $np" );
}

ik weet echt niet of dit gaat werken, het is alleen iets wat ik na wat research heb samen kunnen stellen