On Wed, 27 Dec 2006 13:36:23 -0500 zentara <[EMAIL PROTECTED]> wrote:
>In my learning phase, I find it very useful to dump out >piddles. However, if they are big, I get the >'TOO LONG TO PRINT' message. Well to partially answer my own question, I did do this redefine of a sub which works. Here is an example, you can reset $max_elem #!/usr/bin/perl use strict; use warnings; use PDL::LiteF; no warnings "redefine"; #see perldoc perllexwarn my $max_elem = 100000; # built-in default is 10000 sub PDL::Core::string { my ( $self, $format ) = @_; if ( $PDL::_STRINGIZING ) { return "ALREADY_STRINGIZING_NO_LOOPS"; } local $PDL::_STRINGIZING = 1; my $ndims = $self->getndims; if ( $self->nelem > $max_elem ) { return "TOO LONG TO PRINT"; } if ( $ndims == 0 ) { if ( $self->badflag() and $self->isbad() ) { return "BAD"; } else { my @x = $self->at(); return ( $format ? sprintf( $format, $x[ 0 ] ) : "$x[0]" ); } } return "Null" if $self->isnull; return "Empty" if $self->isempty; # Empty piddle local $PDL::Core::sep = $PDL::use_commas ? "," : " "; local $PDL::Core::sep2 = $PDL::use_commas ? "," : ""; if ( $ndims == 1 ) { return PDL::Core::str1D( $self, $format ); } else { return PDL::Core::strND( $self, $format, 0 ); } } my $pdl = sequence( 100, 100, 3 ); print $pdl; print "\n"; __END__ -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html _______________________________________________ Perldl mailing list Perldl@jach.hawaii.edu http://mailman.jach.hawaii.edu/mailman/listinfo/perldl