Re^2: 2048 character limit

Or much simpler:

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

____________
Makeshifts last the longest.

Comment on Re^2: 2048 character limit Download Code

Replies are listed 'Best First'.
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]