Re: 2048 character limit

[scain]

druid,

Along the lines of Ryszard's solution, but it puts the print inside the while, like Beatnik suggested, and breaks long lines:

while (<FH>) {
    my $templine = $_;
    while (length $templine > 60) {
        my $substring = substr ($templine, 0, 60);
        print "$substring\n";
        $templine = substr ($templine, 61);
    }
    print "$templine\n";
}

Note that this is untested code, and I am notorius for screwing up indexes in things like substr, so be sure to check for off by one errors.

Scott
Please see my resume; I am looking for a Bioinformatics Scientist position.

[Aristotle]

Or much simpler:

while (<>) {
        print "$1\n" while s/^(.{60})//;
        print "$_\n" if $_;
}

____________
Makeshifts last the longest.

[druid]

doesnt work ..

[Aristotle]

Yes it does; maybe your problem is that I'm using the diamond operator. Either make that <FH> or drop the file opening code at the top. In the latter case, call it with the filename on the commandline (script /etc/passwd) or pipe the data into it (script < /etc/passwd).

Rationale: I tend to use the diamond operator rather than handle the file opening myself because it makes scripts more flexible as to where they accept input from, while at the same time they take less time to write - no monkeying with open, much less (if any) manual error checking, etc. Perl does the job for me, why should I?

Makeshifts last the longest.

[druid]

doesnt work.. i just get the same line over and over .. ill try and discover the prob..