egghelp/eggheads community

TCL Script exec perl?!?

2002-11-01T10:35:16-04:00

PPslim on efnet

Statistics: Posted by ppslim — Fri Nov 01, 2002 10:35 am

TCL Script exec perl?!?

2002-11-01T10:16:28-04:00

Can I ask you in on irc channel?

Statistics: Posted by Guest — Fri Nov 01, 2002 10:16 am

TCL Script exec perl?!?

2002-11-01T10:10:39-04:00

I don't need bind....

But it helps me to debugging the script

Statistics: Posted by Guest — Fri Nov 01, 2002 10:10 am

TCL Script exec perl?!?

2002-11-01T10:07:04-04:00

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.

Statistics: Posted by ppslim — Fri Nov 01, 2002 10:07 am

TCL Script exec perl?!?

2002-11-01T10:03:44-04:00

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

Statistics: Posted by Guest — Fri Nov 01, 2002 10:03 am

TCL Script exec perl?!?

2002-11-01T09:19:34-04:00

Code:

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.

Statistics: Posted by ppslim — Fri Nov 01, 2002 9:19 am

TCL Script exec perl?!?

2002-11-01T09:06:38-04:00

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????

Statistics: Posted by Guest — Fri Nov 01, 2002 9:06 am