Gunnar Hjalmarsson wrote:
Gowri Chandra Sekhar Barla, TLS, Chennai wrote:
I have a file in which 10 lines are there each line is of with different
sizes
I want to print these lines in another files
If size of line is greater than 80 I should break the line

Please help to write this script

    while (<>) {
        chomp;
        while ( my $line = substr $_, 0, 80, '' ) {
            print "$line\n";
        }
    }

works fine,

cat ././substr.pl
#!/usr/bin/perl -w
use strict;

while (<DATA>) {
   chomp;
   while ( my $line = substr $_, 0, 30, '') {
                  print "$line\n";
   }
}
__END__
Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Yyyyyyyyyyyyyyyyyyyyyyyyyyyy
Zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
Aaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
[EMAIL PROTECTED] scratchpad]# ./!$
./././substr.pl
Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxx
Yyyyyyyyyyyyyyyyyyyyyyyyyyyy
Zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzz
Aaaaaaaaaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
bbbbbbbbbbbb


But what is the extra syntax at the end for substr?   ' '  ???

I thought substr was sbustr($var, $offset, $count)    ???

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to