To count # characters in a line and make the line shorter

[clearguy02]

Hi experts,

In my script, I need to check if a total number of characters in a
line is more than 10 or not and it it is >10, I should the cut the
original line to only 10 characters.

Example:
=============
$orig_line = "Perl is a good language";
$total_char = length ($orig_line)";

$second_line;

if ($total_char > 10)
{
print "The original's size is $total_char, but it should be
$second_line";
}

One way I can think is to get the difference between the $total_char
and the limit value (10) and after the finding the difference number,
I can truncate those many characters from the original line and store
that modified line in $second_line variable.

Does some one suggest me a shorter way of doing it?

Thanks,
J

 

[Jürgen Exner]

In my script, I need to check if a total number of characters in a
line is more than 10 or not and it it is >10, I should the cut the
original line to only 10 characters.

Example:
=============

You are missing
use strict; use warnings;

$orig_line = "Perl is a good language";

[complicated, non-compilable code snipped]

This does smell like homework, but I'm bored today:

use warnings;
use strict;
my $orig_line = "Perl is a good language";
if (length $orig_line > 10){
print ('The original\'s size is ',
length $orig_line ,
' total_char, but it should be ',
substr($orig_line, 0, 10)
)
}


jue

 

[John W. Krahn]

Hi experts,

In my script, I need to check if a total number of characters in a
line is more than 10 or not and it it is >10, I should the cut the
original line to only 10 characters.

Example:
=============
$orig_line = "Perl is a good language";
$total_char = length ($orig_line)";

$second_line;

if ($total_char > 10)
{
print "The original's size is $total_char, but it should be
$second_line";
}

One way I can think is to get the difference between the $total_char
and the limit value (10) and after the finding the difference number,
I can truncate those many characters from the original line and store
that modified line in $second_line variable.

Does some one suggest me a shorter way of doing it?

my $new_line = substr $orig_line, 0, 10;




John

 

[Frank Seitz]

Does some one suggest me a shorter way of doing it?

$second_line = substr $orig_line,0,10;

Frank