in reply to push, assign or split a file?

Nits: 
seek( $IN1, 0, SEEK_END );
my $length = tell($IN1);
seek( $IN1, 0, 0 );

[download]

can be replaced by -s. 

split( /\n/, $bob );

[download]

is not equivalent. It removes the newline from each element, and it removes trailing blank lines.

Replies are listed 'Best First'.
Re^2: push, assingn or split a file?
by gam3 (Curate) on Jan 17, 2010 at 16:52 UTC
    Thanks. The -s is handy. My C is showing.

    To fix the split you need to use /^/m or just /^/ as split will know what you mean.

    -- gam3
    A picture is worth a thousand words, but takes 200K.
[reply]
[reply]

In Section Seekers of Perl Wisdom