[PD] displaying long text in GEM

Maybe it could be some help, a perl script that send texts converted into ascii numbers with pdsend, and an example patch for receiving

#!/usr/bin/perl

use IO::Socket;

$socket = new IO::Socket::INET (PeerAddr => "localhost", PeerPort => 3000, Proto => "tcp", Type => SOCK_STREAM) or die "Can't connect $!\n"; if (@ARGV == 0) { print "Enter filename:"; chomp($fname = <STDIN>); } else { $fname = $ARGV[0]; } open (FPTR,$fname) || die "Can't Open File: $fname\n"; while ($ligne = <>){

@ascii = unpack("C*", $ligne);
foreach $val (@ascii) { print $socket "$val "; } } print $socket ";";