Re: 2048 character limit

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";
}
[download]

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.

Comment on Re: 2048 character limit Download Code

Replies are listed 'Best First'.
Re^2: 2048 character limit by Aristotle (Chancellor) on Jun 06, 2002 at 00:52 UTC
Or much simpler: `while (<>) { print "$1\n" while s/^(.{60})//; print "$_\n" if $_; }` [download] `____________` Makeshifts last the longest.	[reply] [d/l]
Re: Re: Re: 2048 character limit by druid (Initiate) on Jun 06, 2002 at 07:49 UTC
doesnt work ..	[reply]
Re^4: 2048 character limit by Aristotle (Chancellor) on Jun 06, 2002 at 14:41 UTC
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.	[reply] [d/l] [select]
Re: Re: 2048 character limit by druid (Initiate) on Jun 06, 2002 at 07:50 UTC
doesnt work.. i just get the same line over and over .. ill try and discover the prob..	[reply]