Re^2: Resource Hog

Thank you for support regarding this question! One other question regarding this, do you think it would help solve this trouble to have the Expect code written in Perl? The current Expect code is the original stuff and is not the Perl version.

Comment on Re^2: Resource Hog

Replies are listed 'Best First'.
Re^3: Resource Hog by starbolin (Hermit) on Apr 07, 2005 at 21:31 UTC
Are you talking about Don Libes' Expect written in Tcl? The picture I'm begining to get is of a Perl script calling a Tcl script which causes a dump to STDOUT. Is this correct? The problem then would be in the character based handling of a file instead of a protocol more appropriate for transfering large files over high latency links. The language the scripting is written in is not an issue. The first thing I would do would be to rewrite the Expect script to use FTP instead of a dump to STDOUT. Playing with nice and such won't do you any good as much of the time is being spent in doing I/O and the OS sees the activity in STDIO and overides the priority. s//----->\t/;$~="JAPH";s//\r<$~~/;{s\|~$~-\|-~$~\|\|\|s \|-$~~\|$~~-\|\|\|s,<$~~,<~$~,,s,~$~>,$~~>,, $\|=1,select$,,$,,$,,1e-1;print;redo}	[reply]

Replies are listed 'Best First'.

Re^3: Resource Hog
by starbolin (Hermit) on Apr 07, 2005 at 21:31 UTC

Are you talking about Don Libes' Expect written in Tcl? The picture I'm begining to get is of a Perl script calling a Tcl script which causes a dump to STDOUT. Is this correct? The problem then would be in the character based handling of a file instead of a protocol more appropriate for transfering large files over high latency links. The language the scripting is written in is not an issue. The first thing I would do would be to rewrite the Expect script to use FTP instead of a dump to STDOUT.

Playing with nice and such won't do you any good as much of the time is being spent in doing I/O and the OS sees the activity in STDIO and overides the priority.

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

[reply]