[PD] displaying long text in GEM

[Patrice Colet]

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 ";"; 

Gem-strings-test.pd
Description: application/puredata

_______________________________________________
PD-list@iem.at mailing list
UNSUBSCRIBE and account-management -> 
http://lists.puredata.info/listinfo/pd-list