TCL Script exec perl?!?

[Netgrabber]

I need a tcl script that runs a perl script every 10 min and says the perl output in a channel.

How do I do that????

[ppslim]

Code: Select all

proc sendperl {} {
  foreach a [split [exec perl command here] \n] {
    puthelp "PRIVMSG #channelnamehere :$a"
  }
  timer 10 sendperl
}
timer 10 sendperl

This works, and it usable, but could do with a lot of work, to provent multiple timers and such.

[Netgrabber]

bind pub - !check sendperl
proc sendperl {} {
foreach a [split [exec /home/netgrabber/kuebel/scripts/test.pl] \n] {
puthelp "PRIVMSG #mychannel :$a"
}
timer 10 sendperl
}
timer 10 sendperl


-> [15:02] Tcl error [sendperl]: called "sendperl" with too many arguments

[ppslim]

Why have you used a bind?

There is no need to do this.

You stated you needed a script that would do one job, not two.

If you do need the bind, then see tcl-command.doc for the required arguemnts for this sort of thing.

[Netgrabber]

I don't need bind....

But it helps me to debugging the script

[Netgrabber]

Can I ask you in on irc channel?

[ppslim]

PPslim on efnet