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/
